Sergio Ramirez

Dante Amor respondió: Cuando cargas la información con rowsource, si puedes poner los títulos con la propiedad ColumnHeads = True. Pero si la cargas con additem, no se pueden cargar. Tienes 2 opciones o los cargas como si fueran un registro más: For i = 1 To Range("A" &...

Dante Amor respondió: H o l a: Para mostrar el formato se tiene que hace la carga de otra forma: Private Sub UserForm_Initialize() 'Por.Dante Amor For i = 2 To Range("A" & Rows.Count).End(xlUp).Row ListBox1.AddItem Cells(i, "A") ListBox1.List(ListBox1.ListCount - 1, 1) =...

Dante Amor respondió: Te anexo la macro Sub PonerBordes() 'Por.Dante Amor With ActiveSheet.UsedRange .Borders(xlEdgeLeft).LineStyle = xlContinuous .Borders(xlEdgeLeft).ColorIndex = 0 .Borders(xlEdgeLeft).TintAndShade = 0 .Borders(xlEdgeLeft).Weight = xlThin '...

Dante Amor respondió: Cambia el commandbutton3 Private Sub CommandButton3_Click() 'Act.Por.Dante Amor Set h1 = Sheets("alumnos") If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Then MsgBox "Campos requeridos vacíos favor complete" TextBox2.SetFocus...

Dante Amor respondió: Puedes poner cómo estás cargando los datos en el combo1 y en el combo2. También dime en cuál columna debe ir el textbox2 Y también explícame si tiene el checkbox = true en qué columnas va la información y si no, en qué columnas va cada textbox.

Elsa Matilde respondió: Tengo un pequeño ejemplo desarrollado. Dejame un correo o escribime al mío que aparece en mi sitio que dejo al pie para enviártelo.

Dante Amor respondió: Te anexo la macro con la actualización. Private Sub Buscar_Click() 'Act.Por.Dante Amor For Each h In Sheets h.Select Set b = ActiveSheet.Cells.Find(TextBox1, lookat:=xlPart) If Not b Is Nothing Then b.Select existe = True Exit For End If Next ' If...