Dante Amor

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...

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:...

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

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 =...

Te anexo la macro Sub ocultar_filas() Cells.Rows.Hidden = False For i = 7 To Range("N" & Rows.Count).End(xlUp).Row If Cells(i, "N").Value = 0 Or Cells(i, "N").Value = "-" Then Rows(i).Hidden = True End If Next MsgBox "Fin" End Sub'.[Sal u dos. Dante...

Prueba así: =Si.Error(GETPIVOTDATA("Guía",$A$3,"Cumplimiento","No Cumplio")*100,0) Si lo tienes en inglés, entonces: =IfError(GETPIVOTDATA("Guía",$A$3,"Cumplimiento","No Cumplio")*100,0)

Te anexo la macro para crear un archivo csv (delimidato por comas), por cada fila de la hoja1 Sub Crear_Csv() 'Por Dante Amor ' ' Crea un csv por cada línea ' Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook...

Revisa el siguiente artículo y trata de adaptarlo a tus necesidades https://www.gerencie.com/importar-datos-de-varios-libros-de-excel-en-la-hoja-resumen.html

Pon la siguiente macro en tu botón Sub Macro1() 'Por Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Ruteo") Set h2 = Sheets("Resumen") If h1.AutoFilterMode Then h1.AutoFilterMode = False If h2.Range("B2").Value = "" Or Not...