Dopuna macroa za kopiranje

Odgovori Nova tema

1 odgovor
2.600 pregleda

Dopuna macroa za kopiranje 10.08.2013. u 14:14 · pre 161 mesec #1

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

Potpis

Jasmin

Re: Dopuna macroa za kopiranje 12.08.2013. u 11:40 · pre 160 meseci #2

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

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

CopyOnChange.xlsm15.61k

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme