Macro que guarde datos en diferentes hojas según criterio
Ocupo crear un registro donde yo introduzca los datos mediante un formulario en la hoja 1, y según un criterio que yo escoja, los datos me los guarde en diferentes hojas, ejemplo unos datos que se guarden en la hoja 2 otros en la hoja 3, otros en la hoja 4. Ejemplo que yo este guardando datos de pacientes de un hospital y según el diagnóstico los registros van para diferentes hojas?
1 Respuesta
Recuerdo haber resuelto algo parecido
Te paso la macro, creas tu formulario como te muestro en la imagen.
Lo que hace la macro es guardar los datos de acuerdo al diagnóstico, fíjate en el nombre de la hoja.
Private Sub CommandButton1_Click()
If ComboBox1 = "" Or ComboBox1.ListIndex = -1 Then Exit Sub
Set h1 = Sheets(ComboBox1.ListIndex + 1)
u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
h1.Cells(u, "A") = ComboBox1
h1.Cells(u, "B") = TextBox1
h1.Cells(u, "C") = Val(TextBox2)
h1.Cells(u, "D") = Val(TextBox3)
ComboBox1 = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
h1.Select
MsgBox "Registrados correctamente", vbInformation
End SubPrivate Sub UserForm_Activate() For Each hoja In Sheets ComboBox1.AddItem hoja.Name Next End Sub
si falta algunos ajustes me avisas o me facilitas tu correo te lo envío.
Valora la respuesta para finalizar saludos!
Este es mi correo [email protected]
Como te puedo enviar el archivo para que lo mires bien, gracias
En la hoja 1 voy a crear la tabla donde incluyo los datos, voy a introducir datos de i7 a i18, y los datos se van a guardar en las hojas 2,3,4,5 según criterio, En la celda i16 va ser donde esta el criterio (diagnósticos)en las hojas que se va guardar la información va ser de a4 a l4 y en j4 va ser la celda donde cae el diagnóstico
Te envié el archivo con los cambios.
