Soru Satırı Tamamen Taşı

[ywzyilmaz]

Merhaba

Bir sayfadaki aradığım öğenin olduğu satırı tamamen kesip başka bir sayfaya aktaracak bir makro yazmaya çalışıyorum.

Sub hataliboya()
Dim ara As String, Bul As Range
sonsa = Sayfa4.Range("A" & Rows.Count).End(3).Row + 1
aranan = Sayfa1.Range("N3")
Set Bul = Sayfa5.Range("J1:J999999").Find(ara, lookat:=xlWhole)
If Not Bul Is Nothing Then
Bul.EntireRow.Cut
Sayfa5.Range("A" & yaz).PasteSpecial
MsgBox Prompt:="Kayit Basarili"
Range("N3").Select
Exit Sub
Else
MsgBox Prompt:="Recete Kaydi Bulunamadi"
Range("N3").Select
End If
Set Bul = Nothing
End Sub

Bu kodları çalıştırdığımda,

Sayfa5.Range("A" & yaz).PasteSpecial

Bu satırda hata alıyorum.
Bul.EntireRow.Cut ' "bul"un olduğu satırı kes.
Sayfa5.Range("A" & yaz).PasteSpecial " Sayfa5 A sütununun en son dolu satırından 1 aşağı in ve yapıştır.

Nerede hata yapıyorum?

 

[Korhan Ayhan]

Böyle deneyiniz.

Sayfa5.Range("A" & yaz).Paste

 

[ywzyilmaz]

Böyle deneyiniz.

Sayfa5.Range("A" & yaz).Paste

Sonuç aynı.

 

[Korhan Ayhan]

Böyle deneyiniz.

Bul.EntireRow.Cut Sayfa5.Range("A" & yaz)

 

[ywzyilmaz]

Çok teşekkürler.