mensaje portapapeles

Despues de pegar intentanste con:

Application.CutCopyMode = False


Comenta.

Abraham

hola, !

He realizado un codigo en el que se copian unos datos de una hoja de calculo a otra
cuando los pego, me aparece el mensaje de "ha copiado una gran cantidad de datos en el portapapeles"
como puedo eliminarlo ...

si expones el codigo, es probable que puedas evitar el transito por el portapapeles
(a menos que necesites incluir en el pegado el formato de rangos -in-determinados) -?-

saludos,
hector.

gracias pero no funciona

"Abraham" escribió en el mensaje
news:

Despues de pegar intentanste con:

Application.CutCopyMode = False


Comenta.

Abraham

No te enfades, pero sigo manteniendo el código del otro día (la
automatización), trabajé con lo que me dijiste para ahorrar código pero me
daba errores, y no tenía tiempo de solucionarlo. En cuanto lo tenga, se lo
dedicaré

pongo el código

Private Sub CommandButton1_Click()
Dim MiExcel As Excel.Application
Dim LibroOrigen As Excel.Workbook
Dim HojaOrigen As Excel.Worksheet
Dim i As Long, j As Long
Dim RutaDeBusqueda As String
'Dim Ultimafila As Long


stArchivo = InputBox("Dime el nombre del nuevo archivo que quieres generar",
"Nombre del archivo")
MsgBox "Ahora selecciona el archivo origen"

UserForm1.Hide

'Paso 0
Set MiExcel = New Excel.Application
MiExcel.Visible = False
MiExcel.Workbooks.Close

RutaDeBusqueda = SeleccionarArchivo

' Paso 1: Abrir el libro
MiExcel.Workbooks.Open Filename:=RutaDeBusqueda,
ReadOnly:=True
Set LibroOrigen = MiExcel.Workbooks(1)

' Paso 2.1: Copiar el rango
'elegir donde
Set HojaOrigen = LibroOrigen.Worksheets(1)

Application.CutCopyMode = True
'saber cuál es la última fila llena
Ultimafila = (HojaOrigen.Cells.SpecialCells(xlLastCell).Row)
'[a1].End(xlDown).Row
'[a1].End(xlDown).Address
'MsgBox Ultimafila

'Dar el rango de los datos a copiar
HojaOrigen.Range("A1:i" & Ultimafila).Copy


' Paso 2.2: Pegar el rango
'seleccionar donde lo pego
Hoja1.Cells(1, 1).Select
'pegarlo
Hoja1.Paste 'Hoja1.Range("A1:i" & Ultimafila)

' Paso 3: Cerrar el libro
LibroOrigen.Close SaveChanges:=False
Set HojaOrigen = Nothing
Set LibroOrigen = Nothing
'Application.CutCopyMode = False no sirve para eliminar mensajes


MiExcel.Quit
Set MiExcel = Nothing



CrearTablaDinamica
End Sub
"Héctor Miguel" escribió en el mensaje
news:

hola, !

He realizado un codigo en el que se copian unos datos de una hoja de
calculo a otra
cuando los pego, me aparece el mensaje de "ha copiado una gran cantidad
de datos en el portapapeles"
como puedo eliminarlo ...

si expones el codigo, es probable que puedas evitar el transito por el
portapapeles
(a menos que necesites incluir en el pegado el formato de
rangos -in-determinados) -?-

saludos,
hector.

hola, !

... sigo manteniendo el codigo del otro dia (la automatizacion)
trabaje con lo que me dijiste para ahorrar codigo pero me daba errores, y no tenia tiempo de solucionarlo.
En cuanto lo tenga, se lo dedicare...

no hay problema (por mi :D)... en via de mientras, y ANTES de que tu macro termine...
- copia una sola celda (vacia incluso) y cancela el cutcopymode (p.e.)

Worksheets(1).Range("iv65536").Copy
Application.CutCopyMode = False

saludos,
hector.