LISTBOX VB EXCEL
Publicado por lug (294 intervenciones) el 06/12/2015 17:03:55
saludos
soy seguirdo de laweb del programador
estoy tratando de hacer q borre de una tabla de datos en excel una fila wscojida de en un listbox, usando el vb,,, hago todo el procedimiento bien se ejecuta la aplicaicon dellistbox perfectamente,
pero al momento de eliminar esto no lo hace
aqui una foto de mi archivo
donde puede estar el mal funcionamiento, ?? pues nome sale ningun error,,
el problema esta en el comando eliminar pero no borra nada de la tabla de excel
adjunto la imagen del archivo
y el codigo del userform :
---------------------------------------------------------------------------------------- >>
gracias
soy seguirdo de laweb del programador
estoy tratando de hacer q borre de una tabla de datos en excel una fila wscojida de en un listbox, usando el vb,,, hago todo el procedimiento bien se ejecuta la aplicaicon dellistbox perfectamente,
pero al momento de eliminar esto no lo hace
aqui una foto de mi archivo
donde puede estar el mal funcionamiento, ?? pues nome sale ningun error,,
el problema esta en el comando eliminar pero no borra nada de la tabla de excel
adjunto la imagen del archivo
y el codigo del userform :
---------------------------------------------------------------------------------------- >>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Dim i, items, N
Private Sub UserForm_initialize()
ListBox1.ColumnCount = 6
Me.ListBox1.ColumnWidths = "90 pt; 180 pt; 130 pt; 50 pt;"
ListBox1.RowSource = " DATOS "
End Sub
Private Sub listbox1_click()
items = Me.ListBox1 = ListCount
For i = 0 To items - 1
If Me.ListBox1.Selected(i) Then
N = Me.ListBox1.List(1)
End If
Next i
End Sub
Private Sub btn_eliminar_click()
Dim fila As Integer
Dim final As Integer
fila = 8Do While Hoja2.Cells(fila, 1) <> ""
fila = fila + 1
Loop
final = fila - 1
If MsgBox("¿seguro q desea eliminar este Registro?", vbQuestion + vbYesNo) = vbYes Then
For fila = 8 To finalIf Hoja2.Cells(fila, 1) = N Then
Hoja2.Cells(fila, 1).EntireRow.Delete
Exit For
End If
Next
MsgBox "Registro Eliminado", vbInformation = vbOKOnly
Else
Exit Sub
End If
End Sub
gracias
Valora esta pregunta
0
