Ciao a tutti,
su un foglio che chiameremo "home" dovrei far cancellare una serie di celle (J30:J36;N30:N36;R30:R36) al variare della cella "G30".
Come faccio?
Grazie
Moderatori: Anthony47, Flash30005
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("G30")) Is Nothing Then Exit Sub
Range("I30:I36").Select
Selection.ClearContents
Range("L30:L36").Select
Selection.ClearContents
Range("O30:O36").Select
Selection.ClearContents
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G30")) Is Nothing Then
Application.EnableEvents = False
Range("I30:I36,L30:L36,O30:O36").ClearContents
Application.EnableEvents = True
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("G30")) Is Nothing Then
Application.EnableEvents = False
Range("I30:I36,L30:L36,O30:O36").ClearContents
Application.EnableEvents = True
End If
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 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 94 ospiti