Veri aktarma sorunu

[mehmetkoca]

Değerli Arkadaşlar ekte göndermiş olduğum dosyamda 2 tane sayfam var ilk sayfadan verileri girip ikinci sayfada raporlamak istiyorum.Ancak tek satırı raporlamaya aktarabiliyorum.Amacım girdiğim tüm verileri aktar düğmesiyle aktarmak.Ek dosyada gereken açıklamayı yaptım.Kod bilgim fazla olmadığı için beceremedim.Yardımlarınızı esirgemezseniz sevinirim.Emeğinize sağlık.

 

[turk-x]

Sayın mehmetkoca,

Liste_Aktar makrosunu aşağıdakiyle ile değiştiriniz.

Sub Liste_Aktar()
ss = Sheets("RAPOR").[A65536].End(3).Row
s = [Tutkal!b37].End(3).Row
For i = 4 To s
ss = ss + 1
With Sheets("RAPOR")
    .Cells(ss, 1).Value = ss - 4
    .Cells(ss, 2).Value = Sheets("TUTKAL").Cells(i, 2).Value
    .Cells(ss, 3).Value = Sheets("TUTKAL").Cells(i, 3).Value
    .Cells(ss, 4).Value = Sheets("TUTKAL").Cells(i, 4).Value
    .Cells(ss, 5).Value = Sheets("TUTKAL").Cells(i, 4).Value
    .Cells(ss, 6).Value = Sheets("TUTKAL").Cells(i, 5).Value
    .Cells(ss, 7).Value = Sheets("TUTKAL").Cells(i, 6).Value
End With
Next i
MsgBox "RAPORA AKTARIM BAŞARILI.", vbInformation, "Bilgi"

son:
If Err.Number <> 0 Then MsgBox "Aktarmada Hata Oluştu.", vbInformation, "Bilgi"
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[mehmetkoca]

Sayın turk-x

Yardımlarınızdan ötürü çok teşekkür ediyorum.Sorunum çözülmüş oldu.Emeğine sağlık gerçekten.Saygılar..