if checbox value true then

[dilipgr]

ennaku oru chinna code than vennum. checkbox true va iruntha combobox2 la date set pannitu textbox la na yenna value kudukurano athu antha column fulla vanthudanum yaracham help pannunga ple.

Station	1	2	3	4	5	6	7
Sun	Mon	Tue	Wed	Thu	Fri	Sat
AKM
APK
ARR
ART
ASD
ATR
BTU
CDM
CGL
CJB
CMM

<colgroup><col><col span="7"></colgroup><tbody>
</tbody>

Option Explicit


Dim rData As Range


Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ComboBox1.Visible = False
Else
If CheckBox1.Value = False Then
ComboBox1.Visible = True
End If
End If
End Sub


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("A4").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