Ağdaki dosyaya kopyala yapiştır makrosu.

[kemal turan]

Merhaba ustadlar,
Sorunum anlaşılabilir şekilde 3 ncü mesajdadır.
Teşekkürler

 

[kemal turan]

Merhaba ustadlar,
Sorunum anlaşılabilir şekilde 3 ncü mesajdadır.
Teşekkürler

 

[kemal turan]

Merhaba,
Önceki mesajımlarımda sorumuz anlaşılabililr şekilde sorulmamıştır.

Aşağıda belirtttiğim kod normal olarak ağdaki dosyamıza kopyala yapıştır işlemini yapıyor.
Yalnız verileri üst üste yapıştırıyor.
İsteğim verinin yapıştırılan sutunda her defasında en son veriden sonra ilk boş satıra ekleyerek yapıştırması.(herhalde row+1 özelliği diye tahmin ediyorum)
Bu kod işimizi %50 azaltacak bir kod olacaktır.Yardımlarınızı bekliyorum.
Teşekkür ederim.
Sub KAYDET2()

Range("A2:A8").Select
Selection.Copy
ChDir "\\AKSAY\Users\Public\Documents"
Workbooks.Open Filename:="\\AKSAY\Users\Public\Documents\GÜNLÜK SATIŞ.xlsx."
Sheets("SATIŞLAR").Cells(2).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveWorkbook.Save
MsgBox ("kayıt edildi")
ActiveWindow.Close
Range("B2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("C2").Select
End Sub

 

[kemal turan]

Merhabalar,
Sn.Uzmanlarımız yardımlarınızı bekliyoruz.
Teşekkürler

 

[Korhan Ayhan]

Merhaba,

Yapıştırma işlemi yapan satırı aşağıdaki gibi değiştirip deneyin.

    Sheets("SATIŞLAR").Cells(Rows.Count, "A").End(3).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

 

[kemal turan]

İyi geceler Sn.Korhan bey,
Gecenin bu vaktinde vakit ayırdığınız için müteşekkirim.
Yarın ilk işim hemen kodunuzu uygulamak olacak.
İşiniz rast gitsin.
Selametle kalın.