error en la propiedad o método
Publicado por Albert (204 intervenciones) el 07/01/2021 11:58:22
Buenos días foreros, tengo un formulario que me calcula cuantas veces se repite un nombre en una columna (Hoja2) , hasta aquí todo va bien el problema es que tiene un combobox con la lista de los nombres de la gente cuando lo clico me dice las veces en que ha estado esta lista esta en otra hoja (hoja1) lo que necesito es que si viene alguien nuevo al rellenar la columna de la hoja2 me lo añada en la hoja1, he probado con este codigo que os adjunto pero me da error "el objeto no admite esta propiedad o método" os indico la fila en el código, no puedo adjuntar el excel por que tiene muchos datos personales
Yo creo que no indico bien la ultima fila escrita en la hoja2 que ya tiene mas de 300 filas y va aumentando
mil gracias de antemano
Yo creo que no indico bien la ultima fila escrita en la hoja2 que ya tiene mas de 300 filas y va aumentando
mil gracias de antemano
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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
Dim Final As Integer
Dim y As Integer
Dim Final2 As Integer
For i = 1 To 10000If Hoja1.Cells(i, 5) = "" Then
Final = iExit For
End If
Next
For y = 1 To 10000If Hoja2.Cells(i, 5) = "" Then
Final2 = y - 1
Exit For
End If
Next
If Not Intersect(Target, Hoja2.Range("E9:E470")) Is Nothing Then
Usuario = Hoja2(Final2, 5).Value (AQUI INDICA EL ERROR)
Set busca = Hoja1.Range("e1:e" & Final).Find(Usuario)
If busca Is Nothing Then
'significa que no lo encontró, entonces agrega a la listaHoja1.Cells(Final, 5) = Hoja2(Final2, 5).Value 'añado Usuario
End If
End If
End Sub
Valora esta pregunta
0