..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

Makro za kopiranje na drugi list

Pomoč pri izdelavi makrov

Makro za kopiranje na drugi list

OdgovorNapisal/-a jumanjy » Pe apr 01, 2016 2:39 pm

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
jumanjy
 
Prispevkov: 118
Pridružen: To jan 12, 2010 1:00 pm



Matjazev.NET
 

Re: Makro za kopiranje na drugi list

OdgovorNapisal/-a admin » Pe apr 01, 2016 5:16 pm

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
admin
Site Admin
 
Prispevkov: 3469
Pridružen: Sr jul 20, 2005 10:06 pm

Re: Makro za kopiranje na drugi list

OdgovorNapisal/-a jumanjy » To apr 05, 2016 8:17 pm

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.
jumanjy
 
Prispevkov: 118
Pridružen: To jan 12, 2010 1:00 pm

Re: Makro za kopiranje na drugi list

OdgovorNapisal/-a admin » Sr apr 06, 2016 7:43 am

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
admin
Site Admin
 
Prispevkov: 3469
Pridružen: Sr jul 20, 2005 10:06 pm

Re: Makro za kopiranje na drugi list

OdgovorNapisal/-a jumanjy » Sr apr 06, 2016 12:52 pm

Odlično deluje! Najepša Vam hvala.

lp
jumanjy
 
Prispevkov: 118
Pridružen: To jan 12, 2010 1:00 pm


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 0 gostov

cron