Saltar al contenido

ejemplo de código de página web de copiar y pegar de vba excel

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)


Tags : /

Utiliza Nuestro Buscador

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *