Valor por defecto en combo de búsqueda de formulario Excel
Para Dante Amor.
Hola de nuevo Sr. Amor y gracias por su tiempo y profesional atención. Me han surgido dos "problemillas" en el uso de los formularios y apelo a tu amabilidad.
1.- Formulario "BUSCAR": Necesito que el "cmbEncabezado" siga permitiendo elegir entre los encabezados de las columnas 6, 12 y 21 del registro para luego filtrar, pero que en vez de que aparezca en blanco al iniciar el formulario, muestre por defecto el encabezado de la columna 6 "Nº expediente OAVP", ya que la gran mayoría de las búsquedas se hacen por este campo.
2.- Formulario "MODIFICAR". Tanto en los checkbox como en los Optionbutton, cuando los selecciono funcionan correctamente. Sin embargo si cargo el formulario de nuevo para ese registro en el que marqué esos check y option, los mismos me aparecen desmarcados (aunque los valores estén en sus correspondientes celdas), no siendo capaz de ver a primera vista que selección hice (lo he solucionado implementando unos textbox que me muestran a su lado la información grabada). ¿Hay forma de que esos check y option queden activados de la misma forma que los marqué en su momento cuando consulte ese registro?.
Le adjunto el archivo por correo.
1 Respuesta
Para el número 1:
Private Sub UserForm_Activate()
'Act.Por.Dante Amor
Set h1 = Sheets("REGISTRO")
Set h2 = Sheets("Temporal")
cols = Array(6, 21, 12) 'columnas a agregar
For j = LBound(cols) To UBound(cols)
cmbEncabezado.AddItem h1.Cells(1, cols(j)) 'agrega encabezado
cmbEncabezado.List(cmbEncabezado.ListCount - 1, 1) = cols(j)
'agrega número columna
Next
cmbEncabezado = h1.Cells(1, cols(0))
ListBox1.ColumnHeads = True
End SubPara el número 2
' Private Sub UserForm_Activate() Textexpediente = h1.Cells(fila, "F") Textdenomina = h1.Cells(fila, "S") Textreferencia = h1.Cells(fila, "L") Texttipo = h1.Cells(fila, "J") textinfcoor = h1.Cells(fila, "D") Textconsejero = h1.Cells(fila, "A") Textcoordinador = h1.Cells(fila, "B") Textenvio = h1.Cells(fila, "C") 'Envío y recepción de informes MUESTRO DATOS EDITABLES Textpmm1 = h1.Cells(fila, "BU") Textpmm2 = h1.Cells(fila, "BV") Textpmm3 = h1.Cells(fila, "BW") Textsam1 = h1.Cells(fila, "BX") Textsam2 = h1.Cells(fila, "BY") Textsam3 = h1.Cells(fila, "BZ") Textbom1 = h1.Cells(fila, "CA") Textbom2 = h1.Cells(fila, "CB") Textbom3 = h1.Cells(fila, "CC") Textmov1 = h1.Cells(fila, "CD") Textmov2 = h1.Cells(fila, "CE") Textmov3 = h1.Cells(fila, "CF") Textacu1 = h1.Cells(fila, "CG") Textacu2 = h1.Cells(fila, "CH") Textacu3 = h1.Cells(fila, "CI") Textzv1 = h1.Cells(fila, "CJ") Textzv2 = h1.Cells(fila, "CK") Textzv3 = h1.Cells(fila, "CL") Texttall1 = h1.Cells(fila, "CM") Texttall2 = h1.Cells(fila, "CN") Texttall3 = h1.Cells(fila, "CO") Textpub1 = h1.Cells(fila, "CP") Textpub2 = h1.Cells(fila, "CQ") Textpub3 = h1.Cells(fila, "CR") Textalu1 = h1.Cells(fila, "CS") Textalu2 = h1.Cells(fila, "CT") Textalu3 = h1.Cells(fila, "CU") Textvias1 = h1.Cells(fila, "CV") Textvias2 = h1.Cells(fila, "CW") Textvias3 = h1.Cells(fila, "CX") Textjmd1 = h1.Cells(fila, "CY") Textjmd2 = h1.Cells(fila, "CZ") Textjmd3 = h1.Cells(fila, "DA") Textpe1 = h1.Cells(fila, "DB") Textpe2 = h1.Cells(fila, "DC") Textpe3 = h1.Cells(fila, "DD") Textcultu1 = h1.Cells(fila, "DE") Textcultu2 = h1.Cells(fila, "DF") Textcultu3 = h1.Cells(fila, "DG") Textmadsa1 = h1.Cells(fila, "DH") Textmadsa2 = h1.Cells(fila, "DI") Textmadsa3 = h1.Cells(fila, "DJ") Textcont = h1.Cells(fila, "DK") Textvallas = h1.Cells(fila, "DL") ' If h1.Cells(fila, "DL") = "SI" Then CheckBoxvallas = True If h1.Cells(fila, "DK") = "SI" Then CheckBoxcont = True ' Select Case h1.Cells(fila, "D") Case "FAVO": OptionButton1 = True Case "DESF": OptionButton2 = True Case "NOCM": OptionButton3 = True Case "ANUL": OptionButton4 = True Case "PRON": OptionButton5 = True Case "TARD": OptionButton6 = True Case "SLPS": OptionButton7 = True Case "NOPS": OptionButton8 = True End Select End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
