Notifications

Clear all

Copiar, localizar e colar

2024 - VBA & Macros

Post Recente por Osvaldomp 7 anos atrás

6 Posts

3 Usuários

0 Reactions

1,464 Visualizações

RSS

fmathias

(@fmathias)

Posts: 6

Active Member

Topic starter

Boa tarde pessoal,

Estou iniciando no VBA, fazendo curso, quando o professor faz e explica eu consigo entender, porém quando é para construir algo novo, fico perdido e nem sei por onde começar.

Por este motivo, tenho uma dúvida na tabela abaixo:

O que preciso fazer:
Preciso copiar os valores de .Range("A3:A7") e colar abaixo do valor correspondente a semana atual.

Por exemplo, se a semana atual for "5", irá procurar o valor "5" em .Range("C11:L11"), quando encontrar irá colar os valores de .Range("A3:A7") em .Range("G12:G16").

Alguém disposto a ajudar? Não sei nem qual linha de raciocínio seguir.

Obrigado

Postado : 07/02/2018 10:25 am

fmathias

(@fmathias)

Posts: 6

Active Member

Topic starter

Se a imagem não carregar, segue o link: https://uploaddeimagens.com.br/imagens/ ... -png--4840

Postado : 07/02/2018 10:26 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Edite o título do seu tópico e deixe apenas Copiar, localizar e colar. Isso facilita na busca para outras pessoas.
Quando quiser anexar imagem, uma possibilidade é clicar em adicionar um anexo.

Option Explicit

Sub TESTE()

Dim QUADRO As Range

Set QUADRO = Plan1.Range("C12:L16")

QUADRO.Cells.ClearContents
    
    Dim SEMANA As Integer
    
    SEMANA = Plan1.Range("B1").Value
    
    Dim VALORES As Range
    
    Set VALORES = Plan1.Range("A3:A7")
    
    Dim NUMEROSEMANA As Range
    
    Set NUMEROSEMANA = Plan1.Range("C11:L11")
    
    Dim CL As Object
    Dim CL2 As Object
    Dim I As Integer
    For Each CL In NUMEROSEMANA.Cells
        
        If CL.Value = SEMANA Then
            I = 1
            For Each CL2 In VALORES.Cells
                
                Plan1.Cells(I + 11, CL.Column).Value = VALORES(I, 1).Value
                I = I + 1
            Next CL2
            
        End If
        
    Next CL
    
    
    
End Sub

Se você não souber laço de repetição, não saberá nenhuma linguagem de programação:

https://www.youtube.com/results?search_query=la%C3%A7o+de+repeti%C3%A7%C3%A3o

https://www.youtube.com/results?search_query=vba+la%C3%A7o+de+repeti%C3%A7%C3%A3o

Se você não souber lógica de programação, não saberá nenhuma linguagem de programação:

https://www.youtube.com/results?search_query=logica+de+programa%C3%A7%C3%A3o

Na próxima vez que abrir um tópico neste fórum (já estou prevendo que serão muitos tópicos), anexe o arquivo da planilha.

Postado : 07/02/2018 10:32 am

Osvaldomp

(@osvaldomp)

Posts: 0

Eminent Member

Sub ReplicaDados()
 [A3:A7].Copy Cells(12, [B1] + 2)
End Sub

Osvaldo

Postado : 07/02/2018 11:08 am