Sayfa 2 de Listesi Verilen Satırların Sayfa 1 den Silinmesi

[meleklerim]

İlk hücrelerinde sayı bulunan satırlarımız var. (30 binden fazla)
Bu satırlardan bazılarını silmek istiyorum. (7 bine yakın)
Ancak bu silme işlemini elle yapmak yerine silinecek satırlar diye bir liste yaptım.
Bu listeye göre ilk hücresinde örnegin; 76, 85, 100 yazan satırlar silinsin istiyorum.
Dikkat: 76. 85. 100 nolu satırlar değil, ilk hücresinde 76, 85, 100, yazanlar

sayfa 1 de asıl liste
sayfa 2 de silineceklerin listesi var.

yardımcı olacaklara şimdiden teşekkürler

http://s6.dosya.tc/server6/dy2w9z/istege_gore_silme.xls.html

 

[asi_kral]

İlk hücrelerinde sayı bulunan satırlarımız var. (30 binden fazla)
Bu satırlardan bazılarını silmek istiyorum. (7 bine yakın)
Ancak bu silme işlemini elle yapmak yerine silinecek satırlar diye bir liste yaptım.
Bu listeye göre ilk hücresinde örnegin; 76, 85, 100 yazan satırlar silinsin istiyorum.
Dikkat: 76. 85. 100 nolu satırlar değil, ilk hücresinde 76, 85, 100, yazanlar
örnek dosyayı şu an ekleme imkanım olmadığından ekleyemiyorum, akşama eklerim.



sayfa 1 de asıl liste
sayfa 2 de silineceklerin listesi var.

yardımcı olacaklara şimdiden teşekkürler

Merhaba
istediğiniz böyle bir şey mi acaba

 

[meleklerim]

dosyanız altın üyelik gerektirdiği için indiremedim.
Kodlarınızı yayınlarsanız memnun olurum

bu arada örnek dosyayı da yükledim
http://s6.dosya.tc/server6/dy2w9z/istege_gore_silme.xls.html

 

[asi_kral]

dosyanız altın üyelik gerektirdiği için indiremedim.
Kodlarınızı yayınlarsanız memnun olurum

bu arada örnek dosyayı da yükledim
http://s6.dosya.tc/server6/dy2w9z/istege_gore_silme.xls.html

Merhaba
Boş bir module oluşturup içerisine bu kodu kopyalayın.

Option Explicit
Sub sil()
Dim S1 As Worksheet, S2 As Worksheet
Dim STR As Long, SAY As Long
Application.ScreenUpdating = False
Set S1 = Sheets("asıl liste")
Set S2 = Sheets("Silinecekler")
STR = S1.Range("A" & Rows.Count).End(xlUp).Row
For SAY = 2 To S2.Range("A" & Rows.Count).End(xlUp).Row
S1.Range("A1:B" & STR).AutoFilter 1, S2.Range("A" & SAY)
S1.Range("A2:J" & STR).EntireRow.Delete
Next
S1.Range("A1:B" & STR).AutoFilter
Application.ScreenUpdating = True
End Sub

 

[meleklerim]

çok teşekkür ederim, istemediğim satırlar silindi.

 

[asi_kral]

çok teşekkür ederim, istemediğim satırlar silindi.

Kolay Gelsin