Respuesta
en
Microsoft Excel
y en 1 temas más
a
¿Cómo cambiar color celdas basándose en un celda?
Aplica el siguiente formato condicional. 1. Entra al Menú Inicio, Formato condicional, Administrador de reglas, presiona Nueva regla, selecciona "Utilice una fórmula que determine las celdas para aplicar formato". 2. En el campo "Dar formato a los...
Respuesta
en
Microsoft Excel
a
¿Cómo fijar una condición en un función set de una macro?
Te anexo la macro con el cambio Sub Pasar_Datos() 'Por Dante Amor Set h1 = Sheets("NO TOCAR_1") Set h2 = Sheets("TABLA 1") Set h3 = Sheets("TABLA 3") ' 'Limpiar hojas h2.Range("C20:G" & Rows.Count).ClearContents h3.Range("C17:H" &...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
¿Cómo busco un dato en otro libro con un userform?
Te faltan algunos detalles a tu macro. Mejor te envío una nueva macro y unas recomendaciones. - Cambia el evento change por un botón, ya que si dejas el evento change, por cada letra que vayas poniendo en el textbox, se va a realizar la búsqueda. -...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para ingresar fórmula y esta se repita en las demás celdas
Ejecuta la siguiente macro en la hoja "CEL" Sub Macro11() ' For i = 2 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, "A").Value > 0 Then Cells(i, "AW").FormulaR1C1 = _ "=IFERROR(VLOOKUP(RC[-2],Tramos!R1C11:R931C12,2,0),""GESTOR"")" End If Next...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para validar si hay datos en un base filtrada
Después de esta línea: ActiveSheet. ShowAllData Pon la línea: Exit sub
Respuesta
en
Microsoft Excel
a
Como hacer un retorno de registros
Te anexo la macro actualizada Sub Retorno_Registros() 'Copiar el registro Application.ScreenUpdating = False Set h1 = ActiveSheet col = "R" u1 = h1.Range(col & Rows.Count).End(xlUp).Row For i = u1 To 4 Step -1 existe = True valor = h1.Cells(i,...
Respuesta
en
Microsoft Excel
a
Como referenciar a la misma celda de diferentes hojas, sin tener que escribir cada una de las referencias?
Si tu ejemplo es real, entonces en la celda C1 pon la siguiente fórmula: =INDIRECTO("Hoja" & FILA() & "!G34") Copia la fórmula hasta la fila según el número de hoja que tengas, es decir, si tienes hasta la "Hoja60", entonces copia la fórmula hasta...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para eliminar filas que no cumplan una condición
Te anexo una macro, la probé con 40 mil y tarda 3 minutos Sub QuitaFilas() 'Act Por Dante Amor Dim u As Double, i As Double, j As Double Dim r As Range, a Dim h As Object Application.ScreenUpdating = False Application.StatusBar = False Set h =...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
VBA Enviar hojas Excel por correo (Outlook) según el nombre de la hoja
Te anexo la macro Sub Enviar_Hoja() 'Por Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False ' Set l1 = ThisWorkbook Set h1 = Sheets("SELECCION") ' ruta = l1.Path & "\" arch = "libro.xlsx" For i = 8 To h1.Range("K" &...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para que no borre encabezado y sea más rápida
Te anexo la macro actualizada, para 40 mil registros, tarda 3 minutos. Sub Unicos_Duplicados_2() 'Por Dante Amor 'cuenta unicos y duplicados ' Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents =...