Moderatori: Anthony47, Flash30005
Sub cancellaUg()
Set ws1 = Worksheets("Foglio1")
Set Ws3 = Worksheets("Foglio3")
For RR3 = 1 To 120
ValC = Ws3.Range("H" & RR3).Value
For CC1 = 1 To 6
For RR1 = 1 To 25
If ws1.Cells(RR1, CC1).Value = ValC Then ws1.Cells(RR1, CC1).ClearContents
Next RR1
Next CC1
Next RR3
End Sub
Sub cancellaUgA()
Set ws1 = Worksheets("Foglio1")
Set Ws3 = Worksheets("Foglio3")
For RR3 = 1 To 120
ValC = Ws3.Range("H" & RR3).Value
For RR1 = 1 To 25
If ws1.Cells(RR1, 1).Value = ValC Then ws1.Cells(RR1, 1).ClearContents
Next RR1
Next RR3
End Sub
Torna a Applicazioni Office Windows
Inserire 2 valori nella stessa cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 2 |
Totale valori di più colonne del foglio con funzione Sum Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel - Trasposizione e ripetizione di valori Autore: EnricoBanco |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Marius44 e 33 ospiti