Visual Basic para Aplicaciones - Copiar y pegar datos en diferentes hojas

Life is soft - evento anual de software empresarial

Copiar y pegar datos en diferentes hojas

Publicado por Jaime (6 intervenciones) el 16/01/2019 04:11:52

Hola amigos necesito de su ayuda
Quiero copiar unos datos de filas de una hoja
Y pegarla en diferentes hojas del mismo libro
Gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 1

Val: 1.134

Copiar y pegar datos en diferentes hojas

Publicado por Antoni Masana (498 intervenciones) el 16/01/2019 06:48:50

Buenas Jaime,

Puedo ayudarte si me das más información

Saludos.
\\//_

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Copiar y pegar datos en diferentes hojas

Publicado por Jaime (6 intervenciones) el 16/01/2019 15:09:47

Que tal antoni mira tengo una hoja en la cual capturó
Nombre, nivel, jornada, descanso, L, M, M, J, V, S D,
LLAMADO CONCEN

con fórmulas lo pegó en diferentes formatos en hoja 1 hoja 2 y así hasta 90

Los días de la semana están en línea y en el formato esta en columna te mando el archivo a tu correo gracias por tu atencion

Valora esta respuesta

Comentar

Pos: 1

Val: 1.134

Copiar y pegar datos en diferentes hojas

Publicado por Antoni Masana (498 intervenciones) el 16/01/2019 17:24:04

Por favor envía un fichero de ejemplo para poder ver que es lo que haces y estaría también bien que explicadas por y para que quieres hacer esto.
En principio no parece tener mucho sentido. Si explicas que estas haciendo quizás te podemos aconsejar una solución mejor.

Saludos.
\\//_

Valora esta respuesta

Comentar

Copiar y pegar datos en diferentes hojas

Publicado por Jaime (6 intervenciones) el 16/01/2019 19:28:35

Quiero copiar de la hoja concen el rango de celdas
H8:N8 y pegarla en la hoja 1 en el rango G25:D31
H9:N9 y pegarla en la hoja 2 en el rango G25:D31
Y así sucesivamente hasta no encontrar registro le mandé el archivo a su correo

Valora esta respuesta

Comentar

Pos: 1

Val: 1.134

Copiar y pegar datos en diferentes hojas

Publicado por Antoni Masana (498 intervenciones) el 17/01/2019 09:38:05

Acabo de responder al correo y no sabía que estaba relacionado con este post.

La cuestión es ¿Porque tienes ciento y pico de hojas iguales? ¿Qué haces con estas hojas? ¿Son para imprimir?

Las hojas que están etiquetadas con un número deben tener una finalidad determinada y creo que una de dos o han de terminar en papel o en un PDF, tanto si se han de tratar una a una o todas a la vez con una sola hoja se puede hacer.

Truco: para imprimir una podría una lista desplegable en la hoja 1 o en la CONCEN para seleccionar el código. En el caso de querer imprimirlas todas una macro iría realizando la operación manual descrita anteriormente con todos los códigos.
También se puede hacer como lo deseas.

Puedes explicarme el porqué de estas 128 hojas.

Por aquí o en mi correo.

Saludos.
\\//_

Valora esta respuesta

Comentar

Copiar y pegar datos en diferentes hojas

Publicado por Jaiem (6 intervenciones) el 17/01/2019 14:29:31

Que tal antoni si lo que quiero es copiar los datos de la hoja concen como la numeración que tiene la hoja me lo manda a cada una de las hojas las cuales se imprimen como pueden ser 1 o las 128,

Mi idea es efectivamente crear una macro que me copie de la hoja concen a todas las hojas
Lo tengo por separado porque en ocasiones hago modificaciones acciones en las condiciones

Y las fórmulas se pueden borrar
Pero esa idea de la lista desplegable para imprimir esta correcta

Valora esta respuesta

Comentar

Pos: 1

Val: 1.134

Copiar y pegar datos en diferentes hojas

Publicado por Antoni Masana (498 intervenciones) el 18/01/2019 07:18:05

Esta macro te rellena todas las hojas

Option Explicit

Sub Llenar_Fichas()

    Dim a As Integer, Fila As Integer, Hoja As String

    Application.ScreenUpdating = False

    For a = 1 To 128

        Fila = a + 7

        Hoja = a

        Sheets(Hoja).Range("O15") = Sheets("CONCEN").Range("C" & Fila)

        Sheets(Hoja).Range("F15") = Sheets("CONCEN").Range("D" & Fila)

        Sheets(Hoja).Range("G25") = Sheets("CONCEN").Range("H" & Fila)

        Sheets(Hoja).Range("G26") = Sheets("CONCEN").Range("I" & Fila)

        Sheets(Hoja).Range("G27") = Sheets("CONCEN").Range("J" & Fila)

        Sheets(Hoja).Range("G28") = Sheets("CONCEN").Range("K" & Fila)

        Sheets(Hoja).Range("G29") = Sheets("CONCEN").Range("L" & Fila)

        Sheets(Hoja).Range("G30") = Sheets("CONCEN").Range("M" & Fila)

        Sheets(Hoja).Range("G31") = Sheets("CONCEN").Range("N" & Fila)

    Next

    Application.ScreenUpdating = True

    MsgBox "Fin de la macro"

End Sub

En la hoja CONCEN en la columna D pondria esta formula:

=SI.ERROR(BUSCARV(C8;TRAB!A:B;2;0);"")

Y en la columna V

=SI.ERROR(BUSCARV(E8;SALARIO;3;0);"")

Saludos.
\\//_

Valora esta respuesta

Comentar

Copiar y pegar datos en diferentes hojas

Publicado por Jaime (6 intervenciones) el 19/01/2019 01:11:16

Muchísimas gracias antoni ya lo probé y quedo perfecto muchas gracias otra consulta antoni como le pondría una condición en los formatos en la columna de tolerancia

Por ejemplo
Si en g25 :G31
se pone 4 la tolerancia seria 0:20 ,
5. Se pone 0:40
6 poner 1:00
7 poner 1:20
8 poner 1:40
Porfa y muchas gracias nuevamente

Valora esta respuesta

Comentar

Automatizar Pagina Web

No funciona el Modo Diseño