Luis Mondelo

¿Notarás qué no funciona y siempre te lo copia verdad? Es porque una vez que hemos puesto la fecha una vez, esa celda se queda siempre con formato de fecha por lo que el formato siempre es válido para la macro. Quizás debieras montar otro examen para...

Creo que quieres esto: Esta macro te pondrá la hora una celda a la derecha de la columna C y F. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("c20:c50")) Is Nothing Then Target.Offset(0, 1).Value = time ElseIf Not...

Te mando la solución: En A1 tenemos escrito 10/ABC En B1 escribe esta fórmula: =IZQUIERDA(A1;HALLAR("/";A1)-1) Recuerda finalizar la consulta

Necesito una aclaración: Cuando dices de 200 a 400 no sería correcto de 200 a 399 El siguiente de 400 a 599 El siguiente de 600 a 799 Siguiente la progresión desde el principio. Es mejor que aclares bien los intervalos Después de la aclaración te...

Mándame el archivo con los datos y con un ejemplo explicado para poder ayudarte [email protected] Identifícate en el mail con la pregunta de todoexpertos.

En cuanto a la segunda pregunta te mando la solución =K.ESIMO.MENOR(INDIRECTO(DIRECCION(C1;1)):INDIRECTO(DIRECCION(D1;1));B1) Para la primera parte te lo preparo y te lo mando

Te mando un ejemplo de como se haría. Sub ejemplo() 'por luismondelo Range("c5").Formula = "=average(f4:f" & Range("f65000").End(xlUp).Row & ")" End Sub recuerda finalizar la consulta

Te mando la solución y sigue mis instrucciones: -Me supongo que los datos están desde E1 hacia abajo siendo E1 el encabezado. -En G1 escribe esta fórmula =E2&F2 y la arrastras hacia abajo -En H1 escribe esta fórmula y luego la arrastras hacia abajo....

Con este código puedes hacer lo que pides: Sub prueba() fila = Range("a65536").End(xlUp).Row If fila = 1 Then Range("a1").Value = textbox1 Else Range("a65536").End(xlUp).Offset(1, 0).Value = textbox1 End If End Sub recuerda finalizar la consulta

Te mando mi solución, sigue mi ejemplo: -Tenemos en la columna A desde A1 hacia abajo todos esos 8000 correos, es decir, llegará hasta A8000 -Ejecuta esta macro y todo solucionado: Sub ejemplo() 'por luismondelo columna = 2 Range("a1").Select Do...