Birleştirilmiş Hücrelerin Olduğu Sayfadaki Boş Satırları Silme

[deliceli]

Merhabalar,Selamlar..
Çizelgede ekdersler ek dosyada görüldüğü üzere gündüz gece ve nöbet olarak işleniyor.Bu sebepten dolayı alt alta üç hücre birleştirilmiş.Veri kaybı olmadan "I" ve "AN" sutunları arasında hiç veri olmayan boş satırları nasıl sileriz.
Teşekkürler..

 

[Emir Hüseyin Çoban]

. . .

3 satırda da veri olmadığı zaman mı silinecek (örnekte buna uygun veri yok) yoksa
3 satırdan veri olmayan mı silinecek.

. . .

 

[deliceli]

Sayın Hüseyin Bey;Selamlar..İlginize teşekkür ederim..
B, C, D,E, F ve G sutunlarındaki satırlar üçer satır hücreler birleşmiş.Yani Sıra No,TCKNO,ADI SOYADI, PERSONEL UNVANI ve ÇALIŞMA TİPİ olan sutularadaki hücreler birleşmiş.Birleşmeyen normal satırlarda ekdersin ne zaman yapıldığı gündüz, gece ve nöbet şeklinde saatleri giriliyor.
Bu dosyadaki verileri KBS sisteme aktarırken verilerin hiç boş satır olmadan alt alta girilmesi gerekiyor.Bu nedenle boş satırlar silinecek.Birleşmi hücreleri açınca TC ve Adı Soyadının yazılı olduğu satır Ekders Gündüz yazılı olan satıra denk geliyor.Halbuki Ekders Gece yazan satırda veriler olduğundan boş satırları silince TC ve Adı soyadıda siliniyor.
Evet üç satırdan veri olmayanları silinecek.

 

[deliceli]

Sayın Hüseyin Bey;Selamlar..İlginize teşekkür ederim..
B, C, D,E, F ve G sutunlarındaki satırlar üçer satır hücreler birleşmiş.Yani Sıra No,TCKNO,ADI SOYADI, PERSONEL UNVANI ve ÇALIŞMA TİPİ olan sutularadaki hücreler birleşmiş.Birleşmeyen normal satırlarda ekdersin ne zaman yapıldığı gündüz, gece ve nöbet şeklinde saatleri giriliyor.
Bu dosyadaki verileri KBS sisteme aktarırken verilerin hiç boş satır olmadan alt alta girilmesi gerekiyor.Bu nedenle boş satırlar silinecek.Birleşmi hücreleri açınca TC ve Adı Soyadının yazılı olduğu satır Ekders Gündüz yazılı olan satıra denk geliyor.Halbuki Ekders Gece yazan satırda veriler olduğundan boş satırları silince TC ve Adı soyadıda siliniyor.
Evet üç satırdan veri olmayanları silinecek.

 

[Ömer BARAN]

Merhaba.
Silme işlemi konusunda Sayın ÇOBAN bir öneride bulunacaktır.
Ben başka bir konu için görüş belirtmek istedim.

Verileri ( B:G arası sütunlar ) başka bir kaynaktan hazır mı alıyorsunuz bilemiyorum ama ekteki belgede yer alan yapının işinizi kolaylaştıracağını düşünüyorum.
Bahse konu hücrelerden biri seçiliyken koşullu biçimlendirme menüsüne bakınız.

 

[deliceli]

Ömer Bey ilginize teşekkür ederim.
Evet verileri başka kaynaktan hazır alıyorum.
Koşullu biçimlendirmede =SATIR()=KAÇINCI($C8;$C:$C;0)+YUVARLA(EĞERSAY($C:$C;$C8)/2;0)-1
formulu kullanılmış.Uğraştım nasıl yapıdığını anlamaya çalıştım fakat yapamadım.Nasıl yapıldığını söylerseniz memnun olurum.selamlar..

 

[Ömer BARAN]

Aynı verinin kaç defa tekrarlandığı kesin olmayabilir diye düşündüm (örneğinizde hep 3 kez tekrarlanıyor) ve böylece örneğin B:G aralığında aynı olan veri 9 kez tekrarlanıyorsa formülün sonucu bunların 5'incisinde (orta noktasında) DOĞRU sonucunu veriyor ve o satıra koşullu biçimlendirme uyguluyor. Diğer satırlarda ise YANLIŞ sonucunu verdiğinden koşullu biçimlendirme uygulanmıyor.
Orta nokta hesabı ise şöyle; formülün başındaki KAÇINCI kısmı ilk kez kaçıncı satırda yer aldığını buluyor, buna EĞERSAY/2'nin tamsayıya yuvarlanmış halini ekliyor.

 

[Ömer BARAN]

Tekrar Merhaba.
Aşağıdaki kod'u sayfanın kod bölümüne yapıştırıp çalıştırınız.
Kod B sütununda "TOPLAM" kelimesinin bulunduğu satıra kadar ve
AO sütununda 0'dan büyük değer taşımayan satırları silerek işlem yapar.

Sub BARAN()
b = WorksheetFunction.Match("TOPLAM", Range("B:B"), 0)
For a = 7 To b
    If Cells(a, 41) > 0 Then
    Range("B" & a - 1 & ":G" & a + 1).UnMerge
        Cells(a, 2) = Cells(a - 1, 2)
        Cells(a, 3) = Cells(a - 1, 3)
        Cells(a, 4) = Cells(a - 1, 4)
        Cells(a, 5) = Cells(a - 1, 5)
        Cells(a, 6) = Cells(a - 1, 6)
        Cells(a, 7) = Cells(a - 1, 7)
    Rows(a - 1 & ":" & a - 1).Delete Shift:=xlUp
    Rows(a & ":" & a).Delete Shift:=xlUp
    End If
Next
MsgBox ("B İ T T İ")

End Sub

 

[deliceli]

Ömer Bey Merhabalar,
Kodlar için teşekkür ederim.Ama bana asıl lazım olan olay şu;

Örnek dosyada B7-B8-B9 hücreleri bitişik ve bir değer var.Bu şekilde G sutununa kadar hücreler birleşik. G den sonraki hücreler ayrı ayrı olduğundan birleştirilmiş hücrelere tekabül eden satırlarda ise girilen ekdersin türüne göre gündüz gece ve nöbet durumuna göre veriler giriliyor.Bu verileri Maliye KBS Ekders sistemine aktarırken hücreler birleşik olursa hata veriyor. B-G arası sutunlardaki Birleşik hücreleri acınca Örnek B7-B8-B9 hücreleri açılınca B7 de değer oluyor B8 ve B9 da herhangi bir değer olmuyor.B7 deki aynı değeri B8 ve B9 a nasıl tekrar yazabiliriz.Teker teker manuel yapmak zaman kaybı ve zor oluyor.
Anlatabilmişimdir inşallah.Size ve arkadaşlara esenlikler dilerim

 

[Ömer BARAN]

Kod'u aşağıdaki şekilde dener misiniz?

[SIZE="2"]Sub BARAN()
b = WorksheetFunction.Match("TOPLAM", Range("B:B"), 0)
     Range("B7:G" & b - 1).UnMerge
For a = 7 To b
 If Cells(a, 41) > 0 And Cells(a, 2) = "" Then
   Cells(a, 2) = Cells(a - 1, 2)
    Cells(a, 3) = Cells(a - 1, 3)
    Cells(a, 4) = Cells(a - 1, 4)
    Cells(a, 5) = Cells(a - 1, 5)
    Cells(a, 6) = Cells(a - 1, 6)
    Cells(a, 7) = Cells(a - 1, 7)
End If
Next
a = Empty
b = Empty
Application.Wait (Now + TimeValue("0:00:01"))
k = WorksheetFunction.Match("TOPLAM", Range("B:B"), 0)
For c = 7 To k
If Cells(c, 41) = 0 Or Cells(c, 41) = "" Or Cells(c, 41) = "0" Then
Rows(c & ":" & c).Delete Shift:=xlUp
End If
Next
k = Empty
c = Empty
k = WorksheetFunction.Match("TOPLAM", Range("B:B"), 0)
For c = 7 To k
If Cells(c, 41) = 0 Or Cells(c, 41) = "" Or Cells(c, 41) = "0" Then
Rows(c & ":" & c).Delete Shift:=xlUp
End If
Next
k = Empty
c = Empty
MsgBox ("B İ T T İ")
End Sub
[/SIZE]

 

[deliceli]

Konu Çözüldü.

Sayın Ömer Bey.
İlgi ve yardımlarınıza çok teşekkür ederim.Yazdığınız kod mükemmel olmuş.
Elinize sağlık.Mutluluk ve esenlikler dilerim.Selamlar..

 

[Ömer BARAN]

Sayın Ömer Bey.
İlgi ve yardımlarınıza çok teşekkür ederim.Yazdığınız kod mükemmel olmuş.
Elinize sağlık.Mutluluk ve esenlikler dilerim.Selamlar..

Eyvallah. Bilmukabele.
İyi günler dilerim.