Veri aktarma

[gurbuzsucuoglu]

Merhabalar,

Eğer konu ile ilgili bilgi varsa ben bulamadım günlerdir uğraşıyorum ancak beceremedim. Sizden ekteki dosya ile ilgili yardım rica ediyorum.

 

[hamitcan]

Sub aktar()
    b = Sheets("KÜMÜLATİF TOPLAM").Columns(1).Find(Sheets("DÖKÜM").[N3]).Row
    For i = 2 To 14 Step 2
    Sheets("KÜMÜLATİF TOPLAM").Cells(b, i) = Sheets("DÖKÜM").Cells(i + 6, "q")
    Next
End Sub

 

[gurbuzsucuoglu]

Çok teşekkür ederim ilgilnize ,

bu veriler aktarılmadan önce bir uyarı ekranı çıksın istiyorum bu mümkünmü???

mesela n3 hücresindeki tarih yazacak ".... tarihli tutarlar toplam sayfasına aktarılacaktır. Onaylıyormusunuz?"

diye şimdiden teşekkürler

 

[leumruk]

Kodu bu şekilde deneyiniz.

Sub aktar()
b = Sheets("KÜMÜLATİF TOPLAM").Columns(1).Find(Sheets("DÖKÜM").[N3]).Row
If Not b Is Nothing Then
If MsgBox([n3] & " tarihli tutarlar toplam sayfasına aktarılacaktır. Onaylıyormusunuz?", vbQuestion + vbYesNo, "UYARI") = vbNo Then Exit Sub
For i = 2 To 14 Step 2
Sheets("KÜMÜLATİF TOPLAM").Cells(b, i) = Sheets("DÖKÜM").Cells(i + 6, "q")
Next
End If
End Sub

 

[gurbuzsucuoglu]

tşkler yardımlarınız içi.....