Soru Dosya açma ve ilk boş hücreye yapıştır

[hakanimamoglu]

Böyle bir makro hazırladım ama eksik olan bir iki noktayı bulamadım. Yardımlarınızı bekliyorum
......
Sheets("PAZAR").Select
ActiveWindow.SmallScroll Down:=-36
Range("C4:C46").Select
Selection.Copy
Application.WindowState = xlMinimized
ActiveWindow.SmallScroll Down:=-6

Fiyat.xls dosyasını aç ve pazar sayfasını seç

Sheets("PAZAR").Select
Range("C3:C45").Select ( BUNUN YERİNE İLK BOŞ D3:45 /E3:E45/ ÇÜNKÜ HER HAFTA DOLACAK
ActiveWindow.SmallScroll Down:=-33
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodları deneyin.
Dosya kısımına Fiyat.xls dosyanızın konumunu yazın.

Sub Test()
    Dim Dosya As String
    Dim Syf As Worksheet
    Dim SonSatir As Integer
    Dosya = "C:\Klasor Adı\Fiyat.xls"
    Set Syf = Workbooks.Open(Dosya).Worksheets("Pazar")
    SonSatir = Syf.Cells(Rows.Count, "D").End(xlUp).Row
    Syf.Cells(SonSatir + 1, "D").PasteSpecial
    Syf.Cells(SonSatir + 1, "D").Copy
    Syf.Cells(SonSatir + 1, "D").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Fiyat dosyasını kaydedip kapatmak için kodların en sonuna şu satırı ekleyebilirsiniz.

Syf.Parent.Close True

 

[hakanimamoglu]

Bu kodları benim kodlardan sonra mı ekliyeceğim?
Çünkü sadece sizin kodları ekleyince "dosya yolunu " yappıştırıyor

 

[Muzaffer Ali]

Soruyu daha açıklayıcı bir şekilde sorsanız aslında ben orunu tahmin ederek cevaplandırdım.

Kopyalamak istediğiniz alan neresi ve hangi sayfadan kopyalanacak?
Yapıştırmak istediğiniz alan neresi ve hangi sayfaya yapıştırılacak?

 

[hakanimamoglu]

Şimdi Hocam Günlük Fiyatları girdiğimiz bir gunluk.xls dosyamız var. Onda 6 Sayfa var. Pazar-Hal-A101-BİM-MİGROS-KURUYEMİŞ ve bu 6 sayfaya her pazartesi veri giriliyor.
Ben Aktar dediğimde Fİyatlar excelde bulunan aynı adlı sayfadaki yere gidicek ve pazartesi (Örneğin:1.12.2019) altına yapışacak.
Aktarma işlemini her pazarteis yapacağım.
-------------------------------------------------------------------
Gunluk.xls dosyasından Pazar Sayfasından c4:c46 seçilecek
Fiyatlar.xls dosyasından Pazar sayfasına C4:c46 ya yapışacak