Jump to content

Jose BN

Members
  • Content Count

    209
  • Joined

  • Last visited

  • Days Won

    8

Everything posted by Jose BN

  1. A ver si es esto: Private Sub UserForm_Initialize() Application.WindowState = xlMaximized Me.Width = Application.Width Me.Height = Application.Height End Sub especificar el tamaño del UserForm en una macro Programe el tamaño adecuado del UserForm en la macro siguiendo estos pasos: Haga clic con el botón secundario en el UserFormy luego haga clic en Ver código. En su macro de UserForm, siga estos pasos: Escriba UserForm1. Height = número, donde número es un número entre 0 y + 32.767. Los valores más altos también pueden funcionar, dependiendo de la configuración del sistema. Escriba
  2. En el archivo que envió JSDJSD cuando seleccionas el negativo obtienes el consecutivo es lo que entendí que buscas? Private Sub optbtn_negativo_Click() Estado = "Negativo" Max = WorksheetFunction.Max(Hoja1.Range("A2:A" & Uf)) Call UFila Me.LblID.Caption = CDbl(Max) + 1 End Sub pero los tiros continúan en el aire!!!!
  3. Esto es obra del gran Antoni! Creo que lo que te hace falta es la parte final para dar el formato a la suma: For i = 0 To ListBox1.ListCount - 1 Suma = Suma + CCur(ListBox1.List(i, 4)) Next TotalTickquet.Text = FormatCurrency(Suma)
  4. Gran Batalla has vencido!!! Haplox
  5. Hola! Asumiendo que el ID es un consecutivo definido puedes hacer lo siguiente: Private Sub UserForm_Initialize() Call UFila Me.LblID.Caption = Uf LblID = Range("K1").Value End Sub En donde puedes aplicar el contador en la celda K1 donde puedes aplicar una formula: =CONTARA(A2:A14)+1 Para cargar el valor en el formulario cuando el procedimiento lo llame. Espero sea lo que buscas. Saludos JB
  6. Patty0745! Indicando en esta parte la dirección donde deberá buscar el archivo!
  7. Como siempre! Grandes son tus aportes Silvia.
  8. Aqui aparece un poco más de literatura, aunque no estoy brindado una solución concreta. https://support.office.com/en-us/article/command-line-switches-for-microsoft-office-products-079164cd-4ef5-4178-b235-441737deb3a6?ocmsassetID=HA010153889&CTT=1&CorrelationId=ea39d200-aa81-4d6e-8302-afff4c65859e&ui=en-US&rs=en-US&ad=US#ID0EAABAAA=PowerPoint,_PowerPoint_Viewer null http://www.pptalchemy.co.uk/PowerPoint_Auto_Open_Code.html https://stackoverflow.com/questions/11306007/how-to-auto-execute-a-macro-when-opening-a-powerpoint-presentation Saludos J
  9. Hola! Visor Tal vez esto pueda ser una guía para tu tema. http://www.pptalchemy.co.uk/PowerPoint_Auto_Open_Code.html Saludos J
  10. No crees que no estaría de más plasmar el libro al tema?, puede que logres mejores resultados! Saludos
  11. Vaya! No sé con precisión el día pero voy anotando en el calendario....
  12. Muchas gracias! Quedo satisfecho con el aporte; si lo desean pueden cerrar el tema....
  13. Fíjate a ver si entendí bien: Sub carpeta() ruta = InputBox("ingresar la ruta") Range("i1").Select Do While ActiveCell.Value <> "" MkDir (ruta & "\" & ActiveCell.Value) ActiveCell.Offset(1, 0).Select Loop End Sub
  14. Gersón ha queda muy bien. Sub CopiarColumnasIntercaladas_GP() '************ by Gerson Pineda ************ '************ 31/Oct/2019 ************ Application.ScreenUpdating = False ruta = ("C:\Users\jcarce\Desktop\Libro1JB.xlsx") vuf = Range("A" & Rows.Count).End(xlUp).Row Workbooks.Open ruta: ThisWorkbook.Activate Union(Range("B5:B" & vuf), Range("D5:I" & vuf)).Copy _ Workbooks("Libro1JB.xlsx").Worksheets(1).Range("A1") Workbooks("Libro1JB.xlsx").Close 1 Application.ScreenUpdating = True End Sub Me podrías explicar esta parte: a qué se debe el _ del copy? Puedo int
  15. Estimado Antoni. Adjunto el fichero y lo poco francamente que he avanzado ya dirás que tan mal va mi camino. Saludos J Consulta foro.xlsm
  16. Muchas gracias! tierra_pampa promesa que la próxima incluiré el archivo. La modificación trabaja bien, solo que esta copia únicamente los datos de la columna B, dejando por fuera:B,D,E,F,G,H,I será abusivo si me ayudas con esta parte. Saludos JB
  17. Hola! amig@s del foro, quisiera solicitarles el apoyo con la siguiente macro que intento realizar con la intención de copiar los datos que inician en la celda 5 de las columnas("B,D,E,F,G,H,I) de mi libro activo ("Libro1") a copiarlas a un "libro2" a partir de la celda "A1" de la hoja1 de este ultimo, lo cual no he logrado tener éxito: Sub copiarDatosDeArchivo1A2() Dim x As Workbook Dim y As Workbook '## Abrimos ambos ficheros: Set x = ActiveWorkbook Set y = Workbooks.Open("C:\Users\jballadares\Desktop\CSV\JBLibro4.xlsx") 'Copiamos los datos que queramos del primer libro de excel: x.Shee
  18. Gran Antoni, Gersón y tierra_pampa, muchas gracias!!! Los ejemplos son geniales, que eliminan el uso del botón parte en la que estaba sin avanzar. Pueden concluir el tema.. Que continúes disfrutando esas vacaciones amigo, aquí nos hacen falta!!! If Me.txtFiltro1.Value = "" Then Exit Sub Me.ListBox1.Clear j = 1 For i = 1 To 18 If Cells(i, j).Offset(0, 2).Value = CInt(Me.txtFiltro1.Value) Then Me.ListBox1.AddItem Cells(i, j) Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cells(i, j).Offset(0, 1) Me.ListBox1.List(Me.ListBox1.ListCount -
  19. Julio según logro comprender el valor 405.64 se encuentra entre 385 y 414 de la hoja fecha por ende la fecha que debe colocar es: 19/02/2018, de ser esto correcto la formula que propone Gersón lo logra con éxito... Saludos, J Ejemplo (1).xlsx
  20. Buenas tardes, Amigos del foro quisiera solicitarles su acostumbrada ayuda a orientarme en mi siguiente necesidad, cómo puedo lograr que el listbox que he insertado en el formulario filtre los datos en base al criterio seleccionado en el combobox, ojalá sin la necesidad de requerir aplicar el filtro mediante un botón Agradezco la ayuda. Saludos JB CONSULTA COMBOBOX.xlsm
×
×
  • Create New...

Important Information

Privacy Policy