#13) Tarkan VURAL » 17 Eyl 2009 11:05
Private Sub CommandButton4_Click() ' Düğme4 prosedür adı
Dim bul As Range ' Bul adında bir değişken Alan özelliği ile tanımlandı.
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row) ' Sayfa1 içindeki B2 ile B sütununun en son dolu hücresi aralığı bul değişkenine atanarak bir döngü içine alındı.
If bul.Value = ComboBox1.Value Then ' bul değişkeninin alanlarından herhangi birinin taşıdığı değer ComboBox1 içindeki değere eşit ise şartı arandı.
bul.Select ' Eşitlik durumunda bu alan seçilsin istendi.
Selection.EntireRow.Delete ' Seçilen alanın bulunduğu satır tamamen silinsin komutu yazıldı.
For i = 2 To Range("a65536").End(3).Row ' i değişkenine 2 'den A sütununun en son dolu hücresinin satır numarasına kadar döngü yapılacağı tanımlandı.
Cells(i, 1).Value = i - 1 ' i,1 yani A2 hücresinin değeri i-1 yani 1 olarak belirlendi, döngü bitmedi ise 2 değerini alan i değeri son değerine ulaşana kadar birer sayı artacak, bir sonraki turda i değeri 3 olacak ve bu kez Cells(i,1) tanımı A4 hücresi olacak. Bu hücredeki değer yine i-1 yani 2 olacak. Bunu yapmamın sebebi de silinen satırdaki sıra numarasının da silinmiş olması dolayısıyla sıra numaralarının yeniden düzenlenmesidir.
Next i ' Döngü bitmediyse Fo kısmına dön, bittiyse sonraki satıra geç.
End If ' If şartlı sorgulamasının sonu.
Next bul ' Bul döngüsünün sonu. Eğer bakılacak alanlar henüz bitmedi ise buradan yine For Each bul kısmına döndürülecek.
End Sub ' Prosedür sonu.
www.tarkanvural.com.trİnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.
GARANTI - TR09 0006 2000 5440 0006 6834 67
ISBANK - TR54 0006 4000 0011 2600 4648 59
ExcelVBA.NET' e katkıda bulunmak ister misiniz ?