Saltar al contenido

Ayuda Excel

Ayuda Excel

¿Eres usuario? Conéctate
Conéctate a Ayuda Excel

Dirección de Email

Contraseña

Recuérdame
No recomendado en ordenadores compartidos

¿Has olvidado tu contraseña?

O conéctate con uno de estos servicios
Regístrate

Cumpleaños fgamezr

publicado el 14 de marzo16 años

Hola.

Quisiera aprovechar este nuevo tema para felicitar a nuestro compañero fgamezr por su cumpleaños y por la gran labor que realiza en el foro.

Te deseo todo lo mejor para ti y para todos los tuyos, que pases un buen día.

Un abrazo amigo

publicado el 14 de marzo16 años

muchas felicidades fgamezr

publicado el 15 de marzo16 años

Muchas gracias. Vinieron unos amigos a casa y lo pasamos bien.

Hasta ahora no vi los mensajes. Os lo agradezco mucho.

Saludos desde Málaga y con muy buen tiempo.

publicado el 15 de marzo16 años

Felicidades amigo....

Aunque hay muchos de este foro que no nos conocemos personalmente, es gratificante tener estos tipos de amigos y por supuesto saber que existen personas que comparten la alegria de un año mas de vida...

Bendiciones y espero la pases bien al lado de tus seres queridos

publicado el 16 de marzo16 años

Felicidades fgamezr

Sds

Lucascab "ARGENTINA"

publicado el 16 de marzo16 años

Felicidades Fernando

Disculpa el retraso en la felicitación (pero este fin de semana he "desconectado").

Un saludo desde Vitoria

publicado el 16 de marzo16 años

Hola fgamezr;

Aquí estoy yo tambien, me ha ocurrido igual que a ioyama, la diferencia es que a mi me ocurre todos los fines de semana, yo no puedo estar conectado ya que los fines de semana trabajo en un restaurante en mi pueblo y en mi cortijo no tengo conexion a internet.

FELICIDADESSSSSSSSSSSSSSSSSSSSS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

publicado el 16 de marzo16 años

Amigo

Me uno a las felicitaciones, un poco tarde espero valga =, espero lo hayas pasado super, cuidate mucho y muchas felicidades.

Te envio un Cordial Abrazo desde Santiago de Chile.

publicado el 16 de marzo16 años

Que tal!!!!

Bueno, dicen que la intencion es la que cuenta! asi que, mi intencion es que el cumpleanero se la pase de lo mejor, que siga como va en el foro, y que no se olvide que en la comunidad de ayuda excel, se le estima.

Felicidades!!!!!

Gracias por hacer este espacio!!!!!

undertaker!!!!!

publicado el 17 de marzo16 años

vaya estas epocas son de 'cumpleañeros'......felicidades fgamezr

publicado el 19 de marzo16 años

ya se que peco de retardado, pero sorry, no habia podido conectarme por exceso de trabajo, jeje (es un lujo en estos tiempos..)

Como sea mil felicidades y que te la hayas pasado bien, no solo ese dia, sino todos!!

Invitado

Este tema está cerrado a más respuestas.

https://ayudaexcel.com/foro/topic/1956-cumplea%C3%B1os-fgamezr/

Ir al listado de temas

Domina Excel, de Cero a Experto

¿Atascado? Deja de buscar soluciones puntuales. Aprende a dominar Excel para siempre con nuestro curso online. Más de 115 lecciones y soporte directo.

Ver el Curso Completo

192 Archivos
99 Comentarios
30 Revisiones
Última descarga

Cómo conservar la función AHORA()
- 1

Error en Macro

Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Por dorgelis, · publicado hace 6 horas 6 hr
Libro de excel lento

Ahora sí, aquí lo dejo por si a alguien le viene bien.
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim celda As Range
    Dim imgNombre As String
    Dim imgOriginal As Shape
    Dim imgCopia As Shape
    Dim nombreImagenCelda As String

    ' Solo actuar si el cambio es en una celda individual
    If Target.CountLarge > 1 Then Exit Sub

    Set celda = Target
    nombreImagenCelda = "Imagen_" & celda.Address(False, False)

    ' Eliminar imagen existente en esa celda (si existe con ese nombre)
    On Error Resume Next
    Me.Shapes(nombreImagenCelda).Delete
    On Error GoTo 0

    ' Determinar qué imagen usar según el valor
    Select Case celda.Value
        Case 1: imgNombre = "PruebaEuropa"
        Case 2: imgNombre = "PruebaAsia"
        Case 3: imgNombre = "PruebaÁfrica"
        Case 4: imgNombre = "PruebaAmérica"
        Case 5: imgNombre = "PruebaOceanía"
        Case 6: imgNombre = "PruebaMarrón"
        Case Else: Exit Sub ' No hacer nada si el valor no es válido
    End Select

    ' Buscar la imagen original
    On Error Resume Next
    Set imgOriginal = Me.Shapes(imgNombre)
    On Error GoTo 0

    If imgOriginal Is Nothing Then
        MsgBox "No se encontró la imagen '" & imgNombre & "'.", vbExclamation
        Exit Sub
    End If

    ' Copiar la imagen y colocarla sobre la celda
    imgOriginal.Copy
    Me.Paste
    Set imgCopia = Me.Shapes(Me.Shapes.Count)

    With imgCopia
        .Top = celda.Top
        .Left = celda.Left
        .Height = celda.Height
        .Width = celda.Width
        .LockAspectRatio = msoFalse
        .Name = nombreImagenCelda
    End With
End Sub

Por Maku, · publicado hace 11 horas 11 hr
Libro de excel lento

Creo que he encontrado la solución dando nombre a las imágenes y haciendo una macro con la que me pone encima esa imagen, dependiendo del número.
No, no me funciona porque no me cambia las imágenes al cambiar el número

Por Maku, · publicado hace 13 horas 13 hr
Libro de excel lento

He comprobado que al eliminar ese listado de nombres, con sus correspondientes fórmulas (aunque INDICE y COINCIDIR no creo que son volátiles), el archivo vuelve a la normalidad. No pierde apenas peso en Kb pero si gana ligereza.
Me pregunto si hay otro modo de hacerlo o simplemente me tengo que dar por vencida.

La idea es que dependiendo del número que consigo en la celda me cambia a una imagen u otra. El recuadro tapa la celda con el número.
¿Alguna idea?

Por Maku, · publicado hace 16 horas 16 hr
Libro de excel lento

Hola Maku,
Parece que tu problema se encuentra en las fórmulas. Un exceso de fórmulas en la hoja (sobre todo si usas funciones volátiles) puede ralentizar mucho el archivo.
Presta atención también a las macros, que no realicen acciones que no tengan que hacer.
También puedes eliminar las filas y columnas que no uses.
Estas acciones pueden mejorar mucho tu archivo.
Espero que se solucione. Si no es así, aquí estamos para ayudarte.

Por Sergio, · publicado hace 19 horas 19 hr

No hay usuarios registrado para ver esta página.