a sütunu boşsa satır sil, şarta göre satır silme

[tamer060]

Merhabalar excel dosyasında a2 ile a15000 sütununda boş olan satırların silinmesi ve Cari Hesap Kodu yazılı olan değerdeki satırların silinme işlemini kod ile nsl yapmalıyız.

silme islemine satır a2 den başlaması gerekiyor.

kısacası a2 sütünundan sonraki a sütünunda olan boş değerleri ve "Cari Hesap Kodu" yazan değerleri sil.

İlginiz için şimdiden teşşekkür ederim.

Saygılarımla....

 

[monelogg]

Merhaba, şu kodu dener misiniz?

Sub sil()
For i = [a65536].End(xlUp).Row To 2 Step -1
If Cells(i, 1).Value = "Cari Hesap Kodu" Or Cells(i, 1).Value = "" Then
Cells(i, 1).Select
Selection.Delete Shift:=xlUp
End If
Next

End Sub

 

[tamer060]

Sayın Monelogg Kod çalışıyor ancak tüm satırı ve boş satırları silmiyor. sadece cari hesap kodu yazanları a sütunundan yokarı kaydırarak siliyor yanlış anlaşıldım heralde. Ben a sütununda boş olan ve Cari Hesap Kodu Yazan hücrelerin tüm satılarlardan silinmesini istiyorum (a-b-c-d-e-f-g-h) tüm sutunlardan yardımcı olursanız memnun olurum.

Saygılarımla

 

[tamer060]

a sutunu b sütunu c d e
Cari Hesap Kodu Cari Hesap Unvanı Malzeme (Sınıfı) Türü Malzeme(Sınıfı)Kodu
10.99.01.00036 ŞENEL OFSET(SELÇUK ŞENEL) TM YD70001216

Cari Hesap Kodu Cari Hesap Unvanı Malzeme (Sınıfı) Türü Malzeme(Sınıfı)Kodu
10.99.01.00125 YAŞATIR TİCARET(MERCEDES) TM YD20057325
10.99.01.00125 YAŞATIR TİCARET(MERCEDES) TM YD70001216
10.99.01.00125 YAŞATIR TİCARET(MERCEDES) TM YD70001218

Cari Hesap Kodu Cari Hesap Unvanı Malzeme (Sınıfı) Türü Malzeme(Sınıfı)Kodu
60.01.01.00002 KISMET TİCARET TM YD70001216
60.01.01.00002 KISMET TİCARET TM YD70001217
60.01.01.00002 KISMET TİCARET TM YD70001247

Cari Hesap Kodu Cari Hesap Unvanı Malzeme (Sınıfı) Türü Malzeme(Sınıfı)Kodu
60.01.01.00006 ÜNAL ALTINÖZ TM YD20001018
Yukarıda a sütununa göre bakacak boş ve Cari hesap kodu yazan satırların hepsini silecek. satırı silerken tüm sütuna göre silecek.
Saygılarımla

 

[antonio]

Sub sil()
For i = [a65536].End(xlUp).Row To 2 Step -1
If Cells(i, 1).Value = "Cari Hesap Kodu" Or Cells(i, 1).Value = "" Then
Cells(i, 1).[COLOR="Red"][B]EntireRow.Delete[/B][/COLOR]
End If
Next

End Sub

şeklinde deneyiniz. Kolay gelsin.

 

[tamer060]

Teşekkür Ederim...

 

[honestman]

peki şartı sağlayan hücreyi ve hemen sağındaki hücredeki veriyi nasıl silebilirim ?

 

[Necdet]

peki şartı sağlayan hücreyi ve hemen sağındaki hücredeki veriyi nasıl silebilirim ?

Merhaba,

Diğer hücreler dolu ise silme işleminden sonra veriler karışacaktır.

Örnek dosya ile sorunuzu yöneltirseniz durum daha iyi anlaşılacaktır.