carregar valor no f...
 
Notifications
Clear all

carregar valor no form usando referencia relativa

5 Posts
3 Usuários
0 Reactions
1,305 Visualizações
 caje
(@caje)
Posts: 97
Estimable Member
Topic starter
 

Bom Dia a Todos do Fórum.

Não sei é possível fazer porem gostaria de carregar as informações de uma planilha em um form usando referencia relativa.

Tenho um planilha onde gostaria que quando ao realizar o click na célula ela exibi-se o código da célula que cliquei e descrição da célula do lado em um form.

Consigo realizar esse procedimento quando tenho um endereço de célula fixo.

Exemplo Codigo Planilha

Private Sub Worksheet_SelectionChange(ByVal target As Excel.Range)
If Intersect(target, Range("C4")) Is Nothing Then Exit Sub
  exemplo.Show
End Sub

exemplo do codigo do Form

Private Sub UserForm_Initialize()
Me.LB_Codigo = ThisWorkbook.Worksheets("EXEMPLO").Range("C4").Value
Me.LB_DESCRICAO = ThisWorkbook.Worksheets("EXEMPLO").Range("F4").Value

End Sub

Se alguem tiver alguma dica de como carregar as label do form de forma relativa
Agradeço.

Segue em Anexo
Exemplo Compactado.

 
Postado : 20/09/2013 6:50 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

caje,

Bom Dia!

Não sei se entendi corretamente. Segue a forma que fiz.

 
Postado : 20/09/2013 7:13 am
 caje
(@caje)
Posts: 97
Estimable Member
Topic starter
 

Ajudou sim, Wagner Morel

Porém eu esqueci de informar que o código pode ter Letras e Numero Exemplo: 7C-478

Tem como tratar isso ?

 
Postado : 20/09/2013 9:03 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Abra o Editor do VBA e Modulo1, altere a linha abaixo :

De :
Global ValorCel As Integer - Aqui estamos definindo o Tipo como Numerico somente

Para :
Global ValorCel ' - Aqui o Tipo fica como Variant podendo ser numerico ou Alfa

[]s

 
Postado : 20/09/2013 10:20 am
 caje
(@caje)
Posts: 97
Estimable Member
Topic starter
 

Obrigado Mauro Coutinho

funcionou Certinho.

 
Postado : 20/09/2013 10:50 am