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 = dupesdupeWord = cell.Value
dupeTie = FalseEnd If
If dupes = maxDupes And InStr(1, dupeWord, cell.Value) = False Then
dupeWord = dupeWord & ", " & cell.Value
dupeTie = TrueEnd 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.NameActiveWorkbook.Close SaveChanges:=True
Archivos = DirLoop
End Sub
Valora esta pregunta
-1
