Victor Perdomo

Prueba con la funcion format. Format(expresión, formato) Donde formato para hora puede ser: MiCadena = Format(Time, "Long Time") ' Devuelve la fecha actual del sistema en el formato largo de fecha definido por el sistema. MiCadena = Format(MiHora,...

Debes de usar la propiedad column del target. Adicionalmente en un Select-case, puedes colocar multiples expresiones: Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim Tipo As String If Target.Column = 5 Then Tipo = Target.Value Select...

Te envio la formula de una solucion, pero la columna de los tiempos debe de estar en formato hora. Suponiendo que lo datos empiezan en A2, agregas dos columnas en F2 la formula seria =REDONDEAR.MENOS(B2*1440;0)/1440 y en G2 =SI(F2=F1;G1+1;1). La...

Una solución es que modifiques la macro y no le des una referencia absoluta del estilo $A$1 tendrias que darle un nombre a la columna, y asignarle este nombre a la macro, los nombres de los rangos se desplazan al agregar o eliminar columnas. De todos...

Cambia la linea: Range("a1:o" & Range("a65000").End(xlUp).Row).Copy por: Range("a1:ap" & Range("a65000").End(xlUp).Row).Copy Si solucionaste tu problema da por finalizada la pregunta, si tienes cualquier otro inconveniente, avisame

Si quieres yo te puedo ayudar, enviame tu archivo a [email protected]

¿Ya intentaste con una tabla dinámica?

Sub boton1_alhacerclick() [N39] = WorksheetFunction.Sum(Range("N37:N38")) [N3] = [N3] + 1 activesheet.PrintOut End Sub

Prueba esto y me cuentas Private Sub ComboBox1_Change() Select Case Range("f12").Value Case 1 Worksheets("Hoja5"). Range("b17:b37"). Clear Worksheets("Hoja5"). Range("c17:c37"). Clear Worksheets("CAMBIOS"). Range("d10:d30").Copy...

Lo que quieres hacer no es posible, ya que por una actualización de seguridad de microsoft, es necesario validar. Para este tipo de circunstancias uso el método CDO, pero no usa outlook si no un gestor de correo externo, en el siguiente link resuelvo...