userformda Buton ile kopyala yapmak

[command]

userformda tektbox içindeki veriyi yanına eklediğim bir buton yardımı ile kopyalamak istiyorum.bunu 5-6 texboxdauygulayacağım.
nasıl olur acaba.

 

[Orion1]

userformda tektbox içindeki veriyi yanına eklediğim bir buton yardımı ile kopyalamak istiyorum.bunu 5-6 texboxdauygulayacağım.
nasıl olur acaba.

Range("A1").value=textbox1.text
range("A2").value=textbox3.text

 

[command]

teşekkürler arkadaşım, fakat ,
textboxdaki veriler combobaxdan seçilen verilere göre değişiyor. burdaki kopyala tuşuna basınca ordaki veriyi hafızaya kopyalayacak, bende başka bit yere yapıştırabileceğim. bu kod bunu yapıyor mu acaba

bu arada ilgin için çok tşkler.

 

[Orion1]

Verdiğim kod a1 hücresine textbox1'i kaydeder.Siz istediğiniz bir hücre ismini yazabilirsiniz.

 

[Orion1]

Kopyalama için ise
Aşağıdaki kodları yazdıktan sonra mousun sağ klik tuşu ile yapıştırı seçerek istediğiniz yere yapıştırabilrisiniz.

TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)
TextBox1.Copy

 

[command]

çok teşekkürler, kod işimi gördü. birşey daha soracağım, textbox içindeki veriler uzun olunca aşağı doğru uzasın istiyorum. benimkinde tek satırda yazıyor. bunun için ne yapmalıyım.

tşkler.

 

[Orion1]

Textboxı seçtikten sonra propertiesten MultiLine özelliğini True yapınız.

 

[command]

bu başlık için son bir soru daha

excele tıklandığında sadece userform görünsün istiyorum.excel kaybolsun
forumda aşağıdaki kodu buldum fakat ilk açılışta butona basarak manuel açılıyor, benim istediğim, excele tıklayınca excel kaybolsun sadece userform görünsün, istenirse zaten tuşla görüntüleniyor.

tşkler.


Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Application.Visible = False
ToggleButton1.Caption = ""
ToggleButton1.BackColor = vbRed
Else
Application.Visible = True
ToggleButton1.Caption = ""
ToggleButton1.BackColor = vbYellow
End If
End Sub

 

[Orion1]

Userformunuzun adı userform1 ise
Aşağıdaki kodları Bış bir standart modüle kopyalayın.

Sub Auto_Open()
Application.Visible = False
userform1.Show
End Sub
Sub Auto_Close()
Application.Visible = True
End Sub