Copy cell contents?
Mark,
Not sure I follow, as column K is 11 not 12, but something like:
With Cells(i, 10)
If .Value 0.2 Then .Offset(0, 1).Value = .Offset(0, -9).Value & ":
3 day average is " & Format(.Value, "0%")
End With
NickHK
"Mark J" wrote in message
...
i have a workbook with the following table:
Row column(A) column(J) column(K)
1 PS003_Pump1.RT_Daily -0.08
2 PS003_Pump2.RT_Daily -0.04
3 PS010_Pump1.RT_Daily 0.04
4 PS010_Pump2.RT_Daily 0.02
5 PS005_Pump1.RT_Daily -0.03
6 PS005_Pump2.RT_Daily -0.03
7 PS006_Pump1.RT_Daily -0.06
8 PS006_Pump2.RT_Daily 0.21
9 PS007_Pump1.RT_Daily -0.01
10 PS007_Pump2.RT_Daily -0.01
i would like to have the following:
If Cells(i, 10) 0.2 Then
Cells(i, 12) = PS006_Pump2.RT_Daily & "3 day average is" & 21%
as below:
Row column(A) column(J) column(K)
1 PS003_Pump1.RT_Daily -0.08
2 PS003_Pump2.RT_Daily -0.04
3 PS010_Pump1.RT_Daily 0.04
4 PS010_Pump2.RT_Daily 0.02
5 PS005_Pump1.RT_Daily -0.03
6 PS005_Pump2.RT_Daily -0.03
7 PS006_Pump1.RT_Daily -0.06
8 PS006_Pump2.RT_Daily 0.21 PS006_P2 = 21%
9 PS007_Pump1.RT_Daily -0.01
10 PS007_Pump2.RT_Daily -0.01
|