Dante Amor

Para que cada dato de la lista desplegable tome un formato distinto, te sugiero lo siguiente. Suponiendo que en la columna G tienes tus nombres de la lista desplegable, entonces en la columna H pon el formato que le corresponde a cada nombre, por...

Te anexo el código: Private Sub CommandButton1_Click() 'Por.Dante Amor If IsNumeric(TextBox1.Value) Then valor = CDbl(TextBox1.Value) Else valor = TextBox1.Value For Each h In Sheets Set r = h.Cells Set b = r.Find("cuotas", lookat:=xlWhole) If Not b...

Te anexo un par de ejemplos. En esta macro le dices cuál hoja quieres en PDF y en cuál celda está el nombre del archivo. La macro genera el pdf y lo nombra. Después lo envía por gmail. Revisa también las indicaciones en este enlace: Macro para enviar...

Te anexo la macro Sub Macro1() 'Por.Dante Amor Set h1 = Sheets("Hoja1") If h1.AutoFilterMode Then h1.AutoFilterMode = False uf = h1.Range("C" & Rows.Count).End(xlUp).Row uc = h1.Cells(1, Columns.Count).End(xlToLeft).Column h1.Range(h1.Cells(1, 1),...

En qué casos te aparecen comillas, es decir, has podido identificar qué dato tienes en la celda y por eso te aparecen las comillas. Te anexo una macro. Cambia en la macro "Hoja1" por el nombre de la hoja que vas migrar. También cambia "archivo" por...

Te anexo la macro. Para validar las letra utiliza la lista de validación Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Range("D17:AL100")) Is Nothing Then If Target.Count > 1 Then Exit Sub If...

H o l a: ¿Seleccione el rango resultante y lo envíe como una hoja en un archivo? ¿Enviar por outlook? Para enviar el correo, debes especificar: - A quién se va enviar - Asunto - Cuerpo - Si va a ser un archivo, el nombre del archivo. sal u dos

En la pregunta de referencia, solamente se compara una columna, en tu caso mencionas comparar 2 columnas. Podrías poner ejemplos reales de lo que tienes y en otra hoja pon el resultado que esperas.

Te anexo la macro Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 3 Then Exit Sub If Not Intersect(Target, Range("A:L")) Is Nothing Then f = Target.Row If Cells(f, "B") <> "" And _ Cells(f, "C") <> "" And _...

Te anexo la macro Sub Exportar_Hojas() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Application.StatusBar = False Set l1 = ThisWorkbook Set h1 = l1.Sheets("Hoja1") Set h2 = l1.Sheets("MENU") Set h3 =...