UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Ayuda con macro para correlativos el 04/06/14, 06:07 pm

Mario_08


Buenos días, soy nuevo en esta comunidad y quisiera pedirles su ayuda con la programación de este código, el cual estoy utilizando para crear números correlativos en las hojas de asistencia de mi trabajo, pero el cual me da un conflicto cuando quiero realizar las fechas correlativas. ¿Alguien me podría decir como solucionarlo?

La lógica del código se basa en los rangos de inicio y fiscalización para la impresión X26 y x27 son para los codigos y x28 y x29 son para las fechas que se presentaran en las impresiones


Sub ImprimirCorrelativos()


Dim lnI As Long
Dim Resp As Long
Dim Ini As Integer
Dim Fin As Integer
Dim i As Long
Dim FIni As Date
Dim FFin As Date


Ini = Range("x26").Value
Fin = Range("x27").Value
FIni = Range("x28").Value
FFin = Range("x29").Value


[g23] = [x25]
[h23] = [x26]
[f23] = [x28]


lnI = MsgBox("¿Está Ud. seguro que imprime desde " & Str(Ini) & " hasta " & Str(Fin) & " y las fechas" & Str(FIni) & " hasta " & Str(FFin) & "?", vbYesNo, "Aviso")
If lnI = vbYes Then
Ini = Range("x26"): Fin = Range("x27")
For i = Ini To Fin
Range("h23") = i
Next i
If lnI = True Then
Else
    FIni = Range("x28"): FFin = Range("x29")
    For i = FIni To FFin
    Range("f23") = i
    ActiveSheet.Range("A1:H46").PrintPreview
    Next
End If


End If



End Sub
Archivos
Asistencia.xlsm
No tienes los permisos para descargar los archivos.
(22 KB)

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.