Ta na mao

Sub CopiaCola()
Dim Intervalo As String

Intervalo = "A2:D2"
Range(Intervalo).Range("A1").Offset(1).EntireRow.Insert
Range(Intervalo).Copy
Range(Intervalo).Range("A1").Offset(1).PasteSpecial xlPasteValues
Application.CutCopyMode = False

End Sub

Na dica do colega Adelson, estamos inserindo uma linha abaixo do Intervalo = "A2:D2" na Planilha ativa e copiando os Valores da linha referente a este mesmo intervalo e colando somete os Valores sem Formula.

Se é isso o que pretende, podemos tambem utilizar a rotina abaixo, sem acionarmos o Copy e o PasteSpecial xlPasteValues:

Sub CopiaColaValoresPlanAtiva()
    Dim Intervalo As String
        Intervalo = "A2:D2"
            Range(Intervalo).Range("A1").Offset(1).EntireRow.Insert
            Range(Intervalo).Offset(1).Value = Range(Intervalo).Value
        Application.CutCopyMode = False
End Sub

Para realizarmos a mesma ação mas com DUAS planilhas(Abas), podemos utilizar:

Sub CopiaColaValoresPlan1paraPlan2()
    Dim Intervalo As String
    Intervalo = "A2:D2"
    
        Plan2.Range(Intervalo).Range("A1").Offset(1).EntireRow.Insert
        Plan2.Range(Intervalo).Offset(1).Value = Plan1.Range(Intervalo).Value
        
End Sub

[]s

amigos muito bom a ajuda de voces, estou agradecido mais,

me ajuda a entendela melhor!

Estou precisando enviar a celula B1 da planilha Gastos para celula b1 da planilha Fatura

Agradeço desde Já,

mpr, como não especificou se quer adaptado nas rotinas acima, e como ´mencionou Planilhas e Range Fixo, você pode utilizar a rotina abaixo, mas fica bem simples adaptar nas anteriores.

Sub CopiaDePara()
	Sheets("Gastos").Range("B1").Copy Destination:=Sheets("Fatura").Range("B1")
End Sub

[]s

Mauro valeu mais,

Utilizando essa formula,

Sub CopiaDePara()
   Sheets("Gastos").Range("B1").Copy Destination:=Sheets("Fatura").Range("B1")
End Sub

Gostaria de colar somente os valores com se fosse enserilas,

Obs.: minha entenção é fazer que as linhas copiadas(valores)seja enseridas! Voce pode me dizer com fazer?

Desde já agradecido!

Cara se a sua intenção é transferir o conteudo da celula B1 da planilha Gastos para a celula B1 da planilha Fatura
faz o seguinte:

Sub CopiaDePara()
 Sheets("Fatura").Range("B1") =   Sheets("Gastos").Range("B1").Value
End Sub

Amigo Edson,estou agradecido pela sua resposta mai,

Refente a essa formula:

Sub CopiaDePara()
Sheets("Fatura").Range("B1") =   Sheets("Gastos").Range("B1").Value
End Sub

A formula acima transfere a celula da B1 para B1(Gastos)

Gostaria que Copia-se a celula b1(Fatura) e enseri-se a copia na celula b1(Gastos)

Obs.:
Porque enserir?
Simplesmente porque,se não enserir ela ira copiar a celula b1(Fatura) e colar na celula B1(Gastos) uma em cima da outra!

Pode me ajudar ?

Boa tarde mprbraex,

Abaixo fiz o código que você precisa, já testado.

'Copia e insere valores em uma lista
Sub lsCopiarInserir()
    Sheets("Gastos").Range("B1").Insert Shift:=xlDown
    Sheets("Gastos").Range("B1").Value = Sheets("Fatura").Range("B1").Value
End Sub

Abraço

Marcos Rieper

Amigos,

Da uma olha da formula que fiz:

Sub Macro1()
    Sheets("historico").Range("B1").Insert Shift:=xlDown
    Sheets("gerador de pedidos").Range("B1").Value Selection.Copy
    Sheets("historico").Range("B1").Value.Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Eu não entendo muito, mais,
gostaria que voces desse uma ajuda!

Att,

Boa tarde Amigos,

Seguindo essa formula voces poderia alterar para somente colar os valores ?

Sub Macro2()
'
' Macro2 Macro
' Macro gravada em 05/04/2011 por mprbraex
'
     
    Sheets("Historico").Select
    Application.CutCopyMode = False
    Range("a3").Select
    Selection.Insert Shift:=xlDown
    Sheets("gerador de pedidoS").Select
    Range("D1").Select
    Selection.Copy
    Sheets("Historico").Select
    Range("A3").Select
   [color=#FF0000] Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False[/color]
    
   
End Sub

Desde já agradecido!