Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
LINKAR Células
 
Notifications
Clear all

LINKAR Células

 
2024 - VBA & Macros
3 Posts
1 Usuários
0 Reactions
1,395 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite pessoal,

Vamos supor o seguinte..

Tenho 4 células

A1 B1
A2 B2

ou seja, A1 e B1, e A2 e B2

Sendo assim, gostaria de fazer o seguinte:

Vamos supor que a coluna A fosse INÍCIO
Vamos supor que a coluna B fosse TÉRMINO

Vamos supor que a linha 1 fosse a primeira etapa
Vamos supor que a linha 2 fosse a segunda etapa

Ok, vamos lá:

1ª etapa:
A1 (início) = 01/01/10
B1 (término) = 02/01/10

2ª Etapa:
A2 (início) = 03/01/10
B2 (término) = 04/01/10

Repararam que são dias seguidos certo?
Ok. Sendo assim, gostaria de fazer o seguinte:
Criar um "link" entre as células, ou seja, caso eu altere o término da primeira etapa, a segunda só começaria depois que a primeira etapa tivesse finalizado.

Exemplo:
Se eu alterar B1 (término) para 03/01/10, A2 ficaria igual à 04/01/10 e B2 igual à 05/01/10.

Entenderam?
É simples, porém é difícil explicar.

OBS.: gostaria de utilizar macro, pois é um procedimento grande (isso acima foi apenas um exemplo)

Caso possam me ajudar, agradeceria muito.

Atenciosamente,
João

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

 
Postado : 19/10/2010 9:20 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

joão, supondo que irá digitar somente datas na Coluna B, no evento Change da planilha coloque a seguinte rotina:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim vrData As Date

    If Target.Column = 2 Then
        Application.EnableEvents = False
       
       On Error Resume Next
        
        vrData = Target.Value
             
            Target.Offset(1, -1) = vrData + 1
            Target.Offset(1, 0) = vrData + 2
        
        Application.EnableEvents = True

    End If
End Sub

[]s

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

 
Postado : 22/10/2010 7:49 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Começou ajudando bastante!

Estou fazendo alguns testes ainda.

O objetivo era fazer um botão semelhante ao "Vincular" do Microsoft Project. Mas tá difícil.

Agradeço pelas informações Mauro!!

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

 
Postado : 25/10/2010 10:37 am
Forum Jump:
  Tópico Anterior
Próximo Tópico