i would help adjusting this code it doesn't work it gives me error when i transfer data to sheet
i want to begins transfer data from a23:g23 of course automatically when i fill a new data insert a new row under a23:g23 with the same format
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
When the code errors out, place your cursor over the yellow line above the "i". It should tell you that the current value for i = 7. That means that 1 to 6 went ok. So I checked TextBox7 and ComboBox7. Which showed the reason for the error: you don't have a ComboBox7.
you are right but despite correcting your note it is still problem it only transfer describe the brand in combobox1 and ignore the rest of me.controls also it begins from row40 not 23 i attache my image
Yes, under that line, when the code line is yellow. So when you get the error, click on Debug and then place your cursor over the "i". Doesn't matter which of the three "i" 's.
- Posts
- 2599
- Registration date
- Sunday September 12, 2010
- Status
- Moderator
- Last seen
- March 24, 2020
401For i = 1 To 7
- Posts
- 2599
- Registration date
- Sunday September 12, 2010
- Status
- Moderator
- Last seen
- March 24, 2020
401