veri aktarma

[selper]

Üstadlar

Bu programda günsonu sayfasının altına ileri tarihli ödemelerden ertesi güne ait olanları çağırmak istiyorum.
Kullanmaya çalıştığım kod ;
Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range, ilk_adres As String, sat As Long
On Error Resume Next
If Intersect(Target, [B14]) Is Nothing Then Exit Sub
Range("E17:N36").ClearContents
If Target.Value = "" Then Exit Sub
sat = 17
Set k = Sheets("ÖDEMELER").Range("A6:A666").Find(Target.Va lue, , xlValues, xlWhole)
If Not k Is Nothing Then
ilk_adres = k.Address
Do
Cells(sat, "E").Value = k.Offset(0, 2).Value
Cells(sat, "F").Value = k.Offset(0, 5).Value
Cells(sat, "G").Value = k.Offset(0, 9).Value
sat = sat + 1
Set k = Sheets("ÖDEMELER").Range("A6:A666").FindNext(k)
Loop While Not k Is Nothing And k.Address <> ilk_adres
End If
End Sub

Ama yapamadım
Yardımcı olurmusunuz

 

[veyselemre]

Sayfanıza göre aramayı yanlış aralıkta yapıyorsunuz.
Range("A6:A666")
kısımlarını Range("B6:B666") olarak değiştirin.
Cells(sat, "G").Value = k.Offset(0, 8).Value
olarak değiştirin.

 

[selper]

sayın emre

sayın emre
İlginize teşekkür ederim
dediğinizi yaptım dosya ilişikte gine olmadı

 

[veyselemre]

sayın emre
İlginize teşekkür ederim
dediğinizi yaptım dosya ilişikte gine olmadı

Gönderdiğiniz dosyanız çalışıyor. B14 hücresinde F2 Enter yapın göreceksiniz.

 

[selper]

çok teşekkür ederim çalıştı
yanlız mantığını anlayamadım
neden f2 enter gerekiyor?

 

[veyselemre]

çok teşekkür ederim çalıştı
yanlız mantığını anlayamadım
neden f2 enter gerekiyor?

Yazdığınız kodlar B14 hücresinin değiştiği zaman çalışacağı şekilde dizayn edilmiş de ondan.

 

[selper]

liginize teşekkürler
detayı için daha çalışmam lazım anlaşılan