• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
28 Nisan 2011
Mesajlar
4
Excel Vers. ve Dili
office 2007 türkçe
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.
 

Ekli dosyalar

Merhaba,

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

Kod:
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
.
 
peki modülü nereye kopyalıycam ve nasıl çalıştırıcam ??
hiç bilmiyorum ve en ufak bir fikrim yok.
 
Geri
Üst