Macro tipo Si... Para Excel

Estimados Expertos:

Preciso una macro en para Excel que cumpla lo siguiente:

La macro debe aplicarse a todas las hojas de un libro Excel en todas las líneas de la columna "F" (oculta) en que figure la letra "D"  para que en la misma línea aparezca la palabra "Cierto" en la columna "G".


En forma complementaria ¿cómo debo cargar la macro para que aparezca disponible en todos los documentos que abra en Excel?

Muchas gracias

1 respuesta

Respuesta
1

Esta es la macro para busca letra "D" en las celdas de la columna "F".

Sub buscar()
'Por.DAM
    For Each h In Sheets
        For i = 1 To h.Range("F" & Rows.Count).End(xlUp).Row
            If InStr(1, h.Cells(i, "F"), "D") > 0 Then
                h.Cells(i, "G") = "Cierto"
            End If
        Next
    Next
End Sub

Revisa que la letra "D" sea mayúscula, si quieres que sea "D" o "d", entonces esta sería la macro

Sub buscarD()
'Por.DAM
    For Each h In Sheets
        For i = 1 To h.Range("F" & Rows.Count).End(xlUp).Row
            If InStr(1, UCase(h.Cells(i, "F")), "D") > 0 Then
                h.Cells(i, "G") = "Cierto"
            End If
        Next
    Next
End Sub

Ahora para poner la macro en excel y puedas utilizarla en cualquier libro realiza lo siguiente:
1. Suponiendo que escoges la macro "buscarD". Pon la macro "buscarD" en un libro nuevo.

2. Selecciona guardar como. En nombre de archivo escribe: buscard

En Tipo de archivo selecciona "Complemento Excel". Presiona guardar.

3. Ahora para activar la macro en todos los libros, abre un nuevo libro.

4. Presiona el botón de office

5. Presiona el botón "Opciones de excel"

6. Selecciona Complementos y después presiona el botón "Ir"

7. Selecciona la casilla de buscard y presiona Aceptar

8. Listo, ya tienes la macro "buscard" en cualquier libro que abras. Para ver la macro presiona ALT+F11 y la podrás ver en VbaProject (buscard.xlam)

Saludos. Dante Amor

No olvides valorar la respuesta.

¡Más que muchas gracias DANTE AMOR!

Esta macro y la detallada explicación que sigue no solo han cumplido su cometido a la perfección sino que además me han permitido aprender (¡y recordar!) mucho sobre este tema.

Nuevamente, muchas gracias por tu dedicación.

Cordialmente

Jorge Troitiño

La pregunta no admite más respuestas

Más respuestas relacionadas