Inserir e Ajustar as Bordas na planilha

[Luciano021273]

Bom dia!

Gostaria de acrescentar na rotina abaixo que quando insira uma informação na planilha excel ( banco de dados) ele formate com as linhas de bordas : na planilha, Exibição, vou tirar linhas de grade barra de formulas, titulos, tudo, vou deixar branca e quando for inserindo os dados ele vá se formatando e criando as linhas de bordas...

o comando que uso para inserir dados a planilha:


Plan1.Select
Range("A2").Select

Dim iRow As Long
Dim WS As Worksheet
Set WS = Worksheets("Cadastro_de_Clientes")
Range("B2").Select

While ActiveCell <> ""
If cmb_pesquisa.Text = ActiveCell Then
If MsgBox("Cliente já Existe, deseja susbtituir?", vbYesNo) = vbYes Then
GoTo continue
Else
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'C_AGENDA_DE_MEDIDAS.txtFcodcliente = ""
C_AGENDA_DE_MEDIDAS.cx_nome_cliente = ""
C_AGENDA_DE_MEDIDAS.cx_tel_celular = ""
C_AGENDA_DE_MEDIDAS.cx_tel_fixo = ""
C_AGENDA_DE_MEDIDAS.cx_tel_trabalho = ""
C_AGENDA_DE_MEDIDAS.cx_email = ""
C_AGENDA_DE_MEDIDAS.cx_endereço = ""
C_AGENDA_DE_MEDIDAS.cx_numero = ""
C_AGENDA_DE_MEDIDAS.cx_ap = ""
C_AGENDA_DE_MEDIDAS.cx_Bloco = ""
C_AGENDA_DE_MEDIDAS.cx_predio = ""
C_AGENDA_DE_MEDIDAS.cx_Bairro = ""
C_AGENDA_DE_MEDIDAS.cx_cidade = ""
C_AGENDA_DE_MEDIDAS.cx_aproximidade = ""
Exit Sub
End If
End If

ActiveCell.Offset(1, 0).Activate
Wend

If cx_nome_cliente.Value = "" Then
MsgBox " Selecione Algum Nome Para Poder Cadastrar!"
Exit Sub
End If
iRow = ActiveCell.Row

WS.Cells(iRow, 1).Value = Me.txtFcodcliente.Value
WS.Cells(iRow, 2).Value = Me.cx_nome_cliente.Value
WS.Cells(iRow, 3).Value = Me.cx_tel_celular.Value
WS.Cells(iRow, 4).Value = Me.cx_tel_fixo.Value
WS.Cells(iRow, 5).Value = Me.cx_tel_trabalho.Value
WS.Cells(iRow, 6).Value = Me.cx_email.Value
WS.Cells(iRow, 7).Value = Me.cx_endereço.Value
WS.Cells(iRow, 8).Value = Me.cx_numero.Value
WS.Cells(iRow, 9).Value = Me.cx_ap.Value
WS.Cells(iRow, 10).Value = Me.cx_Bloco.Value
WS.Cells(iRow, 11).Value = Me.cx_predio.Value
WS.Cells(iRow, 12).Value = Me.cx_Bairro.Value
WS.Cells(iRow, 13).Value = Me.cx_cidade.Value
WS.Cells(iRow, 14).Value = Me.cx_aproximidade.Value


continue:


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'C_AGENDA_DE_MEDIDAS.txtFcodcliente = ""
C_AGENDA_DE_MEDIDAS.cx_nome_cliente = ""
C_AGENDA_DE_MEDIDAS.cx_tel_celular = ""
C_AGENDA_DE_MEDIDAS.cx_tel_fixo = ""
C_AGENDA_DE_MEDIDAS.cx_tel_trabalho = ""
C_AGENDA_DE_MEDIDAS.cx_email = ""
C_AGENDA_DE_MEDIDAS.cx_endereço = ""
C_AGENDA_DE_MEDIDAS.cx_numero = ""
C_AGENDA_DE_MEDIDAS.cx_ap = ""
C_AGENDA_DE_MEDIDAS.cx_Bloco = ""
C_AGENDA_DE_MEDIDAS.cx_predio = ""
C_AGENDA_DE_MEDIDAS.cx_Bairro = ""
C_AGENDA_DE_MEDIDAS.cx_cidade = ""
C_AGENDA_DE_MEDIDAS.cx_aproximidade = ""
C_AGENDA_DE_MEDIDAS.cmb_pesquisa.SetFocus

MsgBox "Cliente Salvo com Sucesso!!!", , ""

[Mauro Coutinho]

Entre as linhas:
WS.Cells(iRow, 14).Value = Me.cx_aproximidade.Value
'coloque

Código: Selecionar todos

Set rgBordas = Range(Cells(iRow, 1), Cells(iRow, 14))
'Ajuste aqui os tipos e estilos
With rgBordas
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        
        .Borders(xlEdgeTop).LineStyle = xlNone
        .Borders(xlEdgeTop).ColorIndex = 3
        
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlEdgeRight).ColorIndex = 3
End With

continue:

[]s

[Luciano021273]

blz!
Obrigado pela ajuda, mas para inserir bordas na vertical para dividir as celular qual o comando? como acrescentaria?

Att,

[Mauro Coutinho]

blz!
Obrigado pela ajuda, mas para inserir bordas na vertical para dividir as celular qual o comando? como acrescentaria?
Att,

Se entendi corretamente, deixei comentado na rotina "'Ajuste aqui os tipos e estilos"
Estas linhas são onde definimos os tipos e em qual local adicionar as Bordas e cores, e na margem Direita da Celula seria na propriedade:
.Borders(xlEdgeRight)

Veja na ajuda do VBA as definições, é só colocar o cursor em cima da propriedade que quer informação e teclar F1.
Aqui algumas delas:

bordas.png (36.72 KiB) Exibido 5836 vezes