Como cargar información en textbox con características especiales
Recibí su información y es de gran ayuda, espero que me ayude a cargar la información de las demás características, pero con unas características las cuales son:
-centímetros, densidad, peso crudo, mallas, columnas, peso lavado. (redondeado)
-bastidor, ancho crudo, estiraje, tensiones, ancho lavado.(con 2 decimales)
-el nombre sea el del estilo
espero de su ayuda
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro para cargar todas las características.
Private Sub ESTILO_Change()
'Por.Dante Amor
Set h = Sheets("DATOS HISTORICOS")
Set b = h.Columns("A").Find(ESTILO, lookat:=xlWhole)
NOMBRE = h.Cells(b.Row, "B")
On Error Resume Next
CENTIMETROS = Round(Application.AverageIf(Columns("A"), ESTILO, Columns("C")))
DENSIDAD = Round(Application.AverageIf(Columns("A"), ESTILO, Columns("D")))
PESOCRUDO = Round(Application.AverageIf(Columns("A"), ESTILO, Columns("F")))
MALLAS = Round(Application.AverageIf(Columns("A"), ESTILO, Columns("H")))
COLUMNAS = Round(Application.AverageIf(Columns("A"), ESTILO, Columns("I")))
PESOLAVADO = Round(Application.AverageIf(Columns("A"), ESTILO, Columns("N")))
'
BASTIDOR = Format(Application.AverageIf(Columns("A"), ESTILO, Columns("E")), "#.00")
ANCHOCRUDO = Format(Application.AverageIf(Columns("A"), ESTILO, Columns("G")), "#.00")
ESTIRAJE = Format(Application.AverageIf(Columns("A"), ESTILO, Columns("J")), "#.00")
TENSIONESLICRA = Format(Application.AverageIf(Columns("A"), ESTILO, Columns("K")), "#.00")
TENSIONESHILO = Format(Application.AverageIf(Columns("A"), ESTILO, Columns("L")), "#.00")
ANCHOLAVADO = Format(Application.AverageIf(Columns("A"), ESTILO, Columns("M")), "#.00")
End Sub
Private Sub ESTILO_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Por.Dante Amor
KeyAscii = 0
End Sub
Private Sub SALIR_Click()
Unload Me
End Sub
Private Sub UserForm_Activate()
'Por.Dante Amor
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
agregar ESTILO, Cells(i, "A")
Next
End Sub
Sub agregar(combo As ComboBox, dato As String)
'Por.Dante Amor
For i = 0 To combo.ListCount - 1
Select Case StrComp(combo.List(i), dato, vbTextCompare)
Case 0: Exit Sub 'ya existe en el combo y ya no lo agrega
Case 1: combo.AddItem dato, i: Exit Sub 'Es menor, lo agrega antes del comparado
End Select
Next
combo.AddItem dato 'Es mayor lo agrega al final
End SubSaludos.Dante Amor
Recuerda valorar la respuesta.
