User Form -Empty Textboxes

[yeminbek]

Hi friends,.thanks for any help.

I have a userform and it has 50 text boxes in it. and I write the values in the textboxes to the excell sheet when user press click on the userform.

My problem is; generally i dont need to fill all text boxes. For example I fill 5 of them. And when I click, I see these 5 values in the excel sheet as expected.

However when I use Application.CountA.....vba code to count the cells which is not empty, it always shows 50...However 5 of the cells shows value.

Any help really appreciated, I am in trouble

 

[vaskov17]

When you click, you should go through the textboxes and only add the ones that have some text and not the empty ones.

 

[yeminbek]

Thank you very much..I am adding all the text boxes with below code...How can I add only text boxes which has values?

Private Sub CommandButton1_Click()

Dim i As Double
For i = 1 To 50
ThisWorkbook.Sheets("Sheet6").Cells(i , 1).Value = UserForm1.Controls("textbox" & i)

Next i

UserForm1.Hide
End Sub

 

[vaskov17]

Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 1 To 50
        If Trim(UserForm1.Controls("textbox" & i).Text) <> "" Then
            ThisWorkbook.Sheets("Sheet6").Cells(i, 1).Value = UserForm1.Controls("textbox" & i)
        End If
    Next i
    UserForm1.Hide
End Sub