** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - comparar celdas con dos celdas
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradocomparar celdas con dos celdas

 Responder Responder
Autor
Mensaje Invertir el orden de clasificación
Manuel08 Ver desplegable
Asiduo
Asiduo


Unido: 09/Septiembre/2008
Estado: Sin conexión
Puntos: 304
Enlace directo a este mensaje Tema: comparar celdas con dos celdas
    Enviado: 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

Arriba
Manuel08 Ver desplegable
Asiduo
Asiduo


Unido: 09/Septiembre/2008
Estado: Sin conexión
Puntos: 304
Enlace directo a este mensaje Enviado: 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

Arriba
Manuel08 Ver desplegable
Asiduo
Asiduo


Unido: 09/Septiembre/2008
Estado: Sin conexión
Puntos: 304
Enlace directo a este mensaje Enviado: 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
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable