Nobre de columnas en ListBox

Fernando,

Este código funciona en cualquier libro, pero en este no.
Hay un detalle, si borro los datos después de capturarlos en el listbox, con
RowSource no funciona y si con List.
Sabes algún código para colocar los nombres de las columnas con la propiedad
List ??

De cualquier forma te paso lo que tengo antes y después del código que me
pasaste:

Private Sub CommandButton2_Click()
On Error GoTo Salidas
UserForm1.ListBox1.Clear
With Worksheets("INTERF")
.Cells(1, 36).CurrentRegion.ClearContents
End With
Dim CTA As Object
Set CTA = Worksheets("INTERF").Cells(1, 1).CurrentRegion
Dim Orig, Dest, cdDest, Edo, Kilo, Prod, Fech, Estvia, Via, Transp
Dim Plac
Orig = ComboBox1.Value: Dest = ComboBox2.Value: cdDest = ComboBox4.Value
Edo = ComboBox7.Value: Kilo = ComboBox9.Value: Prod = ComboBox3.Value
Fech = Format(ComboBox6.Value, "d-mmm-yyyy"): Estvia = ComboBox5.Value
Via = ComboBox10.Value: Transp = ComboBox11.Value
Transporte = Transp
Plac = ComboBox12.Value: Origen = Orig
Destino = Dest: cdDestino = cdDest: Estado = Edo
Kilome = Kilo: Product = Prod: Fecha = Fech
Producto = Prod
Estviaje = Estvia: Viaje = Via: Transporte = Transp
Placas = Plac
If UserForm1.ComboBox1 <> "" Then
CTA.AutoFilter field:=7, Criteria1:=Origen
End If
If UserForm1.ComboBox2 <> "" Then
CTA.AutoFilter field:=1, Criteria1:=Destino
End If
If UserForm1.ComboBox4 <> "" Then
CTA.AutoFilter field:), Criteria1:=cdDestino
End If
If UserForm1.ComboBox7 <> "" Then
CTA.AutoFilter field:=2, Criteria1:=Estado
End If
If UserForm1.ComboBox9 <> "" Then
CTA.AutoFilter field:", Criteria1:=Kilome
End If
If UserForm1.ComboBox3 <> "" Then
CTA.AutoFilter field:=6, Criteria1:=Producto
End If
If UserForm1.ComboBox6 <> "" Then
CTA.AutoFilter field:, Criteria1:=Fecha
End If
If UserForm1.ComboBox5 <> "" Then
CTA.AutoFilter field:, Criteria1:=Estviaje
End If
If UserForm1.ComboBox10 <> "" Then
CTA.AutoFilter field:, Criteria1:=Viaje
End If
If UserForm1.ComboBox11 <> "" Then
CTA.AutoFilter field:=9, Criteria1:=Transporte
End If
If UserForm1.ComboBox12 <> "" Then
CTA.AutoFilter field:, Criteria1:=Placas
End If
If UserForm1.CheckBox1 = True Then
CTA.AutoFilter field:=1, Criteria1:=">A5000", Operator:=xlAnd,
Criteria2:="<A6909"
End If
If UserForm1.CheckBox2 = True Then
CTA.AutoFilter field:=1, Criteria1:="<A5000", Operator:=xlOr,
Criteria2:=">A6909"
End If
If UserForm1.CheckBox5 = True Then
CTA.AutoFilter field:=8, Criteria1:="Rec"
End If
If UserForm1.CheckBox4 = True Then
CTA.AutoFilter field:=8, Criteria1:="FFC"
End If
If UserForm1.CheckBox3 = True Then
CTA.AutoFilter field:=8, Criteria1:="Ent"
End If
If UserForm1.CheckBox4 = True And UserForm1.CheckBox3 = True Then
CTA.AutoFilter field:=8, Criteria1:="FFC", Operator:=xlOr, Criteria2:="Ent"
End If
If UserForm1.CheckBox5 = True And UserForm1.CheckBox3 = True Then
CTA.AutoFilter field:=8, Criteria1:="Rec", Operator:=xlOr, Criteria2:="Ent"
End If
If UserForm1.CheckBox9 = True Then
CTA.AutoFilter field:&, Criteria1:="Sacos 25Kg"
End If
If UserForm1.CheckBox12 = True Then
CTA.AutoFilter field:&, Criteria1:="Sacos de 50 Kg."
End If
If UserForm1.CheckBox10 = True Then
CTA.AutoFilter field:&, Criteria1:="Granel"
End If
If UserForm1.CheckBox11 = True Then
CTA.AutoFilter field:&, Criteria1:="Big Bag"
End If
If UserForm1.CheckBox9 = True And UserForm1.CheckBox12 = True Then
CTA.AutoFilter field:&, Criteria1:="=Sacos*"
End If
If UserForm1.CheckBox9 = True And UserForm1.CheckBox10 = True Then
CTA.AutoFilter field:&, Criteria1:="Sacos 25Kg", Operator:=xlOr,
Criteria2:="Granel"
End If
If UserForm1.CheckBox9 = True And UserForm1.CheckBox11 = True Then
CTA.AutoFilter field:&, Criteria1:="Sacos 25Kg", Operator:=xlOr,
Criteria2:="Big Bag"
End If
If UserForm1.CheckBox12 = True And UserForm1.CheckBox10 = True Then
CTA.AutoFilter field:&, Criteria1:="Sacos de 50 Kg.", Operator:=xlOr,
Criteria2:="Granel"
End If
If UserForm1.CheckBox12 = True And UserForm1.CheckBox11 = True Then
CTA.AutoFilter field:&, Criteria1:="Sacos de 50 Kg.", Operator:=xlOr,
Criteria2:="Big Bag"
End If
If UserForm1.CheckBox10 = True And UserForm1.CheckBox11 = True Then
CTA.AutoFilter field:&, Criteria1:="Granel", Operator:=xlOr,
Criteria2:="Big Bag"
End If
If UserForm1.CheckBox9 = True And UserForm1.CheckBox12 = True And
UserForm1.CheckBox10 = True Then
CTA.AutoFilter field:&, Criteria1:="<>Big Bag"
End If
If UserForm1.CheckBox9 = True And UserForm1.CheckBox12 = True And
UserForm1.CheckBox11 = True Then
CTA.AutoFilter field:&, Criteria1:="<>Granel"
End If
If UserForm1.CheckBox9 = True And UserForm1.CheckBox10 = True And
UserForm1.CheckBox11 = True Then
CTA.AutoFilter field:&, Criteria1:="<>Sacos de 50 Kg."
End If
If UserForm1.CheckBox12 = True And UserForm1.CheckBox10 = True And
UserForm1.CheckBox11 = True Then
CTA.AutoFilter field:&, Criteria1:="<>Sacos 25Kg"
End If
If UserForm1.CheckBox6 = True Then
CTA.AutoFilter field:$, Criteria1:="<>CEMENTO MORTERO*",
Operator:=xlAnd, Criteria2:="<>CEMENTO PORTLAND BLANCO*"
End If
If UserForm1.CheckBox7 = True Then
CTA.AutoFilter field:$, Criteria1:="ÎMENTO MORTERO*"
End If
If UserForm1.CheckBox8 = True Then
CTA.AutoFilter field:$, Criteria1:="ÎMENTO PORTLAND BLANCO*"
End If
If UserForm1.CheckBox6 = True And UserForm1.CheckBox7 = True Then
CTA.AutoFilter field:$, Criteria1:="ÎMENTO MORTERO*", Operator:=xlOr,
Criteria2:="ÎMENTO PORTLAND GRIS*"
End If
If UserForm1.CheckBox6 = True And UserForm1.CheckBox8 = True Then
CTA.AutoFilter field:$, Criteria1:="ÎMENTO PORTLAND BLANCO*",
Operator:=xlOr, Criteria2:="ÎMENTO PORTLAND GRIS*"
End If
If UserForm1.CheckBox8 = True And UserForm1.CheckBox7 = True Then
CTA.AutoFilter field:$, Criteria1:="ÎMENTO MORTERO*", Operator:=xlOr,
Criteria2:="ÎMENTO PORTLAND BLANCO*"
End If
If UserForm1.CheckBox14 = True Then
CTA.AutoFilter field:=4, Criteria1:="<>9"
End If
If UserForm1.CheckBox13 = True Then
CTA.AutoFilter field:=4, Criteria1:="9"
End If
If UserForm1.CheckBox15 = True Then
CTA.AutoFilter field: , Criteria1:="SP"
End If
If UserForm1.CheckBox16 = True Then
CTA.AutoFilter field: , Criteria1:="", Operator:=xlAnd, field:&,
Criteria2:="<>Granel"
End If
With Worksheets("INTERF")
.Cells(1, 1).CurrentRegion.Copy
End With
With Worksheets("INTERF")
.Cells(1, 36).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
End With
With Worksheets("INTERF")
.Cells(1, 32).CurrentRegion.Copy
End With
With Worksheets("INTERF")
.Cells(1, 67).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
End With
CTA.AutoFilter

'PRUEBA CON MAS 15 COLUMNAS
If Worksheets("INTERF").Range("aj2") <> "" Then
Dim LDEST, LEDO, LCD, LSKU, LORIGEN, LTPT, LFLETERO, LPLACAS, LVIAJE,
LESTVIA, LFECHA, LTON, LFLETE, LFLETETON, LKM As Object
With Worksheets("INTERF").Range("aj1").CurrentRegion
Set LDEST = Worksheets("INTERF").Range("aj1").Resize(.Rows.Count)
Set LEDO = Worksheets("INTERF").Range("ak1").Resize(.Rows.Count)
Set LCD = Worksheets("INTERF").Range("al1").Resize(.Rows.Count)
Set LSKU = Worksheets("INTERF").Range("ao1").Resize(.Rows.Count)
Set LORIGEN = Worksheets("INTERF").Range("ap1").Resize(.Rows.Count)
Set LTPT = Worksheets("INTERF").Range("aq1").Resize(.Rows.Count)
Set LFLETERO = Worksheets("INTERF").Range("ar1").Resize(.Rows.Count)
Set LPLACAS = Worksheets("INTERF").Range("as1").Resize(.Rows.Count)
Set LVIAJE = Worksheets("INTERF").Range("av1").Resize(.Rows.Count)
Set LESTVIA = Worksheets("INTERF").Range("aw1").Resize(.Rows.Count)
Set LFECHA = Worksheets("INTERF").Range("ax1").Resize(.Rows.Count)
Set LTON = Worksheets("INTERF").Range("bb1").Resize(.Rows.Count)
Set LFLETE = Worksheets("INTERF").Range("bd1").Resize(.Rows.Count)
Set LFLETETON = Worksheets("INTERF").Range("bf1").Resize(.Rows.Count)
Set LKM = Worksheets("INTERF").Range("be1").Resize(.Rows.Count)
End With
With Worksheets("INTERF")
LDEST.Copy
.Range("bu1").PasteSpecial
LEDO.Copy
.Range("bv1").PasteSpecial
LCD.Copy
.Range("bw1").PasteSpecial
LSKU.Copy
.Range("bx1").PasteSpecial
LORIGEN.Copy
.Range("by1").PasteSpecial
LTPT.Copy
.Range("bz1").PasteSpecial
LFLETERO.Copy
.Range("ca1").PasteSpecial
LPLACAS.Copy
.Range("cb1").PasteSpecial
LVIAJE.Copy
.Range("cc1").PasteSpecial
LESTVIA.Copy
.Range("cd1").PasteSpecial
LFECHA.Copy
.Range("ce1").PasteSpecial
LTON.Copy
.Range("cf1").PasteSpecial
LFLETE.Copy
.Range("cg1").PasteSpecial
LFLETETON.Copy
.Range("ch1").PasteSpecial
LKM.Copy
.Range("ci1").PasteSpecial
End With
With Worksheets("INTERF")
.Range("bu1").Copy
.Range("bu1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
End With
With Worksheets("INTERF")
.Columns("ce:ce").NumberFormat = "[$-409]d-mmm-yyyy;@"
.Columns("cg:cg").NumberFormat = "[$-409]$ #,##0.00;@"
.Columns("ch:ch").NumberFormat = "[$-409]$ #,##0.00;@"
End With
_______________________________
Aquí estoy trabajando con la propiedad list ya que RowSource no funciona..
__________________________
With Worksheets("INTERF").Range("bu1").CurrentRegion
UserForm1.ListBox1.ColumnCount = .Columns.Count
UserForm1.ListBox1.List = .Offset(1, 0).Resize(.Rows.Count - 1).Value
End With
_________________________________
With Worksheets("INTERF")
.Range("bu1").CurrentRegion.ClearContents
End With
End If
If Worksheets("INTERF").Cells(1, 36) <> "" Then
Set TONELA = Worksheets("INTERF").Cells(2,
54).Resize(Worksheets("INTERF").Cells(2, 54).CurrentRegion.Rows.Count - 1)
TONELADA = WorksheetFunction.Sum(TONELA)
UserForm1.Label8.Caption = Format(TONELADA, "#,##0.00")
End If
If Worksheets("INTERF").Cells(1, 36) <> "" Then
Set FLETE = Worksheets("INTERF").Cells(2,
56).Resize(Worksheets("INTERF").Cells(2, 56).CurrentRegion.Rows.Count - 1)
FLETES = WorksheetFunction.Sum(FLETE)
UserForm1.Label10.Caption = Format(FLETES, "$ #,##0.00")
End If
If Worksheets("INTERF").Range("aj2") <> "" Then
UserForm1.Label12.Caption = Format(Label10.Caption / Label8.Caption, " $
#,##0.00")
Set RAN = Worksheets("INTERF").Cells(2,
67).Resize(Worksheets("INTERF").Cells(2, 64).CurrentRegion.Rows.Count)
teorico = WorksheetFunction.Sum(RAN)
UserForm1.Label6.Caption = teorico
UserForm1.Label26.Caption = Format(Label8.Caption / Label6.Caption, "
#,##0.00")
If Worksheets("FECHAS").Range("C9") < Worksheets("FECHAS").Range("C8") Then
UserForm1.Label24.Caption = Format(Label8.Caption /
Worksheets("FECHAS").Range("C7"), " #,##0.00")
UserForm1.Label15.Caption = Format(Label24.Caption *
Worksheets("FECHAS").Range("C5"), " #,##0.00")
End If
If Worksheets("FECHAS").Range("C9") > Worksheets("FECHAS").Range("C8") Then
UserForm1.Label15.Caption = Format(Label8.Caption, " #,##0.00")
UserForm1.Label24.Caption = Format(Label8.Caption /
Worksheets("FECHAS").Range("C5"), " #,##0.00")
End If
End If
If Worksheets("INTERF").Range("aj2") <> "" Then
Set KMPR = Worksheets("INTERF").Cells(2,
57).Resize(Worksheets("INTERF").Cells(2, 57).CurrentRegion.Rows.Count)
KMMPRR = WorksheetFunction.Average(KMPR)
UserForm1.Label69.Caption = Format(KMMPRR, "#,##0")
End If
If CheckBox4 = True And CheckBox1 = False And CheckBox2 = False And
CheckBox3 = False And CheckBox5 = False And CheckBox6 = False And _
CheckBox7 = False And CheckBox8 = False And CheckBox13 = False And
CheckBox14 = False And CheckBox11 = False And _
CheckBox15 = False And CheckBox16 = False And ComboBox4 = "" And
ComboBox7 = "" And ComboBox9 = "" And _
ComboBox3 = "" And ComboBox10 = "" And ComboBox11 = "" And ComboBox12 =
"" And ComboBox6 = "" And _
ComboBox5 = "" And Worksheets("INTERF").Range("AJ2") <> "" Then
Dim Furgon As Object
Set Furgon = Worksheets("INTERF").Cells(1,
45).Resize(Worksheets("INTERF").Cells(1, 45).CurrentRegion.Rows.Count - 1)
Furgon.AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Worksheets("INTERF").Range("BR1"), Unique:=True
Ciclo = Worksheets("INTERF").Range("BR2").CurrentRegion.Rows.Count - 1
Label64.Caption = Ciclo
Label65.Caption = Format(Label6.Caption / Label64.Caption, "#,##0.00")
With Worksheets("INTERF")
Range("BR1").CurrentRegion.ClearContents
End With
End If
If CheckBox4 = False And _
CheckBox1 = False And CheckBox2 = False And CheckBox3 = False And _
CheckBox5 = False And CheckBox6 = False And CheckBox7 = False And _
CheckBox8 = False And CheckBox9 = False And CheckBox10 = False And _
CheckBox11 = False And CheckBox12 = False And CheckBox13 = False And _
CheckBox14 = False And CheckBox15 = False And CheckBox16 = False And _
ComboBox2 = "" And ComboBox4 = "" And ComboBox7 = "" And _
ComboBox9 = "" And ComboBox3 = "" And ComboBox10 = "" And _
ComboBox11 = "" And ComboBox12 = "" And ComboBox6 = "" And _
ComboBox5 = "" Then
With Worksheets("FECHAS")
.Range("C14") = ComboBox1.Value
.Range("C15") = ComboBox1.Value
.Range("C17") = ComboBox1.Value
.Range("C18") = ComboBox1.Value
.Range("D20") = ComboBox1.Value
.Range("D30") = ComboBox1.Value
.Range("C32") = ComboBox1.Value
.Range("C30") = ComboBox2.Value
.Range("B32") = ComboBox2.Value
End With
Label32.Caption = Format(Worksheets("FECHAS").Range("A22") * 100, "#,##0")
Label34.Caption = Format(Worksheets("FECHAS").Range("A24") * 100, "#,##0")
Label28.Caption = Format(Worksheets("FECHAS").Range("B27") * 100, "#,##0")
Label30.Caption = Format(Worksheets("FECHAS").Range("C27") * 100, "#,##0")
End If
If CheckBox4 = False And _
CheckBox1 = False And CheckBox2 = False And CheckBox3 = False And _
CheckBox5 = False And CheckBox6 = False And CheckBox7 = False And _
CheckBox8 = False And CheckBox10 = False And _
CheckBox11 = False And CheckBox13 = False And _
CheckBox14 = False And CheckBox15 = False And CheckBox16 = False And _
ComboBox4 = "" And ComboBox7 = "" And _
ComboBox9 = "" And ComboBox3 = "" And ComboBox10 = "" And _
ComboBox11 = "" And ComboBox12 = "" And ComboBox6 = "" And _
ComboBox5 = "" Then
With Worksheets("FECHAS")
.Range("C14") = ComboBox1.Value
.Range("C15") = ComboBox1.Value
.Range("C17") = ComboBox1.Value
.Range("C18") = ComboBox1.Value
.Range("D20") = ComboBox1.Value
.Range("D30") = ComboBox1.Value
.Range("C32") = ComboBox1.Value
.Range("B30") = ComboBox2.Value
.Range("B32") = ComboBox2.Value
.Range("C30") = "<>Gran*"
End With
If Worksheets("FECHAS").Range("A30") <> "0" Or
Worksheets("FECHAS").Range("A32") <> "0" Then
Label22.Caption = Format(Worksheets("FECHAS").Range("C35") * 100,
"#,##0.00")
End If
End If
With Worksheets("FECHAS")
.Range("C14") = ""
.Range("C15") = ""
.Range("C17") = ""
.Range("C18") = ""
.Range("D20") = ""
.Range("D30") = ""
.Range("C32") = ""
.Range("C30") = ""
.Range("B30") = ""
.Range("B32") = ""
End With
With Worksheets("INTERF")
.Cells(1, 36).CurrentRegion.ClearContents
End With
With Worksheets("INTERF")
.Cells(1, 67).CurrentRegion.ClearContents
End With
With Worksheets("INTERF")
.Cells(1, 70).CurrentRegion.ClearContents
End With
Set CTA = Nothing: Set Orig = Nothing: Set Dest = Nothing
Set cdDest = Nothing: Set Edo = Nothing: Set Kilo = Nothing
Set Prod = Nothing: Set Fech = Nothing: Set Estvia = Nothing
Set Via = Nothing: Set Transp = Nothing: Set Plac = Nothing
Set LDEST = Nothing: Set LEDO = Nothing: Set LCD = Nothing
Set LSKU = Nothing: Set LORIGEN = Nothing: Set LTPT = Nothing
Set LFLETERO = Nothing: Set LPLACAS = Nothing: Set LVIAJE = Nothing
Set LESTVIA = Nothing: Set LFECHA = Nothing: Set LTON = Nothing
Set LFLETE = Nothing: Set LFLETETON = Nothing: Set LKM = Nothing
ListBox1.SetFocus
Exit Sub
Salidas:
MsgBox "Se ha producido un error en selección"
With Worksheets("INTERF")
Range("AJ1:IV65000").ClearContents
End With
Exit Sub
End Sub

"" escribió en el mensaje news:

Fernando,

Este código funciona en cualquier libro, pero en este no.
Hay un detalle, si borro los datos después de capturarlos en el listbox, con
RowSource no funciona y si con List.
Sabes algún código para colocar los nombres de las columnas con la propiedad
List ??

No conozco dicho código, y hasta donde sé no es posible.

De cualquier forma te paso lo que tengo antes y después del código que me
pasaste:

Pues te pido perdón, pero no tengo tiempo de meterme más de 400 líneas de código "a palo seco". Si lo intentara, tendría que estar días sin contestar ningún otro mensaje, y el objetivo de estos grupos de noticias no es la consultoría sino el intento de ayudar en problemas "puntuales".
Un saludo.


Fernando Arroyo
MS MVP - Excel

Private Sub CommandButton2_Click()

[405 líneas de código]

End Sub

Fernando,

Muchas gracias por tu apoyo.
en realidad es demasiado grande lo que mandé, pero me es de mucha utilidad
el apoyo que me has dado.

Muchísimas gracias.
Un saludo.
Jorge.

"Fernando Arroyo" wrote:

"" escribió en el mensaje news:
> Fernando,
>
> Este código funciona en cualquier libro, pero en este no.
> Hay un detalle, si borro los datos después de capturarlos en el listbox, con
> RowSource no funciona y si con List.
> Sabes algún código para colocar los nombres de las columnas con la propiedad
> List ??
>

No conozco dicho código, y hasta donde sé no es posible.

> De cualquier forma te paso lo que tengo antes y después del código que me
> pasaste:
>

Pues te pido perdón, pero no tengo tiempo de meterme más de 400 líneas de código "a palo seco". Si lo intentara, tendría que estar días sin contestar ningún otro mensaje, y el objetivo de estos grupos de noticias no es la consultoría sino el intento de ayudar en problemas "puntuales".
Un saludo.


Fernando Arroyo
MS MVP - Excel

> Private Sub CommandButton2_Click()
[405 líneas de código]
> End Sub
>
>

Fernando,

Sigo con el mismo problema. solo te quiero pedir que me apoyes en lo
siguiente.
Afecta el que esté en copymode la aplicación ?
Afecta el formato de las celdas en la aplicación?

Todo esto para poder llenar el Listbox.
De antemano, gracias.
Un saludo.
Jorge.

"Fernando Arroyo" wrote:

"" escribió en el mensaje news:
> Fernando,
>
> Este código funciona en cualquier libro, pero en este no.
> Hay un detalle, si borro los datos después de capturarlos en el listbox, con
> RowSource no funciona y si con List.
> Sabes algún código para colocar los nombres de las columnas con la propiedad
> List ??
>

No conozco dicho código, y hasta donde sé no es posible.

> De cualquier forma te paso lo que tengo antes y después del código que me
> pasaste:
>

Pues te pido perdón, pero no tengo tiempo de meterme más de 400 líneas de código "a palo seco". Si lo intentara, tendría que estar días sin contestar ningún otro mensaje, y el objetivo de estos grupos de noticias no es la consultoría sino el intento de ayudar en problemas "puntuales".
Un saludo.


Fernando Arroyo
MS MVP - Excel

> Private Sub CommandButton2_Click()
[405 líneas de código]
> End Sub
>
>

Fernando,

encontré el problema !!!

Tengo 10 combos que se llenan con AddItem y es lo que convierte en "null"
los datos que van al ListBox.

Sabes cómo bloquear este problema ?

De antemano, gracias.
Un saludo.
Jorge