Explorador de archivos con ListView y miniaturas de los iconos estilo explorer de windows
.thumb.jpg.ae86858be3c9f9c88ec51f9082efda27.jpg)
By
AlexanderS,
in Ideas y aportes
-
Posts
-
He adaptado la macro a que la tabla empiece en A1. Solo se tiene en cuenta el click derecho en las columnas A y B si están en blanco. La fila 1 no se tiene en cuenta. En cualquier momento puedes informar el numero de cheque de forma manual. Autonumeración de cheques-Antoni OK.xlsm
-
Ahora sí. Mira si te vale esto o te da ideas para lo que necesitas. La validación se hace en C4 si no están rellenas A4 y B4 Saludos. Validacion.xlsx
-
By Víctor Pérez · Posted
Yo lo que quiero es que los campos de una matriz que tengo en una hoja que cumplen una condición me los copie en otra hoja en una única columna, pero no me funciona. No se exactamente lo que hago mal -
By Benito Bartolomé · Posted
Bo día Antoni; Me has simplificado mucho el código.👍 Con el código que a continuación insertaré consigo exportar los datos del listBox tanto si selecciono un item como varios u alternos. Sólo me queda una duda por resolver y es: -Como hago para poder exportar todos los datos cuando no selecciono ningún item. If Me.ListBox1.Selected(x) = True Then Adjunto código: Private Sub btn_Txt_Click(): On Error Resume Next Dim ruta As String, i As Integer, existe As Boolean Dim Sep As String, x As Integer, z As Integer, Cuenta As Integer Dim FechaCancel If Dir(ActiveWorkbook.Path & "\tb_Cobros.txt") <> "" Then existe = True If existe = True Then z = MsgBox("Ya existe el archivo de texto.¿Deseas eliminardo?", vbYesNo) If z = vbYes Then Kill ActiveWorkbook.Path & "\tb_Cobros.txt" existe = False Else Open ActiveWorkbook.Path & "\tb_Cobros.txt" For Append As #1 End If End If If existe = False Then Open ActiveWorkbook.Path & "\tb_Cobros.txt" For Output As #1 MsgBox "El archivo txt fue creado" End If Cuenta = frm_Cobros.ListBox1.ListCount FechaCancel = Date Sep = ";" For x = 0 To Cuenta - 1 If Me.ListBox1.Selected(x) = True Then MsgBox Me.ListBox1.List(x), vbInformation, "Registro" TextBox0 = ListBox1.List(x, 0) TextBox50 = ListBox1.List(x, 1) TextBox51 = ListBox1.List(x, 2) TextBox4 = Format(ListBox1.List(x, 3), "dd/mm/yyyy") TextBox5 = ListBox1.List(x, 4) TextBox10 = ListBox1.List(x, 5) TextBox6 = ListBox1.List(x, 6) TextBox11 = ListBox1.List(x, 7) TextBox7 = ListBox1.List(x, 8) TextBox8 = ListBox1.List(x, 9) TextBox12 = ListBox1.List(x, 10) Print #1, "Fecha:" & FechaCancel & " " & TextBox0 & Sep & TextBox50 & Sep & TextBox51 & Sep & TextBox4 & Sep & TextBox5 & Sep & TextBox10 & Sep & TextBox6 & Sep & TextBox11 & Sep & TextBox7 & Sep & TextBox8 & Sep & TextBox12 End If Next x Print #1, "-" Close #1 End Sub Saúdos e moito coidado, la cosa se vuelve a poner seria. Un abrazo y muchas gracias como siempre. -
By RubenDario · Posted
Buenas tardes Sr. @Antoni Aquí alzo el archivo nuevamente con algun error que me aparece cuando haco click derecho sobre la columna F pero esta celda de la columna F ya tiene dato generado. Es por prever nada más algun click accidental. Por lo demás todo funciona perfectamente. Muchas gracias Rubén Autonumeración de cheques-Antoni Errores.xlsm
-
-
Recently Browsing
No registered users viewing this page.
Recommended Posts
Archived
This topic is now archived and is closed to further replies.