Este fórum está sendo desativado

[Angra]

Bom dia
Na verdade são dois pedidos:
1º Como aumentar ou diminuir a largura da coluna ou linha com macro. Informando a nova medida dentro da macro.

2º Copiar valores de um intervalo (B) para outro intervalo (A) , de modo que os valores gravados anteriormente (intervalo A) não sejam sobrepostos ou excluídos pelo novos valores, oriundos do intervalo B.

[mprudencio]

Qto ao espaçamento é so usar a instrução autofit.

Mas o restante juro nao entendi.

[Fehalves]

Olá Eu posso ajudar dando 5 dicas de Excel ,vou deixar meu Whatsapp :21998516546

[GladstoneD]

Bom dia
Na verdade são dois pedidos:
1º Como aumentar ou diminuir a largura da coluna ou linha com macro. Informando a nova medida dentro da macro.

2º Copiar valores de um intervalo (B) para outro intervalo (A) , de modo que os valores gravados anteriormente (intervalo A) não sejam sobrepostos ou excluídos pelo novos valores, oriundos do intervalo B.

Bom dia!!

Sobre o 1º Pedido, vc pode usar algo como isso. Nesse exemplo eu usei a Linha 1 e Coluna A

Código: Selecionar todos

Sub Tamanhos()

Dim AltLin As Double
Dim LarCol As Double

AltLin = InputBox("Altura da Linha", "Digite um valor")
        If StrPtr(AltLin) = 0 Then Exit Sub
        If AltLin = Null Then MsgBox ("Digite um valor")

LarCol = InputBox("Largura da Coluna", "Digite um valor")
        If StrPtr(LarCol) = 0 Then Exit Sub
        If LarCol = Null Then MsgBox ("Digite um valor")

    Rows("1:1").RowHeight = AltLin
    Columns("A:A").ColumnWidth = LarCol
End Sub

Sobre o 2º, eu realmente nao entendi o que deve acontecer com os dados

[osvaldomp]

Bom dia
Na verdade são dois pedidos:
1º Como aumentar ou diminuir a largura da coluna ou linha com macro. Informando a nova medida dentro da macro.
Fonte ~~~> gravador de macros

Código: Selecionar todos

    Rows("56:56").RowHeight = 20
    Columns("H:H").ColumnWidth = 10

2º Copiar valores de um intervalo (B) para outro intervalo (A) , de modo que os valores gravados anteriormente (intervalo A) não sejam sobrepostos ou excluídos pelo novos valores, oriundos do intervalo B.
A cada operação de copiar/colar o intervalo B será mantido ou apagado? Se for mantido, basta fazer copiar/colar sempre.

[Angra]

Respondendo aos questionamentos:

1º Copia os valores do intervalo B para o intervalo A. Os valores gravados anteriormente no intervalo A permanecem, não são sobrepostos ou excluídos pelo novos valores;

2º Valores do intervalo B, são deletados manualmente e depois de um tempo outros valores são digitados no intervalo;

3º A preocupação é sempre deixar os valores antigos (intervalo A) gravados permanentemente;

4º Quando da marcação de novos valores no intervalo B, eles não serão digitados na mesma posição de valores já existentes no intervalo A;

5º Uma ideia é copiar apenas o conteúdo da célula preenchida no intervalo B e colar no intervalo A, enfim...

[osvaldomp]

Código: Selecionar todos

Sub ReplicaValoresFormatos()
 Dim b As Range
  For Each b In Range("AS8:AU46")
   If b.Value <> "" Then b.Copy b.Offset(, -29)
  Next b
End Sub

Código: Selecionar todos

Sub ReplicaValores()
 Dim b As Range
  For Each b In Range("AS8:AU46")
   If b.Value <> "" Then b.Offset(, -29).Value = b.Value
  Next b
End Sub

[Angra]

Boa noite
Queria agradecer ao GladstoneD, a ajuda e pedir que fizesse uma pequena correção na macro, alterei essa linha:

LarCol = InputBox("Largura da Coluna", "Digite um valor")

para: LarCol = 30

A linha aumenta para 30

Precisava alterar a linha abaixo para fazer ela voltar para um outro valor (menor por exemplo) retirando a MsgBox e colocando o valor direto na linha, como na alteração acima.

If LarCol = Null Then MsgBox ("Digite um valor")

Por fim meu agradecimento ao osvaldomp, pela simplicidade da macro que atende com perfeição minha necessidade.

Vou esperar pela correção do GladstoneD, para dar o tópico como resolvido. Mas não sei como clicar duas vezes o agradecimento oficial do forum

[Angra]

No mesmo botão que vai disparar a macro, clicou, o intervalo foi a "x", clicou de novo, o intervalo voltou para intervalo "Y".

[GladstoneD]

Boa noite
Queria agradecer ao GladstoneD, a ajuda e pedir que fizesse uma pequena correção na macro, alterei essa linha:

LarCol = InputBox("Largura da Coluna", "Digite um valor")

para: LarCol = 30

A linha aumenta para 30

Precisava alterar a linha abaixo para fazer ela voltar para um outro valor (menor por exemplo) retirando a MsgBox e colocando o valor direto na linha, como na alteração acima.

If LarCol = Null Then MsgBox ("Digite um valor")

Por fim meu agradecimento ao osvaldomp, pela simplicidade da macro que atende com perfeição minha necessidade.

Vou esperar pela correção do GladstoneD, para dar o tópico como resolvido. Mas não sei como clicar duas vezes o agradecimento oficial do forum

Olá, desculpe. Estava em viagem.

Nao entendi bem. Vc quer que a macro defina um valor fixo pra coluna? Ou quer que ela leia um valor na celula?

[Angra]

Vou aplicar dois valores, um vai aumentar a largura da linha(já implementado) e outro vai retornar a largura anterior, tudo isso no mesmo botão. Clicou a macro aumenta a largura para "x", clicou de novo, volta a largura informada. Como vou informar dentro da macro as duas medidas, (menor, maior)não preciso da MsgBox.

[osvaldomp]

por Angra » 05 Mar 2018 às 16:07
... um vai aumentar a largura da linha(já implementado) ...

Largura se aplica à medida da coluna, para a medida da linha aplica-se altura.

Se a largura da coluna H for igual a 10 o código abaixo passará a largura daquela coluna para 50, se não, passará para 10.

Código: Selecionar todos

Sub AlteraLarguraColuna()
 Columns("H:H").ColumnWidth = IIf(Columns("H:H").ColumnWidth = 10, 50, 10)
End Sub

[Angra]

Troquei os termos, mas grato pelo lembrete. Na compilação apresenta a seguinte mensagem: "Sub ou função não definida"

[osvaldomp]

Aqui funciona corretamente!

[Angra]

Testando a macro no note da minha amiga, dispara normal. Tanto cá como lá, uso o Office 2010.
Vou encerrar o tópico agradecendo ao GladstoneD e osvaldomp, pela contribuição e e nosso aprendizado.