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.]

jorgec


Hola Buenas Tardes

Estimado Foro, su apreciable ayuda en poder crear una macro que compare 2 columnas ( Columna A de hoja1 vs Columna A de hoja 2) la celda a comparar esta cada 3 filas y si es igual copie la cantidad de la celda de la Columna B de la Hoja 1 a la Columna B de la Hoja 2 y si no es igual copie la celda de la columna A y B  de la Hoja1 a la Hoja 2. 

De antemano. Gracias
Archivos
MacroColor.zip
No tienes los permisos para descargar los archivos.
(7 KB)

tyno


Hola Jorge, bien venido al foro.
Prueba el archivo. Saludos
Archivos
MacroColor.xlsm
No tienes los permisos para descargar los archivos.
(21 KB)

jorgec


Hola Tyno, Muchas Gracias por la respuesta. Lo he probado y funciona bien. Solo falto el proceso de que si compara una celda y no lo encuentra,  esta la copie a la segunda columna.  Saludos

tyno


Hola Jorge.
Mis disculpas no me di cuenta de ese detalle que mencionas.
Reemplaza el codigo del Boton por este:

Private Sub CommandButton1_Click()
On Error Resume Next
[b2:b1000000] = ""
With Sheets("Sheet1")
For a = 2 To .[a1000000].End(xlUp).Row
If .Cells(a, 1) <> "" Then
rw = [a1:a1000000].Find(.Cells(a, 1), lookat:=1).Row
Cells(rw, 2) = .Cells(a, 2)
End If
If Err.Number = 91 Then
rw_d = Range("a1000000").End(xlUp).Row + 3
Cells(rw_d, 1) = .Cells(a, 1)
Cells(rw_d, 2) = .Cells(a, 2)
End If
Err.Number = 0
Next a
End With
End Sub


Saludos

jorgec


Gracias nuevamente Tyno. Ahora si esta Ok. Un abrazo

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.