Hola! anoche estuve revisando, tuve que hacer unos pequeños ajustes en la direccion de la carpeta (en vez de poner la direccion en partes la coloque toda de corrido parecida a como estaba antes) y logramos (vos y yo) que funcione!. Tambien tuve que desactivar la linea de código que bloqueaba la hoja porque sino no estaba dejando que la macro escriba el codigo de la propiedad en la celda, pero eso es lo de menos, supongo que lo puedo solucionar poniendo el bloqueo al final de la macro que creaste o desprotegiendo la celda donde se pone el codigo de propiedad.
Por
Corvette , · publicado el 9 de diciembre 9 dic
hola amigos buen dia
construyo una base en acces que se alimenta a traves de un
formulario de excel , y llege un punto que no he podido solucionar, y es que deseo extraer datos unicos de una tabla de acces a un listbox de excel y pues este es el codigo que utilizao,
Call conexion
Set rs = New ADODB.Recordset
With rs
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "BDFOLIOS", cnn, adOpenKeyset, adLockOptimistic, adCmdTable
End With
For a = 1 To 130
If rs.Fields("FACTURAPOST") <> "" And rs.Fields("ESTADOFACTURACION") = False Then
combo1.Add CStr(rs.Fields("FACTURAPOST").Value)
End If
rs.MoveNext
Next a
' organizar datos en el listbox
For I = 1 To combo1.Count - 1
For j = I + 1 To combo1.Count
If combo1(I) > combo1(j) Then
ref1 = combo1(I)
ref2 = combo1(j)
With combo1
.Add ref1, before:=j
.Add ref2, before:=I
.Remove I + 1
.Remove j + 1
End With
End If
Next j
Next I
' agregar datos al listbox
For Each dato In combo1
ListBox3.AddItem dato
Next dato
rs.Close
Set rs = Nothing
saludos