Jump to content

3 files

  1. Calculadora Gastos de Viaje en Divisa

    Plantilla Excel que calcula el cambio de la divisa para una fecha determinada, de igual forma que aparece en esta Web:
    https://www.xe.com/es/travel-expenses-calculator/

    34 downloads

       (0 reviews)

    0 comments

    Submitted

  2. TABLA AMORTIZACIÓN

    Buenas a tod@s,
    Hace un tiempo me enseñaron a hacer tablas de amortización y he pensado que podría ser útil ponerla a disposición de todos. Seguramente ya habrá otras pero siempre hay que empezar con algo

    51 downloads

       (0 reviews)

    0 comments

    Submitted

  3. Bancos

    Buenos días a todos, 
    Antes que nada, muchas gracias a los interesados en ayudar a personas Noob en esto de las macros como yo.
    Normalmente grabo algunas macros y le puedo entender un poco.
     
    He estado trabajando en un documento en el cual me permita actualizar la imagen de una hoja al cambiar una celda con una lista, y que ejecutar la macro actualice la imagen.
    Comencé por crear  nombrar a todas las imágenes con el mismo prefijo "IMG_" en una "tabla" .
    Ahora bien, grabé la macro y le puse "Santander", y me funcionó pero ahora no sé cómo definir una variable del nombre de la imagen
    ------
    Sub ActualizarImg()
     
        Range("D1").Select
        ActiveCell.FormulaR1C1 = "=CONCATENATE(""IMG_"",RC[-1])"
        Range("D1").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
        Selection.Copy
        ActiveSheet.Previous.Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
        ActiveSheet.Shapes.Range(Array("IMG_Santander")).Select ------------> aquí es donde no sé cómo pudiera cambiarle para que sea el valor de la celda seleccionada.
        Selection.Copy
        ActiveSheet.Next.Select
        Range("D1").Select
        ActiveSheet.Paste
        
    End Sub
    ---------------
    Igual subo el documento para que quede más claro:
     
     

    45 downloads

       (0 reviews)

    1 comment

    Submitted

×
×
  • Create New...

Important Information

Privacy Policy