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?

Q+ Rika, Una opción es que crees una tablita de valores: A B 0 INSF 1 INSF 2 INSF 3 INSF 4 INSF 4,9 INSF 5 SUF 6 SUF 6,5 SUF 7 B 7,5 B 8 NOT 9 NOT 10 SON Y que uses la fórmula: =+BUSCARV(C1;A1:B14;2) Otra opción es con la fórmula si:...

Q+ Leydyb, Has lo siguiente: 1.- Ubicate en la Hoja2 (en la celda donde va la suma) 2.- Pulsa el signo + y justo al lado escribe la palabra suma, luego abre paréntesis 3.- Has Click en la Hoja1 donde están los datos a sumar 4.- Sombrea (selecciona)...

Q+ Elranuza, Sustituye tu código por este: Sub mueveFila() ActiveSheet.Range("D2").Select 'recorre la col A While ActiveCell.Value <> "" If ActiveCell.Value = "Referido" Then 'si celda en col A = referido fila1 =...

Q+ Argosen, Ve probando con este código: Private Sub Worksheet_Calculate() With Worksheets("Data") If .AutoFilterMode Then With .AutoFilter.Filters(1) If .On Then C1 = .Criteria1 Range("D1").Value = C1 End With End If End With End Sub

Q+ Primica, Utiliza la combinación de las fórmulas Indice y Coincidir: 1.- La fórmula Coincidir te ayuda a ubicar el número de fila y el número de columna que contiene al dato buscado, y 2.- La fórmula índice usará a las dos fórmulas Coincidir de...

Q+ Anej, Podrías utilizar en el Menú, la opción de Datos - Validación que es bien chévere... Sin embargo si lo que necesitas es estrictamente lo que has escrito, entonces prueba con este código que te copio acá. El Código lo debes pegar en el Módulo...