calvuch

Efectivamente son 8:36 Vamos a la planilla, rotulemos a1=entrada b1=salida c1=Total Mañana d1=entrada e1=salida f1=total tarde g1=Total ok, como puedes ver, manejaremos dos sub totales, jornada mañana y tarde, y luego consolidas ( sumas ambas medias...

¿Cómo se llama la hoja en que buscaras el dato? Como están dispuestos los datos en esa hoja ( indica celdas de referencia)

agrega esto : If strNombreLibro = "Falso" Then Exit Sub despues de : strNombreLibro = Application.GetSaveAsFilename

Bueno si así es el caso, entonces antes de correr el macro debes verificar si la fecha es la adecuada dim mifecha as en donde mifecha="29-11-2010" o mifecha= [a2] si lo tomas desde una celda de excel if date = mifecha then call tu_macro end if

Prueba esto Function sumacolor(ByRef rangoa As Range, ByRef rangob As Range, ByRef Criterio As Range) If Criterio.Interior.Color = rangoa.Interior.Color And Criterio.Interior.Color = rangob.Interior.Color Then sumacolor = (rangob.Value -...

Compara el más corto en función del más largo. En hoja1 pega los 28544 registros En hoja2 pega los 27707 registros En ambos casos la data parte desde A1 En hoja2 celda C1 pones esto: =buscarv(a1;hoja1!a:b;2;falso) Y lo copias hacia abajo Esto te...

A ver dices que la suma esta en A13, ¿pero en la función que introduces en C1 referencias la celda AY13?. Bueno, si deseas que en C1 se muestre el resultado de A13 solo si este es menor a 100 entonces en C1 pon esto: =SI(A13<100;A13;"")

prueba esto, inserta esta linea ActiveCell.Comment.Delete entre las lineas On Error Resume Next y Set MiComentario = ActiveCell.Comment quedando asi: On Error Resume Next ActiveCell.Comment.Delete Set MiComentario = ActiveCell.Comment

prueba MsgBox Round([c8].Value, 2) En este ejemplo redondea a 2 decimales el contenido de celda C8

Podrías probar lo siguiente: supongo que inovcas el form desde un modulo de esta forma: UserForm2.Show 0 es decir "no modal" Ahora debes declarar una variable boleana de alcance global para el form Option Explicit Dim nuevo As Boolean Ahora...