Excel - Ayuda conn esta macros

   
Vista:

Ayuda conn esta macros

Publicado por calos (3 intervenciones) el 02/06/2014 17:55:39
Me podrian ayudar con esta macros, lo que quiero que haga es comparar la celda f9 de la hoja "interface" con ruta
"rutaori"
con la celda d3 de la hoja (debe buscar hasta encontrar la hoja que tenga el mismo texto que la celda f9 de la hoja "interface" ruta "ruta")de la ruta "ruta". En caso no coincida debe seguir con la celda f12 y asi sucesivamente con las celdas f15 hasta la f63 (todas estas celda del libro "ruta" hoja "interface")
Una vez que encuentra la celda de la hoja que se asemeja debe copiar esta hoja al libro "ruta" y abrirlo.


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
Sub sd()
Dim i, z As Integer
Dim p As String
Dim celda As String
Dim hoja As String
Dim LIBRO As String
Dim ruta As String
 
LIBRO = Format(Date, "dd-mmm-yyyy")
ruta = "\\logistica3\Logistica\Informe diario de la maquinaria\Informe diario\" & LIBRO & ".xls"
rutaori = "\\logistica3\Logistica\Informe diario de la maquinaria\Informe diario\Registro diario plantilla.xlsm"
 
z = 9
p = z
i = 1
 
If Workbooks(rutaori).Worksheets("interface").Cells(z, 6).Value <> 0 Then
 
    For i = 1 To 19
 
        If Workbooks(rutaori).Worksheets("inicio").Cells(p, 6).Value = Workbooks(ruta).Worksheets("hoja" & i).Cells(3, 4).Value Then
 
         'copiar hoja a workbook ruta
         Workbooks(rutori).Activate
    Sheets("hoja" & i).Select
    Sheets("hoja" & i).Copy Before:=Workbooks(ruta).Sheets(1)
 
       z = z + 3
       p = z
 
         Else
       z = 9
       p = z
 
        End If
        i = i + 1
 
    Next
 
Else
 
End If
 
End Sub

Adjunto archivo
Agradezco mucho su ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder