Merhaba
Bir sayfadaki aradığım öğenin olduğu satırı tamamen kesip başka bir sayfaya aktaracak bir makro yazmaya çalışıyorum.
Bu kodları çalıştırdığımda,
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?
Bir sayfadaki aradığım öğenin olduğu satırı tamamen kesip başka bir sayfaya aktaracak bir makro yazmaya çalışıyorum.
Kod:
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 SubSayfa5.Range("A" & yaz).PasteSpecialBu 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?
