Daniel Espino

Cuando pones muchas fórmulas cada que haces un cambio por mínimo que parezca vuelve a calcular todas tus fórmulas lo que gasta recursos en tu computadora, lo mejor cuando son muchos datos es usar macro, ¿Cómo tienes tus datos?

Te propongo esta solución, no es como tal un "zoom" lo que hace es cambiarle las propiedades a la celda activa y al salir te regresa las propiedades anteriores. Pruébala en la hoja 1 Ojalá te sirva Private Sub Worksheet_SelectionChange(ByVal Target...

Se me ocurre un ejemplo: Sub caduca() hoy = Date limite = CDate(10 / 5 / 2021) If hoy <= limite Then MsgBox "la macro ya no es vigente" Else '<--------tu macro End If End Sub

Bueno ya que solo pones eso no se el evento que estas poniendo para aplicar la macro. Solo necesitas quitar los paréntesis a Now, te dejo un ejemplo: Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Range("C2").Value = Now End Sub Se...

Puedes agregar el evento change en la hoja que quieres Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Nombrar_Hojas End Sub

No estoy seguro de haberte entendido. ¿Quieres qué sin importar cuantas filas nuevas ingreses las considere la suma? Si es el caso con algo así creo que es suficiente: =SUMA(INDIRECTO("$d$2:$d"&FILA()-1)) Sumará todos los valores de tu columna d...

¿Supongo qué quieres algo como esto no? =SI(Y(A1>=1,A1<=499),"20%",SI(Y(A1>=500,A1<=999),"18%",SI(Y(A1>=1000,A1<=1499),"16%",SI(Y(A1>=1500,A1<=2000),"14%"))))

Perdona, he estado ocupado si gustas mándame un archivo de ejemplo y como es que lo necesitas [email protected]

Para mi es más fácil con macro te evitas algunas operaciones en celdas y y fórmulas Sub dividir() Dim a As String Dim b() As String a = Cells(1, 1) b = Split(a, ".") Cells(1, 2).NumberFormat = "@" Cells(1, 2) = String(10 - Len(b(0)), "0") & b(0)...

Con algo así debería ser suficiente: Sub copiar() Set h1 = Sheets("Hoja1") Set h3 = Sheets("Hoja3") h3.Cells(1, 3).End(xlDown).Offset(1, 0) = h1.Cells(1, 1) End Sub