Dante Amor

Si quieres la fecha actual con hora y que la fecha sea una fecha válida para excel: Range("B2").Value = Now() Dale formato a la celda B2 para que se muestren los segundos. Si quieres la fecha y hora sean textos: Range("B2").Value = "'" &...

Te anexo la macro actualizada Private Sub CommandButton3_Click() Set h = Worksheets.Add h.Range("A1:H1") = Array("N° CHEQUE", "DOCUMENTO N°", "FECHA", "MONTO", "GIRADO A", "CONCEPTO", "BANCO", "OPERACION") h.Range("A2:h200").NumberFormat = "General"...

Puedes poner un par de imágenes explicando el caso cuando tienes: " Al momento de que el sistema automáticamente le da salida a la cantidad de productos vendidos solo me toma el primero colocado, no le da salida a la segunda cantidad del mismo...

Revisa la siguiente respuesta Macro para envíar correos masivos con adjuntos diferentes Ahí también encuentras las versiones de los archivos para excel 2007 y 2010 o superiores. [Si te sirvió el archivo, no olvides votar la respuesta y valorar esta...

Ejecuta la siguiente macro en la hoja1 Sub Buscar_Boletas() 'Por Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") Set h3 = Sheets("Hoja3") ' h3.Rows("2:" & Rows.Count).ClearContents Set rango = Selection...

Prueba con lo siguiente: Private Sub ComboBox2_Change() If ComboBox2.Value = "" Or ComboBox2.Value = Empty Or ComboBox2.ListIndex = -1 Then Exit Sub End If ' CommandButton1.Locked = False Set h = Sheets("Codigos") Set b =...

Te anexo la macro actualizada Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Por Dante Amor 'Abrir achivo pdf con doble click If Not Intersect(Target, Columns("A")) Is Nothing Then ruta = ThisWorkbook.Path & "\" If...

Agrega lo siguiente a tu evento del combo Private Sub ComboBox1_Change() If ComboBox1.Value = "" Then TextBox1.Value = "" TextBox2.Value = "" Exit Sub End If ' 'aquí que continúe tu código ' End Sub [sal u dos

Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Por Dante Amor 'Abrir achivo pdf con doble click If Not Intersect(Target, Columns("A")) Is Nothing Then ruta =...

Prueba con lo siguiente: Private Sub TextBox6_Change() If TextBox6 = "" Then t6 = 0 Else t6 = TextBox6 If TextBox7 = "" Then t7 = 0 Else t7 = TextBox7 TextBox8 = CDbl(t6) * CDbl(t7) TextBox9 = CDbl(TextBox8) * 18 / 100 TextBox10 = CDbl(TextBox8) +...