Este grupo especializado pasados varios días de investigación y de juntar de información, obtuvieron la solución, nuestro deseo es que resulte útil para ti para tu plan.
Ejemplo: cómo copiar una celda en vba
PublicSub CopyRows()
Sheets("Sheet1").Select' Find the last row of data
FinalRow = Cells(Rows.Count,1).End(xlUp).Row
' Loop through each row For x =2To FinalRow
' Decide if to copy based on column D
ThisValue = Cells(x,4).Value
If ThisValue ="A"Then
Cells(x,1).Resize(1,33).Copy
Sheets("SheetA").Select
NextRow = Cells(Rows.Count,1).End(xlUp).Row +1
Cells(NextRow,1).Select
ActiveSheet.Paste
Sheets("Sheet1").SelectElseIf ThisValue ="B"Then
Cells(x,1).Resize(1,33).Copy
Sheets("SheetB").Select
NextRow = Cells(Rows.Count,1).End(xlUp).Row +1
Cells(NextRow,1).Select
ActiveSheet.Paste
Sheets("Sheet1").SelectEndIfNext x
EndSub
Recuerda que puedes dar visibilidad a esta crónica si si solucionó tu problema.
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)