NO SE EJECUTA MI MACRO DE ACUERDO A MIS CÓDIGOS VBA

1 post / 0 nuevos
Lennin Jesus La...
Imagen de Lennin Jesus Larota Quispe
Offline
última acción: Hace 1 mes 1 día
alta: 27/04/2020 - 21:04
Puntos: 25
NO SE EJECUTA MI MACRO DE ACUERDO A MIS CÓDIGOS VBA

Bueno estoy empezando en el mundo oscuro de las macros y tengo un gran problema, es decir mis códigos VBA están OK porque pude verificarlo apretando F5 desde mi Módulo en el VBA. Sin embargo cuando los ejecuto en el excel pues no se ejecuta de acuerdo a mis códigos VBA. Muchas gracias por su tiempo

¿Yo me pregunto si quizás no haya añadido correctamente mi módulo en la misma hoja de excel?

Aquí les va mi código.

 

Sub Registro()

Dim fila As Integer
Rem Obtengo la cantidad de celdas que contienen  datos.

fila = (Worksheets("Registro").Range("A4:F4").Count - Range("A4:F4").SpecialCells(xlCellTypeBlanks).Count)

Rem Si no ay ningún dato en el Range("A4:F4") de la hoja "Registro" entonces copiar los datos.
If fila = 0 Then
Rem Copiar las celdas requeridas a la base de datos de la hoja "Registro"
Worksheets("Formato"). Range("E5"). Copy Worksheets("Registro"). Range("A4")
Worksheets("Formato"). Range("S5"). Copy Worksheets("Registro"). Range("B4")
Worksheets("Formato"). Range("E6"). Copy Worksheets("Registro"). Range("C4")
Worksheets("Formato"). Range("E8"). Copy Worksheets("Registro"). Range("D4")
Worksheets("Formato"). Range("E7"). Copy Worksheets("Registro"). Range("E4")
End If

Rem Si ay datos en el Range("A4:F4") de la hoja "Registro" insertar una fila y por último copiar los datos.
If fila > 0 Then

Rem Copiar las celdas requeridas a la base de datos de la hoja "Registro"

Worksheets("Registro").Range("A4").EntireRow.Insert
Worksheets("Formato"). Range("E5"). Copy Worksheets("Registro"). Range("A4")
Worksheets("Formato"). Range("S5"). Copy Worksheets("Registro"). Range("B4")
Worksheets("Formato"). Range("E6"). Copy Worksheets("Registro"). Range("C4")
Worksheets("Formato"). Range("E8"). Copy Worksheets("Registro"). Range("D4")
Worksheets("Formato"). Range("E7"). Copy Worksheets("Registro"). Range("E4")
End If

End Sub

Etiquetas: