I'm stuck (again)

[Himszy]

Hi

I'm trying to write that if a variable equals a value then find a cell that
equals the same amount and type in another variables value in to the cell
next to it.

Thanks Michael

 

[Tom Ogilvy]

Dim rng as Range
Dim myVar as Long
myVar = 10
set rng = cells.find(10)
if not rng is nothing then
rng.offset(0,1).Value = 20
end if

 

[Nick Hodge]

Michael

I think I understand, try and work this through

Sub TwoVariables()
Dim Var1 As Variant, Var2 As Variant
Dim RFound As Range
Var1 = "Nick"
Var2 = "NotNick"
Set RFound = Worksheets("Sheet1").Range("A1:A100").Find _
(Var1, LookIn:=xlValues)
If Not RFound Is Nothing Then
RFound.Offset(0, 1).Value = Var2
End If
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
(e-mail address removed)

 

[Guest]

Not to be picky since this is excelent code, but I think that it should read...

set rng = cells.find(myVar)

Tom you really write the nicest code...

 

[Tom Ogilvy]

Jim,

good catch, thanks.

--
Regards,
Tom Ogivy

Not to be picky since this is excelent code, but I think that it should read...

set rng = cells.find(myVar)

Tom you really write the nicest code...

 

[Himszy]

Michael

I think I understand, try and work this through

Sub TwoVariables()
Dim Var1 As Variant, Var2 As Variant
Dim RFound As Range
Var1 = "Nick"
Var2 = "NotNick"
Set RFound = Worksheets("Sheet1").Range("A1:A100").Find _
(Var1, LookIn:=xlValues)
If Not RFound Is Nothing Then
RFound.Offset(0, 1).Value = Var2
End If
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
(e-mail address removed)

Thanks Tom, Jim and Nick