Adriel Ortiz Mangia

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

H o l a Te paso un ejemplo, se inserta datos por columnas a través de un formulario con 5 textbox. Private Sub CommandButton1_Click() 'Por.Adriel Ortiz Set h1 = Sheets("Hoja1") ' uc = h1.Cells(1, Columns.Count).End(xlToLeft).Column + 1 'ubica la...

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() MultiPage1.Pages(0).Enabled = True ' Activado MultiPage1.Pages(1).Enabled = False ' Desactivado MultiPage1.Pages(2).Enabled = False MultiPage1.Pages(3).Enabled = False...

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 Sub copiar() '//Por Adriel ortiz Set h = Sheets("Hoja1") Set h2 = Sheets("Hoja2") j = 2 For i = h.Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1 If h.Cells(i, "B") >= h.Cells(i, "C") Then h.Rows(i).Copy h2.Range("A" & j)...

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