Moderatori: Anthony47, Flash30005
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$4" Then
Range("F2").ClearContents
Range("F5").ClearContents
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CkArea As String, cCell As Range
'
CkArea = "C4:P4"
If Application.Intersect(Target, Range(CkArea)) Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each cCell In Target
If cCell.Value = 0 Then
cCell.Offset(-2, 0).ClearContents
cCell.Offset(1, 0).ClearContents
End If
Next cCell
Application.EnableEvents = True
End Sub
Torna a Applicazioni Office Windows
Inserimento parziale valore cella in MessageBox Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 6 |
Inserire dati filtrati da 2 file ad un terzo file Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 14 |
Mettere tutto MAIUSCOLO un range di celle Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 7 |
Aggiornare cella con somma quando aggiungo nuova colonna Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 1 |
Visitano il forum: Nessuno e 31 ospiti