VBA: problema al rellenar un textbox según un combobox
Resuelto
Hola a todos,
Soy principiante en VBA y me dirijo a ustedes con la esperanza de que puedan ayudarme un poco.
Tengo un pequeño problema que creo que les parecerá bastante simple, pero personalmente me complica bastante el trabajo...
Les explico:
tengo un userform en el que hay un combobox1 y un textbox1
en mi combobox1 hay fechas (del tipo 01/01/2014...etc) que corresponden a la fecha de pago de las mensualidades de un préstamo.
Me gustaría que en mi textbox1 se indicara el valor del capital restante (columna J) en función de la fecha elegida.
He ingresado esta fórmula:
Private Sub ComboBox1_Change()
Dim rango As Range
'Sheets("Tableau Seul").Select
Set rango = Sheets("Tableau Seul").Range("K14:K100")
rango.Select
e = rango.Row
TextBox1 = Sheets("Tableau Seul").Range("J" & e).Value
End Sub
Pero el problema es que el valor que aparece en el textbox sigue siendo siempre el mismo (el de mi celda J14), incluso cuando cambio la fecha... Creo que el error está en mis 2 últimas líneas con el "e", pero no logro entender dónde se encuentra el problema...
Puedo enviarles mi archivo de Excel si no he sido lo suficientemente claro.
Así que si alguien tiene una solución o corrección que proponerme, se lo agradecería mucho.
Gracias de antemano,
Atentamente
Soy principiante en VBA y me dirijo a ustedes con la esperanza de que puedan ayudarme un poco.
Tengo un pequeño problema que creo que les parecerá bastante simple, pero personalmente me complica bastante el trabajo...
Les explico:
tengo un userform en el que hay un combobox1 y un textbox1
en mi combobox1 hay fechas (del tipo 01/01/2014...etc) que corresponden a la fecha de pago de las mensualidades de un préstamo.
Me gustaría que en mi textbox1 se indicara el valor del capital restante (columna J) en función de la fecha elegida.
He ingresado esta fórmula:
Private Sub ComboBox1_Change()
Dim rango As Range
'Sheets("Tableau Seul").Select
Set rango = Sheets("Tableau Seul").Range("K14:K100")
rango.Select
e = rango.Row
TextBox1 = Sheets("Tableau Seul").Range("J" & e).Value
End Sub
Pero el problema es que el valor que aparece en el textbox sigue siendo siempre el mismo (el de mi celda J14), incluso cuando cambio la fecha... Creo que el error está en mis 2 últimas líneas con el "e", pero no logro entender dónde se encuentra el problema...
Puedo enviarles mi archivo de Excel si no he sido lo suficientemente claro.
Así que si alguien tiene una solución o corrección que proponerme, se lo agradecería mucho.
Gracias de antemano,
Atentamente
