Birleştirilmiş Hücreler / Sıralama

[iplikci_80]

EK'te ki çalışmanın C sütunundaki işten çıkış tarihi dolu ise A sütunundaki sicili silmem gerek, sicili sildiğimde A sütunludaki sıralamanın kendiliğinden yapılmasını sağlamak istiyorum. Yani çıkış tarihleri dolu olan sicilleri sildiğimde sıralamanın baştan sona D sütunundaki gibi olmasını, sağlama hususunda yardımlarınızı rica ediyorum.

 

[Necdet]

Merhaba,

Hücreleri neden birleştiriyorsunuz? hem kendinize hem excele eziyet olsun diye mi?

 

[iplikci_80]

Kullanacağım belge puantaj belgesi, iki satırdan oluşuyor.

 

[iplikci_80]

Arkadaşlar yardımlarınızı rica ediyorum.

 

[Necdet]

Merhaba,

Ne yapmak istediğiniz tam olarak anlaşılmıyor ki.

Çıkış tarihi dolu ise A sütunundaki sicili silmek ne demek?

A4 hücresinde Sicil Olarak 1 var, siz bu 1'i mi silmek istiyorsunuz yoksa o satırı tamamen mi?
Bu konuya açıklık getirin, sonra tüm çıkış tarihleri olanlar toptan mı silinecek? vs vs vs

 

[iplikci_80]

Yapmak istediğimi şöyle özetlemeye çalışayım A4 hücresini sildiğimde A6 da ki değerin A4 gelmesini sağlamak. Yani sildiğim hücrenin bir altındaki değerin silinen hücreye gelmesi.....

 

[Korhan Ayhan]

Silme işlemini tek tek mi yapacaksınız?

 

[iplikci_80]

Evet tek tek.

 

[Korhan Ayhan]

Sayfanızın kod bölümüne uygulayıp deneyiniz.

A sütununda verilerden C sütununda TARİH olan hücreleri CTRL tuşu ile toplu seçip işlem yapabilirsiniz. Yani A4-A14-A16 gibi hücreleri CTRL tuşu ile toplu seçip silme yapabilirsiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Veri As Range, Alan As Range
    
    On Error GoTo Son
    
    If Intersect(Target, Range("A4:A" & Rows.Count)) Is Nothing Then Exit Sub
    
    For Each Veri In Intersect(Target, Range("A4:A" & Rows.Count))
        If Veri.Value = "" And Veri.Offset(, 2) <> "" Then
            If Alan Is Nothing Then
                Set Alan = Veri.Resize(2)
            Else
                Set Alan = Application.Union(Alan, Veri.Resize(2))
            End If
        End If
    Next
    
    Application.EnableEvents = False
    If Not Alan Is Nothing Then Alan.EntireRow.Delete
Son: Application.EnableEvents = True
End Sub

 

[iplikci_80]

Çok teşekkür ederim.