Excel - macro copiar hacia abajo

   
Vista:

macro copiar hacia abajo

Publicado por analia (3 intervenciones) el 01/06/2014 00:52:32
Hola, necesito armar una macro para copiar datos desde una tabla hacia a otra, mi problema es que la segunda tabla se trata de un histórico, es decir, la primer tabla es para ingresar siempre en ese lugar los datos y lo que quiero es que la macro los copie y los pegue en la segunda pero a la siguiente vez que ingrese datos quiero que copie y pegue en la fila de abajo para generar un histórico.

No se nada de códigos, solo se grabar macros manualmente.

Me pueden ayudar?
Gracias!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

macro copiar hacia abajo

Publicado por JuanC juanc2942@gmail.com (1053 intervenciones) el 01/06/2014 14:41:50
una posibilidad...

1
2
3
4
5
6
Dim rng As Range
Set rng = Range("A" & Cells.Rows.Count).End(xlUp)
If rng.Value <> "" Then
   Set rng = rng.Offset(1)
End If
rng.Value = "nuevo valor"

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

macro copiar hacia abajo

Publicado por analia (3 intervenciones) el 01/06/2014 20:59:07
Casi!, pega todo en el mismo lugar, te copio mi código a ver si vos encontras el problema
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Macro3()
'
' Macro3 Macro
' secado semanal
'
 
'
    Range("J9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("K9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=True
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Historico").Select
    Dim rng As Range
Set rng = Range("A" & Cells.Rows.Count).End(xlUp)
If rng.Value <> "" Then
   Set rng = rng.Offset(1)
End If
rng.Value = ActiveSheet.Paste
    Sheets("Registro semanal secado").Select
    Range("A1").Select
End Sub

Gracias!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JuanC

macro copiar hacia abajo

Publicado por JuanC juanc2942@gmail.com (1053 intervenciones) el 01/06/2014 22:14:08
parece que ni jota de programación...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Macro3()
Dim rng As Range
Range("J9").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("K9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=True
Application.CutCopyMode = False
 
Set rng = Sheets("Historico").Range("A" & Cells.Rows.Count).End(xlUp)
If rng.Value <> "" Then
   Set rng = rng.Offset(1)
End If
 
Selection.Copy rng
End Sub

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

macro copiar hacia abajo

Publicado por analia (3 intervenciones) el 01/06/2014 22:53:06
Funciona perfecto, es verdad nada de nada de programación!

Muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar