Sn.Hocalarım,
elimde userformdan sayfaya veri aktarma makrosu var ama bu sayfaya aktarma makrosun ile iki ayrı sayfaya o bilgileri aktarmak istiyorum. VBA kodu aşağıdakidir. Bu tek sayfaya userformdan veri aktarıyor. bunun altına ikinci bir sayfaya da aynı veriyi kaydetmesi için devam makrosu yazarmsınız lütfen
Private Sub cmd_kaydet_click()
Range("a1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
'..........................................................
'Textbox kutularındaki verileri hücrelere yazdırır.
ActiveCell.Offset(0, 1).Value = tarih.Value
ActiveCell.Offset(0, 2).Value = txt_fatura.Value
ActiveCell.Offset(0, 3).Value = cmd_satıcı.Value
ActiveCell.Offset(0, 4).Value = cmd_hamad.Value
ActiveCell.Offset(0, 5).Value = txt_marka.Value
ActiveCell.Offset(0, 6).Value = txt_kg.Value
ActiveCell.Offset(0, 7).Value = txt_bfıyat.Value
ActiveCell.Offset(0, 8).Value = txt_tutar.Value
cmd_temizle_click
End Sub
elimde userformdan sayfaya veri aktarma makrosu var ama bu sayfaya aktarma makrosun ile iki ayrı sayfaya o bilgileri aktarmak istiyorum. VBA kodu aşağıdakidir. Bu tek sayfaya userformdan veri aktarıyor. bunun altına ikinci bir sayfaya da aynı veriyi kaydetmesi için devam makrosu yazarmsınız lütfen
Private Sub cmd_kaydet_click()
Range("a1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
'..........................................................
'Textbox kutularındaki verileri hücrelere yazdırır.
ActiveCell.Offset(0, 1).Value = tarih.Value
ActiveCell.Offset(0, 2).Value = txt_fatura.Value
ActiveCell.Offset(0, 3).Value = cmd_satıcı.Value
ActiveCell.Offset(0, 4).Value = cmd_hamad.Value
ActiveCell.Offset(0, 5).Value = txt_marka.Value
ActiveCell.Offset(0, 6).Value = txt_kg.Value
ActiveCell.Offset(0, 7).Value = txt_bfıyat.Value
ActiveCell.Offset(0, 8).Value = txt_tutar.Value
cmd_temizle_click
End Sub