Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
El gran Gerson Pineda me apoyo con la instrucción para eliminar del listbox y hoja en modo multiselect la cual integre a un userform que tengo, donde al eliminar del listbox sin usar el filtro o filtrando me arroja un error en la esta instrucción donde devuelvo a la hoja inventario la cantidad del producto eliminado del listbox:
Dim NombreHoja As String NombreHoja = "Inventario" 'Buscamos la última fila 'EN EL SIGUIENTE ME ESTOY REFIRIENDO A LA HOJA SEGUN EL SECTOR fila = 2 Do While ThisWorkbook.Sheets(NombreHoja).Cells(fila, 1) <> "" fila = fila + 1 Loop Final = fila 'CON ESTE CODIGO ESTARE RESTANDO "1" AL FOLIO EN CASO SE REGRESE A LA VENTANA ANTERIOR For fila = 2 To Final If ThisWorkbook.Sheets(NombreHoja).Cells(fila, 1) = ListBox1.Column(0) Then 'AQUI SE DETIENE LA INSTRUCCION ThisWorkbook.Sheets(NombreHoja).Cells(fila, 8) = ThisWorkbook.Sheets(NombreHoja).Cells(fila, 8) - Val(ListBox1.Column(4)) Exit For End If Next
Anexo archivo para sus comentario y me indiquen en que estoy fallando. Gracias
https://mega.nz/#!3cRkVSpY!oUF4-4cZT6jmKdMt24ewH00QxHcUQc_acnwm4FwWXto