Consultar y modificar con textbox
Necesito consultar y luego modificar valores de una tabla. Lo siguiente explica lo que tengo
Los valores de las celdas los capturo en varios TextBox (en total son 11), pero con la instrucción que tengo solo me toma los 4 primeros valores, se para la búsqueda en la columna E, donde tengo guardado un dato de fecha.
Acá dejo la instrucción
Dim a, b
a = TextBox1
b = TextBox2
For x = 14 To 200
With Hoja3
If a = .Range("A" & x) Then
TextBox1 = .Range("A" & x).FormulaR1C1
TextBox2 = .Range("B" & x).FormulaR1C1
TextBox3 = .Range("C" & x).FormulaR1C1
TextBox4 = .Range("D" & x).FormulaR1C1
TextBox5 = .Range("E" & x).FormulaR1C1
TextBox6 = .Range("F" & x).FormulaR1C1
TextBox7 = .Range("G" & x).FormulaR1C1
TextBox8 = .Range("H" & x).FormulaR1C1
TextBox9 = .Range("I" & x).FormulaR1C1
TextBox10 = .Range("J" & x).FormulaR1C1
TextBox11 = .Range("K" & x).FormulaR1C1
TextBox12 = .Range("L" & x).FormulaR1C1
TextBox13 = .Range("M" & x).FormulaR1C1
TextBox14 = .Range("N" & x).FormulaR1C1
'ActiveCell.PivotTable.DataLabelRange.Select
End If
End With
Next x
Los valores de las celdas los capturo en varios TextBox (en total son 11), pero con la instrucción que tengo solo me toma los 4 primeros valores, se para la búsqueda en la columna E, donde tengo guardado un dato de fecha.
Acá dejo la instrucción
Dim a, b
a = TextBox1
b = TextBox2
For x = 14 To 200
With Hoja3
If a = .Range("A" & x) Then
TextBox1 = .Range("A" & x).FormulaR1C1
TextBox2 = .Range("B" & x).FormulaR1C1
TextBox3 = .Range("C" & x).FormulaR1C1
TextBox4 = .Range("D" & x).FormulaR1C1
TextBox5 = .Range("E" & x).FormulaR1C1
TextBox6 = .Range("F" & x).FormulaR1C1
TextBox7 = .Range("G" & x).FormulaR1C1
TextBox8 = .Range("H" & x).FormulaR1C1
TextBox9 = .Range("I" & x).FormulaR1C1
TextBox10 = .Range("J" & x).FormulaR1C1
TextBox11 = .Range("K" & x).FormulaR1C1
TextBox12 = .Range("L" & x).FormulaR1C1
TextBox13 = .Range("M" & x).FormulaR1C1
TextBox14 = .Range("N" & x).FormulaR1C1
'ActiveCell.PivotTable.DataLabelRange.Select
End If
End With
Next x
Respuesta de snd_alx
1
No se exactamente que es lo que estas intentando trasladar a los textboxes, pero me imagino que se trata del contenido de las celdas y no de su fórmula, por eso te recomiendo que utilices bien .value o .text para asignar el valor a tus textboxes, es decir:
TextBox4 = .Range("D" & x).Value
ó
TextBox4 = .Range("D" & x).Text
También te recomiendo para otros bucles que accedas a los contenidos mediante cells en lugar de range; al igual que las filas están numeradas del 1 al 65000, las columnas lo están del 1 al 256, de modo que puede parametrizar el acceso a ellas de forma directa de la siguiente manera:
Cells(<fila>,<columna>)
Range("A1") => cells(1,1)
Range("C5") => cells(5,3)
TextBox5 = .cells(x,5).Text
TextBox4 = .Range("D" & x).Value
ó
TextBox4 = .Range("D" & x).Text
También te recomiendo para otros bucles que accedas a los contenidos mediante cells en lugar de range; al igual que las filas están numeradas del 1 al 65000, las columnas lo están del 1 al 256, de modo que puede parametrizar el acceso a ellas de forma directa de la siguiente manera:
Cells(<fila>,<columna>)
Range("A1") => cells(1,1)
Range("C5") => cells(5,3)
TextBox5 = .cells(x,5).Text
