• 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.

    Giriş yap veya Şimdi kayıt ol

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

B

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.
 
Tarihe göre sırala Oylara göre sırala
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.
 
Olumlu oy 0 Negatif oyla
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ı
 
Olumlu oy 0 Negatif oyla
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ı
Genişletmek için tıkla...
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.
 
Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst