Dolu satır kopyala

[ThEeNCi]

Sub kod()

Sheets("SatıcıMail").Range("F14").Copy
Sheets("Kayıt").Range("b2").PasteSpecial xlPasteValues


End Sub


Bu macro işimi görüyor, fakat dolu satırı atlamıyor yardımcı olur musunuz,
Teşekkürler.

 

[Korhan Ayhan]

Tam olarak ne yapmak istiyorsunuz?

 

[ThEeNCi]

Satıcımail sayfasındaki muhtelif hücrelerdeki verileri kayıt sayfasına yan yan kopyalamak dolu satır varsa bir aşağı eklenmesi

 

[YUSUF44]

Hem yan yana olup hem de doluysa bir alt satıra nasıl olacak?

 

[ThEeNCi]

Kırmızılı olan yerleri kayıt sayfasına kopyalamak umarım bu sefer anlatabildim
Teşekkürler

 

[dellerlim]

Kayıt sayfasındaki dolu olacak satırları mı kastediyorsunuz peki?

 

[ThEeNCi]

Evet kayıt sayfasındaki dolu satırları

 

[YUSUF44]

Bir modüle kopyalayıp deneyiniz:

Sub kredi()
Set s1 = Sheets("SatıcıMail")
Set s2 = Sheets("Kayıt")
yeni = s2.Cells(Rows.Count, "B").End(3).Row + 1
s2.Cells(yeni, "A") = yeni - 1
s2.Cells(yeni, "B") = Date
s2.Cells(yeni, "C") = s1.[C1]
s2.Cells(yeni, "D") = s1.[C8]
s2.Cells(yeni, "E") = s1.[C6]
s2.Cells(yeni, "F") = s1.[C5]
s2.Cells(yeni, "G") = s1.[C10]
s2.Cells(yeni, "H") = s1.[C12]
s2.Cells(yeni, "I") = s1.[C14]
s2.Cells(yeni, "J") = s1.[C26]
End Sub

 

[ThEeNCi]

Yusuf bey çok teşekkür ederim.