carregar valor no f...
 
Notifications
Clear all

carregar valor no form usando referencia relativa

5 Posts
3 Usuários
0 Reactions
1,311 Visualizações
 caje
(@caje)
Posts: 97
Trusted 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
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

caje,

Bom Dia!

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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 20/09/2013 7:13 am
 caje
(@caje)
Posts: 97
Trusted 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
Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

Obrigado Mauro Coutinho

funcionou Certinho.

 
Postado : 20/09/2013 10:50 am