ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   New Users to Excel (https://www.excelbanter.com/new-users-excel/)
-   -   format an entire column to contain checkbox activex control (https://www.excelbanter.com/new-users-excel/61019-format-entire-column-contain-checkbox-activex-control.html)

blunoob

format an entire column to contain checkbox activex control
 
I learned out how to insert one checkbox, but how do I insert them down an
entire row - copy paste paste special does not seem to work..

Norman Jones

format an entire column to contain checkbox activex control
 
Hi Blunoob,

Try:

'=============
Public Sub Tester01()
Dim SH As Worksheet
Dim rng As Range
Dim rCell As Range

Set SH = ActiveSheet '<<==== CHANGE

Set rng = SH.Range("A1:A100") '<<==== CHANGE

Application.ScreenUpdating = False
For Each rCell In rng
With SH.CheckBoxes.Add(rCell.Left + 5, _
rCell.Top - 2, 5, 5)
.Caption = ""
.LinkedCell = rCell.Address(0, 0)
End With
rCell.Font.Color = vbWhite
Next rCell
Application.ScreenUpdating = True

End Sub
'<<=============

If you are new to macros, you may wish to visit David McRitchie's 'Getting
Started With Macros And User Defined Functions' at:

http://www.mvps.org/dmcritchie/excel/getstarted.htm


---
Regards,
Norman



"blunoob" wrote in message
...
I learned out how to insert one checkbox, but how do I insert them down an
entire row - copy paste paste special does not seem to work..





All times are GMT +1. The time now is 09:53 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com