userform1 e userform2 den veri ekleme

[excel2010]

1) arkadaşlar soruda belirttiğimi nasıl yapabiliriz.? userform1 e userform2 den veri eklemek istiyorum.

2) birde arkadaşlar bir sorunum var çözemedim...kırmızı ve kalın gösterdiğim yerde hata alıyorum. mesela a2,b2,c2 sutünün eklenen veri a3,b3,c3 kısmından devam etsin. bu sorunu nasıl çözerim yardımlarınızı bekliyorum.

teşekkürler...

kodlar bunlar:
Private Sub CommandButton1_Click()

Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("a2").Value = "" Then
Range("a2").Value = 1
Range("a2").Select
Else
ActiveCell.Value = ActiveCell(-1, 0) + 1
End If

ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 3).Value = TextBox3.Text
ActiveCell.Offset(0, 4).Value = TextBox4.Text
ActiveCell.Offset(0, 5).Value = TextBox5.Text

baslik = "kayıt işlendi mi?"
aciklama = "kayıt işlendi"
buton = vbOKOnly + vbInformation + vbDefaultButton1


MsgBox baslik, buton, aciklama
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""

 

[uzmanamele]

merhaba

bunu deneyiniz.

userform1.textbox1.text=userform2.textbox2.text

 

[hamitcan]

1) arkadaşlar soruda belirttiğimi nasıl yapabiliriz.? userform1 e userform2 den veri eklemek istiyorum.

UserForm1.TextBox1 = UserForm2.TextBox2.Value

2) birde arkadaşlar bir sorunum var çözemedim...kırmızı ve kalın gösterdiğim yerde hata alıyorum. mesela a2,b2,c2 sutünün eklenen veri a3,b3,c3 kısmından devam etsin. bu sorunu nasıl çözerim yardımlarınızı bekliyorum.

teşekkürler...

kodlar bunlar:
Private Sub CommandButton1_Click()

Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("a2").Value = "" Then
Range("a2").Value = 1
Range("a2").Select
Else
ActiveCell.Value = ActiveCell(-1, 0) + 1
End If

ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 3).Value = TextBox3.Text
ActiveCell.Offset(0, 4).Value = TextBox4.Text
ActiveCell.Offset(0, 5).Value = TextBox5.Text

baslik = "kayıt işlendi mi?"
aciklama = "kayıt işlendi"
buton = vbOKOnly + vbInformation + vbDefaultButton1


MsgBox baslik, buton, aciklama
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""

Private Sub CommandButton1_Click()
    Range("a2").Select
    Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
    Loop
    Selection = ActiveCell.Offset(-1, 0) + 1
End Sub

 

[excel2010]

Arkadaşlar Allah razı olsun...teşekkürler

peki arkadaşlar çok kodlu sayfalarda bunun yerine (UserForm1.TextBox1 = UserForm2.TextBox2.Value) global değişken tanımla var mı varsa nasıl yapabiliriz... teşekkürler

 

[hamitcan]

Örnek dosya hazırlayın.