TextBox ' a kopyalayarak değer girmek

[ahmethasim]

Merhaba arkadaşlar;

Benim sorum yanyana üç tane textbox ım olsun . Nasıl ki excelde A1, B1,C1 hücreleri var ben A1,B1,C1 hücrelerini kopyalayıp bu 3 textboxa yapıştırmak istiyorum ama 1 tane textboxa tıkladığımda yapıştırmak için diğer B1 ve C1 hücrelerindeki değerler de 2. ve 3. textboxa tıklamadan yapıştırılsın.

Bu A1,B1,C1 hücrelerini seçip excelde başka bir hücreye tıklayıp yapıştırdığımda yandaki hücreler de hemen doğru yerlerine yapıştırılmış oluyor bunun benzerini textboxlar için de kodlamayla nasıl yapabiliriz?

Teşekkürler

İyi çalışmalar

 

[Ömer]

Merhaba,

Private Sub UserForm_Initialize()
    TextBox1.Text = ActiveCell
    TextBox2.Text = ActiveCell.Offset(0, 1)
    TextBox3.Text = ActiveCell.Offset(0, 2)
End Sub

Aktif hücreyi textbox1'e, aktiv (sağa doğru) hücrenin bir yanındakini textbox2'ye,aktiv hücrenin iki yanındakini textbox'e yazar.

.

 

[ahmethasim]

Teşekkürler hocam ilginize ama benim yapmak istediğim daha ziyade

Metin editörümde

-10 30 60 gibi değerler var.

Bunların hepsini seçip kopyalayayım ve şu an hafızadaki bu değerler

Textbox 1 kutusuna tıkladığımda -10 yerleşirken Textbox 2 kutusuna 30 Textbox 3 kutusuna da 60 değeri yapıştırılsın.

Yani Exceldeki hücrelerden kopyalama işlemini sadece örnek amaçlı verdimdi.

Teşekkürler

İyi çalışmalar

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz..

Private Sub UserForm_Initialize()
    TextBox2.SetFocus
End Sub
 
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
For i = 1 To 3
   Controls("Textbox" & i) = Selection(i)
Next i
Application.CutCopyMode = False
End Sub

Hücreleri kopyalamadan seçersenizde aynı işlemi yapacaktır..

.

 

[ahmethasim]

Teşekkürler hocam elinize sağlık