Belİrlenen Fİrmalarin Satirlarinin Sİlİnmesİ

[mercan3459]

Arkadaşlar,
Araştırdım ancak bu konu hakkında verilere ulaşamadım. Sizden Ricam örnek maksadıyla 4-5 firma ekte verilmiş olan firmalardan yalnızca belirlemiş olduğum firmaların excelde kalması, diğer firmaların satırlarının silinmesi ve satır boşluğu olmadan istediğim firmaların alt alta yazılmasıdır.
Teşekkürler...

 

[Ferhat Pazarçevirdi]

Şöyle bir kod çalıştırabilirsiniz.

Option Explicit
Sub Satir_Sil()
Dim arrS()
Dim x As Integer
Dim i As Integer
Dim k As Integer
arrS = Array("MARANGOZ HANE", "METAL BÖLÜMÜ")
For i = Cells(65536, 1).End(xlUp).Row To 2 Step -1
    For k = 0 To UBound(arrS)
        If Cells(i, 1) = arrS(k) Then: x = x + 1
    Next k
    If x = 0 Then
        Rows(i).Delete
    End If
    x = 0
Next i
End Sub