Carlos soloffice

Lo que quieres se hace con la función BUSCARV Te he dejado un ejemplo aquí para que veas como hacerlo http://goo.gl/nX2Ao Espero que te sirva, Saludos, Carlos [email protected]

Te pongo un ejemplo de como podrías hacerlo Sub MacroInicial() 'Aquí programas lo que quieras hacer en tu macro inicial Cells(1, 1) = Now Cells(2, 1) = "Ahora tienes 30 segundos para hacer lo que necesites..." '... etcétera 'Ahora le dices que dentro...

Una macro como la que pides quedaría así: Sub Enumerar() Dim nFila As Long For nFila = 5 To 31625 Cells(nFila, 1).Value = nFila - 4 Next End Sub Saludos, [email protected]

Si puedes enviarme el access a mi correo, intentaré ayudarte. Saludos, [email protected]

Se me ocurre de esta manera: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Static sClave As String sClave = sClave & Target.Address & "-" celdas = Split(sClave, "-") If UBound(celdas) > 3 Then sClave =...

Creo que está fórmula podría ser tu solución: =IZQUIERDA(B7;ENCONTRAR(" ";B7)-1) Te cuento lo que hace: Suponemos que la celda B7 contiene: Josue Antonio García Zelaya ENCONTRAR(" ";B7) lo que hace es buscar el primer espacio, y nos da la posición...

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