- 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
Inserire in colonna dati presi da altra colonna Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Trasferimento dati tra due fogli con due condizioni Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 9 |
Problema con copia dati senza formattazione Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 9 |
Visitano il forum: Nessuno e 20 ospiti