Paste value to cell relative to FIND result

[GFIJames]

Hi Folks,

I am trying to figure out the VBA code to paste a value from a userform in the cell 20 columns to the right of a cell found using a FIND call. I have the FIND function returning the correct cell but am unsure how to either

a) Return the cell address of the result, eg (1,1), so I can increment the value or
b) Use a relative reference to the result cell to designate the cell to be pasted to.

From the searches on the topic I have only found how to select ranges using the FIND result as the first cell, not how to shift to a different cell using the result as a starting point.

Any help much appreciated.

[HaHoBe]

Hi, GFIJames,

maybe proceed like this (search in Sheet1 Column A for the string from textbox1 on the Userform):

Dim rngFound As Range
Set rngFound = Sheets("Sheet1").Range("A:A").Find(What:=Textbox1.Value, _
    SearchOrder:=xlByColumns, _
    SearchDirection:=xlNext, _
    MatchCase:=True, _
    SearchFormat:=False)

If Not rngFound Is Nothing Then
  rngFound.Offset(0, 20).Value = "just a test"
End If

Set rngFound = Nothing

Ciao,
Holger

[GFIJames]

Cheers Holger,

Does the job wonderfully

Many thanks