Visualizza messaggio singolo
Vecchio 23-02-2018, 20.54.11   #2
Alexsandra
Senior Member
WT Expert
 
L'avatar di Alexsandra
 
Registrato: 19-05-2007
Loc.: Verona
Messaggi: 1.302
Alexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tuttiAlexsandra è conosciuto da tutti
Rif: Ricerca di un Determnato dato e copiare L'intera riga di dati da un altra parte

....... Non capisco .... non potrà mai funzionare.
Concettualmente è errato agire in questo modo, quando apri la form il ListBox non si vede, (proprietà visible = false ....... ) poi si devono considerare i doppioni e .....

ci sono molti metodi per cercare una frase in un range, hai scelto quello più ingarbugliato...per esempio prova questo codice

Codice:
Sub Trova_Azienda()
Dim Azienda As String
Azienda = InputBox("Inserisci nome Azienda da cercare:")
Set Cerca = Cells.Find(Azienda, ActiveCell, xlFormulas, xlPart, xlByRows, xlNext, False) 'devo cercare solo nella colonna dell'aziende che è la I=9
    If Cerca Is Nothing Then
        MsgBox ("Azienda non presente nel databse JPS!")
    Else
        Cerca.Select
        MsgBox ("Azienda trovata in: " & ActiveCell.Address)
    End If
End Sub
___________________________________

- Il primo fondamento della sicurezza non e' la tecnologia, ma l'attitudine mentale -
Alexsandra non è collegato   Rispondi citando