Jump to content

AlexanderS

Moderators
  • Content Count

    1,238
  • Joined

  • Last visited

  • Days Won

    46

About AlexanderS

  • Rank
    Riddle

Profile information

  • Gender Array
  • Localización: Array

Converted

  • Campos Array

Recent Profile Visitors

3,770 profile views
  1. Hola @Juan Vargas, mi propuesta es algo diferente a lo ya has visto, puesto que utilizo consultas de SQL. La ventaja es que puesdes agregar los campos que quieras a la lista y lo unico que debes modificar seria la linea "Set rango = Range("B3:B7")" Los nombre de los campos de la hoja "Links" deben ser iguales a los de las columnas de "reglas". PD. Puedes incluso empezar llenando los campos de abajo para arriba. Comentas, saludos. Selector Durezas_2.xlsm
  2. Que tal @jeladio, debes ser mas especifico con tu consulta, tambien adjunta un archivo ejemplo. Saludos.
  3. Hola Alexander, vi un macro desarrollado por ti en esta URL  y necesito algo parecido. Es decir, que de una celda A donde tengo todos los numeros ingresados a una aplicación pero quiero separarlos a la celda B solo aquellos que tengan 10 dígitos lo que me indicaría que son numeros celulares. Me puedes orientar a como solucionarlo? Grcias.

     

    ejemplo.xlsx

    1. Leopoldo Blancas

      Leopoldo Blancas

      Hola, 

      Saludo a ambos,

      Verifica el adjunto y comentas.

      ejemplo (1)_LBV.xlsm

    2. resellerw

      resellerw

      muy bueno !! excelente"! Lo que estaba buscando. Un genio total

    3. Leopoldo Blancas

      Leopoldo Blancas

      @resellerw dijo:

      Un genio total

       

      @Leopoldo Blancas dice:

       

       😂😂😂

  4. Hola, prueba así. Private Sub ListView1_DblClick() Index = Me.ListView1.SelectedItem.Index ActiveCell.Offset(0, -1) = Me.ListView1.ListItems(Index).SubItems(2) ActiveCell.Offset(0, -2) = Me.ListView1.ListItems(Index).SubItems(1) End Sub Saludos
  5. No creo que necesites un blucle para eso, prueba así: Sub copia() Range("A1", [N1].End(xlDown)).SpecialCells(xlCellTypeVisible).Copy _ Sheets("Balance").Range("A1") End Sub
  6. Lo siento pero no puedo ayudarte si no eres mas especifico con tu consulta, adjunta un archivo de ejemplo con lo que esperas.
  7. Utiliza un ciclo for, por ejemplo Sub prueba() For Each celda In Range("A1:A1000").SpecialCells(xlCellTypeVisible) 'Tu código.... Next End Sub Como veras solo recorrera las celdas visibles dentro del rango "A1:A1000" que le especifique. Claro deberas adaptarlo a tu código Saludos
  8. No se cuantos años tengo desde que empece a aprender VBA, es increible que todavia al día de hoy siga aprendiendo cosas. Gracias por compartir. Saludos a todos.
  9. Hola @Pirtrafilla, solo debes colocar dentro de la cadena SQL la conversión al formato deseado, en el caso de moneda quedaria algo así: Select [Proveedor],[Referencia],[Usuario],FormatCurrency([Importe]) as Importe,[Porcentaje],[Previsto],[Contable] En el caso de no querer decimales asi: Select [Proveedor],[Referencia],[Usuario],FormatCurrency([Importe],0) as Importe,[Porcentaje],[Previsto],[Contable] Comentas, saludos.
  10. Este es un foro de ayuda que se dedica a responder dudas puntuales, si lo que buscas es un trabajo completo estas escribiendo en el lugar equivocado. Puedes cotizar el costo del trabajo aqui:https://excelservicios.com/blog/facturador-sunat-macros-excel/, quien es el autor del video que comentas. Saludos.
  11. Buenos días, por favor lee las Normas del foro https://ayudaexcel.com/foro/terms/ Saludos
  12. Lo mas simple esque arriba del listbox coloques algunos Label's con los titulos de las columnas. Saludos
  13. En SQL no se usa "*" despues de un like debes utilizar "%". Elemplo : SELECT [Nombre_Completo],[Edad] FROM Estudiantes WHERE Nombre_Completo like '%Pablo%' Saludos.
  14. Hola, podrias intentar llenar el listbox así: Private Sub UserForm_Initialize() 'macro para llenar Listbox con datos de consulta With ListBox1 'Asignamos 3 columnas de la tabla .ColumnCount = 10 'Definimos el tamaño de las columnas .ColumnWidths = "40 pt; 50 pt; 140 pt; 40 pt; 50 pt; 30 pt; 50 pt; 50 pt; 120 pt; 60 pt" 'Definimos como fila de títulos, la primera fila de la tabla .ColumnHeads = True End With Conexión sql = "Select [PERIODO],[CODIGO_OT],[DESCRIPCION_OT],[CENTRO_CONTABLE],[NRO_COMPROBANTE]" & _ "[AGRUPACION],[IMPORTE_DEBE],[IMPORTE_HABER],[CONCEPTO],[GRUPO]" & _ "From Contable Where GRUPO is null" Rst.Open sql, Conn, 3, 3, 1 If Rst.EOF = False Then Me.ListBox1.Column = Rst.GetRows Rst.Close Set Rst = Nothing Conn.Close Set Conn = Nothing End Sub Saludos
×
×
  • Create New...

Important Information

Privacy Policy