ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Macro to search range for a portion of a specific value and if findit - then paste formula in another cell. (https://www.excelbanter.com/excel-programming/448326-macro-search-range-portion-specific-value-if-findit-then-paste-formula-another-cell.html)

JenIT

Macro to search range for a portion of a specific value and if findit - then paste formula in another cell.
 
The below formula works as written for a set value of "66-1007" in column B.. My problem is I need to search for a portion of that value as the 66-10 will remain constant, but the last 2 numbers might change (it is always a 7 character field). I have tried the * and # variables and have not had luck. Any help would be appreciated.

With Sheets("myworkshet")
Set rngToSearch = .Range(.Range("B2"), _
.Cells(Rows.Count, "B").End(xlUp))
End With

For Each rng In rngToSearch
With rng
If .Value = "66-1007" Then
Cells(.Row, "K").FormulaR1C1 = "=(RC[6]+RC[7])*0.08615"
End If
End With
Next rng

Ron Rosenfeld[_2_]

Macro to search range for a portion of a specific value and if find it - then paste formula in another cell.
 
On Tue, 5 Mar 2013 13:32:26 -0800 (PST), JenIT wrote:

The below formula works as written for a set value of "66-1007" in column B. My problem is I need to search for a portion of that value as the 66-10 will remain constant, but the last 2 numbers might change (it is always a 7 character field). I have tried the * and # variables and have not had luck. Any help would be appreciated.

With Sheets("myworkshet")
Set rngToSearch = .Range(.Range("B2"), _
.Cells(Rows.Count, "B").End(xlUp))
End With

For Each rng In rngToSearch
With rng
If .Value = "66-1007" Then
Cells(.Row, "K").FormulaR1C1 = "=(RC[6]+RC[7])*0.08615"
End If
End With
Next rng


Look at help for Like:

Try: if .value like "66-10##" then

JenIT

Macro to search range for a portion of a specific value and iffind it - then paste formula in another cell.
 
Perfect!!!! Thanks - amazing how one little word makes a world of difference. Your help is much appreciated.


All times are GMT +1. The time now is 03:37 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com