Ayuda formula excel
tengo problemas con este
Sheets("Hoja2").Cells(ult, "A") = ComboBox1
Sheets("Hoja2").Cells(ult, "B") = ComboBox2
Sheets("Hoja2").Cells(ult, "C") = TextBox1
Sheets("Hoja2").Cells(ult, "D") = TextBox2
Sheets("Hoja2").Cells(ult, "E") = TextBox3
Sheets("Hoja2").Cells(ult, "F") = TextBox4
Sheets("Hoja2").Cells(ult, "G") = TextBox5
Sheets("Hoja2").Cells(ult, "H") = TextBox6
Sheets("Hoja2").Cells(ult, "I") = TextBox7
Sheets("Hoja2").Cells(ult, "J") = TextBox9
Sheets("Hoja2").Cells(ult, "K") = TextBox8
'henry
'La lista tiene encabezados
ListBox1.ColumnHeads = True
'número de columnas de la lista
ListBox1.ColumnCount = 11
'Cargar la lista de la hoja2
ListBox1.RowSource = "Hoja2!A2:K" & Sheets("Hoja2").Range("A" & Rows.Count).End(xlUp).Row
SI TENGO SELECCIONADA LA HOJA 3 Y EJECUTO EL FORMULARIO..
OS I LO EJECUTO AUTOMÁTICAMENTE.. OCULTANDO EXCEL. NO ME COPIA LOS DATOS NI NADA Y COMO QUE NO FUNCIONA BIEN ;(
1 Respuesta
pues es que digamos me agrega los datos como si estuviera la hoja 3 activa..
pero al darle llenar lista..
solo me muestra los de la Hoja 2
no se por que me los copia en la Hoja3
No ya solucione el problema..
Me ayudarías con esto mejor..
ListBox1
Como acomodo el ancho de las Columnas ?? algunas solo Tengo que escribir 1 unmero en otraas un nombre Largo..
Gracias
Para el ancho lo hago así
With Sheets("hoja1")
ancho = Int(.Range("A1").Width + 3) & ";" & Int(.Range("B1").Width + 3) & ";" & _
Int(.Range("C1").Width + 3) & ";" & Int(.Range("D1").Width + 3) & ";" & _
Int(.Range("E1").Width + 3)
End With
ListBox1. ColumnWidths = anchocambia hoja1 por el nombre de tu hoja.
Cambia listbox1 por el nombre de tu list
En este ejemplo puse las columnas de la A a la E
