RE:Comparar columnas dits hojas
en la hoja de excel oprime ALT+F11 y en la parte superior izquirda colocas este codigo donde dice "Hoja1" o cualquier hoja o en "This workbooks" solo dandole doble click te abre el basic de excel..
solo te explico que hace el proceso
busca la celdas de la columna A2 uno por uno y despues lo compara con las columna B2 dato por dato si coinciden lo pinta de amarillo si no lo deja en su color normal
si deseas cambiar de columna solo cambia el numero que se encuentre a la derecha de la coma, si quieres cambiar la celda cambia el valor de la variable que esta a la izuierda de la columna suerte cualquier cosa que no entiendas me escribes a mi correo o me mandas tu archivo...y te lo arreglo como quieres ....me cuentas
'/////////////////////////////////////////////Primer sub//////////////////////////////////////////
Sub busca_repetidos()
Dim celda1 As String
Dim datoencelda As String
'asigno un valor a la celda para iniciar la busqueda
celda1 = 2
'selecciono la celda A2 por coordenadas x, y donde celda1 es fila y 1 es columna
Cells(celda1, 1).Select
'que no pare hasta que no hayan datos en la columna 1
Do While Cells(celda1, 1).Value <> ""
'asigno el valor de celda a una variable
datoencelda = Cells(celda1, 1).Value
'llamo al modulo de busqueda enviando las variables del dato y la celda
Call busca_dato(datoencelda)
'aumento la celda activa a un numero mayor para el bucle
celda1 = celda1 + 1
'continua el bucle
Loop
End Sub
'//////////////////////////////////////////////llamado por el primer sub/////////////////////////////
Sub busca_dato(ByVal datoencelda As String)
'celda a iniciar la busqueda
celdanum = 2
'que no pare hasta que la columna este vacia (columna B2)
Do While Cells(celdanum, 2).Value <> ""
'si los datos corresponde que los pinte de rojo la letra y amarillo el fondo
If datoencelda = Cells(celdanum, 2).Value Then
Cells(celdanum, 2).Select
Selection.Font.ColorIndex = 3
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
'aumento el bucle en uno para que continue
celdanum = celdanum + 1
Loop
End Sub