Jump to content

JasallBcn

Members
  • Posts

    180
  • Joined

  • Last visited

  • Days Won

    15
  • Country

    Spain

JasallBcn last won the day on December 1

JasallBcn had the most liked content!

2 Followers

About JasallBcn

  • Birthday April 18

Profile information

  • Gender
    Hombre
  • Localización:
    Barcelona
  • Interests
    Informática, Drones, Futbol

Converted

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

Recent Profile Visitors

623 profile views

JasallBcn's Achievements

  1. Buenas, una posible solución. saludos userform show según valor de una celda4_v1.xlsm
  2. Buenas, te paso lo que entendí. saludos FORMATO PARA CODIGOS_v1.xlsm
  3. Buenas, el problema lo tienes en la línea scadena = Trim(Replace(scadena, n, "")) sí scadena contiene "1 0 8 9 10 11" al reemplazar n = "1" borra el 1 , el 1 del 10 y el 11 completo. para evitarlo deberías envolver cada número entre algún carácter o darle un espacio al principio y final para luego cuando reemplaces lo realices con los espacios también " 1 0 8 9 10 11 " sería algo así scadena = Trim(Replace(scadena, " " & n & " ", " ")) saludos
  4. Buenas, te paso código adaptado. saludos testtans_v1.xlsm
  5. Buenas , según tu código te paso adaptación: Sub COPIA() Application.ScreenUpdating = False Dim wbLibroOrigen As Workbook Dim wsHojaOrigen As Worksheet Dim wbLibroDestino As Workbook Dim wsHojaDestino As Worksheet Dim Origen$ Dim ruta() As String ruta = Split("Lista_Negra_SAT.csv,Lista_Negra_SAT2.csv", ",") ' lista archivos separada por , For x = 0 To UBound(ruta) Origen = ActiveWorkbook.Path & "\" & ruta(x) 'Datos destino Set wbLibroDestino = Workbooks(ThisWorkbook.Name) Set wsHojaDestino = wbLibroDestino.Worksheets("Hoja1") 'Datos origen Set wbLibroOrigen = Workbooks.Open(Origen) Set wsHojaOrigen = wbLibroOrigen.Worksheets(Replace(ruta(x), ".csv", "")) uFilaO = wsHojaOrigen.Range("A" & Rows.Count).End(xlUp).Row uFilaD = wsHojaDestino.Range("DA" & Rows.Count).End(xlUp).Row wsHojaOrigen.Range("A1:AD" & uFilaO).Copy Destination:=wsHojaDestino.Range("DA" & uFilaD) Workbooks(wbLibroOrigen.Name).Close Application.ScreenUpdating = True Next End Sub Saludos
  6. Buenas, te paso fichero en macros. saludos CONTROL_PROJECTES_V2.xlsm
  7. Buenas , a título ilustrativo , otra forma de hacerlo. =LET(Final;VALOR.NUMERO(EXTRAE(A2;3;LARGO(A2)));IZQUIERDA(A2;2) & REPETIR(0;8-LARGO(Final)) &Final) Saludos siete.xlsm
  8. Ya te falta menos para la piruleta (Chupete) 🤣
  9. Buenas, no sé si entendí el problema , pero creo que sería que cuando filtras haz que devuelva solo la columna que quieres cargar en la validación de datos =FILTRAR(Alex[Codigo];Alex[recurso]=L2) luego en validación de datos =i2# saludos
  10. Buenas, una manera seria comprobar la columna lote . For Each celda In Range(r) If celda.Offset(0, 5).Value = Val(Lote) Then sd.Add celda.Value, CStr(celda.Value) End If Next celda saludos
  11. Buenas, es complicado que alguien te ayude sin el archivo, ya que por lo que muestras hay un formulario con varios componentes y no creo que nadie pierda el tiempo en generar el archivo. saludos
  12. Buenas, es complejo lo que necesitas, quizás con macros se lograría hacer algo. También puedes buscar alguna plantilla en la web que puedas adaptarte. saludos
×
×
  • Create New...

Important Information

Privacy Policy