Hedef Hücre İçeriklerini Kopyalamak Hakkında

[wenes]

Merhabalar, hayırlı bayramlar.

Bir Excel çalışmamda, birinci sayfadaki ilgili hücrelerdeki içerikleri aynı çalışma kitabında üçüncü sayfaya kopyalayacağım. Bu kolay bir konu fakat, kopyaladığım sayfa 3'te sütunlarımı oluşturdum, en son sütuna da kopyaladıktan sonra, bir sonraki satıra geçmesini ve artık girilen veriyi bir alt satıra kopyalamasını istiyorum. Bir nevi veritabanı gibi girilen değerleri düzenli bir şekilde depolamak istiyorum.

Bu şekilde x'ler sütunlarım, son sütuna kadar veri kopyalanıp sonraki değerler bir alt satıra geçerek kopyalanması gerek.

Birinci sayfadan kopyalayacağım veriler sabit hücrelere yazılacak ardından kaydet butonu ile sayfa 3'e kopyalanacak. Dolayısıyla birinci sayfada "KAYDET" butonu kullanarak kodları onClick şeklinde kopyalamayı düşünüyorum.

Kısacası birinci sayfadaki F3 hücre içeriği, sayfa 3'te A2'ye,
Birinci sayfadaki F7 hücre içeriği, sayfa 3'te B2'ye,
Birinci sayfadaki F11 içeriği sayfa 3'te C2'ye ve,
Birinci sayfadaki A3 içeriği sayfa 3'te D2'ye.

Yine birinci sayfada aynı hücrelerdeki(F3, F7...) veriler butona tekrar basıldığında sırayla A3'e, B3'e...(bir sonraki satıra) şeklinde kopyalamaya devam edecek. Yapmak istediğim şey bu. Bu konuda yardımlarınıza ihtiyaç duyuyorum.

Buraya kadar okuduğunuz için teşekkür ederim. Tekrardan iyi bayramlar diliyorum.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub KAYDET()
    Dim S1 As Worksheet, S3 As Worksheet, Satır As Long
    
    Set S1 = Sheets("Sayfa1")
    Set S3 = Sheets("Sayfa3")
    Satır = S3.Cells(S3.Rows.Count, 1).End(3).Row + 1
    
    S3.Cells(Satır, "A") = S1.Range("F3")
    S3.Cells(Satır, "B") = S1.Range("F7")
    S3.Cells(Satır, "C") = S1.Range("F11")
    S3.Cells(Satır, "D") = S1.Range("A3")
    
    S1.Range("F3,F7,F11,A3").ClearContents
    
    Set S1 = Nothing
    Set S3 = Nothing
    
    MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
End Sub

 

[wenes]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub KAYDET()
    Dim S1 As Worksheet, S3 As Worksheet, Satır As Long
    
    Set S1 = Sheets("Sayfa1")
    Set S3 = Sheets("Sayfa3")
    Satır = S3.Cells(S3.Rows.Count, 1).End(3).Row + 1
    
    S3.Cells(Satır, "A") = S1.Range("F3")
    S3.Cells(Satır, "B") = S1.Range("F7")
    S3.Cells(Satır, "C") = S1.Range("F11")
    S3.Cells(Satır, "D") = S1.Range("A3")
    
    S1.Range("F3,F7,F11,A3").ClearContents
    
    Set S1 = Nothing
    Set S3 = Nothing
    
    MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
End Sub

Hocam makro sorunsuz çalışmakta. Çok teşekkür ederim vaktinizi ayırdınız, sağ olun.