How do I return a cell address in Excel VBA?

I have written this code to find the address of a particular cell in a worksheet.

I would like to return the value of the cell that was clicked on, but when I debug it, it always returns "".

Sub GetAddress(). Dim wb As Workbook. Dim ws As Worksheet. Set wb = ThisWorkbook. Set ws = wb.Worksheets("Sheet1") Set cell = ws.Cells.Find(What:=ws.Range("C12").Value, LookIn:=xlFormulas,
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True). End Sub. If you want to use Cells.Find and have its results be a range, you should use its optional second argument (optional, not required), which can be a single cell, a range of cells, or an entire column.

Use the range argument (range()) with a comma delimited list of cells to find, eg. Dim cell As Range. ' Find cell A2, if we know it is there. Set cell = ws.Range("A2").Find(What:=ws.Range("C12"), LookIn:=xlFormulas,
MatchCase:=True). ' Find cell B1, if we know it is there. Set cell = ws.Range("B1").Find(What:=ws.Range("C12"), LookIn:=xlFormulas,
MatchCase:=True). If Not cell Is Nothing Then. Debug.Print cell.Address
End If. This only makes sense, though, if you're looking for a specific cell, which isn't in the worksheet. For the worksheet to search the worksheet's cells for a specific value, use a non-standard name. That will make Find return a Range with all of the matches.

How do you find the string in a range in Excel?

From the MSDN Documentation: Sub Exists(what, where, msg). Dim cell As Range. For Each cell In where. If LenB(cell.Value) > 0 And cell.Value <> what Then
msg = msg & vbCrLf & "Value in cell " & cell.Address & " not " & what & "."
End If. Next. End Sub. For your question: Option Explicit. Sub test(). Dim str As String. Dim lng As Long. str = "1. This is a string" lng = Len(str). MsgBox (lng). Exists str, Sheet1.

How to get cell value in a string VBA?

I am trying to get cell values in a string, but I'm not able to get the cell values.

Here is my code. Sub TextToString(). Dim a As Range. Dim rng1 As Range. Dim rng2 As Range. Set rng1 = Range("B1:B2"). Set rng2 = Range("B3:B4"). A = rng1. For Each cell In rng2. If cell.Value = 1 Then a = a & " " & cell.Value End If. Next. End Sub. I have also tried using cell.Value2 and still got the same result.

Please let me know what am I doing wrong. Thanks. In your code, you are looping through rng2 and checking for a value of 1. You only need to check for 1 within rng1.

Also, I assume you want to concatenate all values that meet the criteria. In that case, it would look like this: Sub TextToString(). Dim a As String. Set rng1 = Range("B1:B2"). Set rng2 = Range("B3:B4"). A = "". For Each cell In rng1