copiar valores de una hoja a otra en excel

[@alvearcorpgavtech2867]

un millon de gracias Genio, muchos exitos, y una vez mas gracias por tu gran colaboracion

[@CursosDeExcelyMacros]

Con mucho gusto. Gracias por comentar. Saludos 😁

[@alvearcorpgavtech2867]

Estimado si quiero adicionar en hoja1 4 columnas de cargo1, cargo2, cargo3, cargo4 se deberia aumentar otra variable c en la matriz? hize exactamente lo que me indicas, pero al en la ultima linea me genera un error 1004, "error definido por la aplicacion o el objeto". y no se como solucionar ese error. gracias

[@CursosDeExcelyMacros]

Hola @@alvearcorpgavtech2867 No es tan simple, estás adicionando otro grupo de columnas. No comentas exactamente entre cuáles columnas estás adicionando estas columnas (cargo1, 2,3 y 4). Voy a suponer que las estás agregando en las columnas I, J, K y L. Tampoco mencionas cómo quieres la salida, también voy a suponer que quieres el cargo en la columna C y recorremos las columnas Marcación y Jornada a las columnas D y E. 🧙‍♂ Son varios cambios, prueba lo siguiente: Sub Pasar_Valores() Dim sh1 As Worksheet, sh2 As Worksheet Dim a As Variant, b As Variant Dim i As Long, j As Long, k As Long Set sh1 = Sheets("Hoja1") Set sh2 = Sheets("Hoja2") a = sh1.Range("A2:N" & sh1.Range("A" & Rows.Count).End(3).Row).Value ReDim b(1 To UBound(a, 1) * 4, 1 To 5) For i = 1 To UBound(a, 1) For j = 1 To 4 If a(i, j) "" Then k = k + 1 b(k, 1) = a(i, j) b(k, 2) = a(i, j + 4) b(k, 3) = a(i, j + 8) If j = 1 Then b(k, 4) = a(i, 13) b(k, 5) = a(i, 14) End If End If Next Next sh2.Range("A1:E1").Value = Array("Nombre", "Dep", "Cargo", "Marcación", "Jornada") sh2.Range("A2").Resize(k, 5).Value = b End Sub Saludos Dante Amor

[@alvearcorpgavtech2867]

@@CursosDeExcelyMacros definitivamente eres un genio, pero eres mejor ser humano, muchas gracias, en mi intento estuve por buen camino con lamagnifica guia de tu viedo. millon gracias

[@CursosDeExcelyMacros]

@@alvearcorpgavtech2867 Gracias por tus amables comentarios. Saludos 😁

[@adrielortizmangia4506]

Me gustó todo el desarrollo, Excelente aporte Dante..Saludos

[@CursosDeExcelyMacros]

Gracias a ti por comentar Saludos 😁