Manejo de Formulario
Tengo una dificultad y necesito que alguien me ayude. La situación es esta tengo un formulario y quiero utilizarlo para que me ingrese la información en diferentes hojas de un libro yo mando a llamar la hoja con anticipación y me ubico en la hoja activa ademas se me muestra el formulario pero no he logrado que me ingrese los datos en la hoja. E problema esta cuando cambio a otra hoja he estao utilizando este código
Dim iFila As Long
Dim ws As Worksheet
Dim Fecha As String
Dim Cant As Integer
Set ws = Worksheets(1)
Fecha = TextBox1
Cant = TextBox2
'encuenta la siguiente fila vacía
iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Rem asignaciones de datos
ws.Cells(iFila, 2).Value = Fecha
ws.Cells(iFila, 3).Value = Cant
'limpa el formulario
Cant = ""
Fecha = ""
Sheets("General").Select
Agradezco su ayuda
Jhonpe
Dim iFila As Long
Dim ws As Worksheet
Dim Fecha As String
Dim Cant As Integer
Set ws = Worksheets(1)
Fecha = TextBox1
Cant = TextBox2
'encuenta la siguiente fila vacía
iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Rem asignaciones de datos
ws.Cells(iFila, 2).Value = Fecha
ws.Cells(iFila, 3).Value = Cant
'limpa el formulario
Cant = ""
Fecha = ""
Sheets("General").Select
Agradezco su ayuda
Jhonpe
1 respuesta
Respuesta de calvuch
1
Este es el "problema"
Set ws = Worksheets(1)
Estas tomando siempre solo la hoja ubicada en la posición ( indice) 1 que por lo general es la Hoja1.
Debes hacer dinámico ese indice, si estas tomando la hoja en forma manual
Bastaría con indicarlos así.
Set ws = Worksheets(Activesheet.index)
Lo cual tomaría la hoja activa en que estés.
Lo otro es agregar un botón a tu form para aumentar el indice el cual debería ser ina variable integer, algo así como un botón "sgte".
Set ws = Worksheets(1)
Estas tomando siempre solo la hoja ubicada en la posición ( indice) 1 que por lo general es la Hoja1.
Debes hacer dinámico ese indice, si estas tomando la hoja en forma manual
Bastaría con indicarlos así.
Set ws = Worksheets(Activesheet.index)
Lo cual tomaría la hoja activa en que estés.
Lo otro es agregar un botón a tu form para aumentar el indice el cual debería ser ina variable integer, algo así como un botón "sgte".
