Scribd
Cargar
4 vistas5 páginas

Macro para Registro de Movimientos en Excel

Cargado por

Randy Sotolongo Abreu
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 vistas5 páginas

Macro para Registro de Movimientos en Excel

Cargado por

Randy Sotolongo Abreu
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

Sub REGISTRO_ENTRADA()

'

' REGISTRO_ENTRADA Macro

'

'

Dim PREGUNTA As String

PREGUNTA = MsgBox("¡SEGURO DE REGISTRAR MOVIMIENTO!", vbYesNo)

If PREGUNTA = vbYes Then

Dim I As Integer

For I = 1 To 13
existe = False

For Each c In Range("D13")

If [Link] = "" Then

celdas = celdas & " " & [Link](False, False)

existe = True

End If

Next

If existe Then

MsgBox "No Hay Información para Guardar", vbCritical

Exit Sub

End If

[Link] = False
AQUÍ REGISTRA EL CONTENIDO DE LOS MOVIMIENTOS DE LA MACRO

[Link] = True

existe = False

For Each c In Range("F13")

If [Link] = "" Then

celdas = celdas & " " & [Link](False, False)

existe = True

End If

Next

If existe Then

MsgBox ("Guardado Con Éxito")


Exit Sub

End If

Next I

Else

Range("A1").Select

Sheets("REGISTRO").Select

Range("C8").Select

[Link]

End If
End Sub

También podría gustarte