Macro to Find Cell Containing Certain Data

[MikeeRDX]

Hi, Is there a macro that will help me find a cell containing a certain data in a column of data? Much similar to how the Find Last Row or Find Empty Row macro works but instead, I would like to select an existing data from a drop down menu and have it find that data and bring it to view. Thank you in advance!

 

[Momentman]

This code assumes the value being sought for is in cell A1 and the search is in column G. The code selects the cell that matches the search value, if no value is found, it does nothing

Sub finddate()
    On Error Resume Next
    Range("G1:G" & Range("G" & Rows.Count).End(xlUp).Row).Find(Cells(1, 1), Cells(1, "G")).Select
End Sub

 

[MikeeRDX]

HI....Thank you for your help. I plugged it in but it doesn't do anything. Here is how my data is setup. The value being sought is in cell K6. The column of data I'm trying to match the value with is in column "b" and it starts at B7. This is what I did from your instruction.

On Error Resume Next
Range("b7:b" & Range("b" & Rows.Count).End(xlUp).Row).Find(Cells(11, 6), Cells(11, "b")).Select
End Sub

 

[Momentman]

Cell K6 should be

Cells(6,11)

not the other way round and B7 would be

 cells(7, "B")

SO

Sub finddate()    On Error Resume Next
    Range("B7:B" & Range("B" & Rows.Count).End(xlUp).Row).Find(Cells(6, 11), Cells(7, "B")).Select
End Sub

 

[MikeeRDX]

Thank you for your help. I believe I know what is wrong now and it due to the way my data is setup. You see, I currently have my data setup to full from another sheet. For example, the actual data is on Sheet1. But I need it to be copied (=if(sheet1!Q15>0,Sheet1!Q15," "). The original formula to copy over the data is what preventing the code to operate. I still need the setup in this manner because I'm using this sheet to input additional data. Is there a way to make this work given the current setup?