Verileri Alt Alta Kaydetme Hk.

[hagecit]

Arkadaşlar herkese merhaba
Bir konu hakkında yardımınızı isteyecektim. Ekte gönderdiğim dosyada sol taraftaki 1. tabloya girdiğim verilerin 2.sayfadaki RAPOR DETAY tablosuna (Tablo 2) otomatik olarak alt alta kayıt yapmasını istiyorum.
Tablo 3 ten de istediğim verileri bana seçim yapılıp TARİH girdikten sonra ADET ve TUTAR olarak aktarmasını istiyorum.
Böyle birşey mümkünmü acaba?
Yardımlarınız için şimdiden teşekkürler.

[Hüseyin Çoban]

. . .

Merhaba.

Kayıt butonu için kodlar

Kod: [Seç]

Sub kod_kayıt()

On Error GoTo hata
Dim g As Worksheet
Dim rd As Worksheet

Set g = Sheets("giriş")
Set rd = Sheets("rapor detay")

If g.Range("c4") = "" Or _
g.Range("c5") = "" Or _
g.Range("c6") = "" Or _
g.Range("c7") = "" Or _
g.Range("c8") = "" Or _
g.Range("c12") = "" Or _
g.Range("c14") = "" Then

MsgBox "Boş geçemeyeceğiniz alanlar var.", vbCritical, "Excelce.Net"
Else

Dim say As Long
say = rd.Cells(65536, 2).End(xlUp).Row + 1
ONBİR = WorksheetFunction.CountA(rd.Range("A3:A65536")) + 1
    rd.Range("A" & say).Offset = ONBİR
    rd.Range("b" & say).Offset = g.Range("c4")
    rd.Range("c" & say).Offset = g.Range("c5")
    rd.Range("d" & say).Offset = g.Range("c6")
    rd.Range("e" & say).Offset = g.Range("c7")
    rd.Range("f" & say).Offset = g.Range("c8")
    rd.Range("g" & say).Offset = g.Range("c9")
    rd.Range("h" & say).Offset = g.Range("c10")
    rd.Range("ı" & say).Offset = g.Range("c11")
    rd.Range("j" & say).Offset = g.Range("c12")
    rd.Range("k" & say).Offset = g.Range("c13")
    rd.Range("l" & say).Offset = g.Range("c14")
    rd.Range("m" & say).Offset = g.Range("c15")
End If

Exit Sub
hata: MsgBox "Beklenmedik bir hata oluştu.", vbCritical, "Excelce.Net"
End Sub