Guanjin Peter
Active Member
- Joined
- May 21, 2008
- Messages
- 429
**nevermind my question...it woun't help if if I put 2 IFs together**
I want to modify the below code to check for a matches.
If sh.cells(intRow,10).value = worksheets("sheet1").cells(3,11).value
which is a string value
AND
if
'If CStr(Sh.Cells(intRow, 1).Value) = Worksheets("Sheet1").Cells(3, 2).Value
which is a date value
I want to modify the below code to check for a matches.
If sh.cells(intRow,10).value = worksheets("sheet1").cells(3,11).value
which is a string value
AND
if
'If CStr(Sh.Cells(intRow, 1).Value) = Worksheets("Sheet1").Cells(3, 2).Value
which is a date value
Code:
Do While Sh.Cells(intRow, 5).Value <> ""
If CStr(Sh.Cells(intRow, 10).Value) = Worksheets("Sheet1").Cells(3, 11).Value Then
'If CStr(Sh.Cells(intRow, 1).Value) = Worksheets("Sheet1").Cells(3, 2).Value Then
Worksheets("Sheet1").Range("a3") = "Date"
Worksheets("Sheet1").Range("a4") = "Area"
Worksheets("Sheet1").Range("j3") = "Driver"
Worksheets("Sheet1").Range("j4") = "Vehicle"
Worksheets("Sheet1").Range("a5") = " "
Worksheets("Sheet1").Range("a6") = "S/NO"
Worksheets("Sheet1").Range("b5") = " "
Worksheets("Sheet1").Range("b6") = "CustID"
Worksheets("Sheet1").Range("c5") = " "
Worksheets("Sheet1").Range("c6") = "Customer"
Worksheets("Sheet1").Range("d5") = " "
Worksheets("Sheet1").Range("d6") = "Invoice"
Worksheets("Sheet1").Range("e5") = " "
Worksheets("Sheet1").Range("e6") = "Remarks"
proid = Sh.Cells(intRow, 6).Value
pro = Sh.Cells(intRow, 7).Value
Set rProd = Worksheets("Sheet1").Cells(5, Columns.count).End(xlToLeft)
rProd.Offset(0, 1).Value = proid
rProd.Offset(1, 1).Value = pro
custID = Sh.Cells(intRow, 4).Value
cust = Sh.Cells(intRow, 5).Value
Set rCust = Worksheets("Sheet1").Range("b" & Columns.count).End(xlUp)
rCust.Offset(1, 0).Resize(, 2) = Array(cust, custID)
qty = Sh.Cells(intRow, 8).Value
Worksheets("Sheet1").Cells(rCust.Row + 1, rProd.Column + 1).Value = qty 'Cells(,start at which column?)
End If
'End If
intRow = intRow + 1
Loop
Last edited: