Kod neden hata veriyor.

[Muhammet Okumuş]

Arkadaşlar merhaba,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C6:C31")) Is Nothing Then Exit Sub
If Target.CountLarge > 1 Then Exit Sub

Range("E2") = ActiveCell.Value
adet = WorksheetFunction.CountIf(Sheets("Data").Cells, Range("E2").Value)
Sheets("Data").Select
For i = 1 To adet

Cells.Find(What:=Sheets("Sayfa1").Range("E2"), After:=ActiveCell).Activate

t = ActiveCell.Row
Sheets("Sayfa1").Range("G" & i + 3 & ":K" & i + 3) = Range("D" & t & ":H" & t).Value

Next
Sheets("Sayfa1").Select
End Sub


kod Range sınıfının active yöntemi başarısız diye uyarı veriyor. Nasıl düzeltilebilir.

 

[Emir Hüseyin Çoban]

. . .

Kodlara bakarak çalışma dosyası oluşturmaya çalışıyorum ama oldukça zahmetli.
Net çözümler üretmek için örnek dosya ekleyiniz.

. .

 

[Muhammet Okumuş]

Sayfa1'deki isimleri seçmeniz gerekiyor. Düğmeyi tıklayınca sorun yok. Ama ben isim üzerinde sonuca gitmek istiyorum.

 

[Emir Hüseyin Çoban]

. . .

Bu şekilde kullansanız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C6:C31")) Is Nothing Then Exit Sub
If Target.CountLarge > 1 Then Exit Sub

Call nnnn

End Sub

. . .

 

[Muhammet Okumuş]

Sn Hüseyin Çoban,
Teşekkür ederim. Peki neden kodun tamamını yazınca hata veriyor? Yapılan işlem aynı değil mi?