• 0
Sign in to follow this  
jorge24

VBA PARA REPETIR "X" VAZES DETERMINADAS CÉLULAS

Question

olá,

Preciso de uma ajuda com um código VBA.

Preciso que ao inserir um número na célula "F" as células dessa linha sejam repetidas para as linhas abaixo esse determinado numero de vezes.

Ou seja, se colocar na célula "F" o numero 20, automaticamente são preenchidas 20 linhas com os valores da linha original.

Será que alguém me pode dar uma ajuda. obrigado

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Boa noite

Seja bem-vindo ao fórum!

Copie e cole o código abaixo em um módulo e instale um botão para comando da macro abaixo:

Sub teste()

    Dim iLinha As Integer
    Dim Qtde As Integer
    
    Range("G1:G" & Rows.Count).ClearContents
        
    Qtde = Range("F1")
        
    For iLinha = 1 To Qtde
                    
        Plan1.Cells(iLinha, 2).Value = 1
                
    Next iLinha
    
    
End Sub

Dê retorno.

[]s

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this