Scribd
Cargar
4 vistas2 páginas

Recorrer Array en VBA para Excel

El documento presenta un ejemplo de resultados y un código VBA para Excel que verifica condiciones en columnas específicas de una hoja de cálculo. El código revisa si las celdas en las columnas O, X, AG, AP y AZ contienen 'entrada' y, si es así, verifica cuatro columnas atrás si hay 'A1'. Finalmente, muestra un mensaje indicando las coincidencias encontradas.

Cargado por

edison zuluaga
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd
4 vistas2 páginas

Recorrer Array en VBA para Excel

El documento presenta un ejemplo de resultados y un código VBA para Excel que verifica condiciones en columnas específicas de una hoja de cálculo. El código revisa si las celdas en las columnas O, X, AG, AP y AZ contienen 'entrada' y, si es así, verifica cuatro columnas atrás si hay 'A1'. Finalmente, muestra un mensaje indicando las coincidencias encontradas.

Cargado por

edison zuluaga
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como DOCX, PDF, TXT o lee en línea desde Scribd

Ejemplo de resultados:

A A A Resulta
O X AG AP AZ K T
C L V do

entra A
Sí
da 1

entra A
Sí
da 1

entra A
Sí
da 1

entra A
Sí
da 1

entra A
Sí
da 1

entra B
No
da 2

Puedes usar VBA en Excel para recorrer la fila 1 y verificar las condiciones que
mencionaste. Aquí tienes un código que hace lo siguiente:
1. Revisa las columnas O, X, AG, AP y AZ en la fila 1.
2. Si alguna de estas celdas contiene "entrada", revisa cuatro columnas
atrás si contiene "A1".
3. Muestra un mensaje indicando cuáles cumplen con la condición.
Código VBA:
vba
CopiarEditar
Sub VerificarEntradas()
Dim ws As Worksheet
Set ws = ActiveSheet

Dim columnasEntrada As Variant


columnasEntrada = Array("O", "X", "AG", "AP", "AZ") ' Columnas a revisar
Dim i As Integer
Dim col As Range
Dim resultado As String
resultado = ""

For i = LBound(columnasEntrada) To UBound(columnasEntrada)


Set col = [Link](columnasEntrada(i) & "1") ' Revisar fila 1 en las
columnas definidas

If [Link] = "entrada" Then


Dim colAtras As Range
Set colAtras = [Link](0, -4) ' Cuatro columnas atrás

If [Link] = "A1" Then


resultado = resultado & "Cumple en columna " & columnasEntrada(i)
& " (revisó " & [Link] & ")" & vbNewLine
End If
End If
Next i

If resultado = "" Then


MsgBox "No se encontraron coincidencias.", vbInformation, "Resultado"
Else
MsgBox "Se encontraron coincidencias en: " & vbNewLine & resultado,
vbInformation, "Resultado"
End If
End Sub

También podría gustarte