Adriel Ortiz Mangia

Prueba así Set Worksheet = Sheets("Serigrafía") ' With Worksheet contfila = .Range("A" & Rows.Count).End(xlUp).Row + 1 .Cells(contfila, 14).Value = Me.TextBox3.Value .Cells(contfila, 23).Value = Me.ComboBox1.Value .Cells(contfila, 26).Value =...

[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 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 Private Sub optmdono_Click() If optmdono.Value = True Then txtmdo=0 :txtmdo.Enabled = False End Sub

[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

[Hola Te paso la macro actualizada Sub CombinarCeldas() 'Por.Dante Amor 'Act. Adriel ortiz ' Application.ScreenUpdating = False Application.DisplayAlerts = False ini = 1 ant = Cells(ini, "B") For i = ini To Range("B" & Rows.Count).End(xlUp).Row + 1...

[Hola Te paso la macro Sub DeleteRow() ' '[Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' dato = h1.[C3] Set b = h2.Columns("D").Find(dato, lookat:=xlWhole) If Not b Is Nothing Then h2.Rows(b.Row).Delete Else MsgBox "el # de...