Criando intervalos do Excel que dependem de outro intervalo

Question

Eu tenho um Excel Primeiro intervalo que consiste em quatro colunas (A-D) e cinco linhas (1-5).

As células nessa faixa consistem em números.

Eu quero configurar dois outros intervalos - um segundo intervalo do Excel e um terceiro intervalo do Excel em outra planilha.

Eu quero que os dois intervalos sejam idênticos aos do Excel First, exceto que os números no segundo intervalo são o dobro dos valores do primeiro intervalo, e os do terceiro intervalo são o triplo dos valores dos do primeiro. alcance.

Eu também quero que o terceiro intervalo seja posicionado logo abaixo do segundo intervalo.

Eu também quero que, se eu adicionar novas linhas ou colunas ao Primeiro intervalo, e essas células tiverem números, os intervalos Segundo e Terceiro adicionam automaticamente as novas linhas e colunas também, exceto que os valores numéricos no segundo e O terceiro intervalo é o dobro e o triplo daqueles dos primeiros intervalos, respectivamente.

Isso é possível? Se sim, como faço isso?

    

Answer 1

Como sua pergunta tem muitas reviravoltas, estou dividindo a consulta em três partes.

Parte 1:

Copiar primeiro intervalo para outra planilha como segundo & Terceiro Intervalo.

Crie um botão de comando na Planilha1 e use este Código VBA,

Private Sub CommandButton1_Click()

Dim lastrow As Long
lastrow = Sheets("Sheet2").Range("A65536").End(xlUp).Row

Range("A1:D5").Copy Destination:=Sheets("Sheet2").Range("A" & lastrow)

End Sub

Parte 2: Crie o botão de comando na Folha 2.

Defina o modo CAPTION como Double .

Use este código VBA,

Private Sub CommandButton2_Click()

If CommandButton2.Caption = "Double" Then

Dim rngData As Range

    Set rngData = ThisWorkbook.Worksheets("Sheet2").Range("A1:D5")
    rngData = Evaluate(rngData.Address & "*2")
    CommandButton2.Caption = "Triple"


ElseIf CommandButton2.Caption = "Triple" Then

Dim rngData1 As Range

    Set rngData = ThisWorkbook.Worksheets("Sheet2").Range("A6:D10")
    rngData = Evaluate(rngData.Address & "*3")
    CommandButton2.Caption = "Double"
   End If

End Sub

Parte 3:

Agora, como atualizar o intervalo 2 e 3 com modificações no intervalo 1.

Para isso, o mais fácil eu posso sugerir você.

Copie o intervalo um com algumas linhas e colunas EXTRA e use o PASTE LINK.

Observação: Neste caso, NÃO USE A PRIMEIRA PARTE da minha Solução.

Espero que isso ajude você.