Tema
Boje
Pismo
Registracija

Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

Kako se dodaje

Macro za paste u drugi excel fajl pa posle toga print

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Podeli na Facebook-u Podeli na X-u (Twitter) Idi na poslednju poruku
  • 6 odgovora
  • 4.525 pregleda

Najnovija ↓

Macro za paste u drugi excel fajl pa posle toga print 21.01.2009. u 13:29 · pre 216 meseci
izmenjeno 1 put, poslednji put my name is bond 21.01.2009. u 14:21
Izmene poruke
  1. my name is bond21.01.2009. u 14:21zapis iz teksta poruke
#1
Treba mi makro koji će aktivnu prostu excel tabelu od 1 shita u stvari određene ćelije tog aktivnog shita da kopira u određena polja odredišne tabele koja je template i koja se na kraju štampa.Znači neka aktivna tabela copy-paste special-u template pa print template.
(D10 u B1;
D11 u D3;
D12 u D3;
D13 u C3;
D14 u C1;)
Hvala unapred.
Re: Macro za paste u drugi excel fajl pa posle toga print 21.01.2009. u 20:57 · pre 216 meseci #4
pa? snimis u posebnom xls fajlu koji porkeces kad god ti je potreban makro
makro pokrenes u zeljenom fajlu tako sto ga izaberes iz fajla u kom si ga snimio
Potpis
Žena u krevetu i vino na stolu nikako ne smeju da čekaju. Jer, vino se greje a žena hladi.

-vinolog
Re: Macro za paste u drugi excel fajl pa posle toga print 22.01.2009. u 12:50 · pre 216 meseci #6
Ovako nešto meni treba samo samo da se umesto - Sheets("belinalog")Select - (hvala @Manonegra na podršci ) treba mi predpostavljam ActiveWorkbook.. Inače belinalog i Stanko su 2 sheeta iste sveske.
Sub Stanko()
'
' Stanko Makro
'

'
Range("C2:D2").Select
Sheets("belinalog").Select
Range("D10").Select
Selection.Copy
Sheets("stanko ").Select
Range("C2:D2").Select
ActiveSheet.Paste
Sheets("belinalog").Select
Range("D11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("stanko ").Select
Range("C3:D3").Select
ActiveSheet.Paste
Sheets("belinalog").Select
Range("D12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("stanko ").Select
Range("C4:D4").Select
ActiveSheet.Paste
Sheets("belinalog").Select
Range("D13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("stanko ").Select
Range("C5:D5").Select
ActiveSheet.Paste
Sheets("belinalog").Select
Range("A36").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("stanko ").Select
Range("C6:D6").Select
ActiveSheet.Paste
Range("D11").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme