Busco ayuda sobre la búsqueda de valores utilizando macros con Microsoft Excel

El motivo de mi consulta es que tengo esta macro que en alguna ocasión me la diste:
ActiveCell.Offset(0, 1).Select
valor = ActiveCell.Value
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(1, 0).End(xlDown)).Select
Set n = Selection.Find(What:=valor)
If Not n Is Nothing Then
MsgBox "EL SIGUIENTE CLIENTE TIENE OTROS PRODUCTOS"
Selection.Find(What:=valor).Activate
Pero si el cliente tiene 10 productos solo me busca y selecciona 1 y necesito que me seleccione y copie los 10 productos y me los pegue en otra hoja

1 Respuesta

Respuesta
1
Claro la macro locaiza un valor porque para eso estaba creada, si necesitas más valores hay que hacer un ciclo que recorra toda la Columna y vaya extrayendo los valores iguales a la otra hoja:
valor=ActiveCell.Value
Do While ActiveCell.Value<>""
If ActiveCell.Value=valor Then
ActiveCell.Copy
Sheets("Hoja2").Select
ActiveSheet.Range("A1").Select
If ActiveCell.Value="" Then
ActiveCell.PasteSpecial
Else
ActiveCell.PasteSpecial
End If
Sheets("Hoja1").Select
ActiveCell.Offset(1,0).Select
Loop
Mira a ver si ahora ya si te sirve
>Un saludo
>Julio
Hola la pegue pero me sale un mensaje de error que dice loop si do
Bien aquí esta corregida:
valor=ActiveCell.Value
Do While ActiveCell.Value<>""
If ActiveCell.Value=valor Then
ActiveCell.Copy
Sheets("Hoja2").Select
ActiveSheet.Range("A1").Select
If ActiveCell.Value="" Then
ActiveCell.PasteSpecial
Else
Do While ActiveCell.Value<>""
End If
Sheets("Hoja1").Select
ActiveCell.Offset(1,0).Select
End If
Loop
Pruebalá y me cuentas.
Esta es la macro que tengo y solo me falta una parte para que funcione bien... esta parte esta marcada más abajo...
Sub PEGADO()
Application.ScreenUpdating = False
Range("F48").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("F48").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("G19").Select
'-------------------------------------
Windows("CARLOS.xls").Activate
'-------------------------------------
ActiveCell.Offset(1, 0).Select
If ActiveCell.Interior.Color = RGB(255, 255, 153) Then
MsgBox ("ACTUALIZAR")
Exit Sub
Else
End If
ActiveCell.Offset(0, 1).Select
valor = ActiveCell.Value
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(1, 0).End(xlDown)).Select
Set n = Selection.Find(What:=valor)
If Not n Is Nothing Then
ActiveCell.Offset(-1, -1).Select
Range(ActiveCell, ActiveCell.Offset(0, 44)).Select
Range(ActiveCell, ActiveCell.Offset(0, 44)).Copy
Sheets("Hoja2").Select
Range("a1").Select
ActiveCell.PasteSpecial
Sheets("Hoja1").Select
ActiveCell.Offset(0, 1).Select
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(1, 0).End(xlDown)).Select
Set n = Selection.Find(What:=valor)
Selection.Find(What:=valor).Activate
valor = ActiveCell.Value
Do While ActiveCell.Value <> ""
If ActiveCell.Value = valor Then
ActiveCell.Offset(0, -1).Select
Range(ActiveCell, ActiveCell.Offset(0, 44)).Select
Range(ActiveCell, ActiveCell.Offset(0, 44)).Copy
Sheets("Hoja2").Select
ActiveSheet.Range("A1").Select
If ActiveCell.Value = "" Then
ActiveCell.PasteSpecial
Else
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.PasteSpecial
End If
Sheets("Hoja1").Select
Range(ActiveCell.Offset(1, 1), ActiveCell.Offset(0, 0).End(xlDown)).Select
Set n = Selection.Find(What:=valor)
Selection.Find(What:=valor).Activate    -----'''''''''''''''pero en esta parte se detiene cuando no encuentra mas valores que correspondan al buscado... esto es lo unico que me falta no se si me puedes ayudar gracias
End If
Loop
Else
ActiveCell.Offset(-1, -1).Select
Range(ActiveCell, ActiveCell.Offset(0, 43)).Select
Range(ActiveCell, ActiveCell.Offset(0, 43)).Copy
'-----------------------------------------------
Windows("FICHA TECNICA CARLOS V13.xls").Activate
'-----------------------------------------------
Range("D13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
End If
End Sub
Lógicamente le has puesto que busque la variable valor y si la encuentra que la seleccione, pero si no la encuentra... no hace nada.
Set n = Selection.Find(What:=valor)
Selection.Find(What:=valor).Activate    -----'''''''''''''''pero en esta parte se detiene cuando no encuentra mas valores que correspondan al buscado... esto es lo unico que me falta no se si me puedes ayudar gracias
Por ejemplo si no lo encuentras sal del ciclo:
If valor Is Nothing Then
Exit Do
End If
End If
Loop
Else
ActiveCell.Offset(-1, -1).Select
Range(ActiveCell, ActiveCell.Offset(0, 43)).Select
Range(ActiveCell, ActiveCell.Offset(0, 43)).Copy
'-----------------------------------------------
Windows("FICHA TECNICA CARLOS V13.xls").Activate
'-----------------------------------------------
Range("D13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
End If
End Sub
No sé si te sirve porque desconozco que quieres hacer cuando no encuentre más valores.
>Un saludo
>Julio

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Utilizar Find en macros o procedimiento similar

Necesitaría que me ayudarais a buscar los distintos nombres de una persona, copiar toda la fila donde aparece, pegarla en otra hoja. Esto con cada nombre que se encuentre igual al indicado por nosotros. Yo lo que he intentado son dos formas pero...
1 respuesta

Macro que copie renglones segun valores en columnas

Tengo el siguiente detalle. En un libro de excel tengo alrededor de miles de registros, con la siguiente estructura: ColA ... Col E col F... Col AK col AL ... Col BD xx dato dato valor1 valor2 ... Valor 3 La cosa es la siguiente quiero que se copie...
1 respuesta

Macro para copiar según nombre de hoja

Tengo una macro con una hoja de registros por filas (hoja total), de esta hoja, con una macro paso los registros que tienen el la columna B:B el nombre de una hoja, a la correspondiente hoja. Esta es la mcro que repito para cada nombre de hoja: Sub...
1 respuesta

Macro que copia celdas sin repetir los datos copiados

Hará cosa de dos meses os consultaba una duda sobre una macro que me copiase celdas de una hoja a otra en determinadas columnas (la pregunta era: "Crear macro que copie celdas si cumplen una condición".) Me funcionó a la perfección, pero usándola me...
1 respuesta

Macro que se ejecute cuando cambia un valor

Tengo un archivo de excel con 2 hojas (hoja1 y hoja2) En la hoja2, hice un código para que se ejecute una macro automáticamente cada que cambien los valores de una celda la D11. Si cambian el valor de esta celda, y le ponen un 0 necesito que me...
1 respuesta

Macro para Comprar dos Rangos e insertar una fila

Como puedo construir una macro que compare dos rangos de fechas en hojas diferentes teniendo en cuenta que en la hoja1 tengo el rango del 15/07/2009 hasta el 16/08/2009 y en la hoja2 tengo valores entre ese rango, cuando se realice la comparación en...
1 respuesta

Macro que busque un valor en una columna y que lo pegue en otra columna de otro libro.

Tengo un señor problema, resulta que tengo 20 datos en la columna E de un libro llamado DESVIACIONES, necesito buscar desde la E7 hasta la E26 los datos mayores o iguales a 0, si encuentra alguno que lo copie y lo peque en otra hoja llamada Hoja2 en...
1 respuesta

Copiar datos de una pestaña a otra con macro

No domino para nada las macros y necesito su ayuda, tengo un archivo con varias pestañas con igual formato y una pestaña más que llamaré "Total" donde pienso concentrar lo contenido en esas pestañas. Necesito copiar el texto de 2 columnas de cada...
1 respuesta

Filtro con hipervínculo

Tengo un fichero Excel con un montón de códigos numéricos que van desde el 00000 al 99999. Lo que quiero hacer es otro fichero Excel que al poner un valor en una celda que estará dentro del rango anterior, por ejemplo 11111, haciendo click en esta...
1 respuesta

Extraer filas excel (con condición) en otra hoja del libro...

Tengo una tabla a7 a n1000 llena de datos. A b c d e g ........n 7 nombre dirección situación articulo fabrica precio ... N Y quisiera extraer en hoja2 las filas que en la columna c "situación" ponga "ok" eliminándolas de la tabla de la hoja 1 y...
1 respuesta