Makro ile bir sayfadaki verileri diğer sayfaya alma

[muratayaz]

arkadaşlar merhaba forumda bayağı inceledim ama işin içinden çıkamadım.

ek'te dosyayı gönderiyorum .sipariş formundaki bilgileri kaydet butonuna bastığımda data sheet kopyalamak istiyorum .

yardımlarınızı bekliyorum.

 

[muratayaz]

arkadaşlar yardımlarınızı bekliyorum

 

[vardar07]

Module ekleyip deneyiniz.

Sub aktar()
Set sh = Sheets("Sipariş Formu")
With Sheets("DATA")
For i = 6 To 19
If sh.Cells(i, "A") <> "" Then
son = .Cells(Rows.Count, 1).End(3).Row + 1
.Cells(son, 1) = sh.Cells(2, "M")
.Cells(son, 2) = sh.Cells(2, "C")
.Cells(son, 3) = sh.Cells(i, "B")
.Cells(son, 4) = sh.Cells(i, "F")
.Cells(son, 5) = sh.Cells(i, "K")
.Cells(son, 6) = sh.Cells(i, "L")
.Cells(son, 7) = sh.Cells(i, "M")
End If
Next
End With
End Sub

 

[muratayaz]

Çok teşekkur ederim ama 14 satırda az giriş yapıldığında boş satır getiriyor tarihlerin hepsini tam getiriyor ekte dosyayı ekledim data sheetinde görebilirsiniz

 

[muratayaz]

Çok teşekkur ederim ama 14 satırda az giriş yapıldığında boş satır getiriyor tarihlerin hepsini tam getiriyor ekte dosyayı ekledim data sheetinde görebilirsiniz

lütfen yardımlarınızı bekliyorum.

 

[muratayaz]

arkadaşlar merhaba lütfen desteğinizi bekliyorum.

arkadaşlar merhaba lütfen desteğinizi bekliyorum.

 

[vardar07]

3 nolu mesajdaki kod güncellendi denermisiniz.

 

[muratayaz]

teşekkürler elinize sağlık