Elsa Matilde

Observa en la instrucción cad = que estás buscando también por DNI y ese dato es único. Probalo de este modo: cad = h1.Cells(i, "C") & UCase(h1.Cells(i, "C")) ' buscar por col C Sdos. Elsa

Debieras utilizar Filtros Avanzados. El rango de criterios puede ser colocado en un rango auxiliar. Los títulos de las columnas deben coincidir con los de la tabla, por ejemplo: Las opciones del filtro serán como en la imagen. En mi ejemplo copio el...

En el título mencionas el uso de un Combobox... pero luego comentas acerca de un textbox. Lo del textbox ya te lo respondí en la otra consulta. Y si necesitas lo mismo para algún combobox, también se puede. Solo confirma para ajustarte el código...

Estas serían las instrucciones para pasar 2 textbox a otro formulario y luego cerrar el primero. Algo como este pase (antes de cerrarlo): El primer formulario tendrá un botón (o algún otro evento) con este código: Private Sub CommandButton1_Click()...

Tu historial muestra que es tu primer consulta por lo tanto no se sabe a quién va dirigida ni qué macro has encontrado y copiado. Te aclaro lo de la protección: al momento de proteger una hoja se deben establecer los permisos. Si se trata de aplicar...

Si la macro debe ejecutarse al cambio en 'cualquier' o todas las hojas del libro se colocan en el objeto ThisWorkbook. En cambio, si se debe ejecutar en una hoja en particular se colocará en el objeto HOJA donde quieras que actúe. Por ejemplo en...

Se me ocurre colocar el texto en gris y al entrar en el control se borrará y lo que ingreses será del modo normal. Ahora, no me parece borrar el contenido del control al salir ya que perderás lo que ingresaste, sino que lo debieras hacer por ej luego...

Entra al Editor, inserta un módulo y allí copia el siguiente código: Sub buscaMenor() 'x Elsamatilde 'guarda el contenido de la primer celda (B9) dato = [B9] 'recorre col B a partir de fila 10 hasta el final de datos [B10].Select While ActiveCell <>...

Para crear una nueva carpeta esta sería una macro de ejemplo extraída de mi manual 500Macros: Sub CreaDir() MkDir "C:\Documents and Settings\MisDocumentos\MisFacturas" End Sub Debes saber de antemano en qué directorio ubicarla (por ahora quedó en el...

Esta sería la macro. Entrá al Editor (con atajo Alt y F11), insertá un módulo y allí copiá lo siguiente: Sub agregaFormula() 'x Elsamatilde 'ultima fila según col A x = Range("A" & Rows.Count).End(xlUp).Row 'coloca fórmula en col C Range("C" &...