martinezhm

agca73 respondió: Prueba este código: Sub labels() Dim a As String ActiveSheet.Shapes("Label10").Select a = Selection.Characters.Text Worksheets("Hoja1").Range("B5") = a End Sub

Elsa Matilde respondió: La forma de referirte a una celda debe ser alguna de estas: Range("B5") o Cells(5,2), es decir Cells(fila, columna) En tu ejemplo será: Sheets("Hoja1").Cells(1,1) = ....

agca73 respondió: Le hice algunas modificaciones a la macro, revísala. Espero que trabaje mejor. Dim miArchivo As String Dim miArchivo2 As String Dim miEtiquetaCopiar As String Dim miEtiquetaCopiada As String miArchivo = ActiveWorkbook.Name MiArchivo2 =...