Haplox

Sí, eso es lo malo y que no es de código abierto, pero para mí la versión jgratuita es más ue suficiente. Bueno, puede ser una opción para alguien más. Saludos

Qué tal, Pues eso... es un IDE competamente nuevo, compatible con Windows 10 y qué es un projecto que trae el viejo VB6 a nuestros tiempos Está en evolución y aun hay muchas cosas que no están implementadas, pero es totalmente usable incluso, creo, para aquellos que lo quieran tener como IDE de producción. Tien una página en Github para postear bugs, opiniones, pedir ayuda, etc. https://github.com/twinbasic/twinbasic/issues/772 Sacan versiones nuevas práctiacmente todos los días. Lo malo es que es de código cerrado () y acabará siendo de pago, al menos en las versiones compatibles con la programación nativa para x64 y la multiplataforma, pero al menos parece que, sin esto, seguirá siendo gratis. Bueno, si a alguien le interesa, lo tenéis ahí

Prueba con Set Evaluacion.Caption =Sheets("Datos").Range("A" & X).value

Madre mía... ¿Ya lo comprastes? (se nota que no piso mucho otras secciones del foro). Si no es así, y viendo para lo que lo va a usar, los hay más baratos y con casi las mismas prestaciones. Lo que sí te diría es que te vayas a pantalla de 17", luego todos acabamos arrepintiéndonos

Te agradezco tus sabios consejos, de verdad. Lo de "pensar distinto" ni lo sabía ni me lo imaginaba. Habrá que darle una vuelta de pensar

¡¡¡ Bieeeeeeeen !!! No estoy viejo 😆. Y se ve en todos los foros, ahora... que si ha nadie más le molesta (por poner una palabra), pues nada

No, gracias . A estas alturas de la película solo sería como un hobby, y para nada profesional y ganarme la vida con ello. Ya sé que son muy distintos, pero considero que parte de la curva de aprendizaje ya la tendría andada. Agradezco tu consejo (y sabiduría). Ya sé que VB6 está discontinuado, pero en su momento hice algún pinito con él, por eso preguntaba. Creo que es el momento de darle la oportunidad a VB.NET.. Y ya puestos ¿Algún curso o tutoriales sencillitos que conozcas/conozcáis? Muchas gracias

Genial, de verdad. Aparte ya he estrenado el foro de Programación 😍🤗 En cuanto al tamaño de la fuente... ¿Siempre ha sido así? . O estoy muy mayor y se me olvidan las cosas, o realmente estoy muy mayor y se me olvidan las cosas. Es la única página que se ve asi de grande los títulos

¡¡¡ Estreno este foro !!! Pues eso, llevo tiempo pensando en avanzar hacia VB, y me surge esa duda ¿VB.NET o VB6? No me lieis con otros lenguajes que no voy a picar

Joder!!! Yo qu directamente entro a VBA y hoy me da por bucear por los foros "de siempre" y me encuentro con todo cambiado. Genial 👍 ¿Es necesaria esa fuente gigantesca, o es mi navegador? Veo hasta sin las gafas 🤣🤣

@ppladino, lo que pides, según mis conocimientos, no es posible directamente desde excel. Debes usar la API de windows... si te atreves Mira este enlace https://stackoverflow.com/questions/20486944/detecting-in-vba-when-the-window-containing-an-excel-instance-becomes-active

El código que has puesto no es el que tienes en el libro, al menos sube el archivo con el código que te da el error.

Efectivamente, si no es difícil dar una guía Y aquí me he perdido... Me imagino que lo que no te abre es el Excel, no el Windows, ¿No? De momento, busca en Internet por: Error Catastrófico…memoria insuficiente excel Windows 7 a 64 bit Hay cientos de páginas que dan consejos para aligerar el trabajo con Excel. Ahora, no sé si alguno funcionará. Alguna vez escuché (no sé dónde ), que instalando Office de 64bits aligeraba un poco este problema

Quçe tal @pinoji, si no te he entendido mal, usa el siguiente cçodigo. Faltan algunas cosas como borrar los datos de la hoja FiltroC antes de pasar los nuevos datos, definir las columnas que quieres pasar tanto a la hoja como al listbox (mediante los Offset) Por cierto, cambia la propiedad "ColumnCount" del listbox a aquellas que quieras mostrar Private Sub CommandButton1_Click() Dim fech1 As Date, fech2 As Date Dim uF&, h& Dim cel As Range Dim datos() fech1 = TxtFechaI fech2 = TxtFechaF uF = Sheets("Combustible").Range("A" & Rows.Count).End(xlUp).Row ReDim datos(1 To uF, 1 To 5) h = 1 For Each cel In Sheets("Combustible").Range("E4:E" & uF) If cel >= fech1 And cel <= fech2 Then datos(h, 1) = cel datos(h, 2) = cel.Offset(, 1) datos(h, 3) = cel.Offset(, 2) datos(h, 4) = cel.Offset(, 3) datos(h, 5) = cel.Offset(, 4) h = h + 1 End If Next cel Sheets("FiltroC").Range("A5").Resize(h - 1, 5) = datos LstResumenC.RowSource = Sheets("FiltroC").Range("A5:E" & (h - 1) + 4).Address End Sub