Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Limitar Range Works...
 
Notifications
Clear all

Limitar Range Worksheet_SelectionChange

 
2024 - VBA & Macros
Post Recente por carlosrgs 8 anos atrás
3 Posts
2 Usuários
0 Reactions
762 Visualizações
RSS
carlosrgs
 carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
Topic starter
 

Boa tarde.

Para quem participou da comunidade do Orkut (do Excel) vai saber do que estou falando rsrs.

Fizemos uma campanha para o JSCOPA disponibilizar um arquivo que ele tinha com um bom conteúdo até.

Desse arquivo eu utilizo bastante esse código abaixo.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Column = 1 Then
ActiveCell.Offset(columnoffset:=1) = Date
ActiveCell.Offset(columnoffset:=2) = Time
End If
End Sub

Quando clico em alguma célula da coluna A, preenche a Coluna B e C com Data e Hora.

Mas eu queria limitar essa rotina.

Exemplo, só executar se eu clicar da linha 10 a 60.

Tem como ?

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 21/09/2016 1:17 pm
EdsonBR
 EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 

E aí colega, boa tarde!

Daria prá fazer assim

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If (Not Intersect(Target, Range("A10:A60")) Is Nothing) _
    And (Target.Cells.Count = 1) Then
    ActiveCell.Offset(columnoffset:=1) = Date
    ActiveCell.Offset(columnoffset:=2) = Time
  End If
End Sub

 
Postado : 21/09/2016 1:46 pm
carlosrgs
 carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
Topic starter
 

Passei longe aqui nas tentativas kkk

Valeu!

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 21/09/2016 1:54 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico