Programación General > Visual Basic para principiantes

 Comparacion De Celdas En Excel

(1/1)

dloaizap:
Hola a todos,
Soy nuevo en la programacion de Visual Basic, etoy tratando de comparar celdas en dos columnas distintas de Excel, y si son iguales, poner un texto en otra celda,
el codigo que tengo es este, pero no me funciona, si alguien me puede ayudar muchas gracias,

Sub DiferenciaSolicitud()
'Call ordenarSolicitudes
Dim CeldaAutomovil As Range
Dim CeldaVerificacion As Range
For Each CeldaVerificacion In Columns("S:S")
    For Each CeldaAutomovil In Columns("G:G")
        If CeldaAutomovil.Value = CeldaVerificacion.Value Then
            CeldaVerificacion.Offset(0, 2).Value = Automovil
        Else
            CeldaVerificacion.Offset(0, 2).Value = Vivienda
        End If
    Next CeldaAutomovil
Next CeldaVerificacion
End Sub

LeGatoRojo:
despues de haber abierto tu archivo de excel de la manera correcta
puedes empezar haciendo comparaciones de la siguiente manera:

if Exe.Sheets(1).Cells(f, c).Value =Exe.Sheets(1).Cells(f+1, c).Value then

donde f es el número de fila, c la columna y Exe es un objeto Workbook.

Navegación

[0] Índice de Mensajes