Replace Cell Contents with other cell contents with "If"

[brumby]

Hiya all,

I would like to do the following if possible :-

1. When my staff enter a value in 3 Columns ( I, J, K ), a hard copy is pasted as a reference point in for example ( AA,AB,AC ). This is a fixing point.

Then as changes are made in for example column X, eg a qty is entered. The corresponding Cell in I, J, K takes account of this and re calculates from the fixing point and uses that as base for calculation?

Does this make sense?

Many Thanks folks

 

[Roxxien]

Can you more clear about what you are talking about with your second portion?

Then as changes are made in for example column X, eg a qty is entered. The corresponding Cell in I, J, K takes account of this and re calculates from the fixing point and uses that as base for calculation?

 

[brumby]

sorry, it does not read clear lol.

example would be, if user entered a number on row 2, The cells in I,J,K would look at the reference point ( AA, AB, AC ) and adjust by the qty in x2?

hope it makes sense

 

[Roxxien]

Ok, with the information that you gave me, I created a loop that should do what you want.
I supposed you want a loop because you won't have only 1 row of data.

Option Explicit


Sub SaveAndAdjust()
Dim i As Currency


'Loop through 100 row
For i = 2 To 100
    'Copy to AA,AB and AC
    Cells(i, 27) = Cells(i, 9)
    Cells(i, 28) = Cells(i, 10)
    Cells(i, 29) = Cells(i, 11)
    
    'Adjust by X
    Cells(i, 9) = Cells(i, 9) * Cells(i, 24)
    Cells(i, 10) = Cells(i, 10) * Cells(i, 24)
    Cells(i, 11) = Cells(i, 11) * Cells(i, 24)
Next


End Sub