Public Range

[Eziooh]

Hello, I think it is a noob question but...

How can I range a cell with a variable to a module?
My code right now is pretty simple, this is on the actual sheet:

Private Sub Worksheet_Change(ByVal Target As Range)    If Target.Address = "$D$7" Then
        Call Procurar
    End If
End Sub

And in the module code I want to use a variable which ranges the target address...
Is it possible? If it is, how?
Thanks for the time!

 

[Fluff]

One option is

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$D$7" Then
        Call Procurar[COLOR=#ff0000](Target)[/COLOR]
    End If
End Sub

and

Sub Procurar([COLOR=#ff0000]Rng As Range[/COLOR])
MsgBox Rng.Address
End Sub

 

[Eziooh]

And how do I use it here? Sorry bothering...

Sub Procurar(rng As Range)Dim lastrow As Long
Dim Cell, cRange As Range
Dim valor, resultado As String
MsgBox rng.Address
valor = Worksheets("sheet1").Range() ' I need it here

End Sub

 

[Fluff]

Is the Change event running on sheet1?

 

[Eziooh]

Yes.

 

[Fluff]

In that case

Sub Procurar(rng As Range)
Dim lastrow As Long
Dim Cell, cRange As Range
Dim valor, resultado As String

valor = rng.Value ' I need it here

End Sub

 

[Eziooh]

Thank you so much, you saved my life!

 

[Eziooh]

Is there a way to get the cell which rng takes? i.e "D7" or "E7"?

 

[Fluff]

Do you mean you want the cell address, rather than the value?

 

[Eziooh]

I need the cell address and the value of it, I will need the cell address later on the module code...