Asociar un textbox a la columna de un rangue
Tengo un formulario que funciona con esta formula:
For x = 5 To Range("A" & Rows.Count).End(xlUp).Row
If prov = (Range("C" & x)) Then
If Año1 = Year(Range("A" & x)) Then
Sumasf(1) = Sumasf(1) + Range("F" & x)
End If
En la suma busca los los datos de la columna F, lo que estoy intentando ahora es poder cambiar de columna puesto que esta es sin los impuestos y puede que algunas veces lo necesite con los impuestos que están en la columna H, he intentado lo siguiente:
col = TextBox22.value
Sumasf(1) = Sumasf(1) + Range("col" & x)
He probado poniendo H en el textbox22 y 8 y no me funciona de ninguna manera, alguien sabe como resolverlo
1 Respuesta
Respuesta de Dante Amor
1
Cambia tu código por esto:
Private Sub ComboBox1_Change()
Dim i As Long, j As Long
If TextBox22.value = "" Then
MsgBox "Captura la columna"
Exit Sub
End If
If ComboBox1.value = "" Or ComboBox1.ListIndex = -1 Then
Exit Sub
End If
For j = 1 To 20
Controls("F" & j).value = 0
Next
'
For i = 5 To Range("A" & Rows.Count).End(3).Row
If Range("C" & i).value = ComboBox1.value Then
For j = 1 To 20
If Year(Range("A" & i).value) = Val(Controls("TextBox" & j)) Then
Controls("F" & j).value = Controls("F" & j).value + Range(TextBox22.value & i).value
End If
Next
End If
Next
End Sub[
[No olvides valorar la respuesta.
.
