Soru tek seferde farklı sayfalara veri yollama

[yamahato]

Merhaba herkese
Benim söyle bir sorunum var. Aşağıda ki kod ile Userformunda ki Textbox girdiğim değerler, Masraflar sayfasına atıyor.
Benim bu userformda textbox girdiğim bazı değerleri kasa defteri isimli sayfada ki en son boş satırda ki bazı hücrelere de atmasını istiyorum.

Kullandığım ve yardım ederseniz düzeltecek olduğunuz kodların altına Kasa defterine gönderme yapacak textbokları ve Kasa defterinde atacağı hücreleri yazdım.

Private Sub CommandButton1_Click()
Dim I As Long, SiraNo As Long, s1 As Worksheet

Set s1 = Sheets("MASRAFLAR")
SiraNo = s1.[A65536].End(3).Row + 1

' ****************** veri girişi ***********************
s1.Range("F" & SiraNo) = TextBox6.Value
s1.Range("A" & SiraNo) = TextBox5.Value
s1.Range("D" & SiraNo) = TextBox2.Value
s1.Range("J" & SiraNo) = TextBox7.Value
s1.Range("K" & SiraNo) = TextBox8.Value
s1.Range("L" & SiraNo) = TextBox9.Value
s1.Range("B" & SiraNo) = TextBox3.Value
s1.Range("V" & SiraNo) = Sheets("ARAMA").Range("D2").Value
s1.Range("U" & SiraNo) = Sheets("ARAMA").Range("E2").Value

' *************** kayıt sonrası temizlik ***************

TextBox1.Value = "": TextBox2.Value = "": TextBox3.Value = ""
TextBox5.Value = "": TextBox6.Value = ""
TextBox7.Value = "": TextBox8.Value = "": TextBox9.Value = ""
TextBox6.SetFocus
MsgBox "KAYIT BAŞARI İLE YAPILDI!..."
' *************** BAŞARI İLE KAYIT YAPILDI YAZISI***************
End Sub




TextBox5=B HÜCESİNE
TextBox8= j hücresine
TextBox9=K HÜCRESİNE

 

[ÖmerFaruk]

Kodlarınıza, anlattığınıza göre ilave yaptım.

Private Sub CommandButton1_Click()
Dim I As Long, SiraNo As Long, s1 As Worksheet

Set s1 = Sheets("MASRAFLAR")
SiraNo = s1.[A65536].End(3).Row + 1

' ****************** veri girişi ***********************
s1.Range("F" & SiraNo) = TextBox6.Value
s1.Range("A" & SiraNo) = TextBox5.Value
s1.Range("D" & SiraNo) = TextBox2.Value
s1.Range("J" & SiraNo) = TextBox7.Value
s1.Range("K" & SiraNo) = TextBox8.Value
s1.Range("L" & SiraNo) = TextBox9.Value
s1.Range("B" & SiraNo) = TextBox3.Value
s1.Range("V" & SiraNo) = Sheets("ARAMA").Range("D2").Value
s1.Range("U" & SiraNo) = Sheets("ARAMA").Range("E2").Value

Set s1 = Sheets("Kasa Defteri") 'Yanlışsa Değiştirin"
SiraNo = s1.[A65536].End(3).Row + 1 'Boş Satır için A sütununa bakıyoruz. Değilse değiştirin
s1.Range("B" & SiraNo) = TextBox5.Value
s1.Range("J" & SiraNo) = TextBox8.Value
s1.Range("K" & SiraNo) = TextBox9.Value
' *************** kayıt sonrası temizlik ***************

TextBox1.Value = "": TextBox2.Value = "": TextBox3.Value = ""
TextBox5.Value = "": TextBox6.Value = ""
TextBox7.Value = "": TextBox8.Value = "": TextBox9.Value = ""
TextBox6.SetFocus

'Tavsiye ilave
Set s1=Nothing
'.............................
MsgBox "KAYIT BAŞARI İLE YAPILDI!..."
' *************** BAŞARI İLE KAYIT YAPILDI YAZISI***************
End Sub