Jump to content

JSDJSD

Members
  • Content Count

    1,078
  • Joined

  • Last visited

  • Days Won

    68

JSDJSD last won the day on December 12 2020

JSDJSD had the most liked content!

About JSDJSD

  • Rank
    Advanced Member
  • Birthday 01/01/1972

Profile information

  • Localización:
    Priego de Córdoba -- Excel 2016 --

Converted

  • Campos
    ;
  • Mi versión de Excel:
    4

Recent Profile Visitors

3,081 profile views
  1. 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.
  2. 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)
  3. Hola Antoni, mira a ver si es esto lo que necesitas.Desactivar formulario Prueba 1.xlsm
  4. 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.
  5. Hola a todos en Office 2016 32 bits y cambiando la primera línea del código XML este es el resultado.
  6. 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
  7. Sube un archivo en el cual expliques lo que necesitas.
  8. Hola Pirtrafilla, te dejo una opción, prueba y comenta. Plantilla PARTE KM (v.2).xlsm
  9. 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
×
×
  • Create New...

Important Information

Privacy Policy