Luis_P

Prueba esto: Dim i As Integer Dim f As Integer '4c7569735f50 For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then f = (f + 1) Range("A" & f) = ListBox1.List(i) End If Next Yo lo puse en el evento click de un botón...

Hasta donde yo se NO, ( al menos no en mi version 2007). Solo quedaría hacerlos mediante una función personalizada si es que te interesa utilzarla directo en la hoja, si es solo para el un control del formulario bastaría con una estructura select ase...

Y así: Importar = Trim(InputBox("Que fichero desea importar ?", "Entrada de datos")) If Len(Importar) = 0 Then Exit Sub

Te puedo ayudar con un botón: Lo pones en la hoja que contiene las imágenes, en el caso de este ejemplo, las imágenes son img1 - img2 Private Sub CommandButton1_Click() '4c7569735f50 If Me.Shapes("img1").Visible = msoTrue And...

¿Las fechas están eingresadas como fecha o como texto? 01/2011 Pues si es un formato de fecha personalizado la fecha 01/2011 seria en realizad 01/01/2011 Si es texto es más fácil. 2- ¿Los nombres son registros únicos? ¿O existen nombres repetidos?,...

Ok. Acá el macro: Sub reemplazo() Dim t As Long Dim r As Integer '4c7569735f50 t = Application.WorksheetFunction.CountIf(Range("A:A"), "1") If t = 0 Then MsgBox "No hay registros que cumplen la condición", vbInformation Exit Sub Else r =...

("Fotos\" & imagen & ".jpg") c:\TuRuta\TuArchivo.xls" La diferencia entre estas dos path, es: en primera instancia excel asume el path por default en el que esta instalado, si esta en C:\...pues no es necesario indicar el disco, la segunda forma es...

Ok. Entiendo que los datos están en col a - b -c Entonces acá el macro: Sub filtro() Dim fila As Long '4c7569735f50 Application.ScreenUpdating = False fila = Application.WorksheetFunction.CountA(Sheets(2).Range("A:A")) + 1 Sheets(1).Select...

¿Qué "busque la ruta", significa que debe hacer un rastero en el disco duro ( o los discos duros si tienes más de uno y ... si estas conectado a una red LAN?... ¿Debe buscar en toda la red?) . Si deseas volver dinámica la path de la carpeta... te...

Bueno de la mima manera que las veces anteriores. Solo que cuando evalúas la condición utiliza una estructura selec case Select Case [a1] Case Is = 0 objeto1 = amarillo objeto2 = negro objeto3 = verde Case Is = 1 objeto1 = azul objeto2 = rojo objeto3...