Adriel Ortiz Mangia

>Prueba esto Private Sub CommandButton_aceptar_Click() '>Adriel Ortiz ' Set h = Sheets("Datos") ' dni = Val(TextBox_dni) Set col = h.Columns("A") Set b = col.Find(dni, lookat:=xlWhole) ' If Not b Is Nothing Then MsgBox "En dni ya existe" Exit Sub...

[Hej Prueba la macro Sub generar_txt() 'Adriel Ortiz ruta = ThisWorkbook.Path & "\" & "nombre_archivo.txt" ' fin = Range("X" & Rows.Count).End(xlUp).Row Open ruta For Output As #1 For i = 2 To fin Print #1, Cells(i, "X").Value Next Close #1 MsgBox...

[hola Si los nombres de los combox son correlativos Private Sub ComboBox8_Change() Dim i As Long Select Case ComboBox8.Text Case "12x6´" ComboBox5.Visible = True For i = 10 To 50 Me.Controls("ComboBox" & i).Visible = False Next i Case "12x7´"...

Cambia xlpart por xlwhole

Inserta un módulo y pegas el código que está en la página y listo Link https://www.elblogdeluisreyes.com/2019/08/macro-para-pasar-de-numeros-letras-vba.html?m=1

Las columnas en el listbox inicia de 0, entonces la cuarta columna ListAuditoresInterlocutores.ColumnWidths = "0 pt;0 pt;0 pt;0 pt;20 pt;0 pt;0 pt;0 pt"

No hay nada difícil solo práctica Normas APA, correspondencia, etc

Macro de avance Sub Compara_nexus() Set l1 = ThisWorkbook Set h1 = l1.Sheets("DOCENTES") ruta = ThisWorkbook.Path 'CRITERIOS PARA BUSCAR Y CONTAR Dir1 = "DIRECTOR I.E." SubDir1 = "SUB-DIRECTOR I.E." prof = "PROFESOR" auxed = "AUXILIAR DE EDUCACION"...

[Hola Prueba lo siguiente Sub GUARDARREPORTEPDF() Dim sName As String sName = ThisWorkbook.Path & "\" & Sheets("BUSCARR").Range("O7").Value & " " & Range("I15").Value & " " & Range("c9").Value & ".pdf" Sheets("BUSCARR").ExportAsFixedFormat xlTypePDF,...

[Hola no se cambiar la fuente del msgbox pero puedes crear tu propio msgbox Link Se puede cambiar la fuente de los Msgbox?