j.stitt1
01-11-2018, 01:30 PM
I am new at working with VBA and have found online some VBA code to copy cell range value from a formula then delete the formula and paste the value in the cells.
And it works fine but i would like it to do now is if Cell B10 ="L" to run the VBA code and also repeat the code for each row. my current last row is 352
Sub Copy_Paste_Remove_Formula()
Dim smallrng As Range
For Each smallrng In Sheets("Job Quote Hours").Range("j10:EO10").Areas
With smallrng
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
.Cells(1).Select
End With
Application.CutCopyMode = False
Next smallrng
For Each smallrng In Sheets("Job Quote Hours").Range("J10:EO10").Areas
With smallrng
.Value = .Value
End With
Next smallrng
End Sub
And it works fine but i would like it to do now is if Cell B10 ="L" to run the VBA code and also repeat the code for each row. my current last row is 352
Sub Copy_Paste_Remove_Formula()
Dim smallrng As Range
For Each smallrng In Sheets("Job Quote Hours").Range("j10:EO10").Areas
With smallrng
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
.Cells(1).Select
End With
Application.CutCopyMode = False
Next smallrng
For Each smallrng In Sheets("Job Quote Hours").Range("J10:EO10").Areas
With smallrng
.Value = .Value
End With
Next smallrng
End Sub