iki sayfaya veri aktarımı

[hikmet]

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

 

[Levent Menteşoğlu]

Dosyanızı eklermisiniz.

 

[hikmet]

İstediğiniz dosya ektedir. Saygılarımla.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:e2783cd85c]Private Sub cmd_kaydet_click()
For a = 1 To 2
If a = 1 Then Set s1 = Sheets("depo")
If a = 2 Then Set s1 = Sheets("ham")
sat = s1.[a65536].End(3).Row + 1
s1.Cells(sat, 1) = tarih.Value
s1.Cells(sat, 2).Value = txt_fatura.Value
s1.Cells(sat, 3).Value = cmd_satıcı.Value
s1.Cells(sat, 4).Value = cmd_hamad.Value
s1.Cells(sat, 5).Value = txt_marka.Value
s1.Cells(sat, 6).Value = txt_kg.Value
s1.Cells(sat, 7).Value = txt_bfıyat.Value
s1.Cells(sat, 8).Value = txt_tutar.Value
Next
cmd_temizle_click
End Sub
[/vb:1:e2783cd85c]

 

[hikmet]

hocam sıra numarası satırı olmadığı için bu sfer de sütünlar kayıyor
aslında bunu istememdeki bir sebep de userformda fatura oluşturabilmek için bir çözüm bulduğumu düşünüyorum.daha önce userformda fatura oluşturmak dosyasında satışlar bölümü var üstteki listboxtan herhangi bir stoku işaretleyip aşağıda müşteriyi ve birkaç bilgiyi verince aşağıdaki listboxa çıkış yapıyordu eğer bu yaptığınız örneği userformda dosya oluşturmak örneğindeki satışlar formuna uyarlarsanız sanırım sorunu çözmüş olacağız
:dua: