copiar datos de cuadros de texto a una celda

[joseluiz1986]

Espero me puedan ayudar con lo siguiente, al descargar una informacion de la pagina web( crtl+e, ctrl+c, ctrl+v) se descarga una tabla con la informacion almacenada de dos maneras, una en las celdas de manera regular y la otra en cuadros de texto, son serca de 1000 cuadros y para manipular esa informacion se hace muy tardado hacerlo una por una, de que manera podria extraerla toda sin la necesidad de hacerlo manual?, adjunto excel para ilustrar problematica, saludos!

 

Libro21.xlsx

[DiegoPC]

Hola

Creo que sería buena idea que intentes un pegado especial para pegar solo el contenido y no pegarlo todo.

[Antoni]

No te prometo nada, pero mañana o pasado, intentaré buscar alguna solución.

[Antoni]

Prueba esta macro:

Sub TextboxCelda()
   Application.ScreenUpdating = False
   For Each obj In ActiveSheet.OLEObjects
      If obj.OLEType = xlOLEControl Then
         ActiveSheet.Shapes(obj.Name).TopLeftCell = obj.Object.Value
         obj.Delete
      End If
   Next
End Sub

 

[joseluiz1986]

ya intente el pegado especial, pero las opciones de pegado especial no lo aplica en objetos 

[joseluiz1986]

Hace 3 horas, Antoni dijo:

Sub TextboxCelda() Application.ScreenUpdating = False For Each obj In ActiveSheet.OLEObjects If obj.OLEType = xlOLEControl Then ActiveSheet.Shapes(obj.Name).TopLeftCell = obj.Object.Value obj.Delete End If Next End Sub

Antoni, me has sacado de un problema tremendo :D, agradezco mucho tu solucion!!!