Private Sub CommandButton1_Click()
TextBox1.Text = ComboBox1.Text
TextBox3.Text = TextBox2.Text
End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem "blah blah"
ComboBox1.AddItem "ello"
ComboBox1.AddItem "koniec tego"
End Sub

a tu masz plika FRM
VERSION 5.00
Begin {C62A69F0–16DC–11CE–9E98–00AA00574A4F} UserForm1
Caption = "UserForm1"
ClientHeight = 3120
ClientLeft = 45
ClientTop = 435
ClientWidth = 5280
OleObjectBlob = "UserForm1.frx":0000
StartUpPosition = 1 'CenterOwner
End
Attribute VB_Name = "UserForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ComboBox1_Click()

End Sub

Private Sub CommandButton1_Click()
TextBox1.Text = ComboBox1.Text
TextBox3.Text = TextBox2.Text
End Sub

Private Sub UserForm_Initialize()
ComboBox1.AddItem "blah blah"
ComboBox1.AddItem "ello"
ComboBox1.AddItem "koniec tego"
End Sub


ściągnij sobie ApiGuide – jest świetnym programem dla programistów, sam program jest ukierunkowany dla VB. Wprawdzie jego celem jest okazanie jak deklarować i uźywać funkcje windowsa, ale ma sporo okienek w samplach

Udało mi sie znalezc łacze komorki w ktorej pokazuje mi wynik i zakres pobierania danych (ControlSource i RowSource), ale czy mozna w jakis sposob dowiedziec sie ktora kolejno dana zostala wybrana tak jak to jest w komorce wynikowej w formularzach?
Nadal nie wiem jak wpisany tekst do TextBox'a przeniesc do konkretnej komorki...
kombinowalem tak:
g2 = UserForm1.TextBox1.Value

ale nie dziala... Co robie zle...