Impresión de celdas a otro formato

Yo escribí un procedimiento que tal vez te pueda servir.
Para que funcione (tal como está ahora mismo), debe ser
llamado desde una hoja llamada Datos, y la hoja con el
otro formato debe llamarse Factura:


Sub ImprimirF()
If UCase(ActiveSheet.Name) <> "DATOS" Then Exit Sub

Dim wksCli As Worksheet, wksFic As Worksheet
Dim rngO As Range, rngArea As Range
Dim lngFilas As Long, n As Long

Set wksCli = Worksheets("Datos")
Set wksFic = Worksheets("Factura")
Set rngO = Selection

For Each rngArea In rngO.Areas
lngFilas = lngFilas + rngArea.Rows.Count
Next rngArea

If MsgBox(prompt:="Se imprimirán " & lngFilas & "
filas.", Buttons:=vbOKCancel + vbInformation) = vbCancel
Then Exit Sub

For Each rngArea In rngO.Areas

For n = 1 To rngArea.Rows.Count

With wksFic
.Range("A1") = wksCli.Cells(rngArea.Rows
(n).Row, 1)
.Range("B1") = wksCli.Cells(rngArea.Rows
(n).Row, 2)
.Range("C1") = wksCli.Cells(rngArea.Rows
(n).Row, 5)
End With

wksFic.PrintOut

Next n

Next rngArea

Set rngArea = Nothing
Set rngO = Nothing
Set wksFic = Nothing
Set wksCli = Nothing
End Sub


Lo más probable es que tengas que modificarlo porque no
te sirvan las direcciones de las celdas que se copian.
Tal como está el código, sería:

Columna 1 de Datos a A1 de Factura
Columna 2 de Datos a A2 de Factura
Columna 3 de Datos a A5 de Factura

Un saludo.


Fernando Arroyo
MS MVP - Excel

Muy buenos días Foro
El motivo de este mensaje es plantear la siguiente
pregunta:

Resulta que hace un buen tiempo encontré una macro en
Excel que permitía imprimir valores de filas

seleccionadas

de una Hoja a otra hoja con formato distinto y ubicados
esos valores seleccionados en diferentes celdas.

Desafortunadamente he perdido ese código, he tratado de
reconstruirlo pero no lo recuerdo.

Me pueden ayudar, ¿dónde lo puedo encontrar o quién de
ustedes cuenta con él?, ya he bucada en este foro todos
los mensajes que se aproximen al tema pero solo llego
hasta la págian 43 y no lo encuentro (las demas paginas

de

la 44 a la 390 no muestran absolutamente nada)

Gracias por valiosa ayuda
.