Mapa interactivo com VBA

2024 - VBA & Macros

Post Recente por Scualos 7 anos atrás

5 Posts

2 Usuários

0 Reactions

1,217 Visualizações

RSS

Scualos

(@scualos)

Posts: 3

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: 698

Honorable 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: 3

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: 698

Honorable 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