Excel - ayuda con una macro

 
Vista:

ayuda con una macro

Publicado por Alejandro Muñoz (1 intervención) el 07/01/2020 19:11:08
Por favor alguien podría sacarme de este embrollo. Quisiera que me dijeran como hacer una macro
Necesito que se posicione en el primero de la columna E (4) recorra vaya a la columna A hasta que encuentre el mismo número y si lo encuentra se traslade el cursor hasta la columna C misma fila donde lo encontró y copie lo que hay en el casillero de esa columna C (VERDADERO) en la misma columna C pero en la misma fila del primer número de la columna E que buscaba, osea cambiara la palabra FALSO por VERDADERO.

A B C D E
FOLIO PRODUCTOR superficial subterranea en_folio
9 CALDERON PARRA JOSE VICTOR FALSO FALSO 4
8638 CALDERON PARRA JOSE VICTOR FALSO FALSO 4
8638 CALDERON PARRA JOSE VICTOR FALSO FALSO 4
17997 CALDERON PARRA JOSE VICTOR FALSO FALSO 4
9610 MORALES LORCA HERMERINDA FALSO FALSO 12
10211 ARCE CALDERON JOSE HERNAN FALSO FALSO 17
10211 ARCE CALDERON JOSE HERNAN FALSO FALSO 17
10211 ARCE CALDERON JOSE HERNAN FALSO FALSO 17
10211 ARCE CALDERON JOSE HERNAN FALSO FALSO 17
10212 ARCE CALDERON JOSE HERNAN FALSO FALSO 17
10212 ARCE CALDERON JOSE HERNAN FALSO FALSO 17
4 CALDERON PARRA JOSE VICTOR VERDADERO FALSO
4 CALDERON PARRA JOSE VICTOR VERDADERO FALSO
4 CALDERON PARRA JOSE VICTOR VERDADERO FALSO
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

ayuda con una macro

Publicado por Antoni Masana (2463 intervenciones) el 09/01/2020 18:15:38
No entiendo lo que explicas y mucho menos con el ejemplo.

Entiendo parte del problema, recorrer unas cuantas filas y comparar la celda de dos columnas de la misma fila:

1
2
3
4
5
6
7
8
9
10
11
12
Sub MACRO()
    Dim Fila as Long
    Fila=2
    While Cells(Fila, "A") <> ""
        IF Cells(Fila,"A") = Cells(Fila, "E") Then
           Cells(Fila, "C") = TRUE
        Else
           Cells(Fila, "C") = FALSE
        End If
        Fila=Fila+1
    Wend
End Sub

Si no es esto lo que quieres sube un ejemplo en un libro con alguna explicación.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar