Ir para conteúdo
Fórum Script Brasil

emerson.ccb

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre emerson.ccb

emerson.ccb's Achievements

0

Reputação

  1. Pessoal boa tarde! Coloquei a macro abaixo pra copiar os atendimentos de um arquivo para outro, Porem sempre cola no mesmo lugar sobrepondo as informações anteriores, como faço para sempre colar na proxima linha vazia. segue macro: Sub Copiar_Dados() Dim wsOrigem As Worksheet Dim wsDestino As Worksheet 'Arquivo Destino, abrimos primeiro 'Ajuste o caminho do mesmo linha = Sheets("Atendimentos").Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Row + 1 'Arquivos e Abas de Origem e Destino Set wsOrigem = Worksheets("Atendimentos") Set wsDestino = Workbooks("Ind.Supervisor.xlsm").Worksheets("Atendimentos") With wsOrigem .Range("B10:B44").Copy Destination:=wsDestino.Range("B10") .Range("C10:C44").Copy Destination:=wsDestino.Range("C10") .Range("D10:D44").Copy Destination:=wsDestino.Range("D10") .Range("E10:E44").Copy Destination:=wsDestino.Range("E10") .Range("F10:F44").Copy Destination:=wsDestino.Range("F10") .Range("G10:G44").Copy Destination:=wsDestino.Range("G10") ContLinha = ContLinha + 1 End With 'Fecha o Arquivo Destino e Salva Workbooks("Ind.Supervisor.xlsm").Save MsgBox "Envio de Dados Concluído" End Sub
×
×
  • Criar Novo...