[es] - Dopuna macroa za kopiranje

jaskojsako
BIH

Član broj: 141632
Poruke: 224
109.163.165.*

+4 Profil

^{10.08.2013. u 13:14 - pre 130 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: 2268
212.200.121.*

Sajt: www.gowi.rs

+109 Profil

Re: Dopuna macroa za kopiranje

^{12.08.2013. u 10:40 - pre 130 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

CopyOnChange.xlsm - 15.61k

Odgovor na temu