Transferir valores de formulário para planilha

Question

Boa noite.
Mais uma vez venho procurar ajuda.
É o seguinte:
Tenho um formulário (em excel) semelhante a imagem abaixo,

Designação	Alexandre
Sede  Social	Rua ou Avenida
Localidade	localidade
Código Postal	localidade		E-mail	123@456789,01
Freguesia	Freguesia			Telefone	123 456 789
Concelho	Concelho			Telefone	234 567 891
Distrito	Distrito			Telemóvel	345 678 912
Código D.C.F	010101			Fax	456 789 123

e pretendo passar a informação que se vai inserindo para uma outra planilha do tipo:

Designaçao

Sede Social

Localidade

Cod Postal

Freguesia

Concelho

Distrito

Cod D.C.F

E-mail

Telef.1

Telef.2

Telem

Fax

1

Alexandre

Rua

Localidade

...

...

...

...

...

2

Barreiros

3

4

5

de forma a que os valores vão ficando gravados em cada uma das linha desta planilha, linha 1, depois linha 2, depois linha 3 ....
Fico agradecido se algum amigo me poder ajudar.

Answer 1

Boa noite,
Acredito que o teu principal problema seja determinar a linha em que os valores serão inseridos.
Se for isso vc pode utilizar uma rotina com esta aqui

Sub TransferirValores()
'Definir a planilha que receberá os valores
Set ws = Sheets("Dados")
'Determinar a linha de ws que receberá as informações
InsertRow = ws.Cells(Rows.Count, 1).End(xlUp) + 1
'Relacionar os valores dos elementos do formulário
'com as respectivas colunas de ws
With Me
ws.Cells(InsertRow, 1) = .ListBox1.Value
ws.Cells(InsertRow, 2) = .TextBox1.Value
'....e assim por diante...
End With

End Sub

---

Adilson Soledade - MOS

Answer 2

	A	B	C	D	E	F	G	H
1
2	Número	0018			N.I.F.	123 456 789
3
4	Designação	Alexandre
5	Sede  Social	Sede
6	Localidade	Local
7	Código Postal	CP		E-mail	[e-mail]
8	Freguesia	Freg			Telefone	A23456789
9	Concelho	Conc			Telefone	B23456789
10	Distrito	Dist			Telemóvel	C23456789
11	Código D.C.F	DCF			Fax	D23456789
12

                         Folha3

	A	B	C	D	E	F	G	H	I	J	K	L	M
1	Número	N.I.F.	Designação	Sede  Social	Localidade	Código Postal	Freguesia	Concelho	Distrito	Telefone	Telefone	Telemóvel	Fax
2	0018	504102125	Alexandre	=Folha3!B5	=Folha3!B6	=Folha3!B7	...	...	...	...	...	...	...
3	0023	...	...	...	...	...	...	...	...	...	...
4	0032
5	0041
6	0057

                          Folha4
Adilson:
Agradeço a tua informação, mas como não sou muito entendido nestas coisas, não consegui perceber como ou onde colocar aquela rotina.
Indo ao caso concreto:
O que eu pretendia era que, ao inserir dados no quadro de cima (formulário colocado na Folha3), houvesse a possibilidade de transferir esses valores para o quadro de baico (base de dados colocada na Folha 4).
Actualmente faço isso manualmente, usando "copiar" e "colar". Pensei que podesse existir uma forma automática de: 
1 - transferir os dados inseridos na Folha 3 para o quadro na Folha 4.
2 - inserir novos dados na linha imediatamente a seguir. 
Eu ainda coloquei a rotina que me enviaste no VBA da Folha3, mas não deu certo (burrice minha com certeza).
O meu muito obrigado antecipadamente.

Answer 3

Obrigado Adilson, esta fórmula de incremento valu para mim também num preenchimento de planilha Excel através de formulário VBA.
Grato, gbarbalho.

Answer 4

Em tempo, também agradeço ao Amadosgest pelo questionamento em hora oportuna!
Grato, gbarbalho

Answer 5

gbarbalho sera que vc me pode explicar como fez para o código funcionar?
comigo nao funcionou.
O que devo substituir no código com base no exemplo que dei ???
obrigado.