vba copia el valor del cuadro de texto en el ejemplo de código de celda

Intenta comprender el código correctamente antes de utilizarlo a tu trabajo y si ttienes algo que aportar puedes dejarlo en la sección de comentarios.

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

Calificaciones y comentarios

Eres capaz de defender nuestro ensayo poniendo un comentario o puntuándolo te estamos agradecidos.

---

---

Utiliza Nuestro Buscador