Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Search Problem
Got this to work on the active sheet but I cant get it to work on the rest,
any ideals? Private Sub CommandButton19_Click() Dim MyValue Dim NewValue Dim wksh As Worksheet MyValue = InputBox("Enter search value", "Search Value", Sheets("setup").[a11]) NewValue = InputBox("Enter replace value", "Replace Value") If NewValue < False Then Range("b11") = NewValue End If For i = 1 To 12 SName = Choose(i, "jan", "feb", "march", "april", "may", "june", "july", "aug", "sept", "oct", "nov", "dec") Set wksh = Worksheets(SName) Search.Range("n10:n170").Value If Cells.Value = MyValue Then cell.Value = Range("b11").Value End If Next End Sub what it is doing is looking at a cells value and then it looks for that value in the other sheets and changes that value to the new value Still Learning David |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Data search problem | Excel Discussion (Misc queries) | |||
having a problem with IF and SEARCH | Excel Discussion (Misc queries) | |||
Xl search problem | Excel Discussion (Misc queries) | |||
Problem with search | Excel Worksheet Functions | |||
Problem with search | Excel Worksheet Functions |