Belirtilen kriterlere uymayan satırların silinmesi.

[ahzola]

Merhabalar.

A sütununda 4 adet sabit kriterimiz olacak. (içerik zamanla değişecek)
B sütunu ile A sütunu karşılaştırılacak
Eğer A sütununda olmayan bir veri B sütununda var ise;
O verinin bulunduğu satırın B sütunu ile N sütunu aralığı silinecek.
Silinen satırın yerine hemen altındaki satır gelecek.
(Boşluk olmayacak)

umarım açıklayıcı olmuştur.

Saygılar sunuyor
yardımlarınızı bekliyorum.

 

[Orion1]

Dosyanız ektedir.

Sub sil59()
Dim i As Long, sata As Long, satb As Long
sata = Cells(Rows.Count, "A").End(xlUp).Row
satb = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
For i = satb To 2 Step -1
    If WorksheetFunction.CountIf(Range("A2:A" & sata), Cells(i, "B").Value) = 0 Then
        Range("B" & i & ":N" & i).Delete (xlUp)
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com", _
    vbOKOnly + vbInformation, Application.UserName

End Sub

 

[ahzola]

Harika olmuş.

Çok çok teşekkür ederim.
Sayın Orion1

ellerinize sağlık.

 

[ahzola]

Tekrardan Merhabalar;

Sayın Orion1

Makromuzu başka dosyalarda da kullanmak üzere
küçük bir revizyon istiyorum.

Esas Makromuzda A sütunundaki veriler ile B sütunundaki veriler karışlaştırılıp;
B sütununda olup A sütununda olmayan verilerin satırları siliniyordu.

Şimdi ise A sütununda herhangi bir kriter olmayacak.
Ben A sütununda silmek istediğim satırların karşısına "S" yazıp butona basacağım.
Esas makromuzda olduğu gibi ilgili satırlar silinecek ve silinen satırların yerine hemen alttaki satırlar gelecek.

Eğer yardımcı olursanız müteşekkir olurum.

saygılarımla.

 

[Orion1]

Tekrardan Merhabalar;

Sayın Orion1

Makromuzu başka dosyalarda da kullanmak üzere
küçük bir revizyon istiyorum.

Esas Makromuzda A sütunundaki veriler ile B sütunundaki veriler karışlaştırılıp;
B sütununda olup A sütununda olmayan verilerin satırları siliniyordu.

Şimdi ise A sütununda herhangi bir kriter olmayacak.
Ben A sütununda silmek istediğim satırların karşısına "S" yazıp butona basacağım.
Esas makromuzda olduğu gibi ilgili satırlar silinecek ve silinen satırların yerine hemen alttaki satırlar gelecek.

Eğer yardımcı olursanız müteşekkir olurum.

saygılarımla.

Dosyanız ektedir.

Sub sil59V2()
Dim i As Long, sat As Long
sat = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = sat To 2 Step -1
    If LCase(Cells(i, "A").Value) = "s" Then
        Range("A" & i & ":N" & i).Delete (xlUp)
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com", _
    vbOKOnly + vbInformation, Application.UserName

End Sub

 

[ahzola]

Hızır gibisiniz maaşallah.

Elleriniz dert görmesin.