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 hace 16 horas 16 hr
Buenas, estoy haciendo un pequeño videojuego de piedra papel tijeras, por ahora tengo las 3 opciones y al hacer click en esas te sale la opcion en foto, pero quiero que en el intervalo que pones la opcion y sale el resultado haga una animacion de agitar la mano pero no se como hacerlo
using Piedra_Papel_Tijeras.Properties; using System.Security.Policy; namespace Piedra_Papel_Tijeras { public partial class Form1 : Form { public Form1() { InitializeComponent(); } private void PBPiedra_Click(object sender, EventArgs e) { PBPlayer.Image = PBPiedra.Image; } private void PBPapel_Click(object sender, EventArgs e) { PBPlayer.Image = PBPapel.Image; } private void PBTijeras_Click(object sender, EventArgs e) { PBPlayer.Image = PBPlayer.Image = PBTijeras.Image; } private void PBPlayer_Click(object sender, EventArgs e) { } private void pictureBox1_Click(object sender, EventArgs e) { } } }