problema con userfom y textbox
Publicado por francisco (26 intervenciones) el 21/06/2012 11:51:48
Hola buenos dias
Mi pregunta es la siguinte
Tengo un userfom con 6 textbox (Nombre,Direccion,ect) y estos datos deverian ir
a una tabla" DATOS_CLIENTES" en la hoja clientes.El problema que tengo es que
no consigo que los datos entre el rango de celdas de la tabla(rango"A4:F4") y despues baje
una fila para los siguientes datos , pero si que lo consigo hacer todo fuera del
rango de la tabla el rango de la tabla es ("A4:F50)
El codigo que tengo es
Sub nuevocliente()
Sheets("clientes").Range("H1").Copy
Sheets("clientes").Range("A5").Insert shift:=xlDown
Sheets("clientes").Range("H2").Copy
Sheets("clientes").Range("B5").Insert shift:=xlDown
Sheets("clientes").Range("H3").Copy
Sheets("clientes").Range("C5").Insert shift:=xlDown
Sheets("clientes").Range("H4").Copy
Sheets("clientes").Range("D5").Insert shift:=xlDown
Sheets("clientes").Range("H5").Copy
Sheets("clientes").Range("E5").Insert shift:=xlDown
Sheets("clientes").Range("H6").Copy
Sheets("clientes").Range("F5").Insert shift:=xlDown
Application.CutCopyMode = False
End Sub
Un saludo y perdonar las molestias
Mi pregunta es la siguinte
Tengo un userfom con 6 textbox (Nombre,Direccion,ect) y estos datos deverian ir
a una tabla" DATOS_CLIENTES" en la hoja clientes.El problema que tengo es que
no consigo que los datos entre el rango de celdas de la tabla(rango"A4:F4") y despues baje
una fila para los siguientes datos , pero si que lo consigo hacer todo fuera del
rango de la tabla el rango de la tabla es ("A4:F50)
El codigo que tengo es
Sub nuevocliente()
Sheets("clientes").Range("H1").Copy
Sheets("clientes").Range("A5").Insert shift:=xlDown
Sheets("clientes").Range("H2").Copy
Sheets("clientes").Range("B5").Insert shift:=xlDown
Sheets("clientes").Range("H3").Copy
Sheets("clientes").Range("C5").Insert shift:=xlDown
Sheets("clientes").Range("H4").Copy
Sheets("clientes").Range("D5").Insert shift:=xlDown
Sheets("clientes").Range("H5").Copy
Sheets("clientes").Range("E5").Insert shift:=xlDown
Sheets("clientes").Range("H6").Copy
Sheets("clientes").Range("F5").Insert shift:=xlDown
Application.CutCopyMode = False
End Sub
Un saludo y perdonar las molestias
Valora esta pregunta


0