Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Mapa interactivo co...
 
Notifications
Clear all

Mapa interactivo com VBA

 
2024 - VBA & Macros
Post Recente por Scualos 7 anos atrás
5 Posts
2 Usuários
0 Reactions
1,213 Visualizações
RSS
 Scualos
(@scualos)
Posts: 0
New Member
Topic starter
 

Boa tarde Pessoal, estou com um problema com VBA.
Tenho uma planilha com dados de usuário e essa planilha de dado tem 360 usuários, e em outra aba tenho um plano de lugares dos usuários, agora eu estou tentando fazer usando VBA que quando seleciones a baia do usuário mostre o nome de aquele usuário e troque de color essa baia selecionada ao selecionar outro usuario desmarque a anterior baia e maque a baia atual selecioanda, eu consegui fazer uma rotina com o seguinte codigo:

Sub uf_2A1()
For i = 1 To 67
UF = Sheets("tecgraf").Range("A" & i).Value
ActiveSheet.Shapes(UF).Fill.ForeColor.RGB = RGB(247, 189, 164)
Next i
ActiveSheet.Shapes("2A1").Fill.ForeColor.RGB = RGB(0, 102, 255)
End Sub

So que a rotina so chegar ate ou i=67 depois de isso da o erro " Run-time error '-2147024809 (80070057)':
The item with specified name wasn't found "

Se alguem pode-me ajudar agradeço.

 
Postado : 02/04/2018 2:50 pm
 brunoxro
(@brunoxro)
Posts: 0
New Member
 

Boa noite,

Anexe uma planilha de exemplo. Fica mais fácil tentar ajudar.

att,

 
Postado : 03/04/2018 3:46 pm
 Scualos
(@scualos)
Posts: 0
New Member
Topic starter
 

Boa noite nesta planilha tem desenhado uma planta com 70 mesas de trabalho ao selecionar uma mesa tem que me mostra alguns dados de usuário e ao selecionar outra mesa tem que desmarcar a mesa selecionada anteriormente e marcar a nova mesa selecionada e em mostrar alguns dados da aba "dados" que ainda não estão cadastrados, eu consegui fazer uma rotina que seleciona uma mesa e desmarca outra mesa mais so min ha rotina funciona ate selecionar a mesa "2d14" com o seguinte código. se "for i=70" que seria o correto para chegar ate a mesa "2D14" da erro, se alguém me poderia ajudar com esse problema fico muito agradecido.

Sub uf_2A1()
For i = 1 To 67
UF = Sheets("tecgraf").Range("A" & i).Value
ActiveSheet.Shapes(UF).Fill.ForeColor.RGB = RGB(247, 189, 164)
Next i
ActiveSheet.Shapes("2A1").Fill.ForeColor.RGB = RGB(0, 102, 255)
End Sub

Agora se eu modificar esse "For i=1 to 360" ele para de funcionar. Se alguém pudesse me ajudar fico muito agradecido.

 
Postado : 04/04/2018 6:54 pm
 brunoxro
(@brunoxro)
Posts: 0
New Member
 

Boa tarde,

Primeira coisa eu coloquei 70 para todos os For. Analisando o erro vi que a imagem 2D15 estava como 12D15, por isso não era encontrada.
Corrigindo o nome as 2D16 e 2D17 estão funcionando, só a 2D15 que acaba não sendo selecionada. Não achei o problema ainda, mas recomendaria você verificar como foi nomeado essas figuras.

att,

 
Postado : 05/04/2018 2:20 pm
 Scualos
(@scualos)
Posts: 0
New Member
Topic starter
 

Muito obrigado pela ajuda, eu tinha percebido o erro na caixa de texto. Obrigado

 
Postado : 06/04/2018 5:51 am
Forum Jump:
  Tópico Anterior
Próximo Tópico