Új hozzászólás Aktív témák

• #41349 Delila_1 veterán RazoR #41345

  Új Válasz 2019-07-11 14:37:07 #41349

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz RazoR #41345 üzenetére

  Erre gondolsz?

  Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D2")) Is Nothing And Target.Value = "" Then
Application.EnableEvents = False
Range("C4, E4, F2, H2,h4") = "" ***
Application.EnableEvents = True
End If
End Sub

  Ebben a laphoz rendelt makróban a D2 cella tartalmának a törlésekor a csillagokkal jelölt sorban lévő cellák tartalma is törlődik.
  Az első sorban a Range("D2")-t átírhatod annak a cellának a címére, ahol törölni akarsz, a ***-gal jelölt sorban a törlendő cellák címét írd be a mostaniak helyett.

Új hozzászólás Aktív témák