Macro condicional para copiar y pegar datos
Del foro, deseo elaborar una macro que acorde a lo que elija en una celda, copie una selección y la pegue en distintos lugares de otra página acorde a esa selección inicial(son 5 opciones ya que son 5 semanas que las quiero pegar en distinta ubicación)
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Envíame tu archivo y me explicas con un par de ejemplos, qué es lo que seleccionarías, qué es lo que se va a copiar y en dónde se va pegar.
Procura poner los ejemplos completos con celdas de colores y comentarios explicando cada ejemplo.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Ruben Scheinkman” y el título de esta pregunta.
¡Gracias! Ya envíe archivo
H o l a:
Te anexo la macro
Sub CopiarSemans()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Productos")
Set h2 = Sheets("resumen mes")
h2.Cells.Clear
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 4
If u2 < 5 Then u = 5
fini = 8
ffin = 8
fmed = 8
existe = False
Do While InStr(1, h1.Cells(ffin, "B"), "TOTAL") = 0
If h1.Cells(ffin, "A") = "" And existe = False Then
fmed = ffin - 1
existe = True
End If
ffin = ffin + 1
Loop
h1.Range("A1:D" & fmed).Copy
h2.Range("A" & u2).PasteSpecial xlValues
h2.Range("A" & u2).PasteSpecial xlFormats
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
h1.Range("A" & ffin & ":D" & ffin).Copy
h2.Range("A" & u2).PasteSpecial xlValues
h2.Range("A" & u2).PasteSpecial xlFormats
h2.Range("A" & u2).PasteSpecial xlPasteColumnWidths
Application.ScreenUpdating = True
Application.CutCopyMode = False
MsgBox "Semana copiada"
End Sub':) ':)
