Imprimir página | Cerrar ventana

Celdas coincidentes a partir de celda inicial

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=84060
Fecha de impresión: 23/Febrero/2019 a las 05:43


Tema: Celdas coincidentes a partir de celda inicial
Publicado por: jmpm
Asunto: Celdas coincidentes a partir de celda inicial
Fecha de publicación: 08/Noviembre/2018 a las 12:49
Muy buenas, he creado un bucle para encontrar entre dos columnas C y D, las celdas cuyos valores (parte entera) son idénticos. Ahora, a partir de cada celda en D que cumple la condición (a la que llamaré P, aunque serán varias) quiero saber dentro de esa misma columna dónde están (y cómo referirme a ellas) las celdas cuyos valores cumplen P+600 y P-600.

Yo simplemente he llegado hasta aquí:

Sub CrossingPoints()

finalrow = Sheets("Vibration1").Range("A50000").End(xlUp).Row

Hoja1.Select

    For i = 2 To finalrow
   
    If Int(Cells(i, 3)) = Int(Cells(i, 4)) Then
       
        'Para localizarlas visualmente
        Sheets("Vibration1").Cells(i, 4).Interior.ColorIndex = 21
    
    End If

    Next i

End Sub

Espero que me podáis ayudar.

Un saludo y gracias de antemano



Respuestas:
Publicado por: emiliove
Fecha de publicación: 08/Noviembre/2018 a las 15:25
Muevo tu mensaje a Excel.

Saludos.


Publicado por: AnSanVal
Fecha de publicación: 08/Noviembre/2018 a las 22:02
Selecciona un rango representativo (10 o 15 filas) de los datos que quieres evaluar; da a COPIAR > da a pegar PEGAR aquí > indica a que rango pertenecen los datos mostrados. Los datos pueden ser inventados, pero fieles en cuanto a valores a comparar.


-------------
Aprendemos viendo respuestas de otros, también intentando resolver dudas (intenta ayudar cuando puedas/sepas).

Mi http://achinet.mvp-access.es/" rel="nofollow - sitio_web con ejemplos Excel.



Imprimir página | Cerrar ventana