Macro para actualizar en un Listview
Publicado por Marcos José (22 intervenciones) el 23/02/2020 03:09:53
Hola compañeros en el userform de trabajadores, del archivo que se adjunta, estoy usando un LISTVIEW, tengo un boton para modificar, que se llama ACTUALIZAR, y la macro que contiene que es esta:
Me da errores, concretamente eso que muestro en las imagenes.
Podriais ayudarme por favor
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub btnmodificar_Click()
Dim Rango As Range
Dim FilaEncontrada As Long
Dim Valor As Long
Set Rango = ThisWorkbook.Sheets("BBDD Trabajadores").Range("A5").CurrentRegion
Valor = Me.ListView1.SelectedItem
FilaEncontrada = Rango.Find(What:=Valor, LookAt:=xlWhole).Row
'MsgBox FilaEncontradaWith Rango
.Cells(FilaEncontrada, 2).Value = Me.txtfecharegistro.Value
.Cells(FilaEncontrada, 3).Value = Me.txtnombre.Value
.Cells(FilaEncontrada, 4).Value = Me.txtapellidos.Value
End With
Call UserForm_Initialize
End Sub
Me da errores, concretamente eso que muestro en las imagenes.
Podriais ayudarme por favor
Valora esta pregunta
0