- 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
Prelevare dati da www.forebet.com usando i Driver Selenium Autore: AndreaDeBiagi |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: Nessuno e 4 ospiti