• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Soru Hangi sütundan temizlemeye başlayacağım

blgisl

Yeni Üye
Katılım
8 Eki 2021
Mesajlar
24
Aldığı beğeni
3
Excel V
Office 2010 EN
Konu Sahibi
Bir adet ComboBox1 var A1 dan başlayarak AA1 e kadar tüm başlıkları bu ComboBox1 ın içerisine attım. Yani temizlemeye hangi sütundan başlayacağımı bulmam gerekiyor.

HTML:
JavaScript:
İçeriği görebilmek için Giriş yap ya da Üye ol.

temizlemek istediğim alanı ben belirlemeliyim o nedenle
yukarıdaki [H2] yerine combobox ın neyini yazmalıyım.
biraz karışık oldu kusuruma bakmayın. ilk mesajım.
 
Merhaba, Combobox içerisine başlıkları alırken boş olan sütunlar içinde boş satır ekliyor. Bu durumun önüne geçmek için, başlıkları aldığınız kodu aşağıdaki kod ile değiştiriniz.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

ws.[H2] yerine de aşağıdaki satırı ekleyebilirsiniz, seçtiğiniz sütun başlığına göre 2. satırdaki hücre adresini verir.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Konu Sahibi
benim satırım bu
Set rng1 = ws.Range(ws.[H2], ws.Cells(Rows.Count, "H").End(xlUp))

sizin satırınız bu
ws.Cells(2, ComboBox1.ListIndex + 1).Address

bu satırın devamı olacak mı? hata verdi. H yerine de bir kod yazılacak mı
 
Benim verdiğim satırı, ws.Range(ws.[H2], ws.Cells(Rows.Count, "H").End(xlUp)) satırı içindeki ws.[H2] yerine yerine yazmalısınız.
Oluşacak satır şu şekilde Set rng1 = ws.Range(ws.Cells(2, ComboBox1.ListIndex + 1).Address, ws.Cells(Rows.Count, "H").End(xlUp))

H yerine de bir kod yazılacak mı
Burada öncelikle yapmak istediğinizi belirtmelisiniz.
Bir üstteki satır ile filtre işlemi için alan tanımlamış oluyorsunuz ve H sütununa kadar işlem yapar.

Seçtiğiniz sütun ile Son Dolu Sütun arasında işlem yapmak istiyorsanız If TextBox1.Text <> "" Then satırından sonra aşağıdaki satırları ekleyiniz.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Konu Sahibi
Teşekkürler buda işimi gördü. Aslında asıl yapmak istediğim şartlı silme idi ancak çok fazla kayıt olduğundan delete den vaz geçtim. clear yaptım.
sonrasında clear ile temizlenen satırları silmem gerekecek.
 
Filtrelenen satırları silmek için CommandButton1_Click kodlarını aşağıdaki kodlar ile değiştiriniz.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
satırını aşağıdaki satır ile değiştirip Selection.Delete Shift:=xlUp satırını da silebilirsiniz.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Bu durumun nedeni, Silinen değerleri tekrar filtre işlemine almaya çalışınca son değer 1 oluyor ve başlık satırı için silme işlemi yapıyor.
Kodları aşağıdaki kodlar ile değiştiriniz.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Geri
Üst