anybody help !!!!

[kshitij_dch]

Compile error comming Argument not optional
code:
For Each c In Range
Set ID = sh2.Range("E:E").Find(c.Value, LookIn:=xlValues)
If Not ID Is Nothing Then
sh2.Range("I" & ID.Row) = sh2.Range("F" & ID.Row) - sh1.Range("I" & c.Row)
End If
Next
code:

bold line is where error is coming

 

[gsistek]

You need to define what range c is in.

 

[bikeordie1]

It appears you don't have a range specified.

Ex:
For each c in Range(??).cells

 

[kshitij_dch]

Dim wb1 As Workbook, wb2 As Workbook, sh1 As Worksheet, sh2 As Worksheet, lr As Long, rng As Range
Dim ID As Range
Set wb1 = Workbooks("chkins tst.xlsx") 'Need actual wb name
Set wb2 = Workbooks("staff tst.xlsx") 'Need actual wb name
Set sh1 = wb1.Sheets(Sheet1) 'Edit sheet name
Set sh2 = wb2.Sheets(Sheet1) 'Edit sheet name
lr = sh1.Cells(Rows.Count, "H").End(xlUp).Row
Set rng = sh1.Range("H2:H" & lr)
For Each c In Range
Set ID = sh2.Range("E:E").Find(c.Value, LookIn:=xlValues)
If Not ID Is Nothing Then
sh2.Range("I" & ID.Row) = sh2.Range("F" & ID.Row) - sh1.Range("I" & c.Row)
End If
Next


this is a full code i have in which error is comming

 

[gsistek]

Change the line
For Each c In Range
to
For Each c in rng