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

• #46537 Fferi50 Topikgazda pero19910606 #46533

  Új Válasz 2021-04-25 19:21:30 #46537

  Ú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

  

  Fferi50

  Topikgazda

  válasz pero19910606 #46533 üzenetére

  Szia!
  A 2. kérdésre még egy ötlet:
  Az átmásolás előtt megjegyzed, mi az utolsó sor az ellenőrzős táblában és ez után eggyel kell kezdeni a kitöltést (ez lesz LR3 értéke). És nem kell hozzá ciklus, egy menetben adhatsz értéket az adott tartománynak:
  Range("B" & LR3 & ":B" & LR4).Value="Magas érték C gyár"
  Csak minden másolás után be kell írni az okokat.
  Üdv.

• #46535 Fferi50 Topikgazda pero19910606 #46533

  Új Válasz 2021-04-25 18:59:17 #46535

  Ú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

  

  Fferi50

  Topikgazda

  válasz pero19910606 #46533 üzenetére

  Szia!
  1. Használd a Listobject DataBodyRange tulajdonságát:
  ActiveSheet.Listobjects.DataBodyRange.SpecialCells(xlCellTypeVisible).Copy  Destination:=Sheets("Ellenőrzés").Cells(3,2) " ide megadhatod direktben a céltábla címét, 
  2. Nézd meg, hogy az LR4 sor feletti cella üres-e és addig menj visszafelé, amíg üres a felette levő sor. Esetleg próbáld meg az End(xlUp) -ot ismételten végrehajtani ettől a cellától.
  Üdv.

• #46534 Delila_1 veterán pero19910606 #46533

  Új Válasz 2021-04-25 18:39:27 #46534

  Ú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 pero19910606 #46533 üzenetére

  Szűrés után megadhatod az első látható sor számát,
  tol = Range("A2:A10000").SpecialCells(xlCellTypeVisible).Row
  majd az utolsót
  ig = Range("A" & Rows.Count).End(xlUp).Row
  Ezután már gyerekjáték a másolás.
  Pl.
  Range(Cells(tol, 1), Cells(ig, 5)).Copy Sheets("Másik lap").Range("A5")

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