Respuesta
en
Microsoft Excel
y en 1 temas más
a
Insertar, modificar y posicionar autoformas VBA
Prueba esto... Sub FlechaArriba() ActiveSheet.Shapes.AddShape(msoShapeUpArrow, 100, 98, 127, 163).Select c = colores(13, 1) End Sub Sub rectangulo() ActiveSheet. Shapes. AddShape(msoShapeRectangle, 100#, 100#, 100, 150). Select '( posicion x ,...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
(VBA) Ejecuta macro si encuentra archivo
Prueba este código Private Sub Workbook_Open() Set fs = Application.FileSearch With fs .LookIn = ThisWorkbook.Path .Filename = "archivo2.xls" If .Execute(SortBy:=msoSortByFileName, _ SortOrder:=msoSortOrderAscending) > 0 Then MsgBox "se ha encontrado...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Funciones personalizadas VBA
Prueba a guardar la macro en el libro de macros personal No se como se hace directamente, pero un atajo es: Menu - Herramientas - Macro - Grabar macro nueva entonces en el cuadro que sale, modifica Guardar macro en: (aquí selecciona LIBRO DE MACROS...