Anónimo
Formularios En Excel
Saludos Experto Parmijo
Estoy trabajando con formularios en excel y tengo uno que guarda los registros de edad y salario. El problema es que el formulario lo abro en la hoja 4 y deseo que los datos se vayan guardando en la hoja 7, que en este caso es mi hoja de almacenamiento de datos.
¿Cómo le puedo hacer para que el formulario me guarde los datos en la hoja 7, abriéndolo desde la hoja 4, sin que el formulario cambie de hoja?
Esto ultimo lo comento, porque algunos formularios te trasladan directamente a la hoja donde se almacenan los datos Y en este caso Mi hoja 7 NO DEBE DE MOSTRARSE.
Espero que ME PUEDAS AYUDAR.
Estoy trabajando con formularios en excel y tengo uno que guarda los registros de edad y salario. El problema es que el formulario lo abro en la hoja 4 y deseo que los datos se vayan guardando en la hoja 7, que en este caso es mi hoja de almacenamiento de datos.
¿Cómo le puedo hacer para que el formulario me guarde los datos en la hoja 7, abriéndolo desde la hoja 4, sin que el formulario cambie de hoja?
Esto ultimo lo comento, porque algunos formularios te trasladan directamente a la hoja donde se almacenan los datos Y en este caso Mi hoja 7 NO DEBE DE MOSTRARSE.
Espero que ME PUEDAS AYUDAR.
1 Respuesta
Respuesta de parmijo
1
Utiliza la Función cells
Y para referirte a otras hojas sin selecionarlas utilizas
Sheets("Nonbre_de_la_hoja").cells(Fila, columna)
Ejemplo para referirse a celdas
a1 = cells(1,1)
a5= cells(1,5)
B1= cells(2,1)
B5=cells(2,5)
Puedes referirte
Sheets("Hoja1"). cells(2, 1). VALUE =TXTBOX1
de esta forma estas escribiendo datos sin seleccionar la hoja1
saludos
cualquier duda , estoy atento
Y para referirte a otras hojas sin selecionarlas utilizas
Sheets("Nonbre_de_la_hoja").cells(Fila, columna)
Ejemplo para referirse a celdas
a1 = cells(1,1)
a5= cells(1,5)
B1= cells(2,1)
B5=cells(2,5)
Puedes referirte
Sheets("Hoja1"). cells(2, 1). VALUE =TXTBOX1
de esta forma estas escribiendo datos sin seleccionar la hoja1
saludos
cualquier duda , estoy atento
Saludos parmijo;
Creo que soy demasiado novato en excel. Mira este es el codigo de mi formulario;
Private Sub CommandButton1_Click()
Rem inserta un renglón
Selection.EntireRow.Insert
Rem Empty Limpia Los Textbox
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
Rem Textbox1.SetFocus Envía el cursor al Textbox1 para volver a capturar los datos
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Range("A9").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
Range("B9").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("C9").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub
Como puedes ver, cada que inserto un nuevo registro se va guardando en la fila a9, b9 y c9 lo que me genera que se almacenen los datos. Es la hoja 4
¿Cómo puedo aplicar el código que me mandaste para que lo vaya guardando en la hoja 7 en l columna b1 sin que me desplace el formulario a la hoja 7?
Agradezco tu paciencia.
Creo que soy demasiado novato en excel. Mira este es el codigo de mi formulario;
Private Sub CommandButton1_Click()
Rem inserta un renglón
Selection.EntireRow.Insert
Rem Empty Limpia Los Textbox
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
Rem Textbox1.SetFocus Envía el cursor al Textbox1 para volver a capturar los datos
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Range("A9").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
Range("B9").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("C9").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub
Como puedes ver, cada que inserto un nuevo registro se va guardando en la fila a9, b9 y c9 lo que me genera que se almacenen los datos. Es la hoja 4
¿Cómo puedo aplicar el código que me mandaste para que lo vaya guardando en la hoja 7 en l columna b1 sin que me desplace el formulario a la hoja 7?
Agradezco tu paciencia.
Por ejemplo:
Private Sub TextBox1_Change()
Sheets("Hoja7").Range("b1").value=TextBox1
End Sub
Private Sub TextBox1_Change()
Sheets("Hoja7").Range("b1").value=TextBox1
End Sub