Dante Amor

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

¿Pero qué quieres hacer? Quieres buscar algo y si no lo encuentra que te regrese un mensaje, por ejemplo: =SI.ERROR(BUSCARV(B3,G2:H18,2,0),"No existe") Busca el dato de la celda B3 en el rango G2:H18, si encuentra el dato, te regresa el valor de la...

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

Revisa la siguiente respuesta: Validar espacios vacíos en un userform con limite de validación para un usuario y contraseña Antes de esta línea en la macro: UserForm1.Show Debes guardar los datos de usuario y fecha en una hoja. Prueba y me vas comentando

Agrega el siguiente evento en tu control Private Sub TextBox1_Change() Sheets("Hoja2").Range("A2").Value = TextBox1.Value End Sub sal u dos