Saltar al contenido

En mi macros me aparece seleccione destino y presione entrar, y no realiza el pegado


Recommended Posts

publicado

Buen día a todos, les escribo debido a que acabo de crear una macro que copia y pega información de una hoja a otra, pero no llega a realizar la ultima tarea, que es pegar, y en lugar de hacer esto aparece en la barra inferior de la ventana el siguiente texto: "Seleccione el destino y presione entrar". Les agradezco mucho. Les adjunto el codigo:

Public Sub CommandButton1_Click()

Dim c As Object

'############################################################################################################

'PASO 1 BUSCAR LA ESTACIÓN EN LA COLUMNA DE ESTACIONES

dato = ComboBox1.Value

Set c = Sheets("Base").Range("A4: A400").Find(dato, LookIn:=xlValues, Lookat:=xlWhole)

If Not c Is Nothing Then

dire = c.Offset(1, 1).Address(False, False)

Range(dire).Select

Sheets("Base").Range(dire).Activate

End If

'############################################################################################################

'PASO 2, A PARTIR DE LA DIRECCION DE LA CELDA ENCONTRADA, IR A LA ULTIMA CELDA CON VALORES EN LA MISMA COLUMNA

'LUEGO DESPLAZARSE 150 COLUMNAS A LA DERECHA Y COPIAR EL RANGO ENTRE ESTAS CELDAS.

ActiveCell.End(xlDown).Activate

ActiveCell.Offset(1, 150).Activate

Range(c.Offset(1, 1).Address, ActiveCell).Select

Selection.Copy

'############################################################################################################

'PASO 3 BUSCAR LA HOJA SEGÚN EL VALOR DEL COMBOBOX

On Error GoTo error_hoja

Dim x As String

x = ComboBox1.Value

Sheets(x).Select

Range("A10").Activate

Do While ActiveCell <> Empty

ActiveCell.Offset(1, 0).Select

Loop

Exit Sub

error_hoja:

MsgBox "No existe la hoja"

'############################################################################################################

'PASO 4 BUSCAR LA ULTIMA FILA DE LA PRIMERA COLUMNA

Range("A10").Select

Do While ActiveCell <> Empty

ActiveCell.Offset(1, 0).Activate

Loop

End

'#############################################################################################################

'PASO 5 PEGAR EN LA ULTIMA CELDA EN BLANCO EL RANGO COPIADO

ActiveSheet.ActiveCell.Select.Paste

End

End Sub

Archivado

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

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.