patanrisitas

No sabría ayudarte en este caso! Disculpa!

Ahora me encuentro de viaje en China y vuelvo el viernes a mi oficina. Tan pronto llegue te mando un archivo de ejemplo. Mi correo es [email protected]

Elije desde excel, la opción Herramientas del menu, luego Grabar Macro, luego grabar nueva macro. Seleccionas una casilla de verificación y la borras. Luego pulsas ALT+F11 y veras el código que se genero. A partir de ahí, puedes construir la macro.

Q+ Roman, Abre un libro nuevo y copia este ejemplo en la fila 5: Item Fecha HIM HIP HFP HFD Parada Trabajo 1 10/09/2008 07:00 08:00 08:50 11:55 00:50 04:05 1 11/09/2008 08:00 08:10 08:38 11:55 00:28 03:27 1 12/09/2008 09:00 09:25 09:50 11:55 00:25...

Q+ Marionet, Prueba con esto: - Agrega a tu formulario un Control SpreadSheet 9.0 y un control ChartSpace 9.0 - Luego utiliza este código para el formulario: Option Explicit Private Sub UserForm_Initialize() With ChartSpace1 ' Add a chart....

Ricardo, Voy saliendo de viaje y no voy a poder dedicarme a esto por unos 15 días...

Q+ Gamercillo, Probé tu fórmula y hace el trabajo bien... sólo tuve que agregarle un cierre de paréntesis al final pero funciona. En mi PC uso (;) en lugar de (,) =SI(A1=5;"5";SI(B1=5;"5";SI(C1=5;"5";ENTERO(PROMEDIO(A1;B1;C1)+0,5)))) Saludos, RCh.

Q+ Latoso, Prueba cambiendo tu código por este otro: Sub Ordenar() ' ' Ordenar Macro ' Macro grabada el 03/09/2008 por Richard Chacón Range("A1:I2900").Sort Key1:=Range("I2"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False,...

Q+ Ricardots, Prueba con este codigo: Sub EliminarRepetidosYRegistro() Dim Contador, Valor, Repetidos, Cuantos Range("A2").Select Range("A2:A29").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlNo _ , OrderCustom:=1, MatchCase:=False,...

Q+ Primica, No entiendo esta pregunta... ¿de qué se trata?