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

• #4618 VANESSZA1 őstag Delila_1 #4617

  Új Válasz 2009-03-07 18:23:27 #4618

  Ú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

  

  VANESSZA1

  őstag

  válasz Delila_1 #4617 üzenetére

  Rájöttem, talán az a gond,hogy közben módosítottam a táblázatot. Cellákat szúrtam be.
  Az emailben amit küldtél tökéletesen működik, csak azt a táblát tovább fejlesztettem..

  Akkor most helyesen így nézne ki a makró?
  Sub rejt()
  Dim lap As Variant
  lap = Array("Kaschieren", "Näherei")
  For ll = 0 To 1
  Sheets(lap(ll)).Select
  For sor = Range("G65536").End(xlUp).Row To 11 Step -1
  If Cells(sor, 7) = "" Then GoTo Köv
  If Cells(sor, 7) = 0 Then
  Range("G" & sor).Select
  Selection.EntireRow.Hidden = True
  End If
  Köv:
  Next
  Next
  End Sub

  Sub felfed()
  Dim lap As Variant
  lap = Array("Kaschieren", "Näherei")
  For L = 0 To 1
  Sheets(lap(L)).Select
  Rows("11:100").Select
  Selection.EntireRow.Hidden = False
  Range("C1" & sor).Select
  Next
  End Sub

  A G oszlop 11-es sorától kellene elrejteni, vagy felfedni.

  Helyesen módosítottam?
  Vagy a felfeden még kell alakítani?

  Precision M7710_&_Precision M7740- CPU: 9980HK, RAM: 32GB/3200MHz, GPU: RTX5000, IGZO 4K-UHD, SSD: 2TB Force MP510, 2TB ADATA XPG SX8200 PRO, 1TB SK HYNIX Class 50 SSD

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