Usando a planilha como formulário VBA.


Excelente ideia: Sim!

Usando a planilha como formulário VBA.

Puxa, faz tempo que não posto nada. Sorry. rs.

Bom, vi um post num forum com essa dúvida, como transformar uma planilha em um form e como cadastrar os dados em plan2, como um banco de dados. Na verdade, é mais fácil, criar um form do proprio Excel e fazê-lo executar na planilha, mas o resultado final fica

Para melhor entendimento, baixe o arquivo de exemplo, clicando aqui.

Segue o código que criei, no botão de comando na plan 1:

Private Sub CommandButton1_Click()
On Error GoTo 1 'Inibe a mensagem de erro, caso ocorra, encerrando a macro.
Dim linha
linha = 2

While Plan1.Cells(5, 6) <> "" And Plan1.Cells(7, 6) <> "" And Plan1.Cells(7, 9) <> "" ' Campos do form (Planilha)
'Por exemplo, Plan1.Cells(5, 6), se refere a célula F5 (Linha 5, Coluna 6) - Daí por diante, ok?


While Not (IsEmpty(Plan2.Cells(linha, 1)))
linha = linha + 1 ' Incremento
Wend


Plan2.Cells(linha, 1) = Plan1.Cells(5, 6)
Plan2.Cells(linha, 2) = Plan1.Cells(7, 6)
Plan2.Cells(linha, 3) = Plan1.Cells(7, 9)


'Limpeza dos campos da planilha form:
Plan1.Cells(5, 6) = ""
Plan1.Cells(7, 6) = ""
Plan1.Cells(7, 9) = ""

Wend
Plan1.Cells(5, 6).Select ' Seleciona a primeira linha do form
1:
End Sub


 Bom, é isso aí!

Espero tê-los ajudado.
Abraço.

João Lopes Junior