veri aktar

[prodigy]

Sub Aktar()
Set sd = Sheets("sayfa1")
Set sm = Sheets("sayfa2")
sonsd = sd.[a65536].End(3).Row
sat = 5
sm.[a6:g65536].ClearContents
For x = 6 To sonsd
sat = sat + 1
sm.Cells(sat, 1) = sd.Cells(x, 1)
sm.Cells(sat, 2) = sd.Cells(x, 2)
sm.Cells(sat, 3) = sd.Cells(x, 3)
sm.Cells(sat, 4) = sd.Cells(x, 4)
sm.Cells(sat, 5) = sd.Cells(x, 5)
sm.Cells(sat, 6) = sd.Cells(x, 6)
sm.Cells(sat, 9) = sd.Cells(x, 7)
Next x
End Sub
aktar makrosuyla sayfa1 den sayfa2 aktarıyorum. Ancak yapmak istediğim sayfa1 den aktarırıken, sayfa2 de HER SATIR ARASINA örneğin "kimlik nosu"+(b hücresindeki değer)+ "dir" yazması. (bu sabit yazıyı her satırın c hücresine yazacak)

 

[conari]

sm.Cells(sat, 2) = "Kimlik Nosu "&sd.Cells(x, 2)&" dir."

2. sıradaki satırı bu şekilde değiştirin.

Pardon B den C ye demişsiniz fakat kodunuzda sütünlar son satır hariç birebir gidiyor.

 

[prodigy]

Teşekkür ederim. Ama sanırım tam anlatamadım.
sayfa1 den aktarırken , aktarılan her satırın altına ("kimlik nosu"+(b hücresindeki değer)+ "dir" ) ekleyecek.

örneğin 1 satırı aktaracak altına ("kimlik nosu"+(b hücresindeki değer)+ "dir" ) ekleyecek. sonra 2 satırı aktaracak yine ("kimlik nosu"+(b hücresindeki değer)+ "dir" ) ekleyecek. Bunu son satıra kadar bu şekilde tamamlayacak.

 

[conari]

yani birinci sayfadaki 2.satır
ikinci sayfada 3. satırdan
3.satır 5.satırdan mı başlayacak?

 

[veyselemre]

Doğru anlamış mıyım?

Sub Aktar()
    Set sd = Sheets("sayfa1")
    Set sm = Sheets("sayfa2")
    sonsd = sd.[a65536].End(3).Row
    sat = 4
    sm.[a6:g65536].ClearContents
    For x = 6 To sonsd
        sat = sat + 2
        sm.Cells(sat, 1) = sd.Cells(x, 1)
        sm.Cells(sat, 2) = sd.Cells(x, 2)
        sm.Cells(sat, 3) = sd.Cells(x, 3)
        sm.Cells(sat, 4) = sd.Cells(x, 4)
        sm.Cells(sat, 5) = sd.Cells(x, 5)
        sm.Cells(sat, 6) = sd.Cells(x, 6)
        sm.Cells(sat, 9) = sd.Cells(x, 7)
        sm.Cells(sat + 1, 3) = "kimlik nosu (" & sm.Cells(sat, 2) & ") dir"
    Next x
End Sub

 

[prodigy]

çok teşekkür ederim.