Carlos H Duque R

Aneudys Martinez respondió: Prueba esta a ver si te silver Sub BuscarYeliminar() Cedula= InputBox("Ingrese el Numero de Cedula a Buscar para darle retiro") Set h = Sheets("sheet1") Set b = h.Columns("A").Find(Cedula) If Not b Is Nothing Then b.Select ActiveCell.EntireRow.Cut...

Jorge Vila respondió: Puedes utilizar el focus() de javascript para poner el puntero donde te interese.

Dante Amor respondió: Escribe el siguiente código después de realizar el filtro Range("N1").Select Selection.End(xlDown).Select If ActiveCell.Row > Range("N" & Rows.Count).End(xlUp).Row Then MsgBox "No hay datos filtrados" Range("N1").Select else cells(ActiveCell.Row,...

Dante Amor respondió: Te dejo un archivo para filtrar con 3 combos, cambia la información de las columnas A, B y C https://www.dropbox.com/s/5441r9jt1jupwoa/combobox%203%20filtros.xls Saludos. Dam Si es lo que necesitas.

Dante Amor respondió: Este es un ejemplo de como funciona cells. Find, pero debes adaptarlo a los datos que tú tienes. set resultado = cells.find(combobox1) if not resultado is nothing then 'Si se encontró 'escribir el código cuando si se encuentra else 'no se encontró...

Dante Amor respondió: Esta es para textbox en horizontal, con espacio de 10 entre ellos y con fondo de color azul claro. Private Sub CommandButton1_Click() 'Agrega textbox 'por.Dam Sig = 10 'lugar de inicio del primer textbox a crear n = 9 'número de textbox, cambia este...