Şarta Bağlı Sayfalardan Veri Silmek

[Feylosof]

Merhaba;
Bir konuda hakkında sayın hocalarımdan desteğe ihtiyacım var.
İki ayrı sayfada benzer veriler var. birinci sayfanın "J" sütununda TAMAMLANDI yazınca ikinci sayfadaki aynı verinin bulunduğu satır silinsin. D sütunundaki sayı numarası aynı olan veriyi silecek.
Örnek dosya ekliyorum.
Saygılar
https://www.dosyaupload.com/nmRA

 

[Orion1]

Öyle yapacağınıza Anasayfada Tamamlandı Yazılanları haricindeki verileri 2nci sayfada listelesen daha iyi olmazmı?

 

[Feylosof]

Aslında hocam bir üçüncü sayfa daha var. Arşiv diye bir sayfa tamamlandı diye yazınca direkt arşive atan kodu sizin yardımınızla almıştım. Ana sayfaya "Bekliyor" yazınca GÜNCEL sayfaya atıyor. Daha sonra yazı tamamlandıktan sonra ARŞİVe atıyor. Ben ise GÜNCEL den kaldırmak istiyorum. Özetle istediğim tam olarak: Biten ve devam eden yazıları ayrı sayfalarda saklamak. Ana sayfayı ise birlikte tutmak. Çünkü esas dosyamda başka detaylar da mevcut.

 

[Orion1]

O zaman biten sayfasına bitenleri çekelim,Devam eden sayfasınada devam edenleri çekelim.Olmazmı?

 

[Feylosof]

O zaman biten sayfasına bitenleri çekelim,Devam eden sayfasına da devam edenleri çekelim.Olmazmı?

O şekilde de olur Hocam. Size zahmet veriyorum kusura bakmayın lütfen...

 

[Orion1]

O şekilde de olur Hocam. Size zahmet veriyorum kusura bakmayın lütfen...

Estafurullah.

 

[Orion1]

Dosyanız linktedir.

DOSYAYI INDIR

Sub biten_59()
Dim sh As Worksheet
Sheets("BİTEN").Select
Set sh = Sheets("ANA SAYFA")
Range("A:J").Clear
Application.ScreenUpdating = False
sh.Range("A1").AutoFilter
sh.Range("A1").AutoFilter field:=10, Criteria1:="TAMAMLANDI"
sh.Range("A1").CurrentRegion.Copy Range("A1")
sh.Range("A1").AutoFilter
End Sub
Sub Devam_eden_59()
Dim sh As Worksheet
Sheets("DEVAM EDEN").Select
Set sh = Sheets("ANA SAYFA")
Range("A:J").Clear
Application.ScreenUpdating = False
sh.Range("A1").AutoFilter
sh.Range("A1").AutoFilter field:=10, Criteria1:="<>TAMAMLANDI"
sh.Range("A1").CurrentRegion.Copy Range("A1")
sh.Range("A1").AutoFilter
End Sub

 

[Feylosof]

Üstadım çok teşekkür ederim. Elinize sağlık.

 

[Orion1]

Üstadım çok teşekkür ederim. Elinize sağlık.

Rica ederim.
İyi çalışmalar.