Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Dopuna macroa za kopiranje

[es] :: Office :: Excel :: Dopuna macroa za kopiranje

[ Pregleda: 1855 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

jaskojsako
BIH

Član broj: 141632
Poruke: 198
109.163.165.*



+4 Profil

icon Dopuna macroa za kopiranje10.08.2013. u 13:14 - pre 101 meseci
Poz imam macro koji mi snima sa jednog lista čeliju i kopira na drugi list i to je ok
Ali trebam malu dopunu kad kopira čeliju ja moram pritisnuti enter (gdje se piše formula-status bar) u toj čeliji i onda odradi kako treba
može li se preko macroa odraditi to:

Znači na nekom listu je formula sa if funkcijom i tri uslova i da kopira na drugi list ali da ne treba ručno pritisnuti enter.


ThisWorkbook.Sheets("neki").Range("b2").Copy
ThisWorkbook.Sheets("faktura").Range("g23").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

poz i hvala
Jasmin
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2204
212.200.121.*

Sajt: www.gowi.rs


+97 Profil

icon Re: Dopuna macroa za kopiranje12.08.2013. u 10:40 - pre 101 meseci
Nisi naveo kako aktivariaš makro? Ako je na događaj On Change možda si zadao pogrešan Target

Npr. ako ti IF formula u B2 zavisi od opsega A1:A10 onda bi sledći kod

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
' Ispituje da li je nesto menjano u ospesgu  A1:A10
' Ako je istovremeno menjano vise celija ne radi nista
If Intersect(Target, Range("A1:A10")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
ThisWorkbook.Sheets("neki").Range("b2").Copy
ThisWorkbook.Sheets("faktura").Range("g23").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

End Sub


Bilo koja izmena A1:A10 (naravno izmena mora da se potrvdi sa Enter ili klik ili strelica ?!) izvrši se rekalkulacij B2 i kopiranje
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Prikačeni fajlovi
 
Odgovor na temu

[es] :: Office :: Excel :: Dopuna macroa za kopiranje

[ Pregleda: 1855 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.