Excel - Error 9, el subíndice está fuera del intervalo, código excel vba

 
Vista:
sin imagen de perfil
Val: 5
Ha aumentado su posición en 10 puestos en Excel (en relación al último mes)
Gráfica de Excel

Error 9, el subíndice está fuera del intervalo, código excel vba

Publicado por Jhonny (1 intervención) el 12/08/2020 06:21:29
Hola, espero me ayuden, tengo un código en vba excel que me permite abrir un archivo, se da una orden, guarda y cierra; abre el segundo archivo y así sucesivamente, el problema es que me sale un error 9 (el sub índice está fuera del intervalo) después de abrir el primero. ¿cómo lo podría solucionar?

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
Sub AbrirArchivos()
 
    Dim Archivos As String
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim dupes As Long
    Dim maxDupes As Long
    Dim dupeWord As String
    Dim dupeTie As Boolean
 
 Archivos = Dir("D:\Nueva carpeta\10 semana\*.xls")
 Do While Archivos <> ""
 
 Workbooks.Open "D:\Nueva carpeta\10 semana\" & Archivos
 
    Set ws = ThisWorkbook.Sheets("F3")
    Set rng = ws.Range("x7:x32")
 
    For Each cell In rng
        dupes = Application.WorksheetFunction.CountIf(rng, cell)
        If dupes > maxDupes Then
            maxDupes = dupes
            dupeWord = cell.Value
            dupeTie = False
        End If
        If dupes = maxDupes And InStr(1, dupeWord, cell.Value) = False Then
            dupeWord = dupeWord & ", " & cell.Value
            dupeTie = True
        End If
    Next cell
    If dupeTie = False Then MsgBox dupeWord & "" _
        & "appears in the range " & maxDupes & " times."
    If dupeTie = True Then MsgBox "The values (" & _
        dupeWord & ") appear in the range " & maxDupes & " times."
 
       Worksheets("F3").Cells(38, 24).Value = dupeWord
 
 
 MsgBox ActiveWorkbook.Name
 
 ActiveWorkbook.Close SaveChanges:=True
 
 Archivos = Dir
 Loop
 
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
-1
Responder
Imágen de perfil de Antoni Masana
Val: 4.118
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Error 9, el subíndice está fuera del intervalo, código excel vba

Publicado por Antoni Masana (1502 intervenciones) el 13/08/2020 08:54:56
Pregunto:

Cuando el proceso llega a esta línea de la macro:

1
If dupes > maxDupes Then

¿Que valor tiene maxDupes para el primer fichero? ¿Y para el segundo fichero?
¿Que valor tiene dupeWord para el primer fichero? ¿Y para el segundo fichero?
¿Que valor tiene dupeTie para el primer fichero? ¿Y para el segundo fichero?

Por otro lado:

¿Donde se produce el error?
¿Como puedo probar la macro para ver que causa el error?
¿Que se supone que debe hace la macro?

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar