Imprimir página | Cerrar ventana

comparar celdas con dos celdas

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=74306
Fecha de impresión: 22/Noviembre/2019 a las 14:38


Tema: comparar celdas con dos celdas
Publicado por: Manuel08
Asunto: comparar celdas con dos celdas
Fecha de publicación: 31/Agosto/2012 a las 23:31
Saludos, bueno antes puse un código que me funciona perfectamente pero solamente comparando una celda con otra:

filas = 1
  Do While Cells(filas, 8).Value & Cells(filas, 4).Value <> ""
    If Application.CountIf(Range("H:H"), Cells(filas, 4).Value) = 0 Then _
        Cells(filas, 4).ClearContents
    If Cells(filas, 4).Value = "" Then
        Cells(filas, 1).ClearContents
        Cells(filas, 2).ClearContents
        Cells(filas, 3).ClearContents
    End If
        filas = filas + 1
  Loop



Se podría añadir algo igual pero comparando por ejemplo:

filas,8 y filas,11 con filas,4 y filas,5

La columna 8 con las 4 y la columna 11 con la 5

he probado varias formas pero no lo logro, estoy un poco atorado, jeje



Respuestas:
Publicado por: Manuel08
Fecha de publicación: 31/Agosto/2012 a las 23:51
Lo pongo así pero me lo borra aunque no debe pues lo datos son iguales en las celdas de las columnas comparadas:

filas = 1
  Do While Cells(filas, 8).Value & Cells(filas, 4).Value <> ""
  Do While Cells(filas, 11).Value & Cells(filas, 5).Value <> ""
    If Application.CountIf(Range("H:H"), Cells(filas, 4).Value) = 0 Then _
    If Application.CountIf(Range("K:K"), Cells(filas, 5).Value) = 0 Then _
        Cells(filas, 4).ClearContents
        Cells(filas, 5).ClearContents
    If Cells(filas, 4).Value = "" Or Cells(filas, 5).Value = "" Then
        Cells(filas, 1).ClearContents
        Cells(filas, 2).ClearContents
        Cells(filas, 3).ClearContents
    End If

        filas = filas + 1
  Loop
  Loop



Publicado por: Manuel08
Fecha de publicación: 01/Septiembre/2012 a las 00:45
He conseguido avanzar algo más pero si me tiene que borrar los datos me lo hace solo en la primera fila y después se para, eso sí si no debe borrar no lo hace.

filas = 1
  Do While Cells(filas, 8).Value And Cells(filas, 11).Value & Cells(filas, 4).Value <> "" And Cells(filas, 5).Value <> ""
 
    If Application.CountIf(Range("H:H", "K:K"), Cells(filas, 4).Value And Cells(filas, 5).Value) = 0 Then
        Cells(filas, 4).ClearContents
        Cells(filas, 5).ClearContents
    If Cells(filas, 4).Value = "" And Cells(filas, 5).Value = "" Then
        Cells(filas, 1).ClearContents
        Cells(filas, 2).ClearContents
        Cells(filas, 3).ClearContents
    End If
    End If
        filas = filas + 1
  Loop




Imprimir página | Cerrar ventana