Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find the correct sheet then find a value on that sheet
This code, in sheet 1 module, searches the other sheets for a date in cell A1. When found then that sheet's A1 is activated by the Application.Goto RngD, True. What I am having trouble with is, now that I have the correct sheet I want to GoTo a value on that sheet that is listed from C5: to however many rows there may be. (I assume the GoTo A1 is not needed as the code that finds the Column C value will have a GoTo.) I have tried a Set RngS = .Find(What:=FindStore, _etc. following the Set RngD = .Find(What:=FindDate, _ but I get an Improper Call error. So find the sheet that has the Range("D8").Value and once there find the Cell in Column C that has the Range("D4").Value and GoTO it. Thanks. Howard Option Explicit Sub SearchAOne() Dim FindDate As String Dim FindStore As String 'Dimmed but not used yet Dim RngD As Range Dim RngS As Range 'Dimmed but not used yet Dim ws As Worksheet Dim cnt As Integer cnt = 0 FindStore = Range("D4").Value 'Dimmed but not used yet FindDate = Range("D8").Value If Trim(FindDate) < "" Then For Each ws In Worksheets With ws.Range("A1") Set RngD = .Find(What:=FindDate, _ After:=.Cells(.Cells.Count), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=False) If Not RngD Is Nothing Then Application.Goto RngD, True cnt = 1 End If End With Next ws If cnt < 1 Then MsgBox "Nothing Found!" End If End If End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find value from one sheet and replace value in second sheet | Excel Programming | |||
macro to find data from one sheet & copy in another sheet | Excel Programming | |||
Find value in sheet 1 and copy matching row from sheet 2 | Excel Programming | |||
Find value from sheet 1 on sheet 2 and copy to an offset from there | Excel Programming | |||
how to find and copy values on sheet 2, based on a list on sheet 1 | Excel Programming |