UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Jhonsi70


Buenos días,

Necesito ayuda con una macro que funciona en otros libros y en este no consigo que funcione.

La macro original se creo en un Excel 2007 y ahora trabajo con excel 2010 y no se si es ese el problema.

La macro tiene que buscar el valor de la celda B6 de la Hoja "FICHA PROV" en la columna A de las Hojas que van desde ENERO a DIC, y copiar las filas que en la columna contengan el valor de B6 (desde la columna D hasta la N), en "FICHA PROV" columna A.

Adjunto archivo, aver si asi queda mas claro

Gracias por la ayuda.
Archivos
prueba compras.zip
No tienes los permisos para descargar los archivos.
(19 KB)

Jhonsi70


Buenas noches,

Ya he resuelto el problema.

En vez de:

For x = 10 To Hoja.Range("A" & Rows.Count).End(xlUp).Row
      If Hoja.Range("A" & x) = Trim(Ficha.Range("B2")) Then
         Hoja.Range("D" & x & ":N" & x).Copy
         Ficha.Range("A" & Fila).PasteSpecial Paste:=xlValues


He quitado la instrucción Trim, que me servia para buscar valores alfanumericos, y ahora sólo tiene que buscar númericos

Queda así:




For x = 10 To Hoja.Range("A" & Rows.Count).End(xlUp).Row
      If Hoja.Range("A" & x) = (Ficha.Range("B2")) Then
         Hoja.Range("D" & x & ":N" & x).Copy
         Ficha.Range("A" & Fila).PasteSpecial Paste:=xlValues
        

Gracias a todos!!

Igtelo


Hola Jhonsi70.

Aunque ya lo resolviste, otra alternativa para que no trabajes con matrices, es más corto el código y ahorras memoria.

Sólo le agregas lo de la protección.

Saludos
Ignacio Téllez
Archivos
Jhonsi70-Concentrar.zip
No tienes los permisos para descargar los archivos.
(24 KB)

Jhonsi70


Muy buenos días Igtelo,

Gracias por darme solución más práctica a mi macro.

Lo he probado y funciona bien.

Saludos!!

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.