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

• #13949 Delila_1 veterán Metathrone #13948

  Új Válasz 2012-06-04 17:36:37 #13949

  Ú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 Metathrone #13948 üzenetére

  Ezt akkor tudod automatikusan megoldani, ha a billentyűzettel törlöd a cellák tartalmát. Ha 1 db makród van a 6 cellához, akkor a lenti makrót másold a lapod kódlapjára.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If IsEmpty(Target) And (Target.Address = "$B$10" Or Target.Address = "$C$3" Or _
  Target.Address = "$D$12") Then
  Makró_neve
  End If
  End Sub

  Én csak 3 címet írtam be (B10, C3 és D12), ezt egészítsd ki 6-ra, és a saját címeidre.
  Ha a 6 kiürített cellának más-más makrókat kell indítaniuk, akkor a következőt másold a lapod kódlapjára.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If IsEmpty(Target) Then
  Select Case Target.Address
  Case "$B$10"
  Makró_1
  Case "$C$3"
  Makró_2
  Case "$D$12"
  Makró_3
  '.
  '.
  '.
  End Select
  End If
  End Sub

  Itt is csak 3 címet adtam meg. Az indítandó makrók címe nálam Makró_1, Makró_2, és Makró_3.

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