Dante Amor

Ejecuta la siguiente macro. Pon tu información en la "Hoja1", los títulos deben empezar en la celda A1 y los datos en la celda A2, el resultado quedará en la "Hoja2" Sub Pasar_a_Filas() 'Por Dante Amor Set h1 = Sheets("Hoja1") Set h2 =...

Después de cargar tu combobox según el filtro debes agregar una línea como esta: Label1.Caption = "Resgistro 0 de " & ComboBox1. ListCount Y para cuando selecciones un operador del combo, entonces pon el siguiente evento: Private Sub...

Pon la siguiente función en tu archivo de excel Function Quitar_Dup(celda As Range) 'Por Dante Amor Dim unicos As New Collection datos = Split(celda.Value, ",") For i = LBound(datos) To UBound(datos) dato = WorksheetFunction.Trim(datos(i)) existe =...

Adapta lo siguiente a tu userform, es un ejemplo, debes adaptarlo a tus datos For i = 2 To Range("A" & Rows.Count).End(xlUp).Row If textbox1 = textbox1 Then 'aquí va tu condición de filtro existe = False For j = 0 To ListBox1.ListCount - 1 If...

Cambia esta línea X = Application.GetOpenFilename _ ("Excel Files (*.xlsx), *.xlsx", 2, "Abrir archivos",, True) Por esta: x = Application.GetOpenFilename _ ("Excel Files (*.xls*), *.xls*", 2, "Abrir archivos", , True)'.[Sal u dos. Dante Amor. No...

Esta puede ser una opción. Al principio de todo tu código pon la siguiente línea: Dim salida As MSForms.TextBox Estamos declarando la variable salida como una variable global, será del tipo textbox. Tus botones del 0 al 1 quedarían de esta forma:...

Te anexo la macro Solamente cambia la siguiente información por tus datos: Set h1 = Sheets("Hoja1") 'hoja de informe Set h2 = Sheets("basedatos") 'hoja de base de dato col = "A" 'columna donde están los nombres de todas las personas La macroSub...

Quedaría de esta forma: TextBox2 = Format(h.Cells(b.Row, "C"), "hh:mm:ss AM/PM")'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda

No sé si al momento de pegar la fórmula te puso unas comillas al principio del nombre de la hoja: "sanciones Debería ir solamente con una comilla: =SUMAPRODUCTO(('sanciones pendientes'!O42:O270>=Hoja1!A42)*('sanciones...

Pero no pusiste el código que tienes de sdir, supongo que es una función. Te anexo lo siguiente para ver si te ayuda. Sub archivo() 'Por Dante Amor Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h11 = Sheets("Hoja1") Set h12 =...