VBA Kritere Gore Satir Sildirme

Asagidaki verilerimizden birini secerek bu iceriklerin bulundugu VBA ile silebilmek uzerine bir ornek uygulama yapacagiz..

Kriterlerimizi belirleyelim; Ornegin Aysan olanlari silmek istersem ilk satirimizin silinmesi gerekiyor..

Sub Satirlari_Sil(Aralik As Range, Text As String)

Dim Satir_Sayac As Integer

For Satir_Sayac = Aralik.Rows.Count To 1 Step -1

If Aralik Is Nothing Then

Exit Sub

End If

If UCase(Left(Aralik.Cells(Satir_Sayac, 1).Value, Len(Text))) = UCase(Text) Then

Aralik.Cells(Satir_Sayac, 1).EntireRow.Delete

End If

Next Satir_Sayac

End Sub

Kodumuzda gordugunuz gibi bir dongu ile satirlarin sayisini elde ederek textimizle ayni olup olmadigini karsilastiran bir sub fonksiyonu yapiyoruz.. Burada farkedeceginiz bir fonksiyon daha var oda Ucase islevi ise tyum harfleri buyuk yazarak olasi bir karakter farkindan yahut dil farkindan olabilicek farkliliklarin onune gecmek..

Ucase ile ilgili diger ornek konular;

 KTF – UDF Kisaltma Yapma – Ilk Harfler

 VBA Instr Text Içerisinde Text Arama

 Kucuk Buyuk Yazı Uygulamaları

bu orneklerle konuyu boldum  fakat ornegimizdeki sub fonksiyonumuzu bir butonada eklememiz gerekiyor;

Private Sub CommandButton1_Click()

Call Satirlari_Sil(Sheets("Sheet1").Range("A2:c12"), "Aysan")

End Sub

butonumuzdaki kodlarada gordugunuz gibi araligimizi A2:C12 olarak secip aranacak kelimieyi Aysan olarak belirlemisiz..

Satirlari Sil

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“VBA Kritere Gore Satir Sildirme” için 1 yorum

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


4 + 8 =