Para o botão inserir Private Sub BTN_INSERIR_Click() Dim campos As Variant Dim k As Byte Dim h As Integer Application.ScreenUpdating = False Sh...

Posta aqui no forum seu modelo compactado que ajudo se conseguir Ok, vou separar, CADASTRO. Private Sub BTN_INSERIR_Click() Dim campos As Variant...

Estou colocando minha planilha em anexo para que possam visualizar melhor, por favor me ajudem! http://www.4shared.com/file/BXLWuWE3b...

Muito obrigado meu amigos! bom resto de sexta, e um ótimo final de semana!