[ jaskojsako @ 10.08.2013. 13:14 ] @
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
[ Jpeca @ 12.08.2013. 10:40 ] @
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