Rulare cod VBA dupa valoare din dropdown
Re: Rulare cod VBA dupa valoare din dropdown
Scuze am facut o gresala. Este vorba de foaia Stafilococi, celula D7.
Re: Rulare cod VBA dupa valoare din dropdown
Ia incearca asa:
Cod: Selectaţi tot
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 7 And Target.Column = 4 Then
Range("I18:I20").ClearContents
End If
End Sub
Re: Rulare cod VBA dupa valoare din dropdown
De ce mai ai nevoie si de ultimul AND din linia cu IF-ul ?
Sterge-l p-ala si o sa funcioneze:
Cod: Selectaţi tot
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 4 And Target.Column = 1 And Target.Value = "gyufugv" Then
Range("C8:C9").ClearContents
End If
End Sub
Cod: Selectaţi tot
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 4 And Target.Column = 1 Then
Range("C8:C9").ClearContents
End If
End Sub
Re: Rulare cod VBA dupa valoare din dropdown
Scuze. Este vorba de foaia Stafilococi, celula D7.
Re: Rulare cod VBA dupa valoare din dropdown
Da. Merge. Multumesc.
Re: Rulare cod VBA dupa valoare din dropdown
Inlocuieste codul:
cu asta:
De fapt, mai bun ar fi un cod ca cel de mai jos, pentru ca orice modificare de continut ale celulelor din foaie prin codul scris in procedura asociata evenimentului "Change" produce ceea ce se numeste "cascading events", adica declansarea evenimentului "Change" pentru orice modificare de continut al unei celule din foaia respectiva. Liniile de cod:
si
dezactiveaza declansarea de evenimente pentru modificarile produse in foaie de liniile de cod vba care sunt scrise intre cele doua linii de cod de mai sus.
Cod: Selectaţi tot
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 7 And Target.Column = 4 And Target.Value = "-" Then
Range("I18:I20").ClearContents
End If
If Target.Row = 7 And Target.Column = 4 And Target.Value = "+" Then
Range("H3:H11").ClearContents
End If
End Sub
Cod: Selectaţi tot
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 7 And Target.Column = 4 Then
If Target.Value = "-" Then
Range("I18:I20").ClearContents
Else
If Target.Value = "+" Then
Range("H3:H11").ClearContents
End If
End If
End If
End Sub
Cod: Selectaţi tot
Application.EnableEvents = False
Cod: Selectaţi tot
Application.EnableEvents = True
Cod: Selectaţi tot
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 7 And Target.Column = 4 Then
Application.EnableEvents = False
If Target.Value = "-" Then
Range("I18:I20").ClearContents
Else
Range("H3:H11").ClearContents
End If
Application.EnableEvents = True
End If
End Sub