Aynı butonla 2 sayfaya birden kayıt

[İsmail Küçükşengün]

Merhabalar;

Private Sub CommandButton6_Click()
Sheets("veri").Range("c1").Value = TextBox1.Value
Sheets("veri").Range("c2").Value = TextBox2.Value
Sheets("veri").Range("c3").Value = TextBox3.Value
Sheets("veri").Range("c4").Value = TextBox4.Value
Sheets("veri").Range("c5").Value = TextBox5.Value
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""

TextBox1.SetFocus

End Sub

Bu kodla, Userform üzerinden textboxlara girilen verileri "veri" isimli sayfanın ilgili yerlerine kayıt yapıyorum.

Sorum:

Aynı butonla, textboxlara girilen bilgilerin bazıları, aynı anda başka bir sayfaya mesela "liste" isimli sayfanın istediğimiz yerlerine kayıt yapılabilir mi? Yapılırsa, yukarıdaki koda nasıl bir ilave gerekir.

Teşekkürler....

 

[Ali]

Sheets("veri").Range("c1").Value = TextBox1.Value
Sheets("liste").Range("c1").Value = TextBox1.Value
Sheets("veri").Range("c2").Value = TextBox2.Value
Sheets("liste").Range("c2").Value = TextBox2.Value

şeklinde düzenleyin


eğer farkı hücreler kaydedeceksiniz Range("c1").Value

c1 değilde liste sayfasının f2 hücresi olacaksa


Sheets("liste").Range("f2").Value = TextBox1.Value

olarak kendinize göre ayarlarsınız

 

[İsmail Küçükşengün]

TEŞEKKÜRLER.... k::