- Codice: Seleziona tutto
If cl.Offset(1,2).Value = "" Then GoTo 10
Come risolvere? Ringrazio.
Cordiali saluti
R
Moderatori: Anthony47, Flash30005
If cl.Offset(1,2).Value = "" Then GoTo 10
Sub Trascrive2()
Dim I As Long, rNum As Long
Dim cNome As String
'
For I = 50 To 1 Step -1
cNome = Sheets("Foglio2").Cells(I, "A").Value
If cNome <> "" Then
rNum = Evaluate("Max(IF(Foglio1!B1:B50=""" & cNome & """,ROW(B1:B50),""""))")
If rNum > 0 Then
Sheets("Foglio1").Cells(rNum, "C") = Sheets("Foglio2").Cells(I + 1, "B")
End If
End If
Next I
End Sub
rNum = Evaluate("Max(IF(Foglio1!B1:B3000=""" & cNome & """,ROW(B1:B3000),""""))")
Torna a Applicazioni Office Windows
Problema con copia dati senza formattazione Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 9 |
Macro copia dati colonne non contigue su un altro file excel Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: Nessuno e 31 ospiti