Respuesta
en
Microsoft Excel
y en 1 temas más
a
Crear una alarma en excel para que me avise de Una fecha de llamada de telefono.
Pon la siguiente macro en los eventos de tu libro. Cada que abras el libro la macro se ejecutará en automático Private Sub Workbook_Open() 'Por.Dante Amor Set h = Sheets("Hoja2") col = "D" 'columna de fechas cli = "A" 'columna de clientes For i = 1...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para Transponer datos horizontales a Verticales
Suponiendo que tu información está así, empezando en la celda A2: El resultado quedará en otra hoja, de esta forma: Utiliza la siguiente macro, cambia "Hoja5" y "Hoja6" por los nombres de tus hojas Sub Horizontales() ' ' Por.Dante Amor ' Set h1 =...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para filtrar por fecha, hoy
Prueba con la siguiente macro Sub Macro16() ' ' Por.Dante Amor ' 'columna de fechas col = "D" num = Columns(col).Column ' fec = Format(Date, "mm/dd/yyyy") ' u = Range("D" & Rows.Count).End(xlUp).Row ActiveSheet.Range("A1:G" & u).AutoFilter...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Insertar Fórmula en un código de VBA
Si utilizas la grabadora de macros te pone algo como esto: Sub Macro15() ' ' Macro15 Macro ' ActiveCell.FormulaR1C1 = _ "=IF(RC[-1]=1,IF(R1C16>RC[8],""Nuevo"",IF(R1C15>RC[7],""Actual"",""Nuevo"")),IF(RC[8]>R1C15,""Actual"",""Nuevo""))" End Sub Lo que...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo obtener un valor en base al color de una celda en excel?
Existe la función Celda( ), utilizando el tipo "Color" el resultado puede ser: Valor 1 si la celda tiene formato de color para los valores negativos; de lo contrario, devuelve 0 (cero). Información tomada de este enlace:...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para enviar correos por Outlook con archivo adjunto a varios destinatarios desde excel?
Esta es la macro para enviar uno o varios archivos a uno o varios correos Sub Enviar_Correos() '--- ' Por.Dante Amor '--- '***Macro Para enviar correos col = Range("H1").Column For i = 2 To Range("B" & Rows.Count).End(xlUp).Row Set dam =...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Colocar Registros agrupados en varias columnas en una sola
No entendí muy bien a qué te refieres con "Cada registro ocupa 21 posiciones"; significa que cada registro tiene 21 columnas, entonces en tu ejemplo solamente pusiste 3 columnas. Si es así, utiliza lo siguiente, cambia en la macro en la línea "n =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Restricción de textboxsi no cumple con varias condiciones
Te recomiendo lo siguiente: Si el objetivo de capturar el dato, es pasarlo a una hoja, entonces, lo más práctico, cuando presiones el botón de "registrar en la hoja", es realizar las validaciones, por ejemplo: Private Sub CommandButton1_Click()...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como bloquear hojas que no quiero imprimir
Sigue los pasos de este enlace: MACRO de excel para imprimir varias hojas de un mismo libro Pero utiliza la siguiente macro Private Sub CommandButton1_Click() 'Por.Dante Amor For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then h =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Problemas con tu macro en excel
Prueba así: Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Por.Dante Amor For Each h In Sheets If h.Name <> "inicio" Then h.Unprotect "abc" h.Cells.Locked = False h.UsedRange.SpecialCells(xlCellTypeConstants, 23).Locked = True h.Protect "abc",...