SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Visual Basic para principiantes => Mensaje iniciado por: dloaizap en Martes 2 de Mayo de 2006, 21:11

Título: Comparacion De Celdas En Excel
Publicado por: dloaizap en Martes 2 de Mayo de 2006, 21:11

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

Título: Re: Comparacion De Celdas En Excel
Publicado por: LeGatoRojo en Martes 13 de Junio de 2006, 10:52

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.