Visual Basic para Aplicaciones - Asociar un textbox a la columna de un rangue

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 177
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Asociar un textbox a la columna de un rangue

Publicado por Albert (204 intervenciones) el 14/11/2021 20:48:36
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)
o bien
Sumasf(1) = Sumasf(1) + Range(x,col)

He probado poniendo H en el textbox22 y 8 y no me funciona de ninguna manera, alguien sabe como resolverlo
gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Norberto
Val: 115
Bronce
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Asociar un textbox a la columna de un rangue

Publicado por Norberto (14 intervenciones) el 26/11/2021 09:29:01
Hola:

Puedes usar Offset de la siguiente manera:

Sumasf(1) = Sumasf(1) + Range("F" & x).Offset(0,IIf(TextBox22.Value = "TAX", 2, 0)

Si en el cuadro de texto escribes TAX (o cualquier otra cosa que tú decidas) tomará la celda que esté dos más a la derecha (en este caso, al H) y en cualquier otro caso, la propia celda de la columa F.

Otra posibilidad sería:

Sumasf(1) = Sumasf(1) + Range(IIf(TextBox22.Value = "TAX", "H", "F") & x)

Un saludo,

Norberto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar