Sub EmitirRecibosDesdeLista()
Dim ws As Worksheet
Dim celdaSelector As Range
Dim lista As Range
Dim c As Range
Dim total As Long, contador As Long
'Hoja donde están P17 y la lista U16:U...
Set ws = Sheets("CONSULTAS")
'Celda donde se coloca cada código
Set celdaSelector = ws.Range("P17")
'Lista de códigos
Set lista = ws.Range("U16:U500")
'Calcular cantidad de códigos
total = ws.Cells(ws.Rows.Count, "U").End(xlUp).Row - 15
If total <= 0 Then
MsgBox "No hay códigos en la lista (columna U).", vbExclamation
Exit Sub
End If
Application.ScreenUpdating = False
Application.DisplayAlerts = False
contador = 0
For Each c In lista
If c.Value = "" Then Exit For
contador = contador + 1
'Colocar código en P17
celdaSelector.Value = c.Value
DoEvents
'------------------------------------------------------------
' EJECUTA AQUÍ LA MACRO DE EMISIÓN DEL RECIBO
'------------------------------------------------------------
'Recibos PROPIETARIOS:
Call Imagen13_Haga_clic_en
'Si quisieras Inquilinos, activa esta y comenta la otra:
'Call powerbuttonINQ
'------------------------------------------------------------
'Espera 2 segundos para que finalice bien la exportación y el envío
Application.Wait Now + TimeValue("0:00:02")
Next c
Application.ScreenUpdating = True
MsgBox "Proceso finalizado. Se emitieron " & contador & " recibos.", vbInformation
End Sub
Por
JSDJSD, · publicado
Hola Antoni, debo decirte que este programa que me hiciste es una maravilla, te lo curraste y mucho,
he hecho muchas pruebas con el, y para comprender mejor todo el funcionamiento, se me ocurren unas consultas.
1º En la Hoja "Caja" sobre qué, actúa el botón/macro "Reset" ?
2º En Hojas "Tickets y Detalle" que significa ID de la columna A ?
3º En Hoja "Detalle" en ID, qué significa el mismo número repetido ?
4º Porqué hay Hoja "Ticket" y Hoja "Detalle" ? no hacen más o menos lo mismo ?
5º Me imagino que las filas de las Hojas "Tickets" y "Detalle" no las debo borrar nunca, pues debe coger información de
allí, la Hoja "Estadística", o borrar el 1 de enero ? (para empezar a calcular de nuevo) ?
* Espero no ser demasiado pesado con tanta pregunta. y ... Muchas gracias Antoni
* HA! SI NO TE RESPONDO, NO PASA NADA, ME VOY 8 DÍAS DE VACACIONES, LUEGO NOS VEMOS.