paramisolo

Necesitarías de otra hoja en la que coloques tus cabeceras de columnas con los datos correctos A B C D ... Fila1 TRABAJADOR 01/08/09 02/08/09 03/08/09 ................... Ahora se puede hacer una macro que localice un trabajador y lo lleve a la hoja...

Dibujas un botón en la hoja2 y le asignas este código: Private Sub CommandButton1_Click() Dim cod, nombre, pro1, pro2, pro3 As String Sheets("Hoja1").Select ActiveSheet.Range("A2").Select Do While ActiveCell.Value <> "" cod = ActiveCell.Value nombre...

Pues explicame como tienes tu hoja de Excel configurada para que veamos como tienes que hacer. >Un saludo >Julio

No, se debe hacer desde un combobox el listbox no es editable desde el propio listbox. >Un saludo >Julio

Esta macro la pones en el Textobox donde escribes la frase con espacios y creras un 2º Textbox para que te lleve la frase sin espacios al salir del primer Textbox ( al pulsar enter o tab o hacer click en otro control): Private Sub...

Para ello inserta un modulo y pegas esta macro y la ejecutas cuando quieras: Sub Comparar_Insertar_Fila() Dim valor, celda As String Sheets("Hoja2").Select Range("A1").Select ActiveCell.End(xlDown).Select celda = ActiveCell.Value...

Pues te pones un botón dibujado en la hoja y le añades este código: Private Sub CommandButton1_Click() Userform1.Show End Sub Cuando pulses en el botón se abrirá el Userform1 >Un saludo >Julio PD: Si te ha servido puntúa y finaliza la consulta.

Has repetido la consulta tendrás que puntuar las dos y finalizarlas.

Esto se puede hacer con fórmulas o con macros, con fórmulas tendrías que poner muchas condiciones diferentes en una misma fórmula y excel tan solo te deja poner 15 SI anidados si tus condiciones lo van a superar (todas las combinaciones posibles)...

Pues solo añadirle lo que quieres hacer en el lugar justo: Dim Celda As Range For Each Celda In ActiveSheet.Range("A1:Z100") If Celda = 4 Then Celda. ClearContents ActiveCell. Offset(1,0). Copy 'Con esto copias la celda de debajo de la que tenia el 4...