Sayfaya Veri Aktarımı

[SİBEL70]

Merhabalar,

Ekteki dosyada veri adlı sayfadaki c5:j5 arasındaki veriyi, aktar düğmesine basıldığında data sayfasına aktarmak istiyorum. Ancak Bu aktarım her seferinde en son boş satıra gelecek şekilde olmalı ve aktarım tamamlandığında veri sayfasındaki c5:j5 arasındaki veriyi temizlemeli. Bu konuda yardımınız mümkün olabilir ise sevinirim.
Saygılar,

 

[Ömer]

Merhaba,

Sub Aktar()
Set S1 = Sheets("DATA")
son = S1.[B65536].End(3).Row + 1
Range("C5:J5").Copy S1.Range("B" & son)
Range("C5:J5").ClearContents
End Sub

Bu şekilde deneyiniz..

.

 

[security]

Dosyanız Ekte...
ömer uzmanım cevaplamış ...
Altarnatif olarak

Sub Kayıt()
Set s1 = Sheets("Data")
son = s1.[B65536].End(3).Row + 1
If WorksheetFunction.CountA(Range("c5:j5")) = 0 Then
    MsgBox "Lütfen Veri Giriniz", vbCritical, "security"
Else
    Range("c5:j5").Copy s1.Range("B" & son)
    Range("c5:j5").ClearContents
MsgBox "Aktarım Tamamlanmıştır.", vbInformation, "security"
End If
End Sub

 

[muratozmenler]

Bu şekil işinizi görür mü

 

[SİBEL70]

Ömer Bey, Securıty ve muratozmenler her üçünüzede saygılarımı sunuyorum. Vermiş olduğunuz örnekler'in her biri hazırlamaya çalıştığım dosyada işime yarayabilir. Değerli katkılarınız için teşekkür ediyorum.

Saygılarımla,

 

[security]

Ömer Bey, Securıty ve muratozmenler her üçünüzede saygılarımı sunuyorum. Vermiş olduğunuz örnekler'in her biri hazırlamaya çalıştığım dosyada işime yarayabilir. Değerli katkılarınız için teşekkür ediyorum.

Saygılarımla,

Rica Ederim Kolay Gelsin...

 

[mustafakoker]

Sayın Security

If WorksheetFunction.CountA(Range("c5:j5")) = 0 Then

benim aktarım yapmak istediğim satır ve sutunlar a29:a74 d29:d74

sizin yukarıda verdiğiniz c5:j5 buna göre nasıl düzeblerim