• 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

Çözüldü : Olan Satır ve Sonrasını silmek

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
bulentkars

bulentkars

Yeni Üye
Katılım
30 May 2022
Mesajlar
605
Çözümler
5
Aldığı beğeni
104
Excel V
Office 365 TR
Konu Sahibi
Arkadaşlar Merhaba;

Bu tabloda en alt satırda kalan fazlalıkları silmek istiyorum. Yardımcı Olabilirseniz Sevinirim,

B Sutunu en satırda : ve sonrasını silecek.
Sarı boyadığım alan silinecek.


1732169483187.png
 
Tarihe göre sırala Oylara göre sırala
12. satırdaki 12nin üzerine tıklayıp satırı seçin. Sonra ctrl+shift+ alt ok tuşları ile sonuna kadar seçip sağ tuşla silebilirsiniz
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
tugkan' Alıntı:
12. satırdaki 12nin üzerine tıklayıp satırı seçin. Sonra ctrl+shift+ alt ok tuşları ile sonuna kadar seçip sağ tuşla silebilirsiniz
Genişletmek için tıkla...
Merhaba;

Bu kod ile yapmak istiyorum. Gelen datalar makro aracılığı ile geliyor, bunu kod ile silmek istiyorum bu yüzden
 
Olumlu oy 0 Negatif oyla
peki sileceğiniz alan standart mı? Sayfa adı, satırlar,...vs? Yoksa belli kriterlere mi veri geliyor? Bazen 12. satır bazen 15 falan oluyor mu?
 
Olumlu oy 0 Negatif oyla
Verileri nereden hangi kod ile alıyorsunuz
Veriler alınırken o kisimlar alinmayabilir
Sorgu ile alınıyorsa a sütünü boş olmayanlar koşulu eklenebilir
 
Olumlu oy 0 Negatif oyla
Makroyu çalıştırmadan verileri yedekleyin veya deneme dosyasında çalıştırın.

Aşağıdaki VBA makrosu, istediğiniz işlemi gerçekleştirebilir. Bu makro, B sütununda ":" içeren ve A sütunu boş olan hücreleri kontrol eder ve bu hücrelerden sonraki tüm satırları siler.

Makro Kodu:​

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

Açıklamalar:​

  1. Set ws = ActiveSheet: Makro, aktif çalışma sayfasında çalışır. Gerekirse belirli bir sayfa adıyla değiştirebilirsiniz.
  2. ws.Cells(i, "B").Value = ":" ve ws.Cells(i, "A").Value = "": B sütununda ":" ve A sütununda boş hücreleri kontrol eder.
  3. ws.Rows(i + 1 & ":" & ws.Rows.Count).Delete: Belirlenen satırdan itibaren tüm satırları siler.
  4. Exit For: İlk eşleşme bulunduğunda döngüden çıkar.

Makroyu Kullanma:​

  1. Excel'de Alt + F11 tuşlarına basarak VBA Düzenleyiciyi açın.
  2. Ekle > Modül seçeneği ile yeni bir modül ekleyin.
  3. Yukarıdaki kodu yapıştırın.
  4. Alt + F8 tuşlarına basarak makroyu çalıştırın ve "DeleteRowsAfterColon" makrosunu seçin.
 
Olumlu oy 0 Negatif oyla
Olumlu oy 0 Negatif oyla
Konu Sahibi
Çok Teşekkürler. Oldu

Sayfa No başlığını silmiyordu kodu yazarak oldu. Çok Teşekkür ederim. Elinize Emeğinize sağlık

If ws.Cells(i, 2).Value = "Sayfa No" Then
ws.Rows(i).Delete
End If


HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst