Adriel Ortiz Mangia

H o l a Puedes mostrar una imagen de tu formulario y el código

H o l a Cual es la columna a comparar

H o l a te paso la macro, asumiendo que es un formulario Private Sub UserForm_Activate() '//Por Adriel Ortiz Me.ListBox51.ColumnCount = 1 ' Set h = Sheets("Hoja1") For i = 8 To h.Range("I" & Rows.Count).End(xlUp).Row If h.Cells(i, "I") > 0 Then...

H o l a te paso la macro, pon esto cada uno de tus botones ActiveSheet.Range("$A$3:$F$1000").AutoFilter Field:=1, Criteria1:="ART*"ActiveSheet.Range("$A$3:$F$1000").AutoFilter Field:=1, Criteria1:="PROD*"ActiveSheet.Range("$A$3:$F$1000").AutoFilter...

H o l a usa el contar.si, para contar cuantas x hay en la columna B =CONTAR.SI(B2:B8, "x") valorar para finalizar

H o l a en esta línea, cambia 1 por 2 c = 1

H o l a te paso la macro Sub copiar() Set h1 = Sheets("Mediciones") Set h2 = Sheets("Presupuestos") Set h3 = Sheets("Pendientes") Set h4 = Sheets("Terminados") Set h5 = Sheets("Sin cobrar") Set h6 = Sheets("Pagados") For i = 2 To h1.Range("C" &...

H o l a te paso la macro Sub compara_copia_ordena() '//Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' For i = 2 To h2.Range("B" & Rows.Count).End(xlUp).Row Set b = h1.Columns("B").Find(h2.Cells(i, "B"), lookat:=xlWhole) If b...

H o l a te paso la macro Sub compara_copia_ordena() '//Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row Set b = h1.Columns("A").Find(h2.Cells(i, "A"), lookat:=xlWhole) If b...

H o l a te paso 2 opciones Dim rango, celda As Range u = Range("A" & Rows.Count).End(xlUp).Row Set rango = Worksheets("Proveedores").Range("A2:A" & u) ' For Each celda In rango ComboBox1.AddItem celda.Value Next celdaSet h1 = Sheets("Proveedores") '...