Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Estoy trabajando en un programa muy especifico para hacer distribuciones de folleteria. La Base de datos para armar el rotulado no es siempre la misma así que tengo que elegir bien las celda con las que voy a trabajar.
En el archivo que envío hay 3 hojas, las 2 mas importantes son "base original" De donde tomare los datos y "Base 1", donde los pondré.
MI problema esta en que selecciono bien las celdas con Objseleccion enla macro. Pero no copia la entera seleccion y solo me pega los datos que se encuentran en la primer celda seleccionada. Porque puede ser esto?
Dejo el archivo y de todas fromas pego la formula aqui.
Muchas Gracias por la ayuda.!!
Sub Copiardatos1() Dim objSelection As Range ActiveWorkbook.Sheets("Base original").Select ' Preguntar al usuario para seleccionar el rango de trazar ' Y establecer el objeto de rango en el rango especificado. Set objSelection = Application.InputBox(Prompt:="Seleccione Codigo y Nombre de Concesionarias Unicamente", _ Default:=Selection.Address, _ Type:=8) ' Check to see if an appropriate selection was made. If objSelection.Cells.Count = 1 Then MsgBox "Debe seleccionar codigo y nombre de Consecionaria unicamente." Exit Sub End If Selection.Copy Sheets("Base 1").Select Range("A2").Select ActiveSheet.Paste End Sub
Base.xls