Otomatik Doldurma ama biraz farklı yardımcı olabilirmisiniz?

[AdReNaLiYn]

Arkadaşlar öncelikle merhaba ekteki excel dosyasında her partinin 6 satırdan oluştuğu bir program takip dosyası var. Benim yapmak istediğim örneğin 3. sıradaki partinin işi bitti ve ben bunu siliyorum (6 satırın birden içini boşaltıyorum) alttaki parti otomatik bunun yerini doldursun istiyorum.Çünkü günde ortalama 50-70 arası parti ekleyip çıkarıyorum. tek tek elle sürükle çok zaman kaybı oluyor. Ben 5. sıradakini sildiğim zaman otomatik alttaki ilk 6 satır yukarıdaki hücrelere geçsin.

Örnek :

C sütununda ki işlemi biten 10-11-12-13-14-15 nolu sütunların içini boşaltıyorum. Hemen altındaki (16-17-18-19-20-21 nolu hücreler bu içini boşalttığım yere gelsin istiyoruz diğer sütunlarda bir değişiklik olmasın.) böyle birşey mümkün müdür?. nasıl ve hangi kodla yapabilirim. ekteki dosyada daha net anlaşılabilir. Teşekkürler.

 

[fireman64]

Sub sil()
Dim i As Long
Dim SonSat As Long
Dim adet As Integer
SonSat = Selection.SpecialCells(xlCellTypeLastCell).Row 'Son hücrenin satır numarası
Application.ScreenUpdating = False
For i = SonSat To 2 Step -1
    If Application.WorksheetFunction.CountA(Range("C" & i & ":C" & i)) = 0 Then Range("C" & i & ":C" & i).Delete Shift:=xlUp
Next i
Application.ScreenUpdating = True

End Sub

bu kodu deneyin