Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 copiar plan1 na ultima linha vazia da plan2

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
rangel



Mensagens : 2
Data de inscrição : 10/05/2012

MensagemAssunto: copiar plan1 na ultima linha vazia da plan2   Qui Maio 10, 2012 3:45 pm

Amigos,

Mais uma vez venho solicitar o auxilio de vc´s.
Estou tentando concluir uma macro que deve selecionar os valores de uma sheet1 utilizando lop para definir o número de linhas que deverão ser copiadas. E após a seleção devo colá-la na primeira linha vazia da sheet2.
Fiz o código, mas o mesmo não funciona. Alguém pode me ajudar.
Código:

Private Sub CommandButton1_Click()

Dim n_linhaver As Integer
n_linhaver = 10
Do While Cells(n_linhaver, 1).Value <> ""
n_linhaver = n_linhaver + 1
Loop
Range(Cells(6, 1), Cells(n_linhaver, 14)).Select
Selection.Copy
Sheets("check").Select
Range("A1048576").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

Atenciosamente
Rangel
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: copiar plan1 na ultima linha vazia da plan2   Sex Maio 11, 2012 2:55 am

Boa noite!

Mande seu modelo de arquivo para um site gratuito como 4shared e outros depois nos mande o link!

Código:
Sub Copiar()
Dim r As Range, r1 As Range

With Worksheets("Origem")
Set r = .Cells(Rows.Count, "A").End(xlUp)
End With

With Worksheets("Destino")
Set r1 = .Cells(Rows.Count, "A").End(xlUp)
End With

r.EntireRow.Copy r1.Offset(1, 0)
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Jaime Rib.Preto



Mensagens : 10
Data de inscrição : 18/04/2012

MensagemAssunto: Re: copiar plan1 na ultima linha vazia da plan2   Sex Maio 11, 2012 7:09 pm

Tenho uma macro que funciona bem...

Ela copia onde tem dados, se for seu caso, apenas mude os nomes...

Espero ter ajudado

[]´s

Jaime

Sub Macro3()
'
' Macro3 Macro
'
If MsgBox("TODOS OS DADOS SERÃO DEFINITIVAMENTE APAGADOS, CONFIRMA??", vbYesNo, "ATENÇÃO, AVISO IMPORTANTE!!!") = vbYes Then

Range("B8:H8").Select ' Seleciona as celulas no meu caso, é a coluna B
Range(Selection, Selection.End(xlDown)).Select ' Seleciona até onde possui dados
Selection.Copy ' Copia
Sheets("Nome da guia da sua planilha").Select ' Seleciona planilha para colar
Range("A1").Select

If Range("A2") = "" Then
ActiveCell.Offset(1, 0).Select
Else
Range("A1").Select
Selection.End(xlDown).Offset(1, 0).Select
End If

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False ' Cola com os formatos proprios
Range("A2").Select ' Seleciona celula
Sheets("nome sua guia").Select ' Seleciona planilha inicial
Range("B8").Select ' Seleciona celula
Application.CutCopyMode = False ' Limpa area de transferencia
Range("B8:D100").Select ' Seleciona celulas de onde foram copiados os dados
Selection.ClearContents ' Limpa as celulas
Range("B8").Select ' Seleciona celula para novas entradas

End If
End Sub

Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: copiar plan1 na ultima linha vazia da plan2   Hoje à(s) 8:55 am

Voltar ao Topo Ir em baixo
 
copiar plan1 na ultima linha vazia da plan2
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Ocultar última linha de lista
» [Apresentação] Sacola Vazia
» widgets para toda linha wave. Espero que cutão :D
» [TUTORIAL] Flashplayer 11.0.1.152 em toda linha Wave !
» Atras da linha vermelha

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: