Impresion de recibos

[Mario_08]

Hola a todos, quiero solicitarles su ayuda para completar una macro que me permita realizar lo siguiente:

1- Recorrer cada celda de un rango en una hoja (Q)

2- Cada valor pegarlo en una celda de otra hoja (RECIBO) donde ese codigo permita realizar una busqueda de diversos valores.

3- Imprimir todos los recibos de los empleados

Por el momento únicamente he logrado visualizar la extracción de cada valor de celda con un msgbox

Option Explicit

Public Sub recorrer_rango_seleccionado()

' variable de tipo Range para hacer referencia a las celdas

Dim obj_Cell As Range

Dim codigo As String

'Recorrer todas las celdas seleccionadas en el rango actual

Sheets("Q").Range("b6:b10").Select

For Each obj_Cell In Selection.Cells

' Muestra el valor

With obj_Cell

'EN ESTE SEGMENTO ENTIENDO QUE DEBO DE COLOCAR LA INDICACIÓN PARA PEGARLO EN LA CELDA C1 DE LA HOJA RECIBO

MsgBox .Text, vbInformation, "Col " & .Column & " " & "Fila: " & .Row

End With

ActiveSheet.Range("b1:i27").PrintOut

Next

End Sub

He intentado con comando para especificar el rango de pegado del valor pero nada me funciona. Gracias por su ayuda.

PLANILLA PRUEBA.rar