Koşula bağlanan satırları kaydırma

[lonchness]

Ekteki excel durum sütununda "0" ile gösterilen satırın tamamının bir sonraki tarihe (30.04.2011) e otomatik olarak aktarılmasını nasıl sağlayabilirim ?

Daha sonra 30.04.2011 in altına 01.05.2011 tarihli işlemlere birgün önce "0" verdiğim değerleri aynı şekilde aktarabilir miyim ?

Yardımcı olacak olan herkese şimdiden çok teşekkür ederim.

 

[Ömer]

Merhaba,

Module kopyalarak çalıştırınız.

Sub KesEkle()
 
Dim i As Long, sOn As Long, bUyuk As Long
 
sOn = Cells(Rows.Count, "A").End(xlUp).Row
bUyuk = WorksheetFunction.Max([A:A])
 
Application.ScreenUpdating = False
 
For i = sOn To 4 Step -1
    If Cells(i, "K") = 0 And Cells(i, "A") <> bUyuk And Cells(i, "A") <> "" Then
        Rows(i).Cut
        Rows(sOn - 1).Insert Shift:=xlDown
    End If
Next i
 
Application.CutCopyMode = False
Application.ScreenUpdating = True
 
End Sub

.

 

[lonchness]

peki modülü nereye kopyalıycam ve nasıl çalıştırıcam ??
hiç bilmiyorum ve en ufak bir fikrim yok.

 

[Ömer]

Linkleri inceleyiniz.

Modül Ekleme (Resimli Anlatım)

http://www.excel.web.tr/f14/birden-fazla-sutunu-tek-hucrede-birle-tirme-t98947.html# Sayfada Buton-Düğme Oluşturmak ve Makro Atamak (Resimli Anlatım

.