Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
dynamically creating check boxes
I want to have a column in my spreadsheet that contains a
check box. I need to dynamically create this once the spreadsheet is populated from the database. I am doing this by copying a dummy one I have on a hidden sheet with the following code: Sub CreateCheckBoxes() NumRows = Range("B4").CurrentRegion.Rows.Count + 4 For x = 5 To NumRows Sheets("Input Data").Shapes("chkView").Copy Range("J" & x).Select ActiveSheet.Paste Selection.Name = "chkView" & Range("A" & x).Value Next x End Sub I want the check box to be in each row of the J column. But, it doesn't place it here. Anyone know how to force the check box to do into a particular cell without hard-coding the position coordinates? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
dynamically creating check boxes
You say without hard code the position settings, but why not? Why struggle?
Sub CreateCheckBoxes() NumRows = Range("B4").CurrentRegion.Rows.Count + 4 For x = 5 To NumRows Sheets("Input Data").Shapes("chkView").Copy Range("J" & x).Select ActiveSheet.Paste Selection.Name = "chkView" & Range("A" & x).Value With Range("J" & x) selection.Top = .Top selection.Left = .Left ' and possibly 'selection.Height = .Height 'selection.Width = .Width End With Next x End Sub -- Regards, Tom Ogilvy "Erin" wrote in message ... I want to have a column in my spreadsheet that contains a check box. I need to dynamically create this once the spreadsheet is populated from the database. I am doing this by copying a dummy one I have on a hidden sheet with the following code: Sub CreateCheckBoxes() NumRows = Range("B4").CurrentRegion.Rows.Count + 4 For x = 5 To NumRows Sheets("Input Data").Shapes("chkView").Copy Range("J" & x).Select ActiveSheet.Paste Selection.Name = "chkView" & Range("A" & x).Value Next x End Sub I want the check box to be in each row of the J column. But, it doesn't place it here. Anyone know how to force the check box to do into a particular cell without hard-coding the position coordinates? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
dynamically creating check boxes
Your solution is perfect, and just what I needed to do.
And I don't consider this hard-coding at all, since it is dynamically placed at the cell coordinates of the appropriate cell. THANKS! -----Original Message----- You say without hard code the position settings, but why not? Why struggle? Sub CreateCheckBoxes() NumRows = Range("B4").CurrentRegion.Rows.Count + 4 For x = 5 To NumRows Sheets("Input Data").Shapes("chkView").Copy Range("J" & x).Select ActiveSheet.Paste Selection.Name = "chkView" & Range("A" & x).Value With Range("J" & x) selection.Top = .Top selection.Left = .Left ' and possibly 'selection.Height = .Height 'selection.Width = .Width End With Next x End Sub -- Regards, Tom Ogilvy "Erin" wrote in message ... I want to have a column in my spreadsheet that contains a check box. I need to dynamically create this once the spreadsheet is populated from the database. I am doing this by copying a dummy one I have on a hidden sheet with the following code: Sub CreateCheckBoxes() NumRows = Range("B4").CurrentRegion.Rows.Count + 4 For x = 5 To NumRows Sheets("Input Data").Shapes("chkView").Copy Range("J" & x).Select ActiveSheet.Paste Selection.Name = "chkView" & Range("A" & x).Value Next x End Sub I want the check box to be in each row of the J column. But, it doesn't place it here. Anyone know how to force the check box to do into a particular cell without hard-coding the position coordinates? . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
dynamically creating check boxes
Different interpretation of hard-coding <g now is see what you were
saying. -- Regards, Tom Ogilvy ] "Erin" wrote in message ... Your solution is perfect, and just what I needed to do. And I don't consider this hard-coding at all, since it is dynamically placed at the cell coordinates of the appropriate cell. THANKS! -----Original Message----- You say without hard code the position settings, but why not? Why struggle? Sub CreateCheckBoxes() NumRows = Range("B4").CurrentRegion.Rows.Count + 4 For x = 5 To NumRows Sheets("Input Data").Shapes("chkView").Copy Range("J" & x).Select ActiveSheet.Paste Selection.Name = "chkView" & Range("A" & x).Value With Range("J" & x) selection.Top = .Top selection.Left = .Left ' and possibly 'selection.Height = .Height 'selection.Width = .Width End With Next x End Sub -- Regards, Tom Ogilvy "Erin" wrote in message ... I want to have a column in my spreadsheet that contains a check box. I need to dynamically create this once the spreadsheet is populated from the database. I am doing this by copying a dummy one I have on a hidden sheet with the following code: Sub CreateCheckBoxes() NumRows = Range("B4").CurrentRegion.Rows.Count + 4 For x = 5 To NumRows Sheets("Input Data").Shapes("chkView").Copy Range("J" & x).Select ActiveSheet.Paste Selection.Name = "chkView" & Range("A" & x).Value Next x End Sub I want the check box to be in each row of the J column. But, it doesn't place it here. Anyone know how to force the check box to do into a particular cell without hard-coding the position coordinates? . |
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 | |||
Creating checkable boxes w/o the check box forms tool | Excel Worksheet Functions | |||
Creating fillalbe check boxes in excel by double clicking on chec. | Excel Discussion (Misc queries) | |||
Enable check box in protected sheet + group check boxes | Excel Discussion (Misc queries) | |||
Creating Formula using check boxes | Excel Discussion (Misc queries) |