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

• #4597 Delila_1 veterán Lehdog #4596

  Új Válasz 2009-03-06 07:48:52 #4597

  Ú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 Lehdog #4596 üzenetére

  Két lapról van szó, ahol az adatok a 11. sorban kezdődnek, és az itt-ott 0-t tartalmazó oszlop a G.

  Sub rejt()
  Dim lap As Variant
  lap = Array("Kaschieren", "Näherei")
  For laap = 0 To 1
  Sheets(lap(laap)).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

  A range("G" & sor).select helyett először rows(sor & ":" & sor).select-et írtam. Akkor az volt a baj, hogy az egyik oszlopban lévő összevonások (merge) miatt több sort jelölt-, és rejtett el.

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