• Foruma hoş geldin 👋 Ziyaretçi

    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 tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

B

blgisl

Yeni Üye
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
8 Eki 2021
Mesajlar
24
Aldığı beğeni
3
Excel V
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.
 
Tarihe göre sırala Oylara göre sırala
dosyayı ekliyorum
 

Ekli dosyalar

  • IT 2020 - 2makrolu.xlsm
    1.2 MB · Gösterim: 6
Olumlu oy 0 Negatif oyla
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.
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.
 
Olumlu oy 0 Negatif oyla
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.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
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.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
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 satır 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.
 
Olumlu oy 0 Negatif oyla
Bir kaç defa peş peşe silince colon başlıklarını siliyor
 
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.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
oldu.teşekkürler. inşaAllah 1 milyon satırda deneyince yavaşlama yapmaz
 
Olumlu oy 0 Negatif oyla
şimdi çıkmak zorundayım. akşam evden devam ederim. size kolay gelsin
 
Olumlu oy 0 Negatif oyla
PHP:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Ben mi yanlış bir şey yaptım acaba çok yavaşladı..
 
Olumlu oy 0 Negatif oyla
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst