Clicar na imagem e selecionar célula ao lado

[Ingo M P Américo]

Mais uma perguntinha simples para os ninjas de plantão:

Como eu faço para clicar no smile e selecionar a célula imediatamente ao seu lado?

 

 

Tentei o VBA abaixo e não deu certo.

Sub selectCelula()
  ActiveSheet.Shapes(Application.Caller).Offset(0, -1).Select
End Sub

 

[Basole]

Atribua sua imagem a esta macro: 

Segue um exemplo de acordo com a imagem que voce postou: 

Sub TesteSelCelImg()
Dim shp As Shape
  
  For Each shp In ActiveSheet.Shapes
     If shp.Name = "Picture 1" Then ' Altere nome da sua imagem
        ActiveSheet.Cells(shp.BottomRightCell.Row, shp.BottomRightCell.Column - 1).Activate
     End If
  Next

End Sub

 

[Ingo M P Américo]

@Basole Funcionou parcialmente.

 

Passo anexa, a planilha para testes.

 

Estou usando esse VBA que você passou associado com o Date Picker.

Quando adiciono uma data pelo Date Picker em uma célula a esquerda do ícone do calendário e tento fazer a mesma coisa em outra célula, a seleção vai para célula onde foi inserida a primeira célula.

 

Sei que ficou meu confuso, mas quando você abrir a planilha, vai entender.

data com Date Picker.zip

[Basole]

 

Pra mim não ficou claro. No seu 2º post voce acrescentou elementos que não estavam presentes na 1ª duvida.

voce enviou em anexo somente o suplemento calendario. 

Exemplifique o que deseja, se necessário utilize imagens para ajudar melhor a entender o que quer fazer.

[Ingo M P Américo]

Oi @Basole . Desculpe se a questão ficou turva.

Também não percebi que havia enviado apenas o suplemento. Estou mandando o arquivo completo agora, com a planilha que está dando problema. Acredito que a planilha é auto explicativa.

 

data com Date Picker.zip

[Basole]

Ok eu acabei utlizando a função Application.Caller para este caso:

Ao clicar na imagem (calendario_x), a celula da mesma linha e a esquerda é selecionada e o date picker é aberto

Se voce tiver muitas celulas para inseri datas com o date picker, acho que é mais pratico utilizar o evento Double_click da aba, ou seja ao clicar duas vezes na celula para abir o date picker. 

 

inserir data.zip

[Ingo M P Américo]

Oi @Basole .

 

Funcionou perfeitamente. Obrigado mais uma vez!

[Ingo M P Américo]

@Basole ,

 

Não sei se tem a ver, mas de repente minha planilha começou a apresentar o erro abaixo.

Pelo que pesquisei, tem a ver com objetos sendo criados em tempo de execução.

 

 

Na hora de debugar, a linha abaixo é selecionada, mas ela sempre existiu e nunca deu erro.

 

 

Alguma ideia?

 

 

[Ingo M P Américo]

Acho que encontrei a causa do problema: 

Quando insiro uma nova linha com a mesma imagem do calendário, a  imagem fica com o mesmo nome de outra que já existia anteriormente e e aí dá pau no Excel, pois ficam duas imagens com mesmo nome na mesma planilha.

 

Alguma ideia de como resolver isso?

[Basole]

Depois que copiar e colar todas as  imagens rode esta macro para renomear todas as imagens que tiverem como 'calendario..'

Sub RenomearImagens()
    Dim shp As Shape
    Dim i   As Integer
  
    i = 1
    For Each shp In ActiveSheet.Shapes
        If VBA.Left(shp.Name, 10) = "calendario" Then
            shp.Name = "calendario_" & i
             i = i + 1
        End If
    Next

End Sub

 

[Ingo M P Américo]

@Basole , 

 

Obrigado pela resposta!

Prometo que, assim que possível, eu vou fazer VBA com loop infinito só para lhe agradecer.

 

Inseri o código da mudança de nome das imagens que você passou e continuou dando o mesmo erro, então modifiquei a forma como as linhas estavam sendo inseridas. 

Estava assim:

 

    Sheets("copiCola").Select
    Range("copiSaida").Select
    Selection.Copy
    Sheets("SAÍDAS").Select
    Range("B12:I12").Select
    Selection.Insert Shift:=xlDown 
    Range("C12").Select

 

E agora ficou assim:

 

Range("B12:L12").Select
Selection.Insert Shift:=xlDown
Worksheets("copiCola").Range("copiSaida").Copy _
Destination:=Worksheets("SAÍDAS").Range("B12:I12")
Range("C12").Select

 

Aparentemente isso corrigiu o problema.