Hirdetés

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

  • oke

    senior tag

    válasz oke #40789 üzenetére

    Ehhez a táblázathoz kapcsolódóan lenne még egy dolog, amire nem tudom a megoldást:
    Van egy leszűrt rész, amit át szeretnék másolni a "mappa" fülre. Ez jelenleg meg is van, a 2. sortól illeszti be. Viszont úgy kellene átalakítanom, hogy a "mappa" fül utolsó szabad sorától másolja be:

    Set Athelyez = Intersect(Cells(1, 3).CurrentRegion, Cells(1, 3).CurrentRegion.Offset(1, 0).Columns(3)).SpecialCells(xlCellTypeVisible).EntireRow
    'Athelyez.Copy Destination:=Worksheets("mappa").Range("2:2")

    Próbálkoztam ezzel, de nem tudom, hogy a változót hogyan rakjam be a fenti részbe:

    Dim sormeghat As Long
    sormeghat = Range("a1").End(xlDown).Row

    Illetve hogyan kellene úgy "megcímezni/meghatározni" az utolsó sort, ha másolás előtt nem "lépek" át a "mappa" fülre.

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

Hirdetés