Seguir almacenando datos después del último registro

[Ortega. A]

Tengo un formato de llenado en PEDIDO y cada vez que le doy Clic en el botón necesito que me almacene los datos en la hoja PRODUCCIÓN, evitando las celdas vacías y debajo del último dato en PRODUCCIÓN.

Ya logré hacer que los pegue pero solo quiero los valores no el formato, porque si yo le doy clic así como está me copia también el formato de la celda.

Si yo vuelvo a ingresar datos me sustituye los existentes.

Se que en Visual es con Recordset y mover el apuntador, pero aquí en Excel no tengo idea de como hacerle.

Desde ya muchas gracias!!

Portafolio.rar

[Armando Montes]

Hola, esto te dara la primera fila vacia en la columna A:

Cells(Rows.Count, "A").End(xlup).row[/CODE]

Para copiar valores debes usar pegado especial/valores:

[CODE]PasteSpecial xlPasteValues[/CODE]

Algunas guias que te serviran:

14 formas de acelerar y optimizar tus macros excel | TodoExcelTodoExcel

Snippets VBA.rar

[Ortega. A]

Gracias Armando Montes, eso mismo he intentado con el pegado especial pero cuando pongo paste:=xlValue el editor de vba me saca un error.

El primero código si me podrías ayudar con la sentencia completa?

[Ortega. A]

Este es el error que te mencionaba

[Armando Montes]

Hola, se hace por separado el copiar y el pegado, hazlo con la grabadora y obtendras el codigo.

Mi primer macro en excel : Hojas de cálculo Excel

El primer codigo esta complete, si acaso suma 1 al final para situarte en la primera fila vacia.

[Ortega. A]

Gracias Armando Montes.

Me surge el siguiente problema.

Ya tengo el código para para pegar en la primera celda libre.

Si yo ejecuto el código de COLUMNA , lo hace.

Private Sub CommandButton1_Click()


Dim Mensaje, Resp

Mensaje = "¿Desea guardar los datos? "

Resp = MsgBox(Mensaje, vbQuestion + vbYesNo)

On Error Resume Next


If Resp = vbYes Then

Worksheets("PEDIDO").Range("i6").Value = Worksheets("PEDIDO").Range("i6").Value + 1


'FOLIO


'Application.Goto (ActiveWorkbook.Sheets("PEDIDO").Range("FOLIO"))

' Selection.Copy

' Application.Goto (ActiveWorkbook.Sheets("PRODUCCION").Range("A5"))

' ActiveSheet.Range("A5").End(xlDown).Offset(1, 0).Select

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

' :=False, Transpose:=False


'NOMBRE


'Application.Goto (ActiveWorkbook.Sheets("PEDIDO").Range("C6"))

' Selection.Copy

' Application.Goto (ActiveWorkbook.Sheets("PRODUCCION").Range("B5"))

' ActiveSheet.Range("B5").End(xlDown).Offset(1, 0).Select

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

' :=False, Transpose:=False


'CANTIDAD


Application.Goto (ActiveWorkbook.Sheets("PEDIDO").Range("CANTIDAD"))

Selection.Copy

Application.Goto (ActiveWorkbook.Sheets("PRODUCCION").Range("C5"))

ActiveSheet.Range("C5").End(xlDown).Offset(1, 0).Select

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

:=False, Transpose:=False


' NO_FOLDER

'Application.Goto (ActiveWorkbook.Sheets("PEDIDO").Range("NO_FOLDER"))

' Selection.Copy

' Application.Goto (ActiveWorkbook.Sheets("PRODUCCION").Range("D5"))

' ActiveSheet.Range("D5").End(xlDown).Offset(1, 0).Select

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

' :=False, Transpose:=False


'FECHA_RECEPCION


' Application.Goto (ActiveWorkbook.Sheets("PEDIDO").Range("C7"))

' Selection.Copy

' Application.Goto (ActiveWorkbook.Sheets("PRODUCCION").Range("E5"))

' ActiveSheet.Range("E5").End(xlDown).Offset(1, 0).Select

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

' :=False, Transpose:=False


'FECHA_ENTREGA


'Application.Goto (ActiveWorkbook.Sheets("PEDIDO").Range("I7"))

' Selection.Copy

' Application.Goto (ActiveWorkbook.Sheets("PRODUCCION").Range("F5"))

' ActiveSheet.Range("F5").End(xlDown).Offset(1, 0).Select

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

:=False, Transpose:=False


End If


End Sub[/CODE]

Pero si habilito el código de las demás celdas ya no funciona.

[CODE]CANTIDAD

Application.Goto (ActiveWorkbook.Sheets("PEDIDO").Range("CANTIDAD"))
Selection.Copy
Application.Goto (ActiveWorkbook.Sheets("PRODUCCION").Range("C5"))
ActiveSheet.Range("C5").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

' NO_FOLDER
Application.Goto (ActiveWorkbook.Sheets("PEDIDO").Range("NO_FOLDER"))
Selection.Copy
Application.Goto (ActiveWorkbook.Sheets("PRODUCCION").Range("D5"))
'ActiveSheet.Range("D5").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'FECHA_RECEPCION

Application.Goto (ActiveWorkbook.Sheets("PEDIDO").Range("C7"))
Selection.Copy
Application.Goto (ActiveWorkbook.Sheets("PRODUCCION").Range("E5"))
ActiveSheet.Range("E5").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False[/CODE]

Cómo hago para que se repita el Folio, el nombre y las fechas en las demás celdas?.

Muchas gracias.

Portafolio.rar