Jump to content

Haplox

Members
  • Posts

    3,069
  • Joined

  • Last visited

  • Days Won

    103
  • Country

    Spain

Everything posted by Haplox

  1. @mariasanz, ¿Realmente has pensado si es la mejor opción para lo que quieres? Ten en cuenta que puedes llenar el libro de hojas, y no tener realmente el control sobre ellas. Si, por ejemplo, quieres tener digamos 10 Plantillas 1... Excel te va a obligar a renombrarlas: Plantilla 1, Plantilla1_1, Plantilla1_2, etc. Cuando disminuyan el contador, ¿Cuál de todas ellas quitarías? ¿La última que haya, pa primera? ¿Si disminuyes el contador, ocultas la hoja, la eliminas? Saludos
  2. 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
  3. 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í
  4. Prueba con Set Evaluacion.Caption =Sheets("Datos").Range("A" & X).value
  5. @gusmario2022, Esto es para bajar el fichero si te gusta. Si necesitas otra cosa, deberías publicarlo en la sección correspondiente
  6. 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
  7. 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
  8. ¡¡¡ 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
  9. 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
  10. 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
  11. ¡¡¡ 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
  12. 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 🤣🤣
  13. @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
  14. 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.
  15. 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
  16. 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
  17. Simplemente sumalas. Excel se encargará de poner los signos en la suma
  18. Lo primero que deberías decirnos es si las horas de cada trabajador las tienes en formato 24h o 12h. Lo segundo es dónde pondrías el dato de horas nocturnas
  19. Bueno, eso te queda como parte del ejercicio. ¿Un For/Next desde 1 a 2? ¿Otro loop tal que x<3?... ¿Dónde colocarlo? Bueno, tómalo como una pista, puesto que los 2 archivos de cada uno estarán ordenados alfabéticamente según su ID
  20. hombre... yo no sé si mi código es limpio y elegante, pero es el mejor que se me ha ocurrido. Míralo y comenta
  21. No sé si lo has solucionado o no , pero si es que no te dejo el fichero con la macro y los 2 primeros TXT. SI te sirve, y puesto que es un ejercicio, deberás darle una vuelta de como hacerlo para incluir el resto de archivos TXT 😉 Insertar TXT.zip
  22. @Cristo A.Rodriguez, sin tu archivo es difícil adivinar cuál es su estructura, pero teniendo en cuenta QUE TU SABES que los ficheros existen en ese directorio, puedes evitarte el Dir y el Loop. Creo que con el siguiente código debería funcionarte. Ten en cuenta que yo he supuesto que los nombres están en la columna "A" Sub mover_fich() Dim uF& Dim nombres As Range uF = Range("A" & Rows.Count).End(xlUp).Row For Each nombres In Range("A2:A" & uF).SpecialCells(xlCellTypeVisible, 2) Name "D:\Users\carodrigueza\OneDrive - FCC\Prueba planos vigentes\01 Trabajo en curso\" & nombres As "D:\Users\carodrigueza\OneDrive - FCC\Prueba planos vigentes\02 Compartido\" & nombres Next nombres End Sub
  23. Dónde están esos archivos filtrados ¿En la hoja, según alguna condición, etc? Si no especificas más es imposible ayudarte
  24. Difícilmente Pino... Dices que los datos están en la hoja 5, pero llenas el listbox con los datos de la hoja 7. Aparte en la hoja 5 no tienes los consumos, están en la hoja 7. ¿Porqué no lo tienes todo en una única tabla? Es una locura ir de una hoja a otra para buscar. Un código para buscar las vencidas sería el siguiente: Sub Alerta_Vencimiento_Consumo_Tarjeta() Dim x&, h& Dim uFila As Long Dim numeroT As Integer ' Variable que guarda el numero de tarjeta Dim FechaH As Date ' Variable que guarda la fecha de Hoy Dim FechaV As Date ' Variable que guarda la fecha de Vencimiento Dim vencida() 'matriz para meter las vencidas Dim dinero() 'matriz para meter las pasadas de consumo FechaH = Date uFila = Hoja5.Range("I" & Rows.Count).End(xlUp).Row ReDim vencida(1 To uFila, 1 To 1) ReDim dinero(1 To uFila, 1 To 1) h = 1 For x = 2 To uFila If Cells(x, "K") <> "" And DateDiff("m", CDate(Cells(x, "K")), FechaH, vbMonday) >= -30 Then vencida(h, 1) = Cells(x, "I") h = h + 1 End If Next x End Sub
  25. Qué tal Pino, Eso no se puede hacer (insertar a tu antojo). Debes tener a imagen ya creada (por ejemplo con el mismo nombre que el aparato), y al seleccionar el artículo que se carge automáticamente en un control de imagen. Eso es lo primero, tener la foto, luego hay distintos métodos para cargarla: como ya te he comentado, bien al seleccionar automáticamente el producto, en el evento Image_Click y que la busques tú, etc.
×
×
  • Create New...

Important Information

Privacy Policy