Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Gerar resultados de...
 
Notifications
Clear all

Gerar resultados de guest comment

 
2024 - VBA & Macros
Post Recente por depoisteconto 11 anos atrás
2 Posts
2 Usuários
0 Reactions
1,202 Visualizações
RSS
 Paulo_001
(@paulo_001)
Posts: 149
Estimable Member
Topic starter
 

Olá a todos, alguém saberia como fazer uma célula somar +1 com o ultimo resultado?

Montei um tabela que marco com um "x" conforme foi a resposta do cliente. Mas não sei como fazer pra passar esses resultados para uma outra planilha que vai me mostrar qual foi o resultado. Por exemplo, na planilha em anexo eu tenho a guia Guest.

Nela eu marco um "x" na opção que o cliente respondeu, por exemplo, se na recepção ele respondeu excelente eu marco um x em excelente e assim sucessivamente.
Depois de tudo preenchido clicaria no botão lançar que limparia a tabela para um novo lançamento e jogaria esse resultado para a planilha "Resultado".
O que eu poderia usar para realizar essa tarefa?

Guest Comment.rar
 
Postado : 12/08/2013 12:57 pm
depoisteconto
 depoisteconto
(@depoisteconto)
Posts: 183
Estimable Member
 

Considerando que na planilha resultado começe na linha 2 OK, assim temos o mesmíssimo layout nas duas planilhas.

Uma alternativa entre várias possíveis seria essa:

Sub Ex()

Application.EnableEvents = False
Application.ScreenUpdating = False

Dim Guest As Worksheet, Resultado As Worksheet

Set Guest = Sheets("Guest.")
Set Resultado = Sheets("Resultado")

Guest.Range("C4:G8").Select
Selection.Copy

Resultado.Activate
Resultado.Range("C4").Select
ActiveSheet.Paste

Guest.Activate
Guest.Range("C10:G14").Select
Selection.Copy

Resultado.Activate
Resultado.Range("C10").Select
ActiveSheet.Paste

'...continue

Guest.Range("C4:G8").ClearContents
Guest.Range("C10:G14").ClearContents

'...continue

Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub
 
Postado : 12/08/2013 1:51 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico