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"

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 no se cambiar la fuente del msgbox pero puedes crear tu propio msgbox Link Se puede cambiar la fuente de los Msgbox?

[Hola prueba con hide folder http://www.intercambiosvirtuales.org/software/hide-folders-2012-v4-0-6-775-oculte-sus-carpetas-de-miradas-ajenas

[Hola utilizar la sentencia if if textbox1 <> "" or textbox2 <> "" then codigo si es verdadero else código si es falso end if