Çözüldü kopyala-yapıştır hakk.

[GursoyC]

Merhaba arkadaşlar,
Ekteki dosyamda yapmaya çalıştığım şey, yine ekli fotoğrafta da görülebileceği üzere, yanyana olan 2 hücreyi kopyaladığımda, userform'daki iki Textbox'a her bir textbox'a bir hücre gelecek şekilde ayrı ayrı yapıştırmak.

Bunu başarmanın bir yolu var mıdır acaba?

Yani E2:F2'yi kopyala, düğmeye bas, E2 hücresi textbox1'e, F2 hücresi de textbox2'ye yapışsın istiyorum. Mümkün müdür?

Saygılarımla,

 

[veyselemre]

Private Sub CommandButton1_Click()
    Set clipboard = New MSForms.DataObject
    clipboard.GetFromClipboard
    str1 = clipboard.GetText
    str1 = Replace(str1, vbCrLf, "")
    ver = Split(str1, vbTab)
    TextBox1.Text = Trim(ver(0))
    TextBox2.Text = Trim(ver(1))
    Set clipboard = Nothing
End Sub

 

[GursoyC]

Veysel bey, çok teşekkür ederim. Kodlar gayet güzel çalışıyor.
Saygılar.