Excel Vba Forum - Excelce.Net
SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: hagecit - 05 Şubat 2012, 02:37:02
-
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.
-
. . .
Merhaba.
Kayıt butonu için kodlar
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