Adriel Ortiz Mangia

[Hola Te paso la macro del generoso Dante Amor Cambia toda la macro por esto Valora la respuesta para finalizar 'se actualiza el textbox al clickear en el checkbox Private Sub CheckBox1_Click() If CheckBox1 Then TextBox1.Text = "ALMACEN EXTERNO" Else...

[Hola Prueba con esto Sub Buscar() Dim WS As Worksheet Dim rBingo As Range Borrar_Form nombrehoja = "buscar" For Each WS In ThisWorkbook.Worksheets If LCase(WS.Name) <> LCase(nombrehoja) Then If WS.Name Like "*" Then Set rBingo =...

[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