Holen Sie sich einen Bereich („“) von einem (.find) oder (vlookup)

Question

meine Frage ist:

Ich habe mich für einen Weg, einen Bereich zu bekommen, wo ich von der .Find(fecha) das erste Ergebnis bekam

Dim fecha As Date 
Dim fechadepo As Date 
Dim deposito As Double 
fecha = Sheets("Ingresos").range("J4") 
fechadepo = Sheets("Datos").range("P7:P1500").Find(fecha) 
deposito = fechadepo 

Ignorieren Sie die letzte Zeile, die reale Sache, dass ein ich in diesen variablen gespeichert werden soll (deposito) ist die Zelle neben diesem

ich würde lieben, um den Bereich zu sparen, wo ich das Ergebnis bekam von Verwenden Sie .Find(fecha), um activecell.offset(0.2) zu verwenden und auf diese Weise Informationen in vari zu speichern Fähigkeiten, dann diese Variablen speichern sie in einer Spalte in einem anderen Blatt, ich habe Stunden und Stunden suchen, es war nicht umsonst, ich habe eine Menge Tipps gelernt, um die Leistungscodierung zu verbessern, vermeiden Sie die Verwendung (.select) (. aktiv) (yeah, und ich hoffe, activecell zu verwenden ...) usw.

Wie der Titel sagt, habe ich versucht, application.vlookup() zu verwenden, bekomme ich das Ergebnis auch, aber ich behalte, ohne das Ergebnis in einen Bereich zu speichern, oder Speichere den Bereich, in dem ich das Ergebnis in eine Variable umgewandelt habe, das macht mich verrückt!

Ich schätze Ihre Hilfe wirklich, und gute Nacht

Answer 1

Sie nah dran sind. .Find gibt ein Objekt Range zurück, aber Sie steckten es direkt in eine Date. Dies sollte für Sie arbeitet:

Dim fecha As Date, fechadepo As Date 
Dim rge_Find As Range, findAddr As String 
fecha = Sheets("Ingresos").Range("J4") 
Set rge_Find = Range("P7:P1500").Find(fecha) 
fechadepo = rge_Find.Value 
findAddr = rge_Find.Address 

In Bezug auf Ihre Kommentare über vlookup, anmd erweitert Option ist die Index/Spiel Combo, die mehr Funktionalität als ein vlookup bietet. Siehe this und this.

Answer 2

Sheets("Datos").range("P7:P1500").Find(fecha).offset(0,2)

Das ist die richtige Antwort !!

T ting ting! Wir haben einen Gewinner !! dank @jsotola

Ich fühle mich jetzt so dumm ... Kein Problem, ich bin sehr neu in dieser Welt