Kodu düğmeye atamada hata nereden kaynaklanmaktadır.

[mars2]

İyi Günler;

"Toplam" sayfasının "P" sutundaki toplamı "isimyıltoplam" sayfasındaki C sutundaki isim yanındaki "D" sutuna aşağıdaki makro ile aktarmaktayım.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [C2:C1900]) Is Nothing Then Exit Sub
If Target.Value = Empty Then Exit Sub
Set s1 = Sheets("İsimyıltoplam"): Set s2 = Sheets("toplam")
For Each bul In s2.Range("C6:C1500")
If bul = Target.Value Then sat = bul.Row
Next
If sat = "" Then
MsgBox "ARADIĞINIZ BİLGİ BULUNAMADI.", vbInformation, "BİLGİ"
Exit Sub
End If

s1.Cells(Target.Row, "D").Value = s2.Cells(sat, "p").Value
Set s1 = Nothing
Set s2 = Nothing

End Sub

Ancak, yukarıdaki makroyu düğmeye uyarlamaya çalıştığımda
If Intersect(Target, Range(SonSat)) Is Nothing Then Exit Sub
range object hatası vermektedir.

Hata nerede nereden kaynaklanmaktadır.

Sub Düğme9_Tıkla()

Dim SonSat As Long

Sheets("İsimyıltoplam").Activate

SonSat = Range("C" & Rows.Count).End(xlUp).Row

If Intersect(Target, Range(SonSat)) Is Nothing Then Exit Sub

If ActiveCell.Column = 3 And Cells(ActiveCell.Row, "C") = "" Then
Exit Sub

Set s1 = Sheets("İsimyıltoplam"): Set s2 = Sheets("toplam")
For Each bul In s2.Range("C6:C1500")
If bul = Target.Value Then sat = bul.Row
Next
End If

If sat = "" Then
MsgBox "ARADIĞINIZ İSİM BULUNAMADI.", vbInformation, "BİLGİ"
Exit Sub
End If

s1.Cells(Target.Row, "D").Value = s2.Cells(sat, "P").Value


End Sub

 

[Korhan Ayhan]

Target sayfa olaylarında kullanılır.

Modül için ActiveCell kullanabilirsiniz.

 

[mars2]

Sayın Korhan Ayhan;
Cevabınız için teşekkürler amacak,
Intersect yer,ne ActiveCell kullanmma rağmen

If ActiveCell(Target, Range(SonSat)) Is Nothing Then satırında,

Method 'Range' of object'_global' failed error 1004 hata vermektedir.

 

[Korhan Ayhan]

Mesajımı dikkatli okuyun lütfen..

 

[mars2]

Sayın Korhan;

İlginize ve ikazınıza teşekkürler.
Konu hakkında yardımcı olursanız sevinirim.

 

[halit3]

Bu kodu bir dene

Sub deneme()


a = ActiveWindow.Selection.Row
b = ActiveWindow.Selection.Column

If Intersect(ActiveCell, Range("c2:c1900")) Is Nothing Then Exit Sub

If Cells(a, b).Value = "" Then Exit Sub
Set s1 = Sheets("İsimyıltoplam"): Set s2 = Sheets("toplam")
For Each bul In s2.Range("C6:C1500")


If s2.Cells(bul.Row, bul.Column).Value = s1.Cells(a, b).Value Then sat = bul.Row
Next
If sat = "" Then
MsgBox "ARADIĞINIZ BİLGİ BULUNAMADI.", vbInformation, "BİLGİ"
Exit Sub
End If

s1.Cells(ActiveWindow.Selection.Row, "D").Value = s2.Cells(sat, "p").Value
Set s1 = Nothing
Set s2 = Nothing

End Sub

 

[mars2]

Sayın Halit bey;

Kod için teşekkürler,
Kodu Butona uyguladığım zaman verileri alamadım.
hata ettiğim bir nokta mı var?

"Toplam" Sayfasında 1500 adet veri var.
C Sutunuda isimler mevcut, P sutunda tahsilat toplamları bulunmaktadır.

"İsimyıltoplam" sayfasında ise C sutunda isimler D sutuna ise tahsilat toplamını aktarmak istiyorum.

 

[halit3]

Sizin kodunuz aktif C sutunundaki hücreden çıkınca tek hücre için çalışıyor.
Bu kod da C sürunundaki aktif hücredeyken tek hücre için çalışır.

 

[halit3]

Bu kodu dene

Sub deneme2()

Set s1 = Sheets("İsimyıltoplam"): Set s2 = Sheets("toplam")
For r = 2 To s1.Cells(Rows.Count, "c").End(3).Row

For Each bul In s2.Range("C6:C1500")
If bul.Value = s1.Cells(r, "c").Value Then
s1.Cells(r, "D").Value = s2.Cells(bul.Row, "p").Value
Exit For
End If
Next
Next r

Set s1 = Nothing
Set s2 = Nothing

End Sub

 

[mars2]

Sayın hakit3;
İlgi ve cevabınız için teşekkürler

 

[Orion1]

Acaba şöyle yazabilirmiyiz?

If bul.Value = s1.Cells(r, "c").Value Then

 

[halit3]

Acaba şöyle yazabilirmiyiz?

If bul.Value = s1.Cells(r, "c").Value Then

Evet Evren Bey