asked on

VB6- Copy a row from excel and paste it in Text2 VB6 issue

Hello all

I'm trying to copy a row from an excel file and paste it in my VB6 project in a Text2 as multiline but i have a hard time with it.

I'm trying this way:

If Text2 <> "" Then
MsgBox "Data already in Textbox"
Else
Dim varData
    If Selection.Rows.Count > 1 Then
        varData = Join(Application.Transpose(Selection.Value), vbCr)
    ElseIf Selection.Columns.Count > 1 Then
        varData = Join(Application.Transpose(Application.Transpose(Selection.Value)), vbCr)
    Else
        varData = Selection.Value
    End If
    With Me.Text2

        .Text = varData
    End With
 End If

Open in new window

But i have this run time error 91.

How can i fix this please?

Thanks again for your help

Rgonzo1971

Hi,

Shouldn't you refer to TextBox2 on line 12

Regards

Wilder1626

ASKER

Hi Rgonzo1971

Well the textbox is in a VB6 form and not in Excel.
The texbox name is Text2.
Thanks

Wilder1626

ASKER

I have also tried like this but it past everything on 1 row

Private Sub test1_Click()
    Dim sText As String

    sText = Clipboard.GetText
    Text2.Text = Trim(Replace(sText, vbTab, vbCrLf))

End Sub

Open in new window

Guy Hengel [angelIII / a3]

the runtime error 91 means "object not set" ...
on which line? on which variable?

while stepping through the code, it should become obvious

ASKER CERTIFIED SOLUTION

Guy Hengel [angelIII / a3]

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

SOLUTION

Rgonzo1971

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Wilder1626

ASKER

Hi angelIII

Yes, the Text2 is set to be Multiline but still pasting on the same row using that code bellow:

Private Sub test1_Click()
    Dim sText As String

    sText = Clipboard.GetText
    Text2.Text = Trim(Replace(sText, vbTab, vbCrLf))

End Sub

Open in new window

Wilder1626

ASKER

I think i had a issue with the textbox itself.

I deleted that textbox and created a new one and called it Text3 with a Multiline yes and now it work with :

Private Sub test1_Click()
    Dim sText As String

    sText = Clipboard.GetText
    Text3.Text = Trim(Replace(sText, vbTab, vbCrLf))

End Sub

Open in new window

Guy Hengel [angelIII / a3]

good :)

Wilder1626

ASKER

Thanks again for your help

all good now