Carlos Arrocha

¿Qué quieres decir que se traba mucho? ¿Te da algún error? Pon aquí la otra parte, la macro CrearPDF para ver como tienes el código.

Prueba así: Sub Hallar() With Worksheets("NIT") .Range("A1").End(xlDown).Offset(1, 0).Select End With End Sub Salu2 Carlos Arrocha

Prueba con el siguiente código. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 15 Then Range("E3") = "Seleccione el código del descuento" Else Range("E3") = "" End If End Sub El código lo pones en los eventos de la...

[Hola Cintia. Prueba con lo siguiente a ver si es lo que necesitas. Coloca el siguiente código en los eventos de Thisworkbook. Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) HojaAnterior = Sh.Name End Sub Y el siguiente lo pones en un...

Prueba con la siguiente a ver si es lo que necesitas. La macro comienza en la fila 2, cambia en el código la "C" por la columna que necesites. Sub EliminarFilas() For i = 2 To Range("C" & Rows.Count).End(3).Row If Cells(i, "C") = "0" Then...

Con tu edad ya es difícil, aunque todo es posible. Por tu parte lo único que puedes hacer es una cosa, facilitarle a tu cuerpo que haga su trabajo sin carencias, es decir, aportar los nutrientes que necesita, hacer deporte y dormir mucho, esto último...

Prueba añadiendo después de la siguiente línea ListBox1.List(ListBox1.ListCount - 1, 2) = cliente.Row Esta otra ListBox1.List(ListBox1.ListCount - 1,3) = cliente.Row Y revisa en la propiedad ColumCount del listbox la cantidad

Prueba con esta macro a ver si te va bien. Private Sub TextBox1_AfterUpdate() Set h = Sheets("Hoja2") If TextBox1 = "" Then Exit Sub x = TextBox1.Value Set b = h.Columns("B").Find(x, lookat:=xlWhole) If b Is Nothing Then MsgBox "DATO NO ENCONTRADO",...

Una opción es que pongas el código de la cabeza de la hoja en un módulo, y lo llames desde el botón de la hoja, por ejemplo: Creas el Módulo y añades el código del botón que quieres eliminar Sub CabezaHoja() pass = "chevo"...

Prueba cambiando esta línea If copia = vbCancel Then Exit Sub Por esta If copia = Empty Then Exit Sub