Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
what do I do wrong?
ehmmm... a last question and hopefully I will be done with my sheet...
My sheet contains 2 tables of 4 columns / 17 rows each The data for these tables SHOULD come from an userform (which I've already made). When the "ready" button in the userform is pushed the data should go in the first empty row (this is what I use for this purpose): Private Sub cmdNext_Click() ActiveWorkbook.Sheets("Sheet1").Activate Range("B16").Select Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True Next step is where everything goes wrong: now the data has to be input in the right place and this is what I do: ActiveCell.Value = txtCode1.Value ActiveCell.Offset(0, 1) = txtCode2.Value ActiveCell.Offset(0, 2) = txtDate.Value End sub Apparently this code is not working. All I get is the first line highlighted and that's it. Furthermo when the first table is full (4 colums / 17 rows) I need the data to go to the next table which start at the same hight as the first (say row 16) but 7 columns to the right.... Sorry for the lenght of this but english is not my language and I don't know how to keep it short... Thanks for any help.... |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
what do I do wrong?
Try something like this
Dim lrw as long lrw = Sheets("Sheet1").Cells(Rows.COUNT, "B").End(xlUp).Offset(1,0).Row If lrw < 16 then lrw = 16 End If Sheets("Sheet1").Cells(lrw,2)=txtCode1.Value Sheets("Sheet1").Cells(lrw,3)=txtCode2.Value Sheets("Sheet1").Cells(lrw,4)=txtCode3.Value -- steveB Remove "AYN" from email to respond "antonov" wrote in message .. . ehmmm... a last question and hopefully I will be done with my sheet... My sheet contains 2 tables of 4 columns / 17 rows each The data for these tables SHOULD come from an userform (which I've already made). When the "ready" button in the userform is pushed the data should go in the first empty row (this is what I use for this purpose): Private Sub cmdNext_Click() ActiveWorkbook.Sheets("Sheet1").Activate Range("B16").Select Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True Next step is where everything goes wrong: now the data has to be input in the right place and this is what I do: ActiveCell.Value = txtCode1.Value ActiveCell.Offset(0, 1) = txtCode2.Value ActiveCell.Offset(0, 2) = txtDate.Value End sub Apparently this code is not working. All I get is the first line highlighted and that's it. Furthermo when the first table is full (4 colums / 17 rows) I need the data to go to the next table which start at the same hight as the first (say row 16) but 7 columns to the right.... Sorry for the lenght of this but english is not my language and I don't know how to keep it short... Thanks for any help.... |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
what do I do wrong?
Hello Steve...
I've tried your option but I still get the same error... the line is highlighted and nothing happens "STEVE BELL" wrote in message news:bkzEe.2457$uy3.1136@trnddc05... Try something like this Dim lrw as long lrw = Sheets("Sheet1").Cells(Rows.COUNT, "B").End(xlUp).Offset(1,0).Row If lrw < 16 then lrw = 16 End If Sheets("Sheet1").Cells(lrw,2)=txtCode1.Value Sheets("Sheet1").Cells(lrw,3)=txtCode2.Value Sheets("Sheet1").Cells(lrw,4)=txtCode3.Value -- steveB Remove "AYN" from email to respond "antonov" wrote in message .. . ehmmm... a last question and hopefully I will be done with my sheet... My sheet contains 2 tables of 4 columns / 17 rows each The data for these tables SHOULD come from an userform (which I've already made). When the "ready" button in the userform is pushed the data should go in the first empty row (this is what I use for this purpose): Private Sub cmdNext_Click() ActiveWorkbook.Sheets("Sheet1").Activate Range("B16").Select Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True Next step is where everything goes wrong: now the data has to be input in the right place and this is what I do: ActiveCell.Value = txtCode1.Value ActiveCell.Offset(0, 1) = txtCode2.Value ActiveCell.Offset(0, 2) = txtDate.Value End sub Apparently this code is not working. All I get is the first line highlighted and that's it. Furthermo when the first table is full (4 colums / 17 rows) I need the data to go to the next table which start at the same hight as the first (say row 16) but 7 columns to the right.... Sorry for the lenght of this but english is not my language and I don't know how to keep it short... Thanks for any help.... |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
what do I do wrong?
Does your code look like the below -
If Yes than what line are you refering to. If No than replace your code with this. Make sure that all your references are correct and that the worksheet name is "Sheet1" Compile your code. Put a breakpoint at the first line: lrw = ... Call up the form and use F8 to step through the code Monitor the variable values and let me know where it stops. Private Sub cmdNext_Click() Dim lrw as long lrw = Sheets("Sheet1").Cells(Rows.COUNT, "B").End(xlUp).Offset(1,0).Row If lrw < 16 then lrw = 16 End If Sheets("Sheet1").Cells(lrw,2)=txtCode1.Value Sheets("Sheet1").Cells(lrw,3)=txtCode2.Value Sheets("Sheet1").Cells(lrw,4)=txtCode3.Value End sub -- steveB Remove "AYN" from email to respond "antonov" wrote in message ... Hello Steve... I've tried your option but I still get the same error... the line is highlighted and nothing happens "STEVE BELL" wrote in message news:bkzEe.2457$uy3.1136@trnddc05... Try something like this Dim lrw as long lrw = Sheets("Sheet1").Cells(Rows.COUNT, "B").End(xlUp).Offset(1,0).Row If lrw < 16 then lrw = 16 End If Sheets("Sheet1").Cells(lrw,2)=txtCode1.Value Sheets("Sheet1").Cells(lrw,3)=txtCode2.Value Sheets("Sheet1").Cells(lrw,4)=txtCode3.Value -- steveB Remove "AYN" from email to respond "antonov" wrote in message .. . ehmmm... a last question and hopefully I will be done with my sheet... My sheet contains 2 tables of 4 columns / 17 rows each The data for these tables SHOULD come from an userform (which I've already made). When the "ready" button in the userform is pushed the data should go in the first empty row (this is what I use for this purpose): Private Sub cmdNext_Click() ActiveWorkbook.Sheets("Sheet1").Activate Range("B16").Select Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True Next step is where everything goes wrong: now the data has to be input in the right place and this is what I do: ActiveCell.Value = txtCode1.Value ActiveCell.Offset(0, 1) = txtCode2.Value ActiveCell.Offset(0, 2) = txtDate.Value End sub Apparently this code is not working. All I get is the first line highlighted and that's it. Furthermo when the first table is full (4 colums / 17 rows) I need the data to go to the next table which start at the same hight as the first (say row 16) but 7 columns to the right.... Sorry for the lenght of this but english is not my language and I don't know how to keep it short... Thanks for any help.... |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
what do I do wrong?
The code looks exactely like the one below (I've done copy & paste).
It stops right he Sheets("Sheet1").Cells(lrw,2)=txtCode1.Value the error message is: Run-time error "424" object required "STEVE BELL" wrote in message news:wAAEe.2469$uy3.775@trnddc05... Does your code look like the below - If Yes than what line are you refering to. If No than replace your code with this. Make sure that all your references are correct and that the worksheet name is "Sheet1" Compile your code. Put a breakpoint at the first line: lrw = ... Call up the form and use F8 to step through the code Monitor the variable values and let me know where it stops. Private Sub cmdNext_Click() Dim lrw as long lrw = Sheets("Sheet1").Cells(Rows.COUNT, "B").End(xlUp).Offset(1,0).Row If lrw < 16 then lrw = 16 End If Sheets("Sheet1").Cells(lrw,2)=txtCode1.Value Sheets("Sheet1").Cells(lrw,3)=txtCode2.Value Sheets("Sheet1").Cells(lrw,4)=txtCode3.Value End sub -- steveB Remove "AYN" from email to respond "antonov" wrote in message ... Hello Steve... I've tried your option but I still get the same error... the line is highlighted and nothing happens "STEVE BELL" wrote in message news:bkzEe.2457$uy3.1136@trnddc05... Try something like this Dim lrw as long lrw = Sheets("Sheet1").Cells(Rows.COUNT, "B").End(xlUp).Offset(1,0).Row If lrw < 16 then lrw = 16 End If Sheets("Sheet1").Cells(lrw,2)=txtCode1.Value Sheets("Sheet1").Cells(lrw,3)=txtCode2.Value Sheets("Sheet1").Cells(lrw,4)=txtCode3.Value -- steveB Remove "AYN" from email to respond "antonov" wrote in message .. . ehmmm... a last question and hopefully I will be done with my sheet... My sheet contains 2 tables of 4 columns / 17 rows each The data for these tables SHOULD come from an userform (which I've already made). When the "ready" button in the userform is pushed the data should go in the first empty row (this is what I use for this purpose): Private Sub cmdNext_Click() ActiveWorkbook.Sheets("Sheet1").Activate Range("B16").Select Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True Next step is where everything goes wrong: now the data has to be input in the right place and this is what I do: ActiveCell.Value = txtCode1.Value ActiveCell.Offset(0, 1) = txtCode2.Value ActiveCell.Offset(0, 2) = txtDate.Value End sub Apparently this code is not working. All I get is the first line highlighted and that's it. Furthermo when the first table is full (4 colums / 17 rows) I need the data to go to the next table which start at the same hight as the first (say row 16) but 7 columns to the right.... Sorry for the lenght of this but english is not my language and I don't know how to keep it short... Thanks for any help.... |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
what do I do wrong?
Is this code in the userform module?
Is txtCode1 the Name of a text box? txtCode1 must be the name of an object, and it must have a .Value property. Is Sheet1 the actual tab name of the worksheet? The code is not recognizing one or both of these as objects. Double check. Also you might need to change the structure into something like With Worksheets("Sheet1") .Cells(lrw,2)=txtbox1.value end with -- steveB Remove "AYN" from email to respond "antonov" wrote in message .. . The code looks exactely like the one below (I've done copy & paste). It stops right he Sheets("Sheet1").Cells(lrw,2)=txtCode1.Value the error message is: Run-time error "424" object required "STEVE BELL" wrote in message news:wAAEe.2469$uy3.775@trnddc05... Does your code look like the below - If Yes than what line are you refering to. If No than replace your code with this. Make sure that all your references are correct and that the worksheet name is "Sheet1" Compile your code. Put a breakpoint at the first line: lrw = ... Call up the form and use F8 to step through the code Monitor the variable values and let me know where it stops. Private Sub cmdNext_Click() Dim lrw as long lrw = Sheets("Sheet1").Cells(Rows.COUNT, "B").End(xlUp).Offset(1,0).Row If lrw < 16 then lrw = 16 End If Sheets("Sheet1").Cells(lrw,2)=txtCode1.Value Sheets("Sheet1").Cells(lrw,3)=txtCode2.Value Sheets("Sheet1").Cells(lrw,4)=txtCode3.Value End sub -- steveB Remove "AYN" from email to respond "antonov" wrote in message ... Hello Steve... I've tried your option but I still get the same error... the line is highlighted and nothing happens "STEVE BELL" wrote in message news:bkzEe.2457$uy3.1136@trnddc05... Try something like this Dim lrw as long lrw = Sheets("Sheet1").Cells(Rows.COUNT, "B").End(xlUp).Offset(1,0).Row If lrw < 16 then lrw = 16 End If Sheets("Sheet1").Cells(lrw,2)=txtCode1.Value Sheets("Sheet1").Cells(lrw,3)=txtCode2.Value Sheets("Sheet1").Cells(lrw,4)=txtCode3.Value -- steveB Remove "AYN" from email to respond "antonov" wrote in message .. . ehmmm... a last question and hopefully I will be done with my sheet... My sheet contains 2 tables of 4 columns / 17 rows each The data for these tables SHOULD come from an userform (which I've already made). When the "ready" button in the userform is pushed the data should go in the first empty row (this is what I use for this purpose): Private Sub cmdNext_Click() ActiveWorkbook.Sheets("Sheet1").Activate Range("B16").Select Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True Next step is where everything goes wrong: now the data has to be input in the right place and this is what I do: ActiveCell.Value = txtCode1.Value ActiveCell.Offset(0, 1) = txtCode2.Value ActiveCell.Offset(0, 2) = txtDate.Value End sub Apparently this code is not working. All I get is the first line highlighted and that's it. Furthermo when the first table is full (4 colums / 17 rows) I need the data to go to the next table which start at the same hight as the first (say row 16) but 7 columns to the right.... Sorry for the lenght of this but english is not my language and I don't know how to keep it short... Thanks for any help.... |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Insert Calculated Field (wrong Qty*Price = wrong Amount) | Excel Discussion (Misc queries) | |||
Any wrong with this? | Excel Discussion (Misc queries) | |||
Getting wrong value due to ref? | Excel Discussion (Misc queries) | |||
Please Tell Me What I Am Doing Wrong | Excel Programming | |||
What is wrong?? | Excel Programming |