Code: Select all
Wb2.ActiveSheet.Columns("B").Find(Cell.Value).OffSet(0,7).Value := Cell.OffSet(0,8).Value
Code: Select all
Wb2.ActiveSheet.Columns("B").Find(Cell.Value).OffSet(0,7).Value := Cell.OffSet(0,8).Value
Code: Select all
while Wb2.Range("B" A_Index).Value
Val:= Round(Wb2.Range("B" A_Index).value), Wb2.Range("B" A_Index).Value:= Val*10+8 ; or: Val . 8
Code: Select all
For c In xl.Intersect(xl.range("b:d"), xl.ActiveSheet.UsedRange) ; or just xl.range("b:b")
c.value := c.value ? c.text . 8 : "" ; or c.value * 10 + 8