Hello,
I have a loop with a simple IF, but when i try to multiply the value by the value of another cell it gives the error "Run-time error '13' Type mismatch", could someone help me to correct it?
I have a loop with a simple IF, but when i try to multiply the value by the value of another cell it gives the error "Run-time error '13' Type mismatch", could someone help me to correct it?
VBA Code:
Dim ShSource, ShDest As Worksheet
Dim s, cell As Range
Set ShSource = Worksheets("Planogram")
Set ShDest = Worksheets("VM Supports")
Set s = ShSource.Range("E2:CC2")
For each cell in s
If cell = ShDest.Range("D8") Then ShSource.Range("CI2:CI88").Value = cell.Rows("1:87").Value * ShDest.Range("G8").Value
Next cell
End Sub