Macro to multiplying column with cell value on another sheet

[michellin]

Hy guys,

I'm working on a simple macro.

I copying number data from sheet1 column I to the sheet3 column D from d2 to (D not always the same amount) and to AG2 to (AG not always the same amount).

Sheets("sheet1").Select
Columns("I:I").Select
Selection.Copy
Sheets("sheet3").Select
Range("D:D,AG:AG").Select
ActiveSheet.Paste

that's good till there.

When those number are paste, i want to multiply them by the cell a3 on the sheet4 and paste the result in the same cell they was.

Like this
if sheet4!A3=2
d2 =5*(2) after macro d2=10
d3 =15*(2) after macro d3=30
till the end of last row

i can't find a way to do it after the paste of the column with some formula, so i need to be inserted in a macro to run it after the paste of the 2 column D and AG. Or just do it on D and i will copy the final result to AG.

Thanks guys

Franck

 

[Z51]

This code should work for you...

Sub Franck()
Dim lastrow As Long
lastrow = Sheets("Sheet1").Range("I" & Rows.Count).End(xlUp).Row

With Sheets("Sheet3").Range("D1:D" & lastrow & ",AG1:AG" & lastrow)
    .Value = Sheets("Sheet1").Range("I1:I" & lastrow).Value
    Sheets("Sheet4").Range("A3").Copy
    .PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False
End With
Application.CutCopyMode = False
End Sub

 

[michellin]

OMG Z51 you the best man.

I've try so many thing, but you got it man. Taht work very well

Thanks

Franck