cosa intendi per stringa di comando?
Il codice da me postato inserisce una stringa "SUSCP:SNB=0" con il valore della cella A3 e chiude con un punto e virgola
ma è una stringa non un comando
Moderatori: Anthony47, Flash30005
Sub CompilaAU()
UR = Range("A" & Rows.Count).End(xlUp).Row
For RR = 1 To UR
If Range("A" & RR).Value = "" Then Range("AU" & RR).Value = "SUSCP:SNB=0" & Range("A" & RR).Value & ";"
Next RR
End Sub
If Range("AU" & RR).Value = "" Then Range("AU" & RR).Value = "SUSCP:SNB=0" & Range("A" & RR).Value & ";"
Sub CopiaSe()
UR1 = Worksheets("Foglio1").Range("F" & Rows.Count).End(xlUp).Row
For RR1 = 2 To UR1
If UCase(Worksheets("Foglio1").Range("F" & RR1).Value) = "ADD" Then
UR2 = Worksheets("Foglio2").Range("F" & Rows.Count).End(xlUp).Row + 1
Worksheets("Foglio1").Rows(RR1).Copy Destination:=Worksheets("Foglio2").Rows(UR2)
End If
Next RR1
End Sub
UR = Worksheets("ATT").Range("C" & Rows.Count).End(xlUp).Row
For RR = UR To 1 Step -1
If UCase(Worksheets("ATT").Range("C" & RR).Value) = "ADD_DP_ULL" Then
Worksheets("ATT").Rows(RR).Delete Shift:=xlUp '<<< inserisci il nome del foglio, così
End If
Next RR
End Sub
Sub CopiaSe()
UR1 = Worksheets("Foglio1").Range("F" & Rows.Count).End(xlUp).Row
For RR1 = 2 To UR1
If UCase(Worksheets("Foglio1").Range("F" & RR1).Value) = "ADD" Then
UR2 = Worksheets("Foglio2").Range("F" & Rows.Count).End(xlUp).Row + 1
Worksheets("Foglio1").Rows(RR1).Copy Destination:=Worksheets("Foglio2").Rows(UR2)
Worksheets("ATT").Rows(RR1).Delete '<<<< aggiunta riga
End If
Next RR1
End Sub
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 85 ospiti