Soru Koşullu veri aktarma

[sdtssmz]

Merhabalar
j sütununda nereye "bitti" yazarsam solundaki satırı silip biten siparişler sayfasına taşımasını istiyorum 2 sayfanın da tablo formatı aynı. aşağıdaki formülle başaramadım.
Sub aktar()

Range("J3").Select
ActiveCell.FormulaR1C1 = "BİTTİ"
Range("A3:J3").Select
Selection.Copy
Sheets("BİTEN SİPARİŞLER").Select
Application.Goto Reference:="R3000C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Sheets("SİPARİŞ").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub

 

[sdtssmz]

zor bi soru oldu galiba

 

[muysun35]

siparişler sayfasından biten siparişler sayfasına almak istiyorsunuz . doğru mu?

 

[muysun35]

Private Sub tasima()
Dim BUL As Range
Set BUL = Sheets("SİPARİŞ").Range("J:J").Find("BİTTİ", LookAt:=xlWhole)
If Not BUL Is Nothing Then
Sheets("SİPARİŞ_SAYFASI").Rows(BUL.Row).Copy Sheets("SİPARİŞ").Range("a65536").End(3).Offset(1, 0)
Sheets("SİPARİŞ_SAYFASI").Rows(BUL.Row).Delete Shift:=xlUp
End If
End Sub

Deneyin

 

[sdtssmz]

Private Sub tasima()
Dim BUL As Range
Set BUL = Sheets("SİPARİŞ").Range("J:J").Find("BİTTİ", LookAt:=xlWhole)
If Not BUL Is Nothing Then
Sheets("SİPARİŞ_SAYFASI").Rows(BUL.Row).Copy Sheets("SİPARİŞ").Range("a65536").End(3).Offset(1, 0)
Sheets("SİPARİŞ_SAYFASI").Rows(BUL.Row).Delete Shift:=xlUp
End If
End Sub

Deneyin

çok teşekkürler

 

[muysun35]

çok teşekkürler

Önemli Değil. İyi çalışmalar