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

• #18725 Delila_1 veterán Vizes Tomi #18722

  Új Válasz 2013-08-09 18:20:28 #18725

  Ú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 Vizes Tomi #18722 üzenetére

  A két lapnak Rejtett, és Látható nevet adtam. Az első makrót a Látható laphoz rendeld. Ezen a lapon az A1 cellába beírod a keresett azonosítót.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Rows("5:10000").ClearContents
  If Target.Address = "$A$1" Then
  Rows("5:10000").ClearContents
  Listaz Target
  End If
  End Sub

  A második makró, amit modulba másolsz be, a Látható lapra átmásolja a kritériumnak megfelelő sorokat, az A5 cellától kezdve. A 4. sorba beírhatod az oszlopok címét (Azonosító ... Összeg)

  Sub Listaz(krit)
  Dim usor As Long, Rng As Range
  Application.EnableEvents = False
  
  Sheets("Rejtett").Select
  Selection.AutoFilter Field:=1, Criteria1:=krit
  usor = Range("A1").End(xlDown).Row
  Set Rng = Range("A2:D" & usor).SpecialCells(xlCellTypeVisible)
  Rng.Copy Sheets("Látható").Range("A5")
  
  Sheets("Látható").Select
  Application.EnableEvents = True
  End Sub

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