Buenas tardes grupo,
En la hoja Formulario tengo el boton Enviar, que inserta a los datos
digitados en la hoja Clientes, esto lo hago con el siguiente codigo :
Hay alguna forma para que cada vez que se de click al boton, y se inserten
los datos automáticamente me coloque bordes, utilizando la opción de bordes
"todos los bordes" que se encuentra en el menu de Excel 2007, el borde debe
ser hasta la ultima fila y columna que contenga datos
Como siempre gracias por la colaboracion
Saludos
Jorgef
Codigo:
Private Sub btnEnviar_Click()
'Desproteje hojas
Worksheets("Clientes").Unprotect ("sure")
Worksheets("Contactos").Unprotect ("sure")
Worksheets("Cotizaciones").Unprotect ("sure")
Dim iFila As Long
Dim wsCliente, wsContactos, wsCotizacion As Worksheet
If opbCrearCliente.Value = True Then
Set wsCliente = Worksheets("Clientes")
With Worksheets("Clientes")
Dim xCliente As Boolean
For Each Celda In .Range(.Range("a2"), .Range("a2").End(xlDown)).Cells
If Worksheets("Formulario").Range("c4") = Celda.Value Then
MsgBox ("Cliente ya Existe")
xCliente = True
End If
Next Celda
If xCliente = False Then
'Encuentra la siguiente fila vacia
iFila = wsCliente.Cells(Rows.Count, 1).End(xlUp).Offset(1,
0).Row
'Copia los datos a la hoja Clientes Eligiendo Clientes
wsCliente.Cells(iFila, 1).Value =
Worksheets("Formulario").Range("c4")
wsCliente.Cells(iFila, 2).Value =
UCase(Worksheets("Formulario").Range("c5"))
wsCliente.Cells(iFila, 3).Value = Me.cmbActivo.Value
wsCliente.Cells(iFila, 4).Value =
Worksheets("Formulario").Range("c6")
wsCliente.Cells(iFila, 5).Value =
UCase(Worksheets("Formulario").Range("e6"))
wsCliente.Cells(iFila, 6).Value =
UCase(Worksheets("Formulario").Range("c7"))
wsCliente.Cells(iFila, 7).Value =
Worksheets("Formulario").Range("e7")
wsCliente.Cells(iFila, 8).Value =
Worksheets("Formulario").Range("g7")
End If
End With
End If
End sub
Leer las respuestas