Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
COPIAR E COLAR DA P...
 
Notifications
Clear all

COPIAR E COLAR DA PLAN1 PARA A PLAN2

 
2024 - VBA & Macros
Post Recente por FragosoJP 8 anos atrás
4 Posts
2 Usuários
0 Reactions
987 Visualizações
RSS
 FragosoJP
(@fragosojp)
Posts: 101
Estimable Member
Topic starter
 

bom dia a todos
preciso de uma ajuda de vcs.
eu tenho um protocolo de recebimento, aonde eu insiro as informações,

eu gostaria de criar uma macro aonde ele copia e cola os dados na plan2 criando um banco de dados.
ex: as informações que eu insiro é C4 (data do dia), F4 ( hora atual), D5(nome da transportadora) e C28:h53 (coloco os dados da NF) nem sempre eu preenche todo o espaço pois, as vezes vem 1, ou 2 NF , porem tem como ao executar a macro para que copie e cole as informações de C28:h53 da plan1 para plan2 nas colunas D, E, F, G, e ao lado de cada linha copiada ela repetisse os valores de D5, C4 e F4?


plan2
TRANSP	DATA......	HORA	NF	VOL	REM	FORN
AAAAAA	10/05/2017	08:00	1	10	1115	XXXX
AAAAAA	10/05/2017	08:00	2	10	1115	XXXX
AAAAAA	10/05/2017	08:00	3	10	1115	XXXX
AAAAAA	10/05/2017	08:00	4	10	1115	XXXX
AAAAAA	10/05/2017	08:00	5	10	1115	XXXX
AAAAAA	10/05/2017	08:00	6	10	1115	XXXX
AAAAAA	10/05/2017	08:00	7	10	1115	XXXX
AAAAAA	10/05/2017	08:00	8	10	1115	XXXX
BBBBBB	11/05/2017	09:00	10	10	1115	XXXX
BBBBBB	11/05/2017	09:00	11	10	1115	XXXX
BBBBBB	11/05/2017	09:00	12	10	1115	XXXX
CCCCCC	11/05/2017	10:00	1	10	1115	XXXX
CCCCCC	11/05/2017	10:00	2	10	1115	XXXX
CCCCCC	11/05/2017	10:00	3	10	1115	XXXX
CCCCCC	11/05/2017	10:00	4	10	1115	XXXX
CCCCCC	11/05/2017	10:00	5	10	1115	XXXX
CCCCCC	11/05/2017	10:00	6	10	1115	XXXX
CCCCCC	11/05/2017	10:00	7	10	1115	XXXX
 
Postado : 18/05/2017 7:48 am
 ti02
(@ti02)
Posts: 34
Eminent Member
 

Poderia postar novamente seu pedido de uma outra forma? não consegui abstrair a ideia, desculpe!

 
Postado : 18/05/2017 8:03 am
 FragosoJP
(@fragosojp)
Posts: 101
Estimable Member
Topic starter
 

espero que de dessa forma fique mais fácil

Plan1 copia dados da H28:C53 (porem nem sempre todas as linhas estão preenchidas), colar na Plan2 a partir da coluna D.

os dados da Plan1: D5, C4 e F4 copiar e colar na plan2 a partir da da coluna A (esses dados se repetem conforme a quantidade de linhas preenchidas do intervalo da plan1 de H28:C53)

 
Postado : 18/05/2017 8:08 am
 FragosoJP
(@fragosojp)
Posts: 101
Estimable Member
Topic starter
 

a primeira parte eu consegui fazer, passar os dados da plan1 para a plan2
a segunda parte que é colocar os dados de: nome da transportadora, data e hora repetidamente ao lado de cada linha não consegui fazer,

seguem puder me ajudar fico grato
mandei um print tentando exemplificar

Sub SalvarDados()
    Dim i As Integer, j As Byte
    Dim UltimaLinha As Long
    
    UltimaLinha = Sheets("plan2").Cells(Cells.Rows.Count, 4).End(xlUp).Row
    
    If UltimaLinha < 2 Then
        UltimaLinha = 2
    Else
        UltimaLinha = UltimaLinha + 1
    End If
    
    With Plan1
    
      For i = 28 To .Range("C" & Rows.Count).End(xlUp).Row
        If Sheets("Plan1").Range("C" & i).Value > 0 Then
           Plan2.Range("D" & UltimaLinha) = .Range("C" & i)
           Plan2.Range("E" & UltimaLinha) = .Range("D" & i)
           Plan2.Range("F" & UltimaLinha) = .Range("F" & i)
           Plan2.Range("G" & UltimaLinha) = .Range("H" & i)
           Plan2.Range("G" & UltimaLinha) = .Range("H" & i)
          
           UltimaLinha = UltimaLinha + 1
        
        End If
      Next i
    End With
End Sub
 
Postado : 18/05/2017 1:20 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico