And values same row column after column

[nunocabete]

Hello everyone, i have this code in a work but after work the data like there is its difficulty so i decide change. Instead past i the same column line after line i would like to past always in the same line but column after column, but i am unsuccessful at the moment.

OLD CODE

Private Sub OKButton_Click()
Dim emptyRow As Long
Sheets(1).Activate
emptyRow = WorksheetFunction.CountA(Range("Q:Q")) + 1
Cells(emptyRow, 17).Value = INDUÇÃOTextBox.Value
Unload Me
End Sub

i try change but save me the values always in the same cell.

NEW CODE TRYING

Private Sub OKButton_Click()
Dim emptyRow As Long
Sheets(1).Activate
emptyColumn = WorksheetFunction.Count(Range("B2")) + 1
Cells(2, emptyColumn).Value = INDUÇÃOTextBox.Value
Unload Me
End Sub

The excel with the sample its to big almost 2mb and the forum dont allow

[arlu1201]

Your question is not very clear. Why dont you attach a sample excel file so we can understand better?

To Attach a File:

1. Click on Go Advanced.
2. In the frame Attach Files you will see the button Manage Attachments
3. Click the button.
4. A new window will open titled Manage Attachments - Excel Forum.
5. Click the Browse... button to locate your file for uploading.
6. This will open a new window File Upload.
7. Once you have located the file to upload click the Open button. This window will close.
8. You are now back in the Manage Attachments - Excel Forum window.
9. Click the Upload button and wait until the file has uploaded.
10. Close the window and then click Submit.

[StevenM]

How about?

Private Sub OKButton_Click()
    Dim emptyRow As Long
    Sheets(1).Activate
    emptyRow = Cells(Rows.Count, "Q").End(xlUp).Row + 1
    Cells(emptyRow, "Q").Value = INDUÇÃOTextBox.Value
    Unload Me
End Sub

Private Sub OKButton_Click()
    Dim emptyRow As Long
    Sheets(1).Activate
    emptyColumn = Cells(2, Columns.Count).End(xlToLeft).Column + 1
    Cells(2, emptyColumn).Value = INDUÇÃOTextBox.Value
    Unload Me
End Sub

[nunocabete]

Perfect, already try lots of think and its so simple.

But now i don t know how to do one thing

If i want to star in a specif cell in that line how to do that???