Makro za kopiranje na drugi list

Pomoč pri izdelavi makrov
Odgovori
jumanjy
Prispevkov: 133
Pridružen: To Jan 12, 2010 1:00 pm

Makro za kopiranje na drugi list

Odgovor Napisal/-a jumanjy »

Pozdravljeni,
Pred časom sem si s pomočjo tega foruma sestavil makro, ki mi kopira izbrano območje na drug list pod prejšnjo shranitev. Sedaj ko pa sem ta makro uporabil še drugje imam pa z njim težave in sicer mi včasih (mislim da glede na velikost izbranega območja) namesto da bi samo prilepil to kopira eno za drugo do konca vrste v excelu.
Ker jaz ne razumem VBA kode bi vas vprašal kaj sem storil narobe. :oops:

Koda: Izberi vse

Sub Gumb1_Klikni()
    Range("A2:B2").Select
    Selection.Copy
    Sheets("ARHIV").Select
    vrsta = (Range("A65536").End(xlUp).Row) + 1
    Rows(vrsta).Select
 ' ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("MERITEV").Select
    Range("C2").Select
    Application.CutCopyMode = False
End Sub
Pa še eno neumestno vprašanje kako se na tipkovnici dobi tista črtica pred kodo da ta vrstica kode postane zelena in je program ne bere.

lp
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Makro za kopiranje na drugi list

Odgovor Napisal/-a admin »

Pozdravljeni,

Če vas prav razumem - kaj želite - potem je spodaj makro, ki ga potrebujete:

Koda: Izberi vse

Sub Gumb1_Klikni()
  Dim ZadnjaVrstica As Long
  
  ZadnjaVrstica = Sheets("ARHIV").Range("A65536").End(xlUp).Row + 1
  Range("A2:B2").Copy Sheets("ARHIV").Cells(ZadnjaVrstica, 1)
End Sub
PS: Črtica, ki jo iščete je apostrof in na tipkovnici se nahaja zraven tipke 0 (tam, kjer je narisan vprašaj)
lp,
Matjaž Prtenjak
Administrator
jumanjy
Prispevkov: 133
Pridružen: To Jan 12, 2010 1:00 pm

Re: Makro za kopiranje na drugi list

Odgovor Napisal/-a jumanjy »

Pozdravljeni,
Seveda ravno to potrebujem samo še posebno lepljenje " samo vrednost" bi bilo potrebno nekako vključiti, ker ima funkcijo Now() pa bi rad, da se prenese samo datum brez funkcije.
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Makro za kopiranje na drugi list

Odgovor Napisal/-a admin »

Potem pa morate prenašati samo vrednosti, torej:

Koda: Izberi vse

Sub Gumb1_Klikni()
  Dim ZadnjaVrstica As Long
  
  ZadnjaVrstica = Sheets("ARHIV").Range("A65536").End(xlUp).Row + 1
	Sheets("ARHIV").Cells(ZadnjaVrstica, 1).Value = Range("A2").Value
	Sheets("ARHIV").Cells(ZadnjaVrstica, 2).Value = Range("B2").Value
End Sub
lp,
Matjaž Prtenjak
Administrator
jumanjy
Prispevkov: 133
Pridružen: To Jan 12, 2010 1:00 pm

Re: Makro za kopiranje na drugi list

Odgovor Napisal/-a jumanjy »

Odlično deluje! Najepša Vam hvala.

lp
Odgovori