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 Amigos , como estan?
Les queria pedir su ayuda si alguien sabe como puedo solucionar mi problema.
Tengo 2 Hojas con codigo producto y otra especifica la cantidad.
Hoja "Orginal" , esta hoja es la que necesita ser modificada. valores de cantidad siempre en 0
Hoja "Nuevo" son los valores que se necesitan cargar en la Hoja "Original".
La ultima hoja que pongo en el excel es la hoja "conmacro" que es como quedaria la hoja "Original" una vez ejecutado el macro.
Desde ya agradezco a quien pueda ayudarme con este problema que me tiene loco y no encuentro solucion.
Gracias de corazon
Jon
ayuda.rar