Este fórum está sendo desativado

[Fulvio]

Oi pessoal, sou novo por aqui e estou meio perdido ainda...

Então, estou desenvolvendo um formulário de pesquisa para uma ONG que sou voluntário mas minha área não é programação mas sei um pouco de Excel. montei esse arquivo onde uma a primeira aba é o formulário onde será inserido os dados da pesquisa a segunda aba é o BD onde esses dados serão armazenados e a terceira aba são as listas das caixas de combinação e seleção.

Meu problema agora é lançar esses dados no BD alimentando as linhas para cada paciente pesquisado...

Ficarei muito grato pela ajuda...

Obs. o arquivo está disponível em anexo

Atenciosamente,

Fulvio Bellas

[alexandrevba]

Bom dia!!
Na guia FORMULÁRIO, use colunas auxiliares com formulás.
Ex: K1,L1,M1 etc ficará o cabeçalho. em K2,L2,M2 etc ficará as formulas que corresponde a esses cabeçalhos

Código: Selecionar todos

Sub AleVBA_3449()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = 0
    With ActiveSheet
        Range("K2:M2").Copy 'Aqui mude para o inrtevalo desejado
        Worksheets("BD").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    End With
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = 1
End Sub

Att