Dante Amor

Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not Intersect(Target, Columns("A")) Is Nothing Then If Target.Count > 100 Then Exit Sub For Each c In Target If c.Value = "" Then...

Prueba con la siguiente: Sub Prueba_contasi() with Workbooks("prueba descamsos.xlsm").Worksheets("Hoja1") uc = .Cells(3, columns.count).end(xltoleft).column + 1 For i = 3 To 28 Nombres = .Cells(i, 1).Value .Cells(i, uc).Value =...

Supongo que el userform1 (consultar) llama al userform2 "buscar item" . Presionas exportar y debes regresar al userform1. Pon el siguiente evento en tu userform2 "buscar item" Private Sub CommandButton1_Click() 'Exportar For i = 0 To...

Te anexo la macro para eliminar las filas que tiene valor negativo y su correspondiente valor positivo. Sub eliminar_valores() 'Por Dante Amor 'Macro que elimine valores positivos y negativos de una columna Application.ScreenUpdating = False u =...

Pon la siguiente macro en los eventos de la hoja2 Private Sub Worksheet_Change(ByVal Target As Range) 'Oculta la fila de la hoja1 Set h1 = Sheets("Hoja1") col = "B" If Not Intersect(Target, Columns(col)) Is Nothing Then If Target.Count > 100 Then...

Pon la siguiente macro en los eventos de tu hoja Cambia en la macro "B:B" por las columnas donde quieras la validación. Funciona así, escribes la palabra o frase, presionas enter y la macro se activa y realiza las correcciones. Private Sub...

Quedaría así: Sub Imprimir() Dim ws As Worksheet For Each ws In Worksheets ws.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False Next End Sub Sal u dos

Te anexo la macro Sub Macro5() 'Por Dante Amor ini = 7 fin = Range("F" & Rows.Count).End(xlUp).Row For i = ini To fin + 1 If Cells(i, "F") = "" Then Cells(i, "G").FormulaR1C1 = "=SUM(R" & ini & "C[-1]:R" & i - 1 & "C[-1])" ini = i + 1 End If Next...

Prueba con lo siguiente: Sub PDF() ' ' PDF Macro Sheets("factura").Select Application.ScreenUpdating = False FACTURA = Range("D11") ruta = "C:\Users\VT\Documents\Facturas\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=ruta & FACTURA &...

Te anexo la macro Sub Macro4() ' u = ActiveSheet.Range("J" & Rows.Count).End(xlUp).Row ActiveSheet.Range("A1:Z" & u).AutoFilter Field:=10, Criteria1:="<>I*" End Sub . .