Adriel Ortiz Mangia

[Hola A tu código agrega exit sub ejemplo If list_TareasSo.ListCount = 20 Then MsgBox "A llegado al Maximo de Tareas" Exit Sub End If

[Hola revisa este vídeo https://www.youtube.com/watch?v=mihVMlKrXbM

[Hola [Sugerencia Cuando realices la cancelación de la factura que la macro agregue en una columna "pagado" voy a suponer que sea la columns "G" Y luego cuando cargas las facturas al combobox hazlo con la condición de aquellos que no realizaron al...

[Hola Prueba esto y me comentas La macro busca el SKU en la celda "G2" de todas las hojas y pega los datos en las celdas fijas G7, H7 Sub Poner_datos() 'Por Adriel Ortiz ' For Each h In Sheets Set h1 = Sheets("Hoja1") ' Cambia el nombre de la hoja...

[Hola Te paso la macro Private Sub CommandButton1_Click() Set h = Sheets("Cuentas") ' Set r = h.Columns("A") ' columna cuenta contable Set b = r.Find(TextBox1, lookat:=xlWhole) ' If Not b Is Nothing Then TextBox2 = h.Cells(b.Row, "B") ' columna...

[Hola Te paso la macro Saludos!

[Hola Sub Macro1() ThisWorkbook.SaveCopyAs "C:\prueba \" & Range("D1").Value & " " & Range("D2") & ".xlsm" End Sub

[hola Private Sub optmdono_Click() If optmdono.Value = True Then txtmdo=0 :txtmdo.Enabled = False End Sub

[Hola Pon la macro para actualizarlo

[hola Para validar usa la instrucción if..then Por ejemplo If textbox1 ="" then Msgbox "falta datos en el textbox1" Exit sub End if ' If textbox2="" then Msgbox "falta datos en el textbox2" Exit sub End if En el combobox has el mismo proceso