Copiar datos a otro libro

1 post / 0 nuevos
Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 meses 4 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Copiar datos a otro libro

Buenas noches:

Tengo el siguiente macro que lo acomode a mi utilidad

Sub Copiar_a_Kardex()

For Each Hoja In Worksheets

    If Hoja.Name <> "TKT" Then

        'Comprobamos antes si la hoja está entre las mencionadas en la columna R

        Dim qRangoR As Range

    Set qRangoR = Application.Intersect(Columns("N:N"), Hoja1.UsedRange)

            For Each cell In qRangoR

                    If cell.Value = Hoja.Name Then

                'si la hoja coincide con alguno de los nombres de la columna N, se ejecuta

                         uFila = Worksheets("TKT").Range("A" & Rows.Count).End(xlUp).Row

                Worksheets("TKT").Range("b3:m" & uFila).Copy Destination:=Worksheets(Hoja.Name).Range("A" & Rows.Count).End(xlUp).Offset(1)

                        Else

                'si no coincide no hace nada

                    End If

                Next cell

        End If

Next

End Sub

Bueno como les indique hace lo que necesito, pero que código tendria que aumentar para pasar el rango seleccionado de mi hoja TKT a otro libro que esta con el nombre "CUENTAS" ???

Saludos cordiales

 

Jesús

 

Etiquetas: