Nel caso in cui si abbia a che fare con una cella della colonna indirizzo piena non si incontrano problemi ma nel momento in cui si dovrebbe ricercare l'alternativa fondamentalmente questo non avviene.
L'alternativa dovrebbe corrispondere alla casella sulla colonna 5 ,indirizzi, sulla riga corrispondente ad un soggetto con lo stesso cognome, esso dovrebbe essere trovato selezionando la colonna 1, Cognomi, escludendo la "Linea" del soggetto iniziale.
Il problema è che il risultato della ricerca pare essere sempre nullo (Nothing), come mai?
Per aiutarvi ad inquadrare il problema vi dico che la tabella di origine dei dati è costituita da 5 colonne rispettivamente: Cognome, Nome, Data di nascita, Luogo di nascita e Indirizzo
- Codice: Seleziona tutto
Private Sub Indirizzo_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Linea = ActiveCell.Row
'MsgBox Str(Linea)
If Cells(Linea, 5) = "" Then
Lineasup = Str(Linea) - 1
Lineainf = Str(Linea) + 1
'MsgBox Str(Lineasup)
Cognome = Cells(Linea, 1)
'MsgBox Cognome
c1 = Cells(Lineasup, 1)
c2 = Cells(3, 1)
c3 = Cells(50, 1)
c4 = Cells(Lineainf, 1)
If Not Worksheets("Dati completi").Range("c2:c1", "c3:c4").Find(What:=Cognome, LookIn:=xlValues) Is Nothing Then
Worksheets("Dati completi").Range("c2:c1", "c3:c4").Find(What:=Cognome, LookIn:=xlValues).Activate
G = ActiveCell.Row
'MsgBox Str(G)
Indirizzo = Cells(G, 5)
End If
Else
Indirizzo = Cells(Linea, 5)
End If
End Sub