Boş hücrelere dolu hücreleri kaydırma makro

[erdem19]

Elimizde kan grubu şeması var bu tabloda kan no ve son kullanma tarihi var benim istediğim örneğin A pozitif kan grubundan kullanılan yada miadı dolanları sildiğim zaman aşağı hücrede kalan kan no lar ve skt yukarı sürüklensin, bu diğer kan grupları içinde otomatik olarak olsun istiyorum buna nasıl bir makro oluşturabilirim

 

[Korhan Ayhan]

Merhaba,

Sayfa1 isimli sayfanızın kod bölümüne aşağıdaki kodu uygulayın.

Siz silme işlemi yaptıkça veriler otomatik sıralanacaktr.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Satir As Long
    
    Application.ScreenUpdating = False
    Satir = Cells(Rows.Count, 1).End(3).Row - 1
    Range("A14:B" & Satir).Sort Range("B14"), xlAscending
    Range("C14:D" & Satir).Sort Range("D14"), xlAscending
    Range("E14:F" & Satir).Sort Range("F14"), xlAscending
    Range("G14:H" & Satir).Sort Range("H14"), xlAscending
    Range("I14:J" & Satir).Sort Range("J14"), xlAscending
    Range("K14:L" & Satir).Sort Range("L14"), xlAscending
    Range("M14:N" & Satir).Sort Range("N14"), xlAscending
    Range("O14:P" & Satir).Sort Range("P14"), xlAscending
    Application.ScreenUpdating = True
End Sub

 

[erdem19]

Çok teşekkür ederim Korhan hocam mükemmel oldu.Yalnız yeni tarihler üste kayıyor tam zıttı olması için neyi değiştirmem lazım.
Bu siteden excel hakkında çok değerli bilgiler öğreniyorum öğrendikçe excele olan ilgim her gün dahada artmakta.