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

Çözüldü B,C,D,E,F Sutunları Toplamı sıfır ise Sutunları sil

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

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

Ekte örnek tabloda örnek ile anlattım;

Özetle;
B,C,D,E,F sutunlarının ayrı ayrı toplamlarına bakacak eğer Sıfır veya boş ise ilgili sutunları ve onlara kaşrşlık olan
H,I,J,K,L,M,N,O,P,Q sütünlerinı silmek istiyorum.

Yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler
 

Ekli dosyalar

örneklerinizi inceledim. Ancak yapılmak istenileni anlayamadım. örneğinizi manuel olarak detaylı anlatırsanız yardımcı olurum.
 
Merhaba;

B sutunu başlığının yardımcı sutunu I ve M sutunu
B sütününda eğer veri yoksa yani boş ise B ve I sutununu silecek.
C sütününü kontrol edecek eğer sutunda veri yok ise C ve J sutununu silecek.

Kontrol edilecek sutunlar B:F
her hangi bir sutun boş ise
H:Q arasını silecek.

1696346334618.png
 
eklediğiniz resimde silinecek sütunları yazarmısınız. D sütunu boş D ve J sütunları kaldırılacak hiç olmayacak. E sütunu boş olduğu için K ve E sütunu kaldırılacak MI????
 
Diğer örneklerde daha az sütun vardı sütun sayılarında farklılıklar mı var sabit mi
 
örnek1 de 1ve 2 barem örnek 2 de 1,2,3 barem var resimde 5 barem var sütunlar farklılıklar göstermiyor mu
 
Standart tablo Özet sayfası
sutunlar özet sayfasına göre yerleri sabit
B:F Arası boş olanların
H:Q arası sütunları silecek.
 
umarım doğru anlamışımdır
 

Ekli dosyalar

Çözüm
Adnan Bey Merhaba;

Tam istediğim gibi olmuş. Elinize emeğinize sağlık
sadece;

top1 = Application.WorksheetFunction.Sum(Range("B2:B6"))
B2:B son dolu hücreyi olursa tam istediğim olacak.
 
orayı( "b2:b" & son) olarak düzeltiniz
 
Adnan Bey;

Çok çok teşekkür ederim elinize emeğinize sağlık..

Bu satır fazla görünüyor silsem sorun olmaz değil mi? Teşekkürler

sut = Cells(1, Columns.Count).End(xlToLeft).Column


HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da üye ol.
 
onu sütun sayısı fazla yada az olsun denilmesi ihtimaline karşı yazmıştım silinebilir
 
iyi akşamlar
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst