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

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

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

Lo normal es que si eliminas la hoja del libro se elimine también de vba y no aparezca, pero si en tu caso no es así, prueba cerrando el libro y lo vuelves a abrir.

Si solo quieres que te sitúe en la última celda te podría servir algo así. Private Sub CommandButton1_Click() Set h1 = Sheets("Hoja1") h1.Range("A" & Rows.Count).End(3).Select End Sub