userformla iki sayfaya aynı verileri aktarma

[Erdinç FIRTINA]

Değerli forum üyeleri,
Tek bir userformla, aynı anda iki değişik sayfaya veri aktarılabilir mi?
Yani GELİR sayfasına aktardığım verileri aynı anda VERİ sayfasına da aktarabilir miyim?

Dosyam ektedir.

YARDIMLARINIZ İÇİN ŞİMDİDEN TEŞEKKÜRLER!!!

 

[Mahmut Kök]

GELİR sayfaınız için örnek kod. Sizdeki ile değiştirip deneyiniz.

Private Sub CommandButton1_Click()
Set s1 = Sheets("veri")
sat = s1.Range("a65536").End(3).Row + 1
If OptionButton1.Value = False And OptionButton2.Value = False And OptionButton3.Value = False Then
MsgBox "Lütfen Ödeme ile ilgili Seçim Yapınız"
Exit Sub
End If
Sheets("GELİR").Select
Range("B1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, -1).Value = ActiveCell.Offset(-1, -1).Value + 1
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2.Value
ActiveCell.Offset(0, 2).Value = TextBox3.Value
If OptionButton1.Value = True Then ActiveCell.Offset(0, 3).Value = "Öğrenci Nakit"
If OptionButton2.Value = True Then ActiveCell.Offset(0, 3).Value = "Öğrenci Fatura"
If OptionButton3.Value = True Then ActiveCell.Offset(0, 3).Value = "Diğer Gelirler"
ActiveCell.Offset(0, 4).Value = TextBox4.Value
''________________________________
s1.Cells(sat, "a").Value = sat
s1.Cells(sat, "b").Value = TextBox1.Value
s1.Cells(sat, "c").Offset(0, 1).Value = TextBox2.Value
s1.Cells(sat, "d").Offset(0, 2).Value = TextBox3.Value
If OptionButton1.Value = True Then s1.Cells(sat, "e").Value = "Öğrenci Nakit"
If OptionButton2.Value = True Then s1.Cells(sat, "e").Value = "Öğrenci Fatura"
If OptionButton3.Value = True Then s1.Cells(sat, "e").Value = "Diğer Gelirler"
s1.Cells(sat, "f").Value = TextBox4.Value
''___________________
MsgBox "Kayıt Tamam"
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
TextBox4.Value = ""
TextBox1.SetFocus
End Sub

 

[Erdinç FIRTINA]

Sayın Mesleki Teşekkürler

Sayın Mesleki,
Yazmış olduğunuz kodları değiştirdim. Userformdan her iki sayfaya da veri aktarıyor. Ancak, bu kez de bir satırda hata verdi. Söz konusu hatayı dosyamda açıkladım.

"Veri" sayfasında başlık satırının hemen alt satırından başlayarak ve sıra numarası vererek aktarmasına rağmen, "GELİR" sayfasında aynı işlemi yapmıyor.

Aşağıda yazılı olan satırda hata veriyor.
ActiveCell.Offset(0, -1).Value = ActiveCell.Offset(-1, -1).Value + 1

Ayrıca, optionbuttonlarda seçim yapmadan bir sonraki işleme geçmemesine rağmen, textbox2 ve textbox3 te veriler girilmediğinde veya yanlış girildiğinde ise uyarı vermesine rağmen bir sonraki işleme geçiyor. optionbuttonlardaki gibi textboxlarda da uyarıdan sonra veri girmeden veya veriyi doğru girmeden bir sonraki işleme geçmesi engellenemez mi?

Her şey için şimdiden çok teşekkürler!!!!

 

[cerbay]

Sayın Mesleki,
Yazmış olduğunuz kodları değiştirdim. Userformdan her iki sayfaya da veri aktarıyor. Ancak, bu kez de bir satırda hata verdi. Söz konusu hatayı dosyamda açıkladım.

"Veri" sayfasında başlık satırının hemen alt satırından başlayarak ve sıra numarası vererek aktarmasına rağmen, "GELİR" sayfasında aynı işlemi yapmıyor.

Aşağıda yazılı olan satırda hata veriyor.
ActiveCell.Offset(0, -1).Value = ActiveCell.Offset(-1, -1).Value + 1

Ayrıca, optionbuttonlarda seçim yapmadan bir sonraki işleme geçmemesine rağmen, textbox2 ve textbox3 te veriler girilmediğinde veya yanlış girildiğinde ise uyarı vermesine rağmen bir sonraki işleme geçiyor. optionbuttonlardaki gibi textboxlarda da uyarıdan sonra veri girmeden veya veriyi doğru girmeden bir sonraki işleme geçmesi engellenemez mi?

Her şey için şimdiden çok teşekkürler!!!!

Baya geç olacak ama okuyanlar merak ederse cevapsız kalmasın :roll:

ActiveCell.Offset(0, -1).Value = ActiveCell.Offset(1, -1).Value + 1 olmalı.:hihoho:

 

[Erdinç FIRTINA]

teşekkürler sayın cerbay!!!!