Dante Amor

H o l a: El formato de fecha tiene diagonales "/" y el formato de hora tiene dos puntos ":", ambos caracteres no son permitidos en los nombres de los archivos, es por eso que te envía error. Lo que se hace en estos casos es cambiar la diagonal y los...

H o l a: Pon la siguiente macro en los eventos de tu hoja. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Por.Dante Amor If Not Intersect(Target, Range("A1:Z30")) Is Nothing Then If Not IsNumeric(Target.Value) Then...

H o l a: Te anexo la macro actualizada. Según la macro que pusiste, en la celda D11 vas a poner el nombre del archivo, si la celda está vacía te va a enviar un mensaje. Sub Macro() ActiveWindow. SelectedSheets. PrintPreview ExecuteExcel4Macro...

H o l a: Te anexo la macro: Sub EnviarCorreos() 'Por.Dante Amor 'Enviar por GMAIL Dim Email As CDO.Message ' correo = "[email protected]" passwd = "tupassword" ' For i = 11 To Range("K" & Rows.Count).End(xlUp).Row If Not IsError(Cells(i, "K")) Then...

H o l a: Y si guardas tu factura pero sin macros. ¿Tienes una macro para guardar la factura? ¿O quieres una macro que incremente el número de factura solamente cuando guardas la factura? En ese caso pon la siguiente macro en un módulo: Sub...

H o l a: Te anexo la macro. Cambia el rango "A:B" por el rango donde están los caracteres a sustituir. Nota: El ascii 255 es el carácter 160 Sub Reemplazar() 'Por.Dante Amor r = "A:B" c = Array("Á", "É", "Í", "Ó", "Ú", "á", "é", "í", "ó", "ó", " ",...

H o l a: Pon la siguiente macro en los eventos de tu hoja. Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Target.Address(False, False) <> "I2" Then Exit Sub If Target.Value = "" Then Exit Sub...

H o l a: Puedes poner la macro completa. Explícame qué es lo que quiere hacer. Es decir paso a paso qué es lo que vas a hacer en excel y qué es lo que quieres que haga la macro.

H o l a: Si pasas el dato del textbox a la celda se debe almacenar como texto, ya que lo que tienes en un textbox es texto: [D6] = TextBox1 Otra opción es que primero pongas el formato de la celda como texto y luego pases el dato: [D6].NumberFormat =...

H o l a: Puedes poner tu macro para revisarla. ¿Los botones los tienes en un userform? O envíame tu archivo y me explicas lo que necesitas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Tonny Doumerc” y el título...