Hesap tablosuna günlük kayıt

[aduyduk]

Değerli hocalarım ben exceli yeni öğreniyorum biraz geç kaldım öğrenmekte herhalde 54 yaşındayım bazı sıkıntılrım var excelde dosyaya izah etmeye çalıştım. Yardımcı olursanız sevinirim iyi çalışmalar.

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz..

Sub GunlukAktar()
 
Dim Sf As Worksheet, Sd As Worksheet, son As Long, i As Long
 
Set Sf = Sheets("FORM")
Set Sd = Sheets("DÖKÜMLER")
 
son = Sd.Cells(Rows.Count, "C").End(xlUp).Row + 1
 
If Date = Sd.Range("B" & son - 1) Then
    MsgBox "Bu Tarihe Kayıt Yapılmış"
    Exit Sub
End If
 
For i = 4 To 7
    With Sd
        .Cells(son + i - 4, "B") = Date
        .Cells(son + i - 4, "C") = Sf.Cells(i + i Mod 4, "K")
        .Cells(son + i - 4, "D") = Sf.Cells(i + i Mod 4, "N")
        .Cells(son + i - 4, "E") = Sf.Cells(i + i Mod 4, "Z")
        .Cells(son + i - 4, "F") = Sf.Cells(i + i Mod 4, "AC")
        .Cells(son + i - 4, "G") = Sf.Cells(i + i Mod 4, "BD")
        .Cells(son + i - 4, "H") = Sf.Cells(i + i Mod 4, "BG")
    End With
Next i
 
End Sub

.

 

[aduyduk]

çok teşekkür ederim ömer hocam.
Hemen uygulayacağım.