Dante Amor

H o l a : Envíame tu archivo con ejemplos. Explícame con comentarios, imágenes y con colores qué necesitas copiar y en dónde lo quieres pegar. Entre más claro sea el ejemplo, más práctica será la solución. Mi correo [email protected] En el asunto del...

Entonces puede ser un error de la versión. ¿Ya realizaste la última actualización de excel? En lugar de utilizar SendMail, puedes probar con esta versión para outlook: Sub Enviar_ActiveWorkbook() 'Por.Dante Amor Set l1 = ThisWorkbook ruta = "C:\"...

Podría ser así: ActiveSheet.Range("$A$1:$J$11").AutoFilter Field:=1, Operator:= _ XlFilterValues, Criteria2:=Array(2, Format(Date, "mm/dd/yyyy")) Dentro del Array lleva un 2 para indicar que el dato va a ser una fecha. Pero la fecha se tiene que...

¿Pero qué capturas en el userform2? ¿Esas capturas en el userform2 las pasas a la hoja? Voy a desarrollar un ejemplo. En form1 en el combo1 pones el número 3.Abres el form2En el form2 en el textbox1 capturas un datoPresionas un botón, pasas el dato a...

Si quieres dos variables puede ser así: var1 = 105 var2 = 400 FormInformes.ComboInforme.RowSource = "Hoja1!A" & var1 & ":D" & var2 Esto carga de A105 hasta A400 Si quieres 4 columnas en el combobox, desde A hasta D, entonces también tienes que...

Te anexo el código actualizado para el botón buscar Private Sub btn_buscar_Click() 'Act.Por.Dante Amor Me.ListBox1.Clear If Me.txt_buscar.Value = Empty Then MsgBox "Escribe un registro para buscar" Me.txt_buscar.SetFocus Exit Sub End If ' ini =...

Agrega lo siguiente a tu código: Sub Agregar_Fila() 'Por.Dante Amor ' fila = ActiveCell.Row 'reconozca la fila en la que estoy Rows(fila + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("B" & fila & ":N" & fila).Copy Range("B" &...

Esta puede ser una opción, agrega el siguiente código a tu formulario: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1 = "" Then Cancel = True End Sub Lo que hace tu código es limpiar el textbox1 y luego poner el foco en...

H o la: Cuando cambias un color de una celda o el formato de una celda, los cálculos de la hoja no se actualizan, esto es debido a que no existe un evento en excel que ejecute los cálculos de la hoja cuando cambias el formato de una celda. Entonces,...

Prueba con esta: Sub Add_dbSaveInvoiceSale_2() ' ' Add_dbSaveInvoiceSale Macro ' Application.ScreenUpdating = False Sheets("dbStock").Select Range("E3").FormulaR1C1 =...