Fiş içeriğini diğer sayfaya kaydetme

[sonkurt]

Merhaba

Arkadaşlar dosyanın örneğini aşağıya ekliyorum. Amacım evin hesaplarını kaydetmek için yevmiye fişi yapmak. Siteden bulduğum makrolarla ancak ilk satırı diğer sayfaya kayıt edebiliyorum. Fişin içindeki Alt satırlarıda kayıt etmek için nasıl makro yapacağım.

 

[Orion1]

Dosyanız ektedir.

Sub kayit()
 Dim X As Integer, sat As Long
Sheets("kayıtgiriş").Select
If Range("c11").Value = "" Then
    MsgBox "c11 Hücresinde Sıra No boş olamaz." & vbLf & _
    "Kayıt Yapılmadı", vbCritical, "UYARI"
    Range("c11").Select
    Exit Sub
End If
With Sheets("veritabanı")
    sat = .Cells(65536, "A").End(xlUp).Row + 1
    For X = 14 To 18
        If sat >= 65533 Then
            MsgBox "Sayfa3te Satır doldu.Kayıt giremezsiniz.", vbCritical, "UYARI"
            Exit Sub
        End If
        If Cells(X, "B").Value <> "" Then
            .Cells(sat, "A").Value = Range("c11").Value
            .Cells(sat, "B").Value = Range("f11").Value
            .Cells(sat, "C").Value = Cells(X, "F").Value
            .Cells(sat, "D").Value = Cells(X, "C").Value
            .Cells(sat, "E").Value = Cells(X, "D").Value
            .Cells(sat, "f").Value = Cells(X, "E").Value
            .Cells(sat, "G").Value = Cells(X, "F").Value
            .Cells(sat, "H").Value = Range("B22").Value
            .Cells(sat, "I").Value = Range("D22").Value
            sat = sat + 1
        End If
    Next
End With
MsgBox "Kayıt Başarı ile girildi." & vbLf & _
vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[sonkurt]

Çok teşekkür ederim Sn.Evren GİZLEN. Tam istediğim gibi olmuş. Böyle bir örnek, sitede yoktu. Bu kodlar hertürlü makbuzlarda, faturalarda, irsaliye kayıtlarında kullanılabilinir. Tekrar Teşekkürler.

 

[Orion1]

Çok teşekkür ederim Sn.Evren GİZLEN. Tam istediğim gibi olmuş. Böyle bir örnek, sitede yoktu. Bu kodlar hertürlü makbuzlarda, faturalarda, irsaliye kayıtlarında kullanılabilinir. Tekrar Teşekkürler.

Rica ederim.
İyi çalışmalar.
Not:Bu türden örnekler forumda çok var.Siz görmemişsiniz.Hatta bir miktarınıda ben yapmıştım.Nerede olduğunu Hatırlayamadığım için linki size veremedim