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

• #28601 Delila_1 veterán dudu_14 #28599

  Új Válasz 2015-09-15 12:51:33 #28601

  Ú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 dudu_14 #28599 üzenetére

  A ciklus helyére másold be, amit küldtem.

• #28598 Delila_1 veterán dudu_14 #28596

  Új Válasz 2015-09-15 09:26:21 #28598

  Ú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 dudu_14 #28596 üzenetére

  A lapodhoz rendelt makróban kell megadnod a műveleteket.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$D$6" Then
  'ide másold a saját makródat a Sub és End Sub sorok nélkül
  End If
  End Sub

  A rejtés feloldásához nem szükséges ciklust betenned, gyorsabb és egyszerűbb megoldást alkalmazz:

  If Target.Address = "$D$6" Then _
  Rows("1:" & ActiveSheet.UsedRange.Rows.Count).Hidden = False

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