Saltar al contenido

Seguir almacenando datos después del último registro

publicado

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.rarFetching info...

Featured Replies

publicado
  • Autor

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?

publicado
  • Autor

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.rarFetching info...

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.