nery lopez

Spock Vulcano respondió: Para calcular meses es mucho más sencillo que eso: =SIFECHA($A2;$B2;"m") En A2 la fecha más antigua. En B2 la fecha más reciente. Te da el resultado en número entero en meses.

Abraham Valencia respondió: Puedes hacerlo al cargar el "UserForm": Private Sub UserForm_Initialize() DTPicker1.Value = Date DTPicker2.Value = Date - 1 End Sub Ojo con algo, si la propiedad "Enabled" de los "DtPicker" está en "False", sus eventos "Doble Click", u otro, no...

Dante Amor respondió: Te anexo la macro actualizada para ordenar en la hoja antes de imprimir Private Sub CommandButton3_Click() 'Por.Dante Amor Set h = Sheets("Impresion de Inventario") h.Cells.Clear h.Range("A1") = Array("INVENTARIO NO.") h.Range("A3:B3:C3:D3") =...

Dante Amor respondió: Envíame tu archivo con tu userform. Me explicas cómo realizar un filtro En una hoja llamada "imprimir" pones cómo quieres la impresión. Es decir, según el filtro de ejemplo que me envíes, van a aparecer varios registros en el listbox. Entonces en la...

Dante Amor respondió: Cada dato separado por un espacio: Private Sub CommandButton5_Click() 'Por.Dante Amor For i = 1 To ListView1.ListItems.Count cad = cad & ListView1.ListItems(i).SubItems(2) & " " Next Range("A1") = cad End Sub Si no quieres el espacio, entonces:...

Dante Amor respondió: Suponiendo que en la columna 1 del listbox tienes los valores y en la columna 2, los conceptos, entonces el código es: Private Sub CommandButton1_Click() 'Por.Dante Amor For i = 0 To ListBox1.ListCount - 1 Select Case LCase(ListBox1.List(i, 1)) Case...

Dante Amor respondió: Se me ocurre una idea, tal vez en el libro nuevo la hoja6 tenga algun espacio antes o despues del nombre. De cualquier forma, si gustas la puedo revisar, ya en otros otr Os casos me ha pasado lo mismo y se tiene que escribr worksheets("hoja").select....