Add Checkbox inb vba

[dilipgr]

i'm using adding the value in particular cell is like this.

Private Sub CommandButton1_Click()
'///ListIndex starts at zero so add 1 to get the row.. To get the column add two because Column A does not contain a date
rData.Cells(Me.ComboBox1.ListIndex + 1, Me.ComboBox2.ListIndex + 2).Value = Me.TextBox1.Value
ThisWorkbook.Save
ComboBox1.Text = ""

End Sub


Private Sub CommandButton2_Click()
End
End Sub


Private Sub UserForm_Initialize()
Dim iX As Integer
'define the range of data
Set rData = Sheet1.Range("A3").CurrentRegion.Offset(1)
With Me
'/// load the stations from column 1 of the data range
.ComboBox1.List = rData.Columns(1).Value
'///load the dates formatted as short date e.g. 01/01/15
For iX = 2 To rData.Columns.Count
.ComboBox2.AddItem Format(Sheet1.Cells(3, iX).Value, "short date")
Next iX
End With
End Sub




Now i add one checkbox near combobox1. if the value of checkbox is true then value of A4 to A95 is 100. can any one give the code

 

[dilipgr]

kindly solve anyone