İstenilen yere yapıştırmak

[faruksir]

Ý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

 

[Levent Menteşoğlu]

ActiveSheet.Paste

Yerine aşağıdaki gibi yazarak deneyin.

sheets("sayfa1").range("j3").paste

 

[ccumhur]

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
sayfa1. Activate
range("j3").select

ActiveSheet.Paste
Windows("üretim raporu.xls").Activate
Application.CutCopyMode = False
Selection.ClearContents
ActiveWorkbook.Save
ActiveWindow.Close

heralde böle bişi yanlış anlamadıysam

 

[faruksir]

süper oldu, aklınıza sağlık.
teşekkürler