Ayuda al exportar celdas con funciones

Sub CopiarLimpiar()
'obtener ultima fila con datos de la tabla
Dim miFila As Integer
'considerando que la col A tendrá datos . + 1 para obtener la primer fila libre.
miFila = Sheets("ListaDePedidos").Range("A65536").End(xlUp).Row +1
'selecciona hoja con datos a copiar
'primer dato en primer col
Sheets("HojaPedidos").Select
ActiveSheet.Range("b3").Copy Destination:=Sheets("ListaDePedidos").Cells(miFila, 1)
'segundo dato en col B
ActiveSheet.Range("c7").Copy Destination:=Sheets("ListaDePedidos").Cells(miFila, 2)
'así con cada dato
'si los datos están en 1 fila utilizar 1 sola instrucción indicando el rango completo para copiarlo en la col 1
'limpiar celdas
ActiveSheet.Range("b3") = ""
ActiveSheet.Range("c7") = ""
'así con todas las celdas
End Sub
Tengo esta macro para excel que me la dieron lo que quisiera que me ayuden por favor es en casi que la celda c7 tenga una función de excel se copiara la función más no el valor ese es mi problema

1 Respuesta

Respuesta
1
Copia y pega esta macro y agrégasela al botón
realiza la misma función que la otra pero pega solo valores.
Sub CopiarLimpiar2()
Sheets("ListadePedidos").Select
Range("a65536").End(xlUp).Offset(1,0).Select
i = ActiveCell.Row
Range("a" & i).Value = WorkSheets("hojaPedidos").Range("b3").Value
Range("b" & i).Value = WorkSheets("hojaPedidos").Range("c7").Value
range("a1").Select
Sheets("hojadepedidos").Select
Range("b3,c7").ClearContents
Range("b3").Select
MsgBox("Su Informacion ha sido almacenada con Exito")
End Sub
Hola gracias por la respuesta
Range("a" & i).Value = WorkSheets("hojaPedidos").Range("b3").Value
Es ahí donde se queda el formulario sale como error bueno no entiendo muy bien por fa te dejo mi correo es [email protected] para cualquier ayuda es bien aceptada
Sub CopiarLimpiar2()
Sheets("ListadePedidos").Select
Range("a65536").End(xlUp).Offset(1,0).Select
i = ActiveCell.Row
Range("a" & i).Value = WorkSheets("hojaPedidos").Range("b3").Value
Range("b" & i).Value = WorkSheets("hojaPedidos").Range("c7").Value
range("a1").Select
Sheets("hojapedidos").Select 'se corrigio esta linea
Range("b3,c7").ClearContents
Range("b3").Select
MsgBox("Su Informacion ha sido almacenada con Exito")
End Sub
Disculpa que te siga molestando pero igual me sale el error
Manda, e tu correo para andarte un archivo conesa macro... donde la he probado y funciona correctamente..
Mi correo es:
[email protected]
Gracias
Podrás cerrar esta pregunta para que no me aparezca comopregunta activa...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas