transfer data from userform to sheet

[abdelfattah]

hi guys
i have userform contains 35 textbox and 18 combobox i would transfer data to sheet i try make the code but it gives me error this line
[TABLE="width: 574"]
<tbody>[TR]
[TD="class: xl65, width: 574, colspan: 7"][/TD]
[/TR]
</tbody>[/TABLE]
[TABLE="width: 574"]
<tbody>[TR]
[TD="class: xl65, width: 574, colspan: 7"].Cells(Lastrow, i).Value = Me.Controls("TextBox" & "combobox" & i)
the error message
could not find the specified object[/TD]
[/TR]
</tbody>[/TABLE]
this is my code

Private Sub CommandButton1_Click()
  Dim My_sh As Worksheet
  Set My_sh = Worksheets("sheet1") 
 Dim Lastrow As Integer  
Dim i%  Application.ScreenUpdating = False 
 With My_sh    Lastrow = .Cells(Rows.Count, 1).End(3).Row + 1  
  .Range(.Cells(Lastrow - 1, 1), .Cells(Lastrow - 1, 7)).Copy    
.Cells(Lastrow, 1).PasteSpecial Paste:=xlPasteFormats  
  For i = 1 To 7     
 .Cells(Lastrow, i).Value = Me.Controls("TextBox" & "combobox" & i)    
  Me.Controls("TextBox" & "combobox" & i) = ""   
 Next 
 End With 
 Application.ScreenUpdating = True  
Application.CutCopyMode = False  
MsgBox "ok"
end sub

 

[abdelfattah]

Replace your code with this
- the code should run without failing and provide details of missing TextBoxes and ComboBoxes in message box

Private Sub CommandButton1_Click()
    Dim My_sh As Worksheet
    Set My_sh = Worksheets("sheet1")
    Dim Lastrow As Integer, i As Integer
    Dim t As String, c As String
    Application.ScreenUpdating = False
    With My_sh
        Lastrow = .Cells(Rows.Count, 1).End(3).Row + 1
        .Range(.Cells(Lastrow - 1, 1), .Cells(Lastrow - 1, 7)).Copy
        .Cells(Lastrow, 1).PasteSpecial Paste:=xlPasteFormats
        For i = 1 To 7
            On Error Resume Next
                Debug.Print Me.Controls("TextBox" & i).Name
                If Err.Number <> 0 Then t = t & vbCr & "TextBox" & i
                On Error GoTo 0
            On Error Resume Next
                Debug.Print Me.Controls("ComboBox" & i).Name
                If Err.Number <> 0 Then c = c & vbCr & "ComboBox" & i
                On Error GoTo 0
            On Error Resume Next
            .Cells(Lastrow, i).Value = Me.Controls("TextBox" & i) & Me.Controls("ComboBox" & i)
            On Error GoTo 0
        Next
     End With
      
     Application.CutCopyMode = False
    MsgBox t & vbCr & c
End Sub

how i can make from a23:g23
i try but gives me error

Lastrow = .Cells(Rows.Count, 1).End(23).Row + 1

 

[Yongle]

how i can make from a23:g23

make what ?

i try but gives me error

Lastrow = .Cells(Rows.Count, 1).End(23).Row + 1

Try

[COLOR=#333333]Lastrow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1[/COLOR]

 

[abdelfattah]

make what ?





Try

[COLOR=#333333]Lastrow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1[/COLOR]

you seem don't understand me i would transfer data from the range a23:g23 if you're confusing i'll attach my file

 

[Yongle]

I understand : Transfer data from A23:G23

I do not understand : Where are you putting those 7 values ?

 

[abdelfattah]

I understand : Transfer data from A23:G23

I do not understand : Where are you putting those 7 values ?

ok buddy attaced two images to understand my request th first image the data in user form and the second image is data in my sheet stay focus the range in my sheet 7 columns but the rows begin from 23
https://ufile.io/vacqe2o4
https://ufile.io/k8rtrtpa

 

[abdelfattah]

and this is my file would you check,please
https://ufile.io/rqsd8e96

 

[Yongle]

I am not able to download your files
I hope someone else is able to help you

 

[abdelfattah]

I am not able to download your files
I hope someone else is able to help you

honestly i appreciate your efforts waiting some one help me