Carlos soloffice

El código sería así: Sub Botón1_AlHacerClic() Workbooks.Open "C:\Carpeta\Libro.xls" End Sub Donde "C:\Carpeta\Libro.xls" es la ruta donde tengas tu excel. Si esto no responde a tu duda me dices. No dudes en preguntar, aunque creas que es básica. Tus...

Le he hecho unos cambios a la macro que te hice, a ver que te parece ahora ;) http://goo.gl/YSXZt Saludos, [email protected]

Tu idea es buena, se me ocurren esto para mejorar el código. Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Si ha habido cambios salimos sin hacer nada, ni pregunta ni nada If Not ThisWorkbook.Saved Then 'Minimizamos para que no vea la hoja...

Prueba con este ;) ActiveSheet.Shapes("ComboBox" & m).DrawingObject.Object.ListIndex

Te he hecho un ejemplo de lo que quieres http://goo.gl/wgXy5 Esta es la función que he utilizado Sub Convertir() Dim nNumeroFilas As Long Dim nNumeroColumnas As Long Dim nFila As Long Dim nColumna As Long Dim nFilaHoja2 As Long 'Eliminamos todo lo...

Te dejo un ejemplo de lo que quieres. http://goo.gl/8AqKr Saludos, [email protected]

Te he creado un ejemplo de lo que creo que pides, aunque no entiendo muy bien lo que quieres decir con "sin importar el tamaño de la base" Este es el ejemplo: http://goo.gl/gbRiw La función de la macro es esta: Sub Sumar() Dim nFila As Long nFila = 2...

Para ver el contenido de la celda C5 de la Hoja "Fac.Enero" puedes hacerlo así: MsgBox Sheets("Fac.Enero").Range("C5").Value Para saber cual es el color de fondo de la celda C5 así: MsgBox Sheets("Fac.Enero").Range("C5").Interior.ColorIndex Por...

Estoy intentando ayudarte viendo lo que envías. Intuyo que tienes Excel 2007 ¿si? Pero hay algo que no me cuadra, cuando estás haciendo "ActiveWorkbook.SaveAs", si lo guardas con formato xlsm, por defecto se guarda todo el proyecto vba en el nuevo...

He creado un botón "Buscar" y una macro con este código Sub Buscar() Dim nFilaB As Long Dim nFilaA As Long Dim sValorB As String Dim sValorA As String Dim nMaxValorA As Double nFilaB = 1 sValorB = ActiveSheet.Cells(nFilaB, 2) Do While...