Ãstenilen yere yapıştırmak
Kullandığım makro, benim dosyam açıkken başka bir dosyayı açıyor, bir sütundaki en yüksek değerin bir fazlasını ilk dosyaya kaydediyor. Ãöyle bir sorun var, ilk başta dosyamda hangi hücre aktifse oraya yapıştırıyor. ben ise "sayfa1, j3 hücresine" yapıştırmak istiyorum. Yardımcı olursanız çok sevinirim.
Workbooks.Open Filename:="D:\Order\üretim raporu.xls"
ActiveCell.FormulaR1C1 = "=MAX(R[1]C[-14]:R[997]C[-14])"
ActiveCell.FormulaR1C1 = "=MAX(R[1]C[-14]:R[997]C[-14])+1"
Range("Q3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Windows("project.xls").Activate
ActiveSheet.Paste
Windows("üretim raporu.xls").Activate
Application.CutCopyMode = False
Selection.ClearContents
ActiveWorkbook.Save
ActiveWindow.Close
Kullandığım makro, benim dosyam açıkken başka bir dosyayı açıyor, bir sütundaki en yüksek değerin bir fazlasını ilk dosyaya kaydediyor. Ãöyle bir sorun var, ilk başta dosyamda hangi hücre aktifse oraya yapıştırıyor. ben ise "sayfa1, j3 hücresine" yapıştırmak istiyorum. Yardımcı olursanız çok sevinirim.
Workbooks.Open Filename:="D:\Order\üretim raporu.xls"
ActiveCell.FormulaR1C1 = "=MAX(R[1]C[-14]:R[997]C[-14])"
ActiveCell.FormulaR1C1 = "=MAX(R[1]C[-14]:R[997]C[-14])+1"
Range("Q3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Windows("project.xls").Activate
ActiveSheet.Paste
Windows("üretim raporu.xls").Activate
Application.CutCopyMode = False
Selection.ClearContents
ActiveWorkbook.Save
ActiveWindow.Close