Abraham Valencia

Hola ¿Usas Excel 365 y estás suscrito al Canal Insider Beta? De ser así, es habitual lo de "Memoria insuficiente" y que se "vean" los proyectos de VBA así el archivo esté cerrado.

Hola Sugiero, como para que vayas aprendiendo, que con la grabadora de macros abras otro archivo, copies y pegues datos en él, etc. y analices el código capturado. Otra alternativa es que comiences a aprender el uso de ADO y SQL aplicado entre archivos de Excel.

Hola, para estar seguros es mejor que adjuntes el archivo. No es necesario que estén tus datos y/o todo, solo lo del problema. Saludos.

Hola, quizás sería más fácil ayudarte si adjuntaras un archivo Excel con una muestra de los datos y el resultado esperado basado en los datos de ejemplo.

Hola, te adjunto una de varias formas. Saludos. Archivo A.xlsm

Hola ¿Algún "detalle" que ayude a ayudarte?

Sin ver tu archivo y tus avances, es casi imposible darte consejos, más aún si mencionas no usar macros pero hablas de VBA. Saludos.

Sí, por eso digo lo de los detalles, es decir ¿qué crees tú que debe aparecer y qué aparece? Pon imágenes. Saludos.

Hola Yo uso Excel de64 bits y no tengo ningún problema, da detalles para entender qué es lo que ocurre contigo.

Hola, una forma es: Private Sub UserForm_Initialize() Me.StartUpPosition = 0 'Establecer posición de forma manual Me.Top = 100 'Desde la parte superior Me.Left = 100 'Desde el margen izquierdo End Sub Lee sobre las propiedades Top y Left del Userform para mejor referencia. Saludos.

¡Felices fiestas!

Pues realmente felicidades a todos y todas, realmente es un orgullo el nombramiento y una alegria participar de un lugar asi Abraham

Re: Felices Fiestas, a todas las personas de buena voluntad Felices fiestas a todos y todas Abraham

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