Duvida em VBA

[deejaywesley]

Boa Noite Amigos...

 

Esta mexendo em algumas planilhas aqui me apareceu um duvida, então se algum mestre em VBA puder tirar minha dúvida!

 

Não estou montando planilha nenhuma é só pra se algum dia precisar mesmo...

 

este código:
 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Colunas As Range
Set Colunas = Range("A1:A10")

If Not Application.Intersect(Colunas, Range(Target.Address)) Is Nothing Then
linha = Target.Row

Range("C" & linha).Value = DateTime.Now  

End If

End Sub

 

 

sempre que tem alguma alteração na célula da coluna A entre 1 a 10, ele coloca a data na coluna C na linha referente

a da alteração...

 

mas e se não fosse de 1 a 10 o intervalo.... fosse de A ate H linha 1 e a data colocada na linha 3

 

como ficaria o código  

 

um abraço a todos

[Brun00_]

Desta forma:

Private Sub Worksheet_Change(ByVal Target As Range)Dim linhas As RangeSet linhas = Range("A1:H1")If Not Application.Intersect(linhas, Range(Target.Address)) Is Nothing Thencoluna = Target.ColumnCells(3, coluna).Value = DateTime.NowEnd IfEnd Sub

Falou

[deejaywesley]

Boa Noite!

 

Obrigado, era isso mesmo....

 

um abraço parceiro!