Luis_P

Lo primero yo que tu optaría por lo simple Cambiaría el listview por un control MSHFlexGrid ¿Por qué?... por que con este último, tiene la propiedad recordset Así si estas consultando una tabla access, bastaría con set...

Utiliza esta función Public Function verifica_duplicados(id As Variant) ' verifica si existe o no un registro en una determinada columna ' 0 si existe devuelve true si no devuelve false Dim existe As Boolean '4c7569735f50 If...

Debes utilizar el evento change del text, ejemplo: Private Sub Text1_Change() Label1.Caption = Text1 End Sub Al editar el text1 modificas simultáneamente el label

¿Y el código?

y ActiveSheet.Range(Casilla_Inicial_100).select

Revisa este ejemplo: http://www.forosdelweb.com/f69/ajustar-programa-resolucion-pantalla-399564/

Seguro, pero primero debes realizar la relación de los datos,,, convertir tus datos en una base de datos relacional Así : Pedro articulo1 Juan articulo 2 Pedro articulo 5 Jose articulo 21 Juan articulo 12 Pedro articulo 11 Etc... etc.. Así, cada...

Lo primero es saber si en la carpeta en donde alojas los ibros existe solo un archivo con el carácter # o si hay más... Si hay solo uno no es problema, pero si hay muchos, tener el carácter # no te sirve de nada.

Entonces así: Private Sub Command1_Click() '4c7569735f50 Image1.Picture = LoadPicture() Image1.Picture = LoadPicture(Replace(LCase(File1.Path & "\" & File1), "txt", "jpg")) End Sub Saludos y un abrazo a Mexico lindo!

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...