¿Cómo puedo hacer que los datos de un formulario se ingresen solo en una sheet especifica en excel?

Había preguntado y me dijeron que tenia que cambiar el siguiente código 

Private Sub INGRE_BTN_Click()
ActiveSheet.Cells(5, 3).Select
Selection.EntireRow.Insert
ActiveSheet.Cells(5, 3) = TextBox1
ActiveSheet.Cells(5, 4) = TextBox2
ActiveSheet.Cells(5, 5) = TextBox3
ActiveSheet.Cells(5, 6) = TextBox4
ActiveSheet.Cells(5, 7) = TextBox5
ActiveSheet.Cells(5, 8) = TextBox6
ActiveSheet.Cells(5, 9) = TextBox7
ActiveSheet.Cells(5, 10) = TextBox8
ActiveSheet.Cells(5, 11) = TextBox9
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
TextBox8 = Empty
TextBox9 = Empty
TextBox1.SetFocus
end sub

Por este otro

Private Sub INGRE_BTN_Click()
Sheets("TABLA DE DATOS").Cells(5, 3).Select
Selection.EntireRow.Insert
Sheets("TABLA DE DATOS").Cells(5, 3) = TextBox1
Sheets("TABLA DE DATOS").Cells(5, 4) = TextBox2
Sheets("TABLA DE DATOS").Cells(5, 5) = TextBox3
Sheets("TABLA DE DATOS").Cells(5, 6) = TextBox4
Sheets("TABLA DE DATOS").Cells(5, 7) = TextBox5
Sheets("TABLA DE DATOS").Cells(5, 8) = TextBox6
Sheets("TABLA DE DATOS").Cells(5, 9) = TextBox7
Sheets("TABLA DE DATOS").Cells(5, 10) = TextBox8
Sheets("TABLA DE DATOS").Cells(5, 11) = TextBox9
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
TextBox8 = Empty
TextBox9 = Empty
TextBox1.SetFocus
End Sub

TABLA DE DATOS es el nombre de la hoja en la cual yo necesito que queden los datos ingresados, pero al final del arreglo me pide depurar el código y no se en que estoy fallando, necesito solucionar esto urgente, alguna idea?

1 respuesta

Respuesta
1

Debieras indicar en qué línea te marca error el depurador, para estar seguros.

Por lo que veo, en la única que podría saltar (*) es en la primera, donde no siempre se acepta la selección indicando hoja y rango:

Sheets("TABLA DE DATOS").Cells(5, 3).Select

Reemplazarla por :

Sheets("TABLA DE DATOS").Select

Activesheet.Cells(5, 3).Select

Y a partir de aquí podías haber continuado con tu código original, mencionando ActiveSheet en lugar del nombre. Esto además te permite cambiar el nombre de la hoja en cualquier momento y modificar solamente la 1er línea.

(*) Otros posibles errores: que la hoja no se llame exactamente así, o que algún control tenga otro nombre.

Sdos y no olvides finalizar la consulta que se te ha respondido con la rapidez que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Introducir datos a celdas mediante formularios

Estaba viendo tu página y tengo la siguiente duda, tengo archivo excel con columnas ya definidas con encabezados, quiero introducir datos mediante un formularios, hice un macro introduce los datos en cada celda pero le doy grabar y da inserta un fila...
1 respuesta

Formularios VBA en excel

Estoy realizando un directorio y quisiera que a la hora de introducir mis datos en el formulario que ya he realizado me los clasifique en las distintas hojas que he creado para cada sector pero que tambien se quede registrado en la hoja principal que...
1 respuesta

Impedir textbox vacíos en userform

Mi problema es que tengo un userform que copia los datos de los textbox a celdas de una hoja de excel, y que al apretar un botón, ejecuta una macro usando esos datos, pero si dosn textbox en concreto no está lleno antes de apretar el botón, el...
1 respuesta

Cómo hacer que un TextBox devuelva un valor numérico y no de texto

Al TextBox le di el formato de $ y los coloca en la planilla con ese formato, visualmente, pero las operaciones que están ligadas a esa cifra no se realizan ya que las pega como texto y necesito que se hagan sumas, restas y divisiones con esa cifra...
1 respuesta

Desbordamiento en Macro

Solicito de su colaboración para saber por qué al ejecutar esta macro me arroja error en la linea que aparece subrayada y con negrita. Mil gracias por su oportuna y pronta colaboración. Beatriz Private Sub CommandButton1_Click() Rem inserta un...
1 respuesta

¿Cómo puedo buscar un dato en un textbox, con las fórmulas indirecto & coincidir?

Los amigos expertos de este excelente foro, la noche de hoy me he encontrado con una limitante en un pequeño procedimiento en un textbox, no lo he podido resolver y me siento un poco frustrado. Pido amablemente a ustedes me puedan ayudar con este...
1 respuesta

Ingr datos en userform y guardarlos en otro libro

Tengo este código que copie de alguna pregunta la cual me resulta muy útil, sin embargo, quisiera que al capturar los datos desde el libro donde abro el userform los guarde en otro libro. Esto lo uso para una lista de clientes. Saludos cordiales....
2 respuestas

Macro para colocar datos según cabecera de columna y fila ingresada.

Elabore un UserForm donde ingreso datos a una hoja de excel seleccionando los datos de un combobox y se va ingresando uno debajo de otro. Pero al tercer ingreso se empieza a grabar uno arriba de otro. Las columnas no siempre se llenan todas y...
1 respuesta