JSDJSD

Me alegro mucho pero no olvides nunca agradecer a quien te ayuda o intenta ayudar y en este foro es mediante el corazoncillo que encontramos en la parte inferior derecha.

Sub ExportarBase() Dim Fila As Long Dim no As Range Dim solicitud As String Application.ScreenUpdating = False solicitud = Hoja1.Cells(1, 2) ufh1 = Hoja2.Range("A" & Rows.Count).End(xlUp).Row With Hoja2.Range("A2:A" & ufh1) Set no = .Find(CDbl(solicitud), LookIn:=xlValues, lookat:=xlWhole) With Hoja2 If Not no Is Nothing Then Fila = no.Row .Range("A" & Fila) = Hoja1.Range("B1") .Range("B" & Fila) = Hoja1.Range("B3") .Range("C" & Fila)

También funciona con: AppActivate ThisWorkbook.Name

Hola Antoni, mira a ver si es esto lo que necesitas.Desactivar formulario Prueba 1.xlsm

Sube tu archivo

A mí, la primera vez que lo intente abrir me bloqueo el ordenador y sinceramente me a costado casi 45 minutos desbloquearlo, luego ejecute el archivo en Office RibbonX editor en el cual valide el código y me marcaba error en la primera línea, la modifique, lo guarde y ya me abre.

Hola a todos en Office 2016 32 bits y cambiando la primera línea del código XML este es el resultado.

Sube tu archivo

Sub macro() Dim cont, ufh2 As Long With Hoja2 ufh2 = .Range("O" & .Rows.Count).End(xlUp).Row For cont = 3 To ufh2 If .Cells(cont, 15) <> 0 Then .Range("A1") = .Cells(cont, 15) End If Next cont End With End Sub Prueba el adjunto y comenta, pulsa flecha azul Calendario1 prueba 1.xlsm

Como dice Vladimir, sube tu archivo

Sube un archivo en el cual expliques lo que necesitas.

Hola Pirtrafilla, te dejo una opción, prueba y comenta. Plantilla PARTE KM (v.2).xlsm

Prueba y comenta Ejenplo-1 Prueba 4.xlsm

Si, pero que datos debería contemplar cada combo?

Lo prometido es deuda, te dejo el archivo prueba y comenta. La hoja Valores del formulario la he dejado puesto que de algún sitio tenemos que tomar la totalidad de baúles que entran en juego, ya que ni en la hoja Entradas ni en la de Salidas tenemos una lista completa de ellos. Eliminadas las dos hojas que utilizaba para filtra los datos, y en caso de buscar un baúl que no tenga ni entradas ni salidas te los indica en la parte superior derecha. También en el apartado valores a reemplazar solamente te reemplazara cuando estos tengan algún dato independientemente uno del otro, es deci