Saltar al contenido

copiar datos de cuadros de texto a una celda

publicado

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

Featured Replies

publicado

Hola

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

publicado

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

publicado

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

 

publicado
  • Autor

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

publicado
  • Autor
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!!!

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.