Jump to content

cargar datos con macro


Recommended Posts

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Guest 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.

Link to comment
Share on other sites

Guest 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?

B) ¿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.

Link to comment
Share on other sites

*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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy