Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
alterar valor da li...
 
Notifications
Clear all

alterar valor da lista, e valor ficar na celula

 
2024 - VBA & Macros
Post Recente por ifahidalgo 10 anos atrás
6 Posts
2 Usuários
0 Reactions
1,236 Visualizações
RSS
 ifahidalgo
(@ifahidalgo)
Posts: 16
Active Member
Topic starter
 

Senhores

Bom dia

não sou muito conhecedor do excel, trabalho e utilizo o access com vba, mas tem uma amigo de setor que está com a seguinte duvida e eu também;

Segue uma planilha onde tenho uma celula com uma lista que consta os meses do ano. escolhendo o mês e na celula abaixo eu coloco um valor. preciso que esse valor fixe em uma determinada celula, e se eu alterar o mês e o valor ele vá para outra celula, mas que se mantenha o que foi fixado na primeira.

 
Postado : 25/03/2015 8:56 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Experimente este código:

Coloque na planilha:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Long
Dim celula As String

Application.EnableEvents = False

celula = Target.Address

If celula = "$C$4" Then
  If Not IsEmpty(Range("C3")) Then
    i = Application.Match(Range("C3").Value, Range("A6:G6"), 0)
    Cells(7, i).Value = Range("C4").Value
    Range("C4").ClearContents
  End If
End If

Application.EnableEvents = True

End Sub

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 27/03/2015 7:22 pm
 ifahidalgo
(@ifahidalgo)
Posts: 16
Active Member
Topic starter
 

coloquei mas não aconteceu o esperado, ou estou fazendo algo de errado.

 
Postado : 30/03/2015 9:00 am
 ifahidalgo
(@ifahidalgo)
Posts: 16
Active Member
Topic starter
 

segue o arquivo depois da atualização.

 
Postado : 30/03/2015 9:01 am
 ifahidalgo
(@ifahidalgo)
Posts: 16
Active Member
Topic starter
 

Alguma resposta?

 
Postado : 01/04/2015 8:17 am
 ifahidalgo
(@ifahidalgo)
Posts: 16
Active Member
Topic starter
 

alguem pra me ajudar?

 
Postado : 09/04/2015 6:36 am
Forum Jump:
  Tópico Anterior
Próximo Tópico