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

• #28614 dudu_14 csendes tag

  Új Válasz 2015-09-15 15:26:20 #28614

  Ú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

  

  dudu_14

  csendes tag

  Sikerüüült! Köszi még egyszer a gyors megoldást

• #28599 dudu_14 csendes tag Delila_1 #28598

  Új Válasz 2015-09-15 11:49:26 #28599

  Ú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

  

  dudu_14

  csendes tag

  válasz Delila_1 #28598 üzenetére

  Köszi, így már működik, igaz a ciklusos változata.

  Hogy kellene pontosabban alkalmazni ezt a parancsot? Sajnos nem jön össze ezzel az egyszerűsített megoldással a dolog . Valamiket nem jó írok biztosan.

• #28596 dudu_14 csendes tag

  Új Válasz 2015-09-15 09:08:53 #28596

  Ú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

  

  dudu_14

  csendes tag

  Sziasztok!

  Kezdő excel vb-s vagyok, tudnátok kicsit segíteni? 2010-es magyar excelben dolgozom.

  Van egy munkafüzet aminek a D6-os cellájában legördülő választólistából 3 fix értéket lehet választani. Attól függően, hogy az ember mit választ ki, az excel elrejti pl a 28-55. sort, vagy egyéb sorokat.

  Sikerült írnom rá egy makrót, ami úgy tűnik működik is, viszont kizárólag akkor, ha rákkatintok a makró futtatására. Azt szeretném, ha ezt a bizonyos választó cellát figyelné a program alapból és ha megváltozik, akkor automatikusan fusson le az általam írt makró.

  Sub proba()
  '
  ' proba Makró
  
  Dim sor%, sorok%, D, DT, TS
  D = "Dermedés"
  DT = "Dermedés tápfejekkel"
  TS = "Teljes szimuláció"
  sorok% = ActiveSheet.UsedRange.Rows.Count
  For sor% = 1 To sorok%
  Rows(sor%).Hidden = False
  Next
  For i = 28 To 55
  If Cells(6, 4).Value = D Then
  Rows(i).Hidden = True
  End If
  Next
  For j = 28 To 55
  If Cells(6, 4).Value = DT Then
  Rows(j).Hidden = True
  End If
  Next
  For k = 19 To 27
  If Cells(6, 4).Value = TS Then
  Rows(k).Hidden = True
  
  End If
  Next
  
  
  End Sub

  Köszi előre is

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