istenmeyen satırı makro ile otomatik silme

[silenzi]

Arkadaşlar dosyada yer alan b sutunundaki total kısımlarını ve tüm satırı silmek istiyorummacro ile nasıl yapabilirim.

 

[Korhan Ayhan]

Selamlar,

Normal filtreleme metodu ile rahatlıkla silebilirsiniz. B sütununa "Total" değerine göre filtre uygulayın. Listelenen satırları mouse ile seçip silin.

 

[silenzi]

teşekkürler
filtreleme metodu ile oluyor fakat daha karmaşık tablolarım da var o yüzden macro ile nasıl silineceğini öğrenmek istiyorum

 

[y_yilmaz1977]

Arkadaşlar dosyada yer alan b sutunundaki total kısımlarını ve tüm satırı silmek istiyorummacro ile nasıl yapabilirim.

Sub satırsil()

Dim i As Integer
Dim say As Long

i = 2

say = Range("B2:B" & Rows.Count).Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

Do While i <= say

If Cells(i, 2).Value = "Total" Then

Cells(i, 2).Select

Selection.EntireRow.Select

Selection.Delete Shift:=xlToLeft


End If


i = i + 1
Loop

End Sub


​

 

[halit3]

Sub satırsil()

Dim i As Integer
Dim say As Long

i = 2

say = Range("B2:B" & Rows.Count).Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

Do While i <= say

If Cells(i, 2).Value = "Total" Then

Cells(i, 2).Select

Selection.EntireRow.Select

Selection.Delete Shift:=xlToLeft


End If


i = i + 1
Loop

End Sub


​

bunu denermisiniz.

Sub sil()
sonsat = Cells(Rows.Count, "A").End(3).Row + 1
Rows(sonsat & ":" & 1500).Delete Shift:=xlUp
MsgBox "işlem tamam"
End Sub

 

[levo26]

Merhaba;

a1:k5000 aralığında datam var. C sütununu filtreliyorum filtrelediğim sütun içindekilerin hepsini makro ile nasıl silebilirim. (C sütununda bazı satırlar boş olabilidiği gibi verilerde mevcut ama ben süzülenlerin hepsini silmek istiyorum)