Abraham Valencia

Muy bueno, al baul de las cosas interesantes Saludos Abraham

Hola amigo: ¿Te has percatado que lo que detiene el OnTime no es el Schedule en False, sino el error generado por la macro, el cual no se visualiza por el uso del On Error Resume Next? Hasta donde recuerdo, la propiedad Schedule del Ontime solo puede ser cambiada a False a traves de otra rutina. Para que se me entienda, pues, siguiendo con tu idea, esta rutina tambien causaria el mismo efecto: Sub RELOJ() On Error Resume Next If ActiveSheet.Cells(1, 1).Interior.Color = vbRed Then Range("A1").Offset(-3, -2) = 3 ' observen la incoherencia que causara el error y detendra el Ontime Else ActiveSheet.Cells(1, 1) = Now Hora = Now + TimeValue("00:00:01") Application.OnTime Hora, "RELOJ", SCHEDULE:=True End If End Sub[/PHP] Por cierto, para mejor visualizacion de "reloj", recomiendo colocar algun formato en el cual se vean los segundos Saludos Abraham

Hay que pedir que "alguito" de ese billeton le "caiga" a los foros, a los foreros y sobretodo a los MVP Abraham

Hola amigos y amigas: En esta ocasion he creado un archivo en el cual, podemos ver en un grafico de un UserForm, el espacio usado y libre de cualquiera de los discos de nuestra PC. Para esto usamos funciones del API de windows. Ah, eso si, para ver correctamente este archivo, necesitas tener intalados los "Office Web Components 11". De no tenerlo puedes descargarlo de aquí: Descargar Ademas el codigo puede enseñarte a como manejar/mostrar los datos de una hoja como grafico en un Userform, lo que es muchas veces solicitado en los foros. Bueno, aqui esta el ejemplo: Enlace Por si acaso, ya esta en mi web tambien: ABRAHAM VALENCIA EXCEL Saludos y espero les guste Abraham Valencia Microsoft MVP 2010 PD: Aunque lo subi como *. Xlsm, puede usarse en cualquier version de Excel. En la version 2003 (y anteriores), necesitas tener el "modulo de compatibilidad" para verlo: Descargar

Re: Cual fue tu primer post en AyudaExcel? Pues en mi caso fue para hacer "spam" de mi web https://www.ayudaexcel.com/foro/f16/%5Bsolucionado%5D-programa-econom%ED-dom%E9stica-2121/ Acabo de recordar viendo dicho mensaje, que la primera persona en comunicarse conmigo, fue mi amigo Neverdelimon1. Por cierto, me he acordado de que Geocities desaparecio Saludos Abraham

Hola Violeta: BIENVENIDA. Abraham PD: Lo siento Gerson, pero estoy de acuerdo con German, jejejej

Pues bienvenido Abraham

y yo ya que ya me habia emocionado con los besos jejejejej Abraham

Hola nuevamente Verzulsan. Pues tienes razon, en ese caso mezclando metodo y propiedad si que funciona, y me disculpo por la correccion, mas aun sabiendo yo mismo que hay excepciones (pocas en realidad) a la regla (en el caso que muestras no lo sabia). Me hace recordar cuando en el MSDN, alla por el año 2003 o 2004, decia que no se podia autoaplicar Kill a un libro abierto de Excel, y un amigo con algunos agregados, pues, lo logro (Pavel - Mexico) Sobre lo del Copy, pues siendo un parametro pues no puede permite un metodo en él (en este si no hay excepcion a la regla). Lo que podria hacerse es usar Move como ya sugirio nuestro amigo Gerson Abraham

Hola Verzulsan: Add, es un metodo, y Name es una propiedad, y obviamente los metodos no tienen propiedades, por eso no se puede lograr lo que mencionas Saludos Abraham

Hola. Si deseas tambien puedes decirle en donde dejar esa nueva copia: Al incio (izquierda): Sheets("Hoja1").Copy Before:=Sheets(1) Al final (derecha): Sheets("Hoja1").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = "Nuevo_Nombre" Despues de la segunda hoja (o la que desees): Sheets("Hoja1").Copy After:=Sheets(2) ActiveSheet.Name = "Nuevo_Nombre" Saludos Abraham

Mi mas sincero saludo tambien Abraham

Hola. Debo haber enviado lo que solicitaron a fines de Julio aproximadamente. Hasta donde se, sea si o no la respuesta, ellos te escriben de todos modos Saludos y suerte Abraham

Gracias a todos por todas sus palabras amigos... ah, por cierto, he estado "desaparecido" por cuestiones politicas pero ya que paso el periodo electoral en Peru, pues, aqui estoy de vuelta Saludos a todos y gracias nuevamente Abraham

Hola amigos y amigas. Quiero compartir con uds algo que para mi es muy importante y que me a causado gran satisfaccion. Desde el dia 01 de Octubre he sido nombrado por Microsoft como uno de sus MPV, es decir, ahora soy un Microsoft MVP 2010. Esto debido a mis participaciones en este y otros foros de Excel. Realmente me alegra el nombramiento y me incentiva, mas aun, a seguir aportando y ayudando en este tema (Excel) y otros que pueda. Saludos Abraham PD: Para aquellos o aquellas que no sepan claramente lo que es un MVP: Que es un MVP? - MVP Factor - Site Home - MSDN Blogs

Va OJO, ahora veo que me permite adjuntar los que YA estaban subidos en mensajes anteriores (y que se quedan alamcenados) pero nada con subir un nuevo archivo. Probe y ademas del IE8, el mismo dilema en MF 3.0.1 Abraham EJEMPLO.zip

Nada, no me deja adjuntar. IE8 500[iOErrorEvent type="ioerror" bubbles = false cancelable=false eventphase=2 text="error #2038" Abraham

Pues de nada, y mas bien, gracias a ti por ese y otros aportes Saludos Abraham

Hola Antoni: Creo saber que sucede. En el codigo que envias no estan, pero al crear el USerform, haces uso de 2 funciones del API de windows: FindWindow y SetWindowLong, por lo que sospecho que se te "escapo" al copiar/pegar. Ademas, al ver que copiar codigo hasta la linea 19, me hace estar mas seguro, aun, de eso. Ah, no olvidar que de manera obliga el modulo en el que se copia tu codigo, debe ser uno "normal" llamado "Módulo1" Saludos Abraham Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _ ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long

QEPD Abraham

Re: Mensajes con duración de determinada Antoni, es casi imposible que todas y todos recordemos cada aporte y/o mensaje que hay en el foro, yo solo envie el enlace por el comentario de Gerson que tambien lo recordadba y solo quice precisarlo Saludos Abraham

Re: Mensajes con duración de determinada El año pasado, en este mismo foro: https://www.ayudaexcel.com/foro/showthread.php?t=8691&highlight=WScript.Shell Saludos Abraham

Bienvenido Abraham

Pues Feliz Cumplemenos de mi parte tambien Abraham

Eso, saludos a las hermanas y hermanos de Argentina por los 200 años de independecia... ¡VIVA LATINOAMERICA! Abraham