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

• #3776 Delila_1 veterán ssrobi #3775

  Új Válasz 2008-08-06 20:02:40 #3776

  Ú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 ssrobi #3775 üzenetére

  Hű, de fürge vagy! Alig néhány hónap, és már meg is nézed!

  Sheets("kiinduló lap").Select
  usor = Range("A65536").End(xlUp).Row
  Range("A16:J" & usor).Select
  Selection.Copy
  Sheets("nyilvántartás").Select
  Cells(1, 1).Select
  ucso = Range("A65536").End(xlUp).Row
  If Cells(ucso, 1) > "" Then ucso = ucso + 1
  Cells(ucso, 1).Select
  Selection.PasteSpecial Paste:=xlPasteValues

  Az lehet a baj az előzővel, hogy a nyilvántartás lapodon még nem volt adat, az xlDown leszaladt a 65536. sorig, és oda akart bemásolni néhány sort. Ettől persze kiakadt a lelke.

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