sutunda kurumsal olunca satırı silen macro

[muzzymania]

İyi Çalışmalar

sizden ekli dosyada göreceğiniz gibi istenen sutundaki belirtilen kurumsal kelimesi geçince o satırı silen macro ?

konu acil biri bakabilirmi ?

çok saolun

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub satir_sil()
Set syf = Sheets("sheet1")
ss = syf.Range("a65536").End(3).Row
For i = 1 To ss
If Cells(i, 1).Text = "KURUMSAL" Then
Rows(i).Delete
End If
Next
End Sub

 

[muzzymania]

çok teşekkür ederim kendi dosyama uyarlıyacağım , bilginize kuvvet