Dante Amor

¿Cuáles datos del listbox quieres pasar al textbox? ¿Cada línea del listbox la quieres en una línea del textbox? Si es así, entonces el textbox deberá tener la propiedad de multilínea. Y una duda más: ¿Cuál es el objetivo de pasarlos al textbox?, es...

Por ejemplo, si quieres poner la fórmula en la celda K7 Sub Macro2() Range("K7").Formula = "=TIME(HOUR(J7), MROUND(MINUTE(J7), 30), 0)" End Sub Si quieres solamente el resultado de la fórmula: Sub Macro2() With Range("K7") .Formula = "=TIME(HOUR(J7),...

Te paso la macro actualizada: Private Sub CommandButton1_Click() 'Por Dante Amor ' Dim sh As Worksheet Dim max As Long, cont As Long, lr As Long Dim Nombre As String ' Set sh = Sheets("Hoja2") '<---Nombre de tu hoja origen 'Crear palntilla de jugador...

Prueba el siguiente código. Private Sub CommandButton1_Click() With ListBox1 .AddItem .List(.ListCount - 1, 0) = TextBox1.Value .List(.ListCount - 1, 1) = TextBox2.Value .List(.ListCount - 1, 2) = TextBox3.Value End With End Sub Nota: La propiedad...

Desconozco cómo se haría para realizar todos los recibos en un solo documento de word. Revisa si lo siguiente te ayuda. Se va a generar un archivo por cada Nota de Abono. El archivo se guardará con el nombre del beneficiario. Los archivos se...

Esto es lo que sucede, en el textbox, tienes un texto, para pasarlo a la celda debes convertir el texto en fecha, para eso puedes utilizar la función CDATE( ). Utiliza lo siguiente para que en la celda te ponga 1 de mayo de 2022. O en general para...

Prueba la siguiente macro. Según tu ejemplo, la macro llena la matriz de la derecha, empezando en la celda G7 y hacia la derecha y hacia abajo. Sub CapturarNumeros() 'Por Dante Amor ' Dim c As Range Dim i As Long ' 'para cada valor en la columna B,...

Revisa si el siguiente formato en la celda para ver si es lo que necesitas: [$-80A]hh:mm:ss AM/PM Supongo que excel requiere identificar si 12:00 es de la mañana y 12:00 es de la noche. Por eso es prescindible que aparezca AM/PM . .

Te paso la macro. Puse la hoja "Indice" para leer los nombres de las hojas. Sub CopiarUltimaFila() 'Por Dante Amor Dim sh1 As Worksheet Dim lr1 As Long, lr2 As Long Dim c As Range ' Set sh1 = Sheets("Resumen") 'hoja destino For Each c In...

Te paso la macro actualizada: En la línea LCase("Indice"), LCase("Agua"), LCase("Luz"), pon los nombres de las hojas que no quieres incluir. Sub Crear_Indice() 'Por Dante Amor 'Declaramos variables Dim sh1 As Worksheet, sh2 As Worksheet Dim i As Long...