Macro De Copiar Dados

[Ricardo Maia Marques]

Olá amigos, por favor, alguem poderia me auxiliar na criação de um macro em que clicando na tecla da macro, a mesma copia os dados de uma linha definida para outra planilha, desde que estes procedimentos sejam em linhas sequeciais.

Fiz a macro, mas não consigo manter os lançamentos em linhas sequeciais

E dentro da que criei, a mesma só fica na mesma linha...

Agradeço antecipadamente o auxilio.

Obrigado a todos.

Ricardo Maia

[Clemente Silva]

Bom, se é que eu entendi, deve ser mais ou menos isso:

Postado Originalmente por Copiar dados de uma planilha para outra

Public Sub Copiar(PlanilhaOrigem As String, PlanilhaDestino As String, Coluna As String)

    Dim Cont As Long, LinhaInicial As String, LinhaFinal As String

    Dim Celula As String

   

    LinhaInicial = InputBox("Informe a linha inicial:", "Copiar", "1")

    If Not IsNumeric(LinhaInicial) Then

        MsgBox "Linha Inicial deve ser um vaor numérico.", vbExclamation, "Erro"

        Exit Sub

    End If

    LinhaFinal = InputBox("Informe a linha final:", "Copiar", "2")

    If Not IsNumeric(LinhaFinal) Then

        MsgBox "Linha Final deve ser um vaor numérico.", vbExclamation, "Erro"

        Exit Sub

    End If

    If Not CLng(LinhaFinal) >= CLng(LinhaInicial) Then

        MsgBox "Linha Final não pode ser menor que Linha Inicial.", vbExclamation, "Erro"

        Exit Sub

    End If

   

    'PlanilhaOrigem.Range(Coluna & LinhaInicial).Select

   

    For Cont = CLng(LinhaInicial) To CLng(LinhaFinal)

        Celula = Coluna & Cont

        Worksheets(PlanilhaDestino).Range(Celula).Value = Worksheets(PlanilhaOrigem).Range(Celula).Text

    Next

    MsgBox "Dados copiados.", vbInformation, "Copiar"

   

    Worksheets(PlanilhaDestino).Activate

End Sub

Este exemplo usa dois "InputBox" para obter do usuário qual a linha inicial e qual a linha final para copiar. As planilhas e a coluna você passa como argumento da rotina.

Para usar esta rotina, coloque num Módulo o código acima. Para chamar, coloque na "Plan1" um botão de Formulário, depois volte no mesmo Módulo e coloque esse código:

Postado Originalmente por Código do botão de Formulário

Public Sub Botão1_Clique()

    Copiar "Plan1", "Plan2", "A"

End Sub

Mude os argumentos conforme os nomes que você deu às planilhas, e conforme a coluna que você vai copiar.

Depois você me fala se serviu ou não.

[Ricardo Maia Marques]

Navegando, conseguir uma planilha base, do que necessito, más isso não significa que não farei um teste com o molde que me mandastes.

Estou iniciando agora em alguns comandos de MACRO do Excel.

Não tenho nenhuma conhecimento de linguagem do VBA, o qual preciso de indicações de livros para iniciantes em VBA no Excel.

Um forte abraço,

Agradecimentos pela ajuda.

Valeu mesmo

Inclusive os dados do comando da macro que tenho aqui é a seguinte:

Sub lancarestoque()

'

' lancarestoque Macro

' Macro gravada em 02/06/2004 por RICARDO

'

Range("c9:g8").Select

Selection.Copy

Sheets("Relatório").Select

Range("A4").Select

Selection.End(xlDown).Select

ActiveCell.Offset(1, 0).Range("A1").Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Range("A1").Select

Sheets("Controle").Select

Range("c9").Select

Application.CutCopyMode = False

End Sub