Jump to content

Virgilio

Members
  • Content Count

    64
  • Joined

  • Last visited

Everything posted by Virgilio

  1. Espero no romper ninguna reglas al utilizar Link Disculpas si rompí alguna regla, ya no puede borrarlas
  2. No trata específicamente sobre el formulario pero verás que el formulario se ajusta, si te sale algún error usa el depurador los que esté con error conviertelos en comentarios, esto se debe a que esté archivo usa algunos controles que no siempre están disponibles en todos los ordenadores o que se deba a que sean de versiones diferentes .
  3. Estimado Revisa este video lleva su archivo para descargar funciona para 32 bits para 64 bits hay que realizar cambios https://m.youtube.com/watch?v=Jq_W2d06itw&list=PLJBkOTt1SzlBYmDhdusaV0VE-VH14iPV3&index=3&t=0s Copia el Link y pega en algún navegador
  4. Adjunto archivo, Pruébalo y ajustarlo a tu archivo Resaltar.xlsm
  5. Te adjunto unos ejemplos puede que te sean de utilidad https://drive.google.com/folderview?id=1OQdrxE2tXQmpvPvZ1axLceuAjIQ-qG4o
  6. Te sugiero que subas un archivo para ver que es lo que realmente necesitas realizar, no necesitas subir todo tu archivo, sube una parte o sube a un servidor externo y compartes el enlace.
  7. Sub copia () End sub Sub leer () End sub Sub ejecutar () Call copia Call leer End sub No ejecutará las dos macros a la vez, sino ejecutará una y luego cuando concluya el siguiente.
  8. Te adjunto un ejemplo REGISTROS.xlsm
  9. Debes corregir la propiedad TabIndex Adjunto archivo REGISTRO-1.xlsm
  10. He revisado tu archivo, seguramente el llenado de datos lo realizas a través de un formulario. El archivo adjunto solo tiene datos no contiene ninguna macro ni formulario alguno. Revisa si adjuntaste el archivo correcto. En archivos guardados con la extensión .xlsx se eliminan las macros.
  11. Gracias por su ayuda, realize la prueba y funcionó. Tema Solucionado
  12. Te adjunto un ejemplo para cambiar separador decimal. Cambiar Separador Decimal.xlsm
  13. Private Sub TextBox8_Change () TextBox8 = Replace(TextBox8, ".", Application.DecimalSeparator) End Sub
  14. A mi parecer lo que en realidad necesitas es una barra de progreso.
  15. Gracias a los dos por su pronta respuesta, más tarde lo probaré, en estos momentos no tengo a mi disposición un ordenador con Excel 64 bits. y luego les comento.
  16. Hola a todos los amigos del foro En esta ocasión os traigo un menú que se ejecuta desde un formulario, funciona todo correctamente en Excel de 32 bits instaladas ya sean en en sistemas operativos de 32 o 64 bits; pero no pasa lo mismo en Excel 64 bits, resultando error, esto debido a Declare Function. Entonces para que funciones en Office de 64 bits habrá que eliminar algunas sentencias en algunos casos y modificar o aumentar en otras. Ahora la pregunta es: es posible ajustarlo para que realice las mismas funciones y de ser posible me puedan ayudar con los ajustes necesarios para hacerlo funcionar en Excel para 64 bits. Adjunto enlace para descarga del archivo. https://drive.google.com/file/d/15VsXV-pJnRzCpPIYpsNrO1WkORbNmR70/view?usp=drivesdk
  17. Prueba con el archivo adjunto y comentas si es lo que querias. BASE.xlsm
  18. Si tienes todo los controles registrados debería funcionar Adjunto enlace: https://drive.google.com/file/d/13H4jDU2zj4dsrJEpxpF6uezx3kmO-_-Y/view?usp=drivesdk
  19. Antes de abrir este libro debes tener habilitado algunas librerías como: Listview y DTPicker Que por lo general no están habilitadas por defecto. Registra los Common Controls.
  20. Yo elimino de esta manera prueba y me comentas Error RemoveItem ListBox1.xlsm
  21. Mientras más fórmulas tenga y más grande sea el campo calculado y más datos tenga el libro de excel cada vez será más lento, esto se debe a que las fórmulas se recalculan cada vez que realices un cambio o modificación. Una solución sería activar el cálculo manual, así solo se calculara cuando tu decidas actualizarlas, entonces tu libro solamente será lenta cuando actualices la Fórmula. En lo personal me he deshecho de la mayoría de las fórmulas y aplicado macros, ya que en ellos puedo decidir cuando, donde y como actualizar los campos de datos, y he ganado velocidad en mis libros de excel. Yo no aconsejaría la utilización de fórmulas cuando se tiene libros muy grandes, si hay oportunidad y es posible es mejor una macro.
  22. Chrispal1977, agradecerte por tu respuesta, pero no es exactamente lo que busco. La macro que busco, debe realizar lo siguiente: De acuerdo a la columna "B", todos aquellos que tengan el mismo valor deben ser encontrados y todos modificados a la vez. Es decir, por ejemplo, todos aquellos valores que tengan el valor 200 (la columna "B") modificar su estado (la columna "E"); esto con el fin de evitar modificar uno a uno, ya que en mi base tengo cientos de datos con el mismo valor.
  23. En esta ocasión necesito de su ayuda, tengo un formulario que me busca o filtra de acuerdo a un criterio buscado N° ( Que está en la columna"B") y los resultados los muestra en un Listview, una vez realizado esto quiero realizar la modificación de la columna "E" (ESTADO) pero que dicha modificación solamente de se aplique a los que fueron filtrados, la modificación debe realizarse tanto como el la hoja como en el listview. Adjunto archivo Modificar varias filas.xlsm
  24. También podrías utilizar el siguiente: On error Resume Next Lo que quiere decir es que si hay un error, reanudar el código en la siguiente linea. With ThisWorkbook.Worksheets("Hoja1") On error Resume Next .Cells(NewRow, 2).Value = Me.TextBox1 .Cells(NewRow, 3).Value = Me.TextBox2 .Cells(NewRow, 4).Value = Me.TextBox3 .Cells(NewRow, 5).Value = Me.TextBox4 .Cells(NewRow, 6).Value = Me.TextBox5 .Cells(NewRow, 7).Value = Me.TextBox6 .Cells(NewRow, 8).Value = Me.TextBox7 .Cells(NewRow, 9).Value = Me.TextBox8 .Cells(NewRow, 10).Value = CCur(Me.TextBox9) .Cells(NewRow, 11).Value = CDate(Me.TextBox10) .Cells(NewRow, 12).Value = CDate(Me.TextBox11) .Cells(NewRow, 13).Value = Me.TextBox12 .Cells(NewRow, 14).Value = Me.TextBox13 .Cells(NewRow, 15).Value = CDate(Me.TextBox14) .Cells(NewRow, 16).Value = Me.TextBox15 .Cells(NewRow, 17).Value = Me.TextBox16 .Cells(NewRow, 1).Value = Me.TextBox17 End With[/CODE]
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png