Buscar datos en una hoja y copiarlo junto con celda
Saludos, que te encuentres bien, tengo una consulta, cuento con un
textbox, donde doy el valor a buscar en una hoja, si me puedes ayudar
a buscar en toda la hoja, este valor, y que siga buscando por que se
repite, y cuando lo encuentre lo copie en otra hoja, junto con un dato
que hay 2 celdas más arriba.
Gracias de antemano
textbox, donde doy el valor a buscar en una hoja, si me puedes ayudar
a buscar en toda la hoja, este valor, y que siga buscando por que se
repite, y cuando lo encuentre lo copie en otra hoja, junto con un dato
que hay 2 celdas más arriba.
Gracias de antemano
1 respuesta
Respuesta
1
¿Te refieres al buscarv o al buscar del menú Edición? Porque son 2 cosas completamente diferentes.
Saludos, me refiero a programación, no uso mucho el buscarb, ya que todo lo hao en entorno vb,
Seria más o menos así
variable = valor a buscar
Seleccionar la hoja donde buscara
Seleccionar el rango donde buscara
Para las celdas con datos
Si el valor de la celda es igual a valor a buscar entonces
seleccionar la celda, selecional la ceda de arriba y copiarlas
abrir la hoja donde se copiaran los datos
buscar una fila desocupada, partirndo del rango A2
si la fila esta desocupada pegar los datos
volver a seleccionar la hoja y rango donde se buscan los datos
repetir el procedimiento hasta que recorran todas las celdas estén revisadas
Gracias
Seria más o menos así
variable = valor a buscar
Seleccionar la hoja donde buscara
Seleccionar el rango donde buscara
Para las celdas con datos
Si el valor de la celda es igual a valor a buscar entonces
seleccionar la celda, selecional la ceda de arriba y copiarlas
abrir la hoja donde se copiaran los datos
buscar una fila desocupada, partirndo del rango A2
si la fila esta desocupada pegar los datos
volver a seleccionar la hoja y rango donde se buscan los datos
repetir el procedimiento hasta que recorran todas las celdas estén revisadas
Gracias
Pues basicamente ya tenès el pseudocòdigo, faltarìa completarlo un poco pero serìa (tenès que depurarlo un poco mas)
sub buscayPega(Valor, hojaDesde as String, hojaHasta as String)
dim enDonde as Range, iter as Range
Set enDonde = Sheets(hojaDesde).Range("A1:D1000")
For Each iter in enDonde
If iter.value = Valor Then
iter.offset(-1,0).Resize(2,1).Copy
Sheets(hojaHasta).Select
Range("A65500").End(xlUp).Offset(1,0).Select
Activecell.PasteSpecial xlPasteValues
End If
next iter
End Sub
La verdad que no lo verifique pero debería ser más o menos como te puse más arriba.
sub buscayPega(Valor, hojaDesde as String, hojaHasta as String)
dim enDonde as Range, iter as Range
Set enDonde = Sheets(hojaDesde).Range("A1:D1000")
For Each iter in enDonde
If iter.value = Valor Then
iter.offset(-1,0).Resize(2,1).Copy
Sheets(hojaHasta).Select
Range("A65500").End(xlUp).Offset(1,0).Select
Activecell.PasteSpecial xlPasteValues
End If
next iter
End Sub
La verdad que no lo verifique pero debería ser más o menos como te puse más arriba.
Gracias, me servirá de mucho, es que de repente me ago líos con las declaraciones, y por eso uno necesita una luz en el camino, que lo guie.
Gracias por todo y que estés bien
Gracias por todo y que estés bien