edwinhenao

Intenta así: ... Sub otraMacro() Dim Data As Date '(lo he provado con String, Variant y miles más...) Dim Datados As Date Data = Worksheets("Hoja1").Range("A1").Value '(no funciona, pero es este código, no?) Datados =...

Para la imágenes rectangulares tendrías que hacer un rango rectangular o transformarlas antes de insertarla en Excel... Para darle nombre a la imagen es al revés... es decir hay que cambiar: ... Foto1 = Selection.Name ................ Por...

Para ocultar las columnas utiliza está macro. ... Sub OcultarColumnas() Columns("C:XFD").Select Selection.EntireColumn.Hidden = True End Sub

En la segunda línea cambia RowSource por Value Private Sub CommandButton1_Click() x = ComboBox1.Value Sheets(x).Visible = True Sheets(x).Select Sheets("MATERIAL").Visible = False End Sub .............................. Private Sub...

Con está fórmula lo puedes hacer... ... =SI(Y(NSHORA(B2;C2;0)<=NSHORA(12;0;0);NSHORA(D2;E2;0)>NSHORA(12;30;0));"Almorzó";"No almorzó") ... Éxtos no olvides calificar para cerrar la pregunta.

Utiliza lo siguiente en la parte que carga el ComboBox... For i = 1 To 5 tareas = ExecuteExcel4Macro("'c:\[PROV.xls]Hoja2'!R" & i & "C2") ComboBox3.AddItem (tareas) Next No olvides calificar. Éxitos.

Puedes crear una nueva columna y en ella calcular las horas con una función, por ejemplo si las horas están en la columna A comenzando en la celda A1, puedes utilizar la siguiente función: =NSHORA(EXTRAE(A1;1;2);EXTRAE(A1;3;2);0) No olvides calificar...

Moises así me funcionó... Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) sensCelda = "m3:m175" If Not Intersect(Target, Range(sensCelda)) Is Nothing Then ActiveCell().Select...

Esta es la macro que tienes que utilizar... Private Sub CommandButton1_Click() Sheets("Inf1").Activate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Ruta\NombreDelArchivo.pdf", Quality:= xlQualityStandard, _...

La extensión .xlsx es la nueva de extensión de los archivos de Excel, introducida en Office 2007. Prueba a cambiar la extensión a xls y abrirlo. Si no funciona en el explorador de windows ve a herramientas, opciones de carpeta y en la pestaña ver,...