Tek bir butonla farklı iki sayfaya kayıt?

[udentr2002]

Merhaba arkadaşlar ekli doyada daha net anlatmaya çalıştım formumda kaydet butonu var bu butonla iki tane sayfaya aynı anda kayıt nasıl yapabilirim. Combobox'tan firma seçip kayıt tuşuna bastığımızda ilgili firmaya istediğim gibi kayıt yapıyor yanlız benim istediğim aynı butona bastığımda hem ilgili firma sheetine kayıt yapacak hemde "Veri" adlı sheet e o sayfayı düzenlediğim yerlere kayıt yapacak. İlgilenen bi arkadaşlım olursa çok sevinirim

 

[Recep İpek]

Set s2 = Sheets("veri")

olarak tanımlayıp kodlarınızın en altından bu sayfaya kaydetme kodlarınızı devam ederek yazabilirsiniz.

s2.Cells(5,1).Value=Textbox1.Text gibi.....

 

[udentr2002]

Sn ripek

denedim olmadı ya anlayamadım dosya ile gönderebilme imkanınız varmı??

 

[Recep İpek]

Bende sorunuzu yanlış anlamış olabilirim.
Aşağıdaki kodlarınızın sonunda veri sayfasına kayıt etmek için aynen devam edebilirsiniz.

Private Sub CommandButton1_Click()
If ComboBox1 = "" Then
MsgBox "Firma Adı Seçmelisiniz!!!"
Exit Sub
End If
Set s1 = Sheets(ComboBox1.Text)
If TextBox1.Text = "" Then
MsgBox " Adını Giriniz!!!"
Exit Sub
ElseIf TextBox2.Text = "" Then
MsgBox " Adını ve Dozunu Giriniz!!!"
Exit Sub
ElseIf TextBox3.Text = "" Then
MsgBox " Numarasını Giriniz!!!"
Exit Sub
ElseIf TextBox8.Text = "" Then
MsgBox " Tarihini Giriniz!!!"
Exit Sub
End If
e = s1.[e65536].End(3).Row
s1.Cells(e + 2, "a") = TextBox1.Text
s1.Cells(e + 2, "b") = TextBox2.Text
s1.Cells(e + 2, "c") = TextBox3.Text
s1.Cells(e + 2, "d") = TextBox4.Text
s1.Cells(e + 2, "e") = TextBox8.Text
s1.Cells(e + 3, "e") = TextBox5.Text
s1.Cells(e + 4, "e") = TextBox6.Text
s1.Cells(e + 5, "e") = TextBox7.Text
s1.Cells(e + 6, "e") = TextBox9.Text
s1.Cells(e + 7, "e") = TextBox10.Text
s1.Cells(e + 8, "e") = TextBox11.Text
s1.Cells(e + 9, "e") = TextBox12.Text
s1.Cells(e + 10, "e") = TextBox13.Text
For a = 1 To 13
Controls("textbox" & a) = ""
Next
'*****veri sayfası************
Set s2 = Sheets("veri")
f = s2.[e65536].End(3).Row
s1.Cells(f + 2, "a") = TextBox1.Text
s1.Cells(f + 2, "b") = TextBox2.Text
'.........
'.........
End Sub

 

[udentr2002]

çıldırıcam yaa

veri sayfasına yazmıyor işte ya deli olucam benim kodlardamı bi hata var anlamadım ki dğer sayfalara yazıyor ama veri sayfasına yazmıyor

 

[udentr2002]

saolun ripek

sonunda hatamın nerde olduğunu buldum aynı kod denemsini uygulamıştım yanlız ilk yazdırmada
for a=1 to 13
controlls("textbox"&a)=""


next
kodları iki defa tekrarlandığı için textboxları boşaltıp veri sayfasına bilgi yazmaya çalıştığı için boş göteriyordu::: acemilik işte üstatlar