Home |
Search |
Today's Posts |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() thanks very much for your help. i'm definitely a BEGINNER, and any help is greatly appreaciated. so how would that apply to the following code? what else would i need to add/initialize etc? in other words, how can i add that to this code to make it work? thanks!! Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdClearForm_Click() Call UserForm_Initialize End Sub Private Sub cmdOK_Click() ActiveWorkbook.Sheets("Rough-In Schedule").Activate Range("C3").Select Do If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True ActiveCell.Value = txtAddress.Value ActiveCell.Offset(1, 0) = txtCity.Value ActiveCell.Offset(2, 0) = cboBuilder.Value ActiveCell.Offset(3, 0) = txtSuperintendent.Value ActiveCell.Offset(4, 0) = txtPlanNumber.Value ActiveCell.Offset(5, 0) = txtEnteredBy.Value ActiveCell.Offset(7, 0) = Calendar2.Value ActiveCell.Offset(8, 0) = txtMapsco.Value ActiveCell.Offset(6, 0) = Calendar1.Value If optDallas = True Then ActiveCell.Offset(9, 0).Value = "Dallas" ElseIf optFtWorth = True Then ActiveCell.Offset(9, 0).Value = "FortWorth" End If If optGas = True Then ActiveCell.Offset(10, 0).Value = "Gas" ElseIf optElectric = True Then ActiveCell.Offset(10, 0).Value = "Electric" End If Range("C3").Select End Sub Private Sub UserForm_Initialize() txtAddress.Value = " " txtCity.Value = " " txtSuperintendent.Value = " " txtPlanNumber.Value = " " txtEnteredBy.Value = " " txtMapsco.Value = " " With cboBuilder ..AddItem "HORTON" ..AddItem "ASHTON WOODS" ..AddItem "WEEKLEY" ..AddItem "TOLL BROTHERS" ..AddItem "LAND STAR" ..AddItem "DREES" ..AddItem "MORRISON" ..AddItem "GRAHAM HART" ..AddItem "GRAND" ..AddItem "REIG/STONE BROOK" ..AddItem "OUTBACK" End With cboBuilder.Value = " " optDallas = True optFtWorth = False optGas = True optElectric = False txtAddress.SetFocus End Sub optDallas = True optFtWorth = False optGas = True optElectric = False txtAddress.SetFocus End Sub -- stew0720 ------------------------------------------------------------------------ stew0720's Profile: http://www.excelforum.com/member.php...o&userid=35687 View this thread: http://www.excelforum.com/showthread...hreadid=554741 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
find last none empty cell | Excel Discussion (Misc queries) | |||
To find empty cell | Excel Programming | |||
Find Empty Cell in Row | Excel Programming | |||
Find 1st Empty Cell: How to? | Excel Programming | |||
Find Empty Cell | Excel Programming |