Jump to content

Haplox

Members
  • Posts

    2,995
  • Joined

  • Last visited

  • Days Won

    99
  • Country

    Spain

Reputation Activity

  1. ¡Excelente!
    Haplox got a reaction from Jose BN in Copiar ultima fila completa de una Hoja de Origen a otro Libro   
    Si subes tus archivos de ejemplo...
  2. ¡Excelente!
    Haplox got a reaction from Maria_80 in Vba macro para sumar de abajo hacia arriba hasta la primera celda en blanco que encuentre (con condición).   
    @Maria_80,usa el siguiente código:
     
    Sub suma_condicional() Dim uF& Dim ID As New Collection Dim item Dim i&, j&, suma& uF = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To uF On Error Resume Next ID.Add Cells(i, 1), CStr(Cells(i, 1)) Next i On Error GoTo 0 h = 2 For Each item In ID suma = 0 For j = 2 To uF If Cells(j, 1) = item And Cells(j, 2) = "compra" And Cells(j, 3) <> "" Then suma = suma + Cells(j, 3) End If Next j Cells(h, 6) = item Cells(h, 7) = suma h = h + 1 Next item End Sub  
  3. Haha
    Haplox got a reaction from Antoni in textbox de un user form a listbox de otro user form   
    👏👏👏.... ¡¡¡Ayyy... qué haríamos sin ti!!!
  4. Like
  5. Haha
    Haplox got a reaction from Antoni in textbox de un user form a listbox de otro user form   
    👏👏👏.... ¡¡¡Ayyy... qué haríamos sin ti!!!
  6. Haha
    Haplox got a reaction from Antoni in textbox de un user form a listbox de otro user form   
    👏👏👏.... ¡¡¡Ayyy... qué haríamos sin ti!!!
  7. Like
    Haplox got a reaction from roa30 in textbox de un user form a listbox de otro user form   
    Primero ten en cuenta que para que funcione, AMBOS FORM deben tener la propiedad "ShowModal" en FALDE. Solo cambia el código del botón del UserForm2 a:
     
    Private Sub CONFIRMAR_Click() CANT = TXTCANTIDAD.Value UserForm1.LBPedidos.List(UserForm1.LBPedidos.ListCount - 1, 4) = CANT UserForm2.Hide UserForm1.Show End Sub  
  8. Like
    Haplox got a reaction from Antoni in Buscarv solo en celdas visibles   
    Te me adelantastes por la mano...
    @Maria_80,no puedes usar directamente VlookUp directamente sobre un rango filtrado. Otro enfoque con el filtro
    Sub buscar_filtrados() Dim rng, cel As Range, ufo&, ufd& If Worksheets("Hoja1").FilterMode Then Worksheets("Hoja1").ShowAllData 'Quitamos el filtro Worksheets("Hoja1").Range("B1").AutoFilter Field:=2, Criteria1:="B", Operator:=xlFilterValues ufo = Range("A" & Rows.Count).End(xlUp).Row Set rng = Sheets("Hoja1").Range("A2:A" & ufo).SpecialCells(xlCellTypeVisible) Sheets("Hoja2").Activate ufd = Range("A" & Rows.Count).End(xlUp).Row For Each cel In rng For x = 2 To ufd If Cells(x, 1) = cel Then Cells(x, 2) = cel.Offset(, 2) Exit For End If Next x Next cel End Sub  
  9. Like
    Haplox got a reaction from Antoni in Buscarv solo en celdas visibles   
    Te me adelantastes por la mano...
    @Maria_80,no puedes usar directamente VlookUp directamente sobre un rango filtrado. Otro enfoque con el filtro
    Sub buscar_filtrados() Dim rng, cel As Range, ufo&, ufd& If Worksheets("Hoja1").FilterMode Then Worksheets("Hoja1").ShowAllData 'Quitamos el filtro Worksheets("Hoja1").Range("B1").AutoFilter Field:=2, Criteria1:="B", Operator:=xlFilterValues ufo = Range("A" & Rows.Count).End(xlUp).Row Set rng = Sheets("Hoja1").Range("A2:A" & ufo).SpecialCells(xlCellTypeVisible) Sheets("Hoja2").Activate ufd = Range("A" & Rows.Count).End(xlUp).Row For Each cel In rng For x = 2 To ufd If Cells(x, 1) = cel Then Cells(x, 2) = cel.Offset(, 2) Exit For End If Next x Next cel End Sub  
  10. Like
    Haplox got a reaction from Julio Angel in Filtrar listado en Excel   
    @Julio Angel, debe subir tu fichero de ejemplo para poder trabajar sobre él
  11. Like
    Haplox got a reaction from MauriciodeAbreu in Enlistar y visualizar en Web Browser archivos PDF   
    Lo tienes en el mismo foro 😉
     
  12. Like
    Haplox got a reaction from Antoni in Find and Write Letters of Acknowledgment in other Found Data Cells   
    Hello @A.Maurizio, I do not understand well your question, but maybe this idea can help you. You can go on discriminating by ranges with the WorkSheet_Change event.
     
    Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C1:C5")) Is Nothing Then If Target = "btp fut" Or Target = "btp ital" Then Cells(Target.Row, "P") = "L" End If End If If Not Intersect(Target, Range("D1:D5")) Is Nothing Then If Target < Date - 5 Then Cells(Target.Row, "P") = "D" End If End If '. '. 'rest or your code '. '. End Sub You do not explain what hapens in the case, for example, of having "btp fut" in C1 and 16/05/2021 in D1... In column P must be a "L" or a "D"?
    Regards
  13. Like
    Haplox got a reaction from Maria_80 in fórmula INDICE y COINCIDIR en VBA   
    @Maria_80, a parte del problema con la fórmula, deberías explicar los criterios de clasificación. Supongo que por grupos, porque no hay coincidencias exactas
  14. ¡Excelente!
    Haplox got a reaction from xinortiz in Agregar Nueva Fila con Datos   
    Te dejo una solución. Saludos
     
    Copia de prueba.zip
  15. Like
    Haplox got a reaction from Jose BN in Convertir PDF en el cual solo me muestre las filas activas   
    @faroca20, cambia tu código:
    HResumen.Range("A2:G18490").Select por:
    uF = Range("A" & Rows.Count).End(xlUp).Row HResumen.Range("A2:G" & uF).Select  
  16. Like
    Haplox got a reaction from Maria_80 in Macro para buscar cadena de texto dentro de otra no funciona (Instr)   
    Simplemente no habías cogido el mejor camino . Te dejo una solución
    Copia de ejemplo_pequeño.xlsm
  17. Like
    Haplox got a reaction from jeaa in Macro para listar los nombres de las hojas de otros libros   
    @jeaa, te dejo una solución. Prueba y comenta
    Proyecto.xlsm
  18. Like
    Haplox got a reaction from ALBER2021 in cuadro amortización sistema francés - necesito columna vencimiento   
    Yo no tengo ni idea de amortizaciones, y menos en francés (), pero si explicas bien qué necesitas, se puede crear el código. Me refiero si serían todas fechas relativas a una sola inicial, si sería mensual, anual o cómo... esas cosas
  19. Thanks
    Haplox got a reaction from luquiluk in Importar datos de varios libros cerrados   
    No todo es tan fácil como piensas... . SI tengo tiempo mañana te subo algo a ver si es lo que necesitas
  20. Like
    Haplox got a reaction from Jose BN in Importar datos de varios libros cerrados   
    Joder, te explicas como esos libros cerrados... ¿Pero lo que quieres es crear una lista de todos los datos de esa celda R8 en un libro base?
  21. Like
    Haplox got a reaction from luquiluk in Importar datos de varios libros cerrados   
    Exactamente 😉
  22. Like
    Haplox got a reaction from Caballero Rojo in Visualizar hora en Listbox en formato "hh:mm"   
    @Caballero Rojo , aparte de que es necesario subir el archivo de ejemplo, prueba con
    Me.LISTA.List(Y, 1) =CDate(Sheets("PLANILLA").Cells(File, 3).Value)  
  23. ¡Excelente!
    Haplox got a reaction from jalomiva in LLenar listbox desde un comboBox   
    @jalomiva ,el problema estáen losformatosdedatos que usas. En el combobox siempre vas a tener un string, y sin embargoenla hoja está en formato número. El comando"CStr" convierte a formato String. Cambia esta línea:
    If CStr(Hoja5.Cells(I, 1)) = Me.ComboBox1 Then  
  24. Haha
    Haplox got a reaction from avalencia in ENIAC (Electronic Numerical Integrator And Computer)   
    Me alegro 👍. Madre mía que mayor eres... 😇. Yo acabé mi carrera a final de los 80 y tú ya llevabas media vida progamando
  25. Haha
    Haplox got a reaction from avalencia in ENIAC (Electronic Numerical Integrator And Computer)   
    Me alegro 👍. Madre mía que mayor eres... 😇. Yo acabé mi carrera a final de los 80 y tú ya llevabas media vida progamando
×
×
  • Create New...

Important Information

Privacy Policy