Dante Amor

Revisa el siguiente enlace, ahí explico los pasos para enviar por Gmail Macro para enviar hoja excel por gmail Si quieres agregar varios archivos, repite esta línea de la macro, una línea por cada archivo: .AddAttachment ruta & nombre1 & ".xlsx"...

Prueba con la siguiente rutina Agregar( ), lo que hace es comparar cada dato que se va a agregar al combo, si ya existe en el combo ya no lo agrega. También te lo ordena de forma ascendente. Option Explicit Dim rango1, celda1 As Range Dim rango2,...

Para mostrar una hoja puedes utilizara cualquiera de estas 3 opciones: Sheets("Hoja4").Visible = True Sheets("Hoja4").Visible = 1 Sheets("Hoja4").Visible = -1 Para ocultar la hoja puede ser: Sheets("Hoja4").Visible = False 'ocultar...

Qué bien! Pero también te comento, igual y te ayuda. En esta línea, al final te falta una diagonal \ ruta = "C:\Facturacion\Base Datos Clientes\Cliente a Modificar\" Y en estas líneas te falta indicar "h1." CARPETA = ruta & " " & Trim(h1.[B3] & " " &...

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 Not Intersect(Target, Columns("B")) Is Nothing Then If Target.Row = 1 Then Range("A1") = 1 Else...

No comentaste si la multiplicación la estás haciendo en excel o en el formulario. Pero puedes poner lo siguiente: TextBox1 = Format(Range("D9"), "#.00%") Eso te va a dar como resultado 7.50% Si quieres ver 8%, entonces pon lo siguiente: TextBox1 =...

Prueba con la siguiente macro Sub Generar_Archivo() 'Por.Dante Amor Const separador As String = "," ' Set h1 = Sheets("Hoja1") ruta = ThisWorkbook.Path & "\" If Left(ruta, 1) <> "\" Then ruta = ruta & "\" nombre = Format(h.Range("B1"), "dd-mm-yyyy")...

Te anexo la macro Sub Registrar_Datos() ' ' Por.Dante Amor ' Set h1 = Sheets("FICHA") Set h2 = Sheets("TABLA") ' If h1.Range("C7") = "" Then MsgBox "Poner el RUC" Exit Sub End If u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1 If u < 5 Then u = 5...

¿Qué mensaje de error te aparece? ¿Qué versión de excel tienes? ¿Estás abriendo varios archivos o solamente uno? Tal vez no está reconociendo el nombre del archivo. Intenta con lo siguiente: Sub Open_Files2() Dim Hoja As Object Dim X As Variant '...

Te anexo la macro Private Sub CommandButton9_Click() 'Por.Dante Amor filas = ListBox1.ListCount If filas = 0 Then MsgBox "No hay registros a pasar" Exit Sub End If If txtFiltro1 = "" Then MsgBox "No hay registros a pasar" Exit Sub End If If...