| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check Box
Hi
Please see my code below. I would like to know if anyone can help me to add a condition in the code. The condition is basically that I have a check box on a form, and if the box is check (with a tick obviously) then I want the word "Yes" to be cell G for the corresponding row. Is there any way I can add some code to the below to do this? Private Sub SendAppReq_Click() If Sheets("Appointments").Range("A3").Value = "" _ Then R = 3 Else R = Sheets("Appointments").Range("A3").End(xlDown).Row + 1 End If With Sheets("Appointments") .Range("A" & R).Value = BookApp.OwnerN.Text .Range("B" & R).Value = BookApp.AppDur.Text .Range("C" & R).Value = BookApp.LaptopDetails.Text .Range("D" & R).Value = BookApp.PropDate.Text .Range("E" & R).Value = BookApp.PropTime.Text .Range("F" & R).Value = BookApp.AppDur.Text Unload BookApp BookApp.Hide End With Unload BookApp End Sub Thanking you in advance |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Check Box
Maybe...
Private Sub SendAppReq_Click() If Sheets("Appointments").Range("A3").Value = "" _ Then R = 3 Else R = Sheets("Appointments").Range("A3").End(xlDown).Row + 1 End If With Sheets("Appointments") .Range("A" & R).Value = Me.OwnerN.Text .Range("A" & R).Value = Me.OwnerN.Text .Range("B" & R).Value = Me.AppDur.Text .Range("C" & R).Value = Me.LaptopDetails.Text .Range("D" & R).Value = Me.PropDate.Text .Range("E" & R).Value = Me.PropTime.Text .Range("F" & R).Value = Me.AppDur.Text if me.checkbox1.value = true then .Range("G" & R).Value = "yes" else .Range("G" & R).Value = "" '"no" '??? end if End With Unload Me End Sub Me refers to the object that owns the code--in this case, I'm guessing it's the BookApp userform. zak wrote: Hi Please see my code below. I would like to know if anyone can help me to add a condition in the code. The condition is basically that I have a check box on a form, and if the box is check (with a tick obviously) then I want the word "Yes" to be cell G for the corresponding row. Is there any way I can add some code to the below to do this? Private Sub SendAppReq_Click() If Sheets("Appointments").Range("A3").Value = "" _ Then R = 3 Else R = Sheets("Appointments").Range("A3").End(xlDown).Row + 1 End If With Sheets("Appointments") .Range("A" & R).Value = BookApp.OwnerN.Text .Range("B" & R).Value = BookApp.AppDur.Text .Range("C" & R).Value = BookApp.LaptopDetails.Text .Range("D" & R).Value = BookApp.PropDate.Text .Range("E" & R).Value = BookApp.PropTime.Text .Range("F" & R).Value = BookApp.AppDur.Text Unload BookApp BookApp.Hide End With Unload BookApp End Sub Thanking you in advance -- Dave Peterson |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Check Box
Hi
Thanks for getting back to me, when i try your code i get an error (yellow highlight) on the .Range("A" & R).Value = Me.OwnerN.Text line. Any ideas?? Thanks again. "Dave Peterson" wrote: Maybe... Private Sub SendAppReq_Click() If Sheets("Appointments").Range("A3").Value = "" _ Then R = 3 Else R = Sheets("Appointments").Range("A3").End(xlDown).Row + 1 End If With Sheets("Appointments") .Range("A" & R).Value = Me.OwnerN.Text .Range("A" & R).Value = Me.OwnerN.Text .Range("B" & R).Value = Me.AppDur.Text .Range("C" & R).Value = Me.LaptopDetails.Text .Range("D" & R).Value = Me.PropDate.Text .Range("E" & R).Value = Me.PropTime.Text .Range("F" & R).Value = Me.AppDur.Text if me.checkbox1.value = true then .Range("G" & R).Value = "yes" else .Range("G" & R).Value = "" '"no" '??? end if End With Unload Me End Sub Me refers to the object that owns the code--in this case, I'm guessing it's the BookApp userform. zak wrote: Hi Please see my code below. I would like to know if anyone can help me to add a condition in the code. The condition is basically that I have a check box on a form, and if the box is check (with a tick obviously) then I want the word "Yes" to be cell G for the corresponding row. Is there any way I can add some code to the below to do this? Private Sub SendAppReq_Click() If Sheets("Appointments").Range("A3").Value = "" _ Then R = 3 Else R = Sheets("Appointments").Range("A3").End(xlDown).Row + 1 End If With Sheets("Appointments") .Range("A" & R).Value = BookApp.OwnerN.Text .Range("B" & R).Value = BookApp.AppDur.Text .Range("C" & R).Value = BookApp.LaptopDetails.Text .Range("D" & R).Value = BookApp.PropDate.Text .Range("E" & R).Value = BookApp.PropTime.Text .Range("F" & R).Value = BookApp.AppDur.Text Unload BookApp BookApp.Hide End With Unload BookApp End Sub Thanking you in advance -- Dave Peterson |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Check Box
I changed BookApp to Me. Because I thought you were populating the cell with
the value from the control on that same userform as the commandbutton. If that's not true, then change it back to BookApp. Maybe add a line to help you debug: msgbox R & vblf & me.ownern.text or msgbox R & vblf & bookapp.ownern.text to make sure that the variables are what you expected. zak wrote: Hi Thanks for getting back to me, when i try your code i get an error (yellow highlight) on the .Range("A" & R).Value = Me.OwnerN.Text line. Any ideas?? Thanks again. "Dave Peterson" wrote: Maybe... Private Sub SendAppReq_Click() If Sheets("Appointments").Range("A3").Value = "" _ Then R = 3 Else R = Sheets("Appointments").Range("A3").End(xlDown).Row + 1 End If With Sheets("Appointments") .Range("A" & R).Value = Me.OwnerN.Text .Range("A" & R).Value = Me.OwnerN.Text .Range("B" & R).Value = Me.AppDur.Text .Range("C" & R).Value = Me.LaptopDetails.Text .Range("D" & R).Value = Me.PropDate.Text .Range("E" & R).Value = Me.PropTime.Text .Range("F" & R).Value = Me.AppDur.Text if me.checkbox1.value = true then .Range("G" & R).Value = "yes" else .Range("G" & R).Value = "" '"no" '??? end if End With Unload Me End Sub Me refers to the object that owns the code--in this case, I'm guessing it's the BookApp userform. zak wrote: Hi Please see my code below. I would like to know if anyone can help me to add a condition in the code. The condition is basically that I have a check box on a form, and if the box is check (with a tick obviously) then I want the word "Yes" to be cell G for the corresponding row. Is there any way I can add some code to the below to do this? Private Sub SendAppReq_Click() If Sheets("Appointments").Range("A3").Value = "" _ Then R = 3 Else R = Sheets("Appointments").Range("A3").End(xlDown).Row + 1 End If With Sheets("Appointments") .Range("A" & R).Value = BookApp.OwnerN.Text .Range("B" & R).Value = BookApp.AppDur.Text .Range("C" & R).Value = BookApp.LaptopDetails.Text .Range("D" & R).Value = BookApp.PropDate.Text .Range("E" & R).Value = BookApp.PropTime.Text .Range("F" & R).Value = BookApp.AppDur.Text Unload BookApp BookApp.Hide End With Unload BookApp End Sub Thanking you in advance -- Dave Peterson -- Dave Peterson |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Check Box
Hi Dave
Your correct, I am populating the cell with the value from the control box which is on the same userform. Shall I still try the msgBox code below? "Dave Peterson" wrote: I changed BookApp to Me. Because I thought you were populating the cell with the value from the control on that same userform as the commandbutton. If that's not true, then change it back to BookApp. Maybe add a line to help you debug: msgbox R & vblf & me.ownern.text or msgbox R & vblf & bookapp.ownern.text to make sure that the variables are what you expected. zak wrote: Hi Thanks for getting back to me, when i try your code i get an error (yellow highlight) on the .Range("A" & R).Value = Me.OwnerN.Text line. Any ideas?? Thanks again. "Dave Peterson" wrote: Maybe... Private Sub SendAppReq_Click() If Sheets("Appointments").Range("A3").Value = "" _ Then R = 3 Else R = Sheets("Appointments").Range("A3").End(xlDown).Row + 1 End If With Sheets("Appointments") .Range("A" & R).Value = Me.OwnerN.Text .Range("A" & R).Value = Me.OwnerN.Text .Range("B" & R).Value = Me.AppDur.Text .Range("C" & R).Value = Me.LaptopDetails.Text .Range("D" & R).Value = Me.PropDate.Text .Range("E" & R).Value = Me.PropTime.Text .Range("F" & R).Value = Me.AppDur.Text if me.checkbox1.value = true then .Range("G" & R).Value = "yes" else .Range("G" & R).Value = "" '"no" '??? end if End With Unload Me End Sub Me refers to the object that owns the code--in this case, I'm guessing it's the BookApp userform. zak wrote: Hi Please see my code below. I would like to know if anyone can help me to add a condition in the code. The condition is basically that I have a check box on a form, and if the box is check (with a tick obviously) then I want the word "Yes" to be cell G for the corresponding row. Is there any way I can add some code to the below to do this? Private Sub SendAppReq_Click() If Sheets("Appointments").Range("A3").Value = "" _ Then R = 3 Else R = Sheets("Appointments").Range("A3").End(xlDown).Row + 1 End If With Sheets("Appointments") .Range("A" & R).Value = BookApp.OwnerN.Text .Range("B" & R).Value = BookApp.AppDur.Text .Range("C" & R).Value = BookApp.LaptopDetails.Text .Range("D" & R).Value = BookApp.PropDate.Text .Range("E" & R).Value = BookApp.PropTime.Text .Range("F" & R).Value = BookApp.AppDur.Text Unload BookApp BookApp.Hide End With Unload BookApp End Sub Thanking you in advance -- Dave Peterson -- Dave Peterson |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Check Box
Yes.
And make sure that Appointments is not protected. zak wrote: Hi Dave Your correct, I am populating the cell with the value from the control box which is on the same userform. Shall I still try the msgBox code below? "Dave Peterson" wrote: I changed BookApp to Me. Because I thought you were populating the cell with the value from the control on that same userform as the commandbutton. If that's not true, then change it back to BookApp. Maybe add a line to help you debug: msgbox R & vblf & me.ownern.text or msgbox R & vblf & bookapp.ownern.text to make sure that the variables are what you expected. zak wrote: Hi Thanks for getting back to me, when i try your code i get an error (yellow highlight) on the .Range("A" & R).Value = Me.OwnerN.Text line. Any ideas?? Thanks again. "Dave Peterson" wrote: Maybe... Private Sub SendAppReq_Click() If Sheets("Appointments").Range("A3").Value = "" _ Then R = 3 Else R = Sheets("Appointments").Range("A3").End(xlDown).Row + 1 End If With Sheets("Appointments") .Range("A" & R).Value = Me.OwnerN.Text .Range("A" & R).Value = Me.OwnerN.Text .Range("B" & R).Value = Me.AppDur.Text .Range("C" & R).Value = Me.LaptopDetails.Text .Range("D" & R).Value = Me.PropDate.Text .Range("E" & R).Value = Me.PropTime.Text .Range("F" & R).Value = Me.AppDur.Text if me.checkbox1.value = true then .Range("G" & R).Value = "yes" else .Range("G" & R).Value = "" '"no" '??? end if End With Unload Me End Sub Me refers to the object that owns the code--in this case, I'm guessing it's the BookApp userform. zak wrote: Hi Please see my code below. I would like to know if anyone can help me to add a condition in the code. The condition is basically that I have a check box on a form, and if the box is check (with a tick obviously) then I want the word "Yes" to be cell G for the corresponding row. Is there any way I can add some code to the below to do this? Private Sub SendAppReq_Click() If Sheets("Appointments").Range("A3").Value = "" _ Then R = 3 Else R = Sheets("Appointments").Range("A3").End(xlDown).Row + 1 End If With Sheets("Appointments") .Range("A" & R).Value = BookApp.OwnerN.Text .Range("B" & R).Value = BookApp.AppDur.Text .Range("C" & R).Value = BookApp.LaptopDetails.Text .Range("D" & R).Value = BookApp.PropDate.Text .Range("E" & R).Value = BookApp.PropTime.Text .Range("F" & R).Value = BookApp.AppDur.Text Unload BookApp BookApp.Hide End With Unload BookApp End Sub Thanking you in advance -- Dave Peterson -- Dave Peterson -- Dave Peterson |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Copy and move check box (check boxes) with new cell link? | Excel Worksheet Functions | |||
| Loop through column(s) to check values, perform action based on check | Excel Programming | |||
| Increase size of a Forms Check Box (click on to enter check mark) | Excel Discussion (Misc queries) | |||
| Check if Conditional Format is True or False / Check cell Color | Excel Worksheet Functions | |||
| Enable check box in protected sheet + group check boxes | Excel Discussion (Misc queries) | |||
Hybrid Mode
