How to assign a value for cell
I Have a warning Variable 'cell' is used before it has been assigned a value. A null reference exception could result at runtime.
I tried to fix this with the code 'AddHandler(cell.Value)' but it did not work
Please can I have some help
[code]
Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click
Dim Forms As New Form1
Forms.ListBox1.ClearSelected()
Globals.ThisWorkbook.Sheets.Equals("A2:H5000").ToS tring()
Dim ThisWorkBook As String
Dim Combotext As String
Dim ListText As String
Dim startDate As Date
Dim endDate As Date
Dim name As String
Dim site As String
Dim range As Excel.Range
startDate = cmbStartDate.ValueMember
endDate = cmbEndDate.ValueMember
name = cmbEmployee.ValueMember
site = cmbSiteReference.ValueMember
If cmbStartDate.ValueMember = "" Or cmbEndDate.ValueMember = "" Or cmbEmployee.ValueMember = "" Or cmbSiteReference.ValueMember = "" Then
MsgBox("Make sure you select all values from drop downs", vbCritical, "Missing Values Error")
Exit Sub
End If
'Dim extra_hours As Long
' To account for total hours worked by the person in given time
Dim total_hours As Long
total_hours = 0
'extra_hours = 0
Dim i As Long
Dim Count, count2 As Long
Count = 0
count2 = 2
' sheet2.Cells(1, 2).Value = "test"
'Application.ScreenUpdating = False
'Sheet1.Activate
'Application.ScreenUpdating = False
'MsgBox ActiveSheet.name
Dim checkBox1 As New CheckBox
For i = 2 To 65536
Dim cell As Excel.Range
AddHandler(cell.Value)?
If checkBox1.Checked = True Then
If cell(i, 1).Value >= startDate And cell(i, 1).Value <= endDate And cell(i, 2).Value = name And cell(i, 3).Value = site Then
[\code]
|