Buongiorno a tutti,
questo è uno dei miei primi tentativi di sviluppo. So che siamo a livelli base anche meno, ma per ora riesco a fare solo questo, che peraltro non funziona.
L'intenzione è trovare celle uguali in due colonne e copiare il contenuto su un'altra colonna.
Sub match()
Dim riga_A As String
Dim riga_P As String
Dim i, a As Integer
Dim piu As Long
piu = 1
For i = 1 To i = 110
riga_A = Cells(i, "A")
For a = 1 To a = 52
riga_P = Cells(a, "P")
If riga_A = riga_B Then
Cells(piu, "Q") = Cells(a, "P")
piu = piu + 1
End If
Next a
Next i
End Sub
la sub lavora sul secondo foglio del file che allego
Cosa sbaglio?
grazie come sempre per il vostro prezioso supporto.