cargar datos con macro

[eugesadir]

hola tengo un problema, tengo datos desde A4:j4 y quiero que al presionar el boton, por medio de macro me copie los datos ingresados en las celdas mensionadas en una ubicacion mas abajo por ejemplo A9:J9.

El problema que se me presenta es que en lugar de copiar los datos en forma horizontal (es decir de A9:J9), los copia de forma vertical (desde A9 para abajo).

Este es el codigo, gracias

Private Sub CommandButton1_Click()

Range("A4").Select

ActiveSheet.Unprotect

Range("A4:J4").Select

Selection.Copy

Range("A8").Select

'' [A65536].End(xlUp).Offset(1, 0).Select

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

:=False, Transpose:=True

Range("A9").Select

Application.CutCopyMode = False

Range("A4:J4").Select

Range("J4").Activate

Selection.ClearContents

Range("A9").Select

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

[Antoni]

Hola:

Yo lo dejaba así:

Private Sub CommandButton1_Click()

ActiveSheet.Unprotect

Range("A4:J4").Copy: Range("A9").PasteSpecial Paste:=xlPasteValues

Range("A4:J4").ClearContents

ActiveSheet.Protect

End Sub



[/CODE]

saludos

[Invitado Cacho R]

Hola! eugesadir (y Macro A).

No entiendo bien donde hay que pegar la info copiada, de modo que muestro una variante a lo de Antoni:

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
With [a4:j4]
  Cells(Rows.Count, "a").End(xlUp).Offset(1).Resize(.Count) = _
    WorksheetFunction.Transpose(.Cells)
  .ClearContents
End With
ActiveSheet.Protect _
  DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub[/PHP]

Saludos, Cacho R.

[eugesadir]

gracias por responder, aqui adjunto el ejemplo para que me comprendan saludos

CONTROL.rar

[Invitado Cacho R]

¿Ya evaluaste las propuestas que te hemos mostrado?...

¿Comentarios?

[eugesadir]

claro, pero sigue el mismo problema...pone los datos en la misma columna en forma vertical en lugar de ponerlos de A4:J4

[Invitado Cacho R]

¡Ya veo!...

Mira: Ha sido un error muy grande publicar una macro cuya operatividad desconoces, sumado a la falta de un archivo de muestra, pues solo has conseguido desorientarnos.

De modo que -si te parece bien- vamos a "empezar de nuevo". Por ello te repregunto:

a) ¿Qué rango de celdas -y de que hoja- deseas copiar?

¿En que hoja y a partir de qué columna deseas depositar aquellas celdas?

c) La copia, ¿la quieres conservando el formato original ó -tan solo- los valores?

Si respondes a lo anterior con claridad, verás que la ayuda te vendrá rápidamente.

Saludos, Cacho R.

[eugesadir]

*Justamente porque la desconozco pregunto sino seria experta.

*Si puse el archivo de muestra y si lo ves existe un UNICO boton que es el que me trae el conflicto

Respondo:

1) de la hoja VENTAS, ingreso los datos de los encabezados y al presionar el boton deben copiarse A4:J4

2) En la misma hoja VENTAS, necesito colocar mas abajo, a la altura de A10,TODOS los datos ingresados arriba en el mismo formato que se encuentran

3)la copia debe conservar solo los valores ingresados arriba, no son necesarias formulas.Los articulos vendidos deben agregarse sucecivamente sin borrarse