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

blgisl

Yeni Üye
Kullanıcı Bilgileri
Katılım
8 Eki 2021
Mesajlar
24
Aldığı beğeni
3
Excel Versiyonu
Office 2010 EN
Konuyu Başlatan
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.

JavaScript:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

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.
 

blgisl

Yeni Üye
Kullanıcı Bilgileri
Katılım
8 Eki 2021
Mesajlar
24
Aldığı beğeni
3
Excel Versiyonu
Office 2010 EN
Konuyu Başlatan
dosyayı ekliyorum
 

Ekli dosyalar

  • IT 2020 - 2makrolu.xlsm
    1.2 MB · Gösterim: 6

Alparslan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Mar 2021
Mesajlar
283
Çözümler
86
Aldığı beğeni
361
Excel Versiyonu
Office 2021 TR
Merhaba, Combobox içerisine başlıkları alırken boş olan sütunlar içinde boş SATIR ekliyor. Bu durumun önüne geçmek için, başlıkları aldığınız kodu aşağıdaki kod ile değiştiriniz.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

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.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

blgisl

Yeni Üye
Kullanıcı Bilgileri
Katılım
8 Eki 2021
Mesajlar
24
Aldığı beğeni
3
Excel Versiyonu
Office 2010 EN
Konuyu Başlatan
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ı
 

Alparslan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Mar 2021
Mesajlar
283
Çözümler
86
Aldığı beğeni
361
Excel Versiyonu
Office 2021 TR
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 SATIR ş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 SATIR 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.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

blgisl

Yeni Üye
Kullanıcı Bilgileri
Katılım
8 Eki 2021
Mesajlar
24
Aldığı beğeni
3
Excel Versiyonu
Office 2010 EN
Konuyu Başlatan
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.
 

Alparslan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Mar 2021
Mesajlar
283
Çözümler
86
Aldığı beğeni
361
Excel Versiyonu
Office 2021 TR
Filtrelenen satırları silmek için CommandButton1_Click kodlarını aşağıdaki kodlar ile değiştiriniz.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Alparslan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Mar 2021
Mesajlar
283
Çözümler
86
Aldığı beğeni
361
Excel Versiyonu
Office 2021 TR
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
satırını aşağıdaki SATIR ile değiştirip Selection.Delete Shift:=xlUp satırını da silebilirsiniz.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

blgisl

Yeni Üye
Kullanıcı Bilgileri
Katılım
8 Eki 2021
Mesajlar
24
Aldığı beğeni
3
Excel Versiyonu
Office 2010 EN
Konuyu Başlatan
Bir kaç defa peş peşe silince colon başlıklarını siliyor
 

Alparslan

Destek Ekibi
Kullanıcı Bilgileri
Katılım
29 Mar 2021
Mesajlar
283
Çözümler
86
Aldığı beğeni
361
Excel Versiyonu
Office 2021 TR
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.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

blgisl

Yeni Üye
Kullanıcı Bilgileri
Katılım
8 Eki 2021
Mesajlar
24
Aldığı beğeni
3
Excel Versiyonu
Office 2010 EN
Konuyu Başlatan
oldu.teşekkürler. inşaAllah 1 milyon satırda deneyince yavaşlama yapmaz
 

Konuyu okuyanlar

Üst