Altas en Base de Datos que crea hoja según campo
Para Dante Amor
Tengo esta base de datos en la cual quiero añadir un formulario para ingresar clientes, creando una hoja nueva según el contenido del campo "CENTRO", o bien si ya existe una hoja con ese centro que lo ingrese en esa hoja. ¿Podrías ayudarme con la macro por favor?
Aquí adjunto el archivo http://www.generacionmakina.com/bbd_clientes_dante.xlsm
1 Respuesta
Respuesta de Dante Amor
1
Envíame un corro nuevo con el archivo. Mejor agrega el archivo en el correo, ya que no lo puedo descargar desde tu enlace.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Motor Mac” y el título de esta pregunta.
Ya te lo he enviado ;)
Te anexo la primera parte para registrar un cliente en la hoja según el centro
Private Sub CommandButton1_Click()
'Por.Dante Amor
If tb_centro = "" Then cad = "Centro. "
If tb_nombre = "" Then cad = cad & "Nombre. "
If tb_nif = "" Then cad = cad & "Nif. "
If cad <> "" Then MsgBox "Faltan los datos: " & cad: Exit Sub
'
existe = False
hoja = UCase(tb_centro)
For Each h In Sheets
If h.Name = hoja Then
existe = True
Exit For
End If
Next
If existe = False Then
res = MsgBox("No existe la hoja con el centro: " & hoja & vbCr & vbCr & _
"Desea crear la hoja", vbQuestion + vbYesNo, "CREAR HOJA")
If res = vbYes Then
Set h1 = Sheets.Add(after:=Sheets(Sheets.Count))
h1.Name = hoja
Sheets(1).Rows(1).Copy h1.[A1]
Call PasarDatos(hoja)
Else
tb_centro.SetFocus
Exit Sub
End If
Else
Call PasarDatos(hoja)
End If
End Sub
Sub PasarDatos(hoja)
'Por.Dante Amor
u = Sheets(hoja).Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets(hoja).Cells(u, "A") = tb_centro
Sheets(hoja).Cells(u, "B") = tb_alta
Sheets(hoja).Cells(u, "C") = TextBox1
Sheets(hoja).Cells(u, "D") = tb_nombre
Sheets(hoja).Cells(u, "E") = tb_apellido1
Sheets(hoja).Cells(u, "F") = tb_apellido2
Sheets(hoja).Cells(u, "G") = tb_edad
Sheets(hoja).Cells(u, "H") = tb_nif
Sheets(hoja).Cells(u, "I") = tb_telefono
Sheets(hoja).Cells(u, "J") = tb_email
Sheets(hoja).Cells(u, "K") = tb_facebook
For Each ctrl In Me.Controls
If TypeName(ctrl) = "TextBox" Then ctrl.Value = ""
Next
MsgBox "Cliente Registrado"
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
