anybody help !!!!

kshitij_dch

Active Member
Joined
Apr 1, 2012
Messages
362
Office Version
  1. 365
  2. 2016
  3. 2007
Platform
  1. Windows
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
 

Excel Facts

Create a Pivot Table on a Map
If your data has zip codes, postal codes, or city names, select the data and use Insert, 3D Map. (Found to right of chart icons).
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
 
Upvote 0

Forum statistics

Threads
1,211,806
Messages
6,104,089
Members
447,893
Latest member
Hoosier605

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top