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.
Así que doy por supuesto que eso lo voy a poder hacer funcionar por lo que entonces voy a marcar como que ya está solucionado lo que necesitaba.
Agradezco muchisimo tu ayuda porque era sumamente tedioso tener que estar haciendo los recibos de a uno ya que la macro de envio de recibos es medio lenta. Ahora no me importa si tarda mucho, apretaré el boton y le daré todo el tiempo que se quiera tomar mientras yo hago otra cosa.
Gracias nuevamente!!!!
Por
Corvette, · publicado
recuro a vosotros por el siguiente tema.
tengo un combobox que al ejucartlo enpieza siempre por la primera casilla (a1), es posible que empieze con (a4) y terminne (a30)
este es el codigo que uso
Private Sub ComboBox1_Change()
Dim i As Integer
Dim final As Integer
Dim FINAL2 As Integer
Dim J As Integer
Dim H As Integer
For i = 2 To 1000
If Hoja5.Cells(i, 2) = "" Then
final = i - 1
Exit For
End If
Next
For i = 2 To final
If ComboBox1 = Hoja5.Cells(i, 2) Then
T1 = Hoja5.Cells(i, 2)
T2 = Hoja5.Cells(i, 1)
T7 = Hoja5.Cells(i, 3)
Label75 = Hoja5.Cells(i, 3)
Label76 = Hoja5.Cells(i, 6)
Label82 = Hoja5.Cells(i, 8)
Label84 = Hoja5.Cells(i, 9)
Exit For
End If
Next
End Sub
Private Sub ComBoBox1_Enter()
Dim i As Integer
Dim final As Integer
Dim tareas As String
ComboBox1.BackColor = &H80000005
For i = 1 To ComboBox1.ListCount
'Remove an item from the ListBox.
ComboBox1.RemoveItem 0
Next i
For i = 2 To 1000
If Hoja5.Cells(i, 2) = "" Then
final = i - 1
Exit For
End If
Next
'If ComboBox1.ListCount < 1 Then
'ComboBox1.AddItem "-"
For i = 2 To final
tareas = Hoja5.Cells(i, 2)
ComboBox1.AddItem (tareas)
Next
'End If
End Sub
gracias un saludo
espero buestras respuestas