Macro que recorra una columna si encuentra un nombre de hoja, se vaya a esa hoja, y así sucesivamen
Publicado por Luis (2 intervenciones) el 22/02/2019 17:00:46
Estimados Master en Excel VBA
Necesito macro que recorra cada celda de una columna (A), y al momento de encontrar un dato (que es el nombre de la hoja de ese libro) se vaya a esa hoja, y si la hoja no existe, que me de un mensaje.
Yo tengo una, pero no recorre, tengo que estar agregando una macro por cada hoja nueva que se agregue, ejecutando una macro que llame (Call) a las otras macros.
Esto es lo que tengo:
Necesito macro que recorra cada celda de una columna (A), y al momento de encontrar un dato (que es el nombre de la hoja de ese libro) se vaya a esa hoja, y si la hoja no existe, que me de un mensaje.
Yo tengo una, pero no recorre, tengo que estar agregando una macro por cada hoja nueva que se agregue, ejecutando una macro que llame (Call) a las otras macros.
Esto es lo que tengo:
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
53
Sub DAAP01CP()
Sheets("Redes Aéreas").Select
Range("A1").Select
On Error GoTo error_hoja
Dim x As String
x = [A3].Value
Sheets(x).Select
Range("A5").Select
Range("A5").CurrentRegion.Select
Selection.Copy
Sheets("DetalleCompras").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
error_hoja:
'MsgBox "No existe la hoja"
End Sub
Sub DAAP01SP()
Sheets("Redes Aéreas").Select
Range("A1").Select
On Error GoTo error_hoja
Dim x As String
x = [A4].Value
Sheets(x).Select
'Exit Sub
Range("A5").Select
Range("A5").CurrentRegion.Select
Selection.Copy
Sheets("DetalleCompras").Select
Range("A1").End(xlDown).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
error_hoja:
'MsgBox "Una de las Hojas NO EXISTE"
Sheets("ResumenCompras").Select
End Sub
Sub DAAP02()............y así sucesivamente con muchas hojas y otras que se irán generando.
Valora esta pregunta
0