Adriel Ortiz Mangia

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 en esta línea, cambia 1 por 2 c = 1

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

Te paso la macro Sub Copiar() '//Por Adriel Ortiz Set h1 = Sheets("PLAZAS") Set h2 = Sheets("INF TOTAL") ' u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 h2.Cells(u2, "A") = h1.[B2] h2.Cells(u2, "B") = h1.[C2] h2.Cells(u2, "C") = h1.[B3]...

Te paso la macro de dante amor Sub Consolidar() 'Act.Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Seguimiento TOTAL") 'hoja con el consolidado h1.Range("A2:Z" & h1.Range("A" & Rows.Count).End(xlUp).Row + 1) = Empty i = 2 For...

H o l a Prueba esto, evalúa las columnas indicadas en la hoja1 y los resultados será en la hoja2 Sub copiar() '//por Adriel ortiz Set h = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' u = h.Range("A" & Rows.Count).End(xlUp).Row j = 2...

H o l a usa esto If MsgBox("Desea ejecutar la macro", vbInformation + vbYesNo) = vbYes Then ' 'aqui pon tu macro ' Else MsgBox "Cancelado" Exit Sub End If valora la respuesta Excelente o bueno saludos!

H o l a te paso macro de enero y febrero, asumiendo que la hoja principal es la Hoja1 Private Sub CommandButton1_Click() '//Por Adriel Ortiz 'ocultar hojas Sheets(1).Visible = True For i = 2 To Sheets.Count Sheets(i).Visible = False Next...

H o l a te paso la macro Private Sub CommandButton1_Click() Set h = Sheets("Hoja1") 'cambias el nombre de la hoja por el tuyo u = h.Range("A" & Rows.Count).End(xlUp).Row + 1 If u < 8 Then u = 8 ' registra apartir de la fila 8 ' h.Cells(u, "A") =...

H o l a Te paso la macro, le pones en el evento keypress Esto para solo números Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not (KeyAscii >= 48 And KeyAscii <= 57) Then KeyAscii = 0 End Sub esto para solo texto Private...