Pls. Help with Macro!!!!

[lovebaby]

I'm trying to create a macro that will execute the funcyion below on a
three columns of data (C, E,F). The columns can vary in length from 26
to 60+ entries.

How do go about doing this?


=IF(E2=0,"? RT = "&TEXT(F2,"###.00"),C2)


Any help is very much appreciated.

 

[Paul Lautman]

I'm trying to create a macro that will execute the funcyion below on a
three columns of data (C, E,F). The columns can vary in length from 26
to 60+ entries.

How do go about doing this?


=IF(E2=0,"? RT = "&TEXT(F2,"###.00"),C2)


Any help is very much appreciated.

I don't understand, why do you need a macro?

 

[lovebaby]

The operation below is just of about 60 operations it takes us to go
from raw to presentable data.

We need a macro to totally automate this. It is a time consuming and
non-productive waste of time for us to do these manually. We do about
100 sheets like this a week.

 

[Dave Peterson]

You didn't say where this formula would go.

You didn't say how you determine the rows to put it in (row 2 to ???).

But this may give you an idea...

Option Explicit
Sub testme()

Dim LastRow As Long

With Worksheets("Sheet1")
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
With .Range("G2:G" & LastRow)
.Formula = "=IF(E2=0,""? RT = ""&TEXT(F2,""###.00""),C2)"
'do you want to keep the formua or convert to values?
'.Value = .Value
End With
End With

End Sub

I stuck it in column G (G2 through the last row used in column A).

 

[lovebaby]

I want the operation (formula) to take place in Column A. I need to
populate A using data from columns C,E, and F. I just need the data; I
wouldn't need the formula to remain, afterwords.

 

[Dave Peterson]

And you find the last row how????

I want the operation (formula) to take place in Column A. I need to
populate A using data from columns C,E, and F. I just need the data; I
wouldn't need the formula to remain, afterwords.

 

[lovebaby]

I don't how. Every spreadsheet generated can be different from 30 to 60
entries.

I ther no way Excel can determine how big my array is and perform the
operations on what is there?

 

[Dave Peterson]

Can you pick out a column that's always has something in it.

If you can, then you can modify the suggestion like:

Option Explicit
Sub testme()

Dim LastRow As Long

With Worksheets("Sheet1")
LastRow = .Cells(.Rows.Count, "X").End(xlUp).Row
With .Range("A2:A" & LastRow)
.Formula = "=IF(E2=0,""? RT = ""&TEXT(F2,""###.00""),C2)"
'do you want to keep the formua or convert to values?
.Value = .Value
End With
End With

End Sub

Just change the X to that column letter in this line:
LastRow = .Cells(.Rows.Count, "X").End(xlUp).Row

I don't how. Every spreadsheet generated can be different from 30 to 60
entries.

I ther no way Excel can determine how big my array is and perform the
operations on what is there?

 

[lovebaby]

thanks, I'll try it.

Can you pick out a column that's always has something in it.

If you can, then you can modify the suggestion like:

Option Explicit
Sub testme()

Dim LastRow As Long

With Worksheets("Sheet1")
LastRow = .Cells(.Rows.Count, "X").End(xlUp).Row
With .Range("A2:A" & LastRow)
.Formula = "=IF(E2=0,""? RT = ""&TEXT(F2,""###.00""),C2)"
'do you want to keep the formua or convert to values?
.Value = .Value
End With
End With

End Sub

Just change the X to that column letter in this line:
LastRow = .Cells(.Rows.Count, "X").End(xlUp).Row