me manda error 1004

4 envíos / 0 nuevos
Último envío
tetorin
Imagen de tetorin
Offline
última acción: Hace 1 semana 4 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 26/05/2011 - 02:57
Puntos: 3177
me manda error 1004

me pone error en esta parte


Workbooks.Open Filename:=in_path & "\" & tmp1

 


 Me pone error

Error 1004 en tiempo de ejecución

 

Anexo codigo completo ojala y me puedas ayudar

Sub auto_open()
Dim i, j As Integer
Dim ke, ka, kg, kc, kh, kw, kn, km, ks, kr, kt As Integer
Dim in_path, in_file, tmp, tmp1 As String
Dim dum(3) As String

On Error GoTo Template_Rename


in_path = ActiveWorkbook.Path
in_file = ActiveWorkbook.Name
tmp = "e-Plac Template.xls"
tmp1 = "e-Plac Template.src.xls"
Workbooks.Open Filename:=in_path & "\" & tmp
Sheets("Sheet1").Visible = True
Sheets("Sheet1").Select
If (Range("H1").Value = "" And Range("I1").Value = "" And _
(Range("H2").Value = "" And Range("I2").Value = "")) Then
    Windows(in_file).Activate
    Sheets("BG").Visible = True
    Sheets("BG").Select
    Columns("W:X").Select
    Selection.Copy
    Windows(tmp).Activate
    Sheets("Sheet1").Visible = True
    Sheets("Sheet1").Select
    Range("H1").Select
    ActiveSheet.Paste
Else
    Columns("H:I").Select
    Selection.Copy
    Windows(in_file).Activate
    Sheets("BG").Visible = True
    Sheets("BG").Select
    Range("W1").Select
    ActiveSheet.Paste
    Windows(tmp).Activate
End If
If (Cells(21, 30).Value = "" And Cells(21, 32).Value = "" And _
    Cells(21, 34).Value = "" And Cells(21, 36).Value = "") Then
    If (Cells(11, 13).Value <> "") Then
        ke = 21
        ka = 21
        kg = 21
        kc = 21
        kh = 21
        kw = 21
        kn = 21
        km = 21
        ks = 21
        kr = 21
        kt = 21
        i = 11
        Do Until (Cells(i, 13).Value = "")
            If (UCase(Cells(i, 13).Value) = "E") Then
                Cells(ke, 30).Value = Cells(i, 14).Value
                Cells(ke, 31).Value = Cells(i, 15).Value
                ke = ke + 1
            ElseIf (UCase(Cells(i, 13).Value) = "A") Then
                Cells(ka, 32).Value = Cells(i, 14).Value
                Cells(ka, 33).Value = Cells(i, 15).Value
                ka = ka + 1
            ElseIf (UCase(Cells(i, 13).Value) = "G") Then
                Cells(kg, 34).Value = Cells(i, 14).Value
                Cells(kg, 35).Value = Cells(i, 15).Value
                kg = kg + 1
            ElseIf (UCase(Cells(i, 13).Value) = "C") Then
                Cells(kc, 36).Value = Cells(i, 14).Value
                Cells(kc, 37).Value = Cells(i, 15).Value
                kc = kc + 1
            ElseIf (UCase(Cells(i, 13).Value) = "H") Then
                Cells(kh, 38).Value = Cells(i, 14).Value
                Cells(kh, 39).Value = Cells(i, 15).Value
                kh = kh + 1
            ElseIf (UCase(Cells(i, 13).Value) = "W") Then
                Cells(kw, 40).Value = Cells(i, 14).Value
                Cells(kw, 41).Value = Cells(i, 15).Value
                kw = kw + 1
            ElseIf (UCase(Cells(i, 13).Value) = "N") Then
                Cells(kn, 42).Value = Cells(i, 14).Value
                Cells(kn, 43).Value = Cells(i, 15).Value
                kn = kn + 1
            ElseIf (UCase(Cells(i, 13).Value) = "M") Then
                Cells(km, 44).Value = Cells(i, 14).Value
                Cells(km, 45).Value = Cells(i, 15).Value
                km = km + 1
            ElseIf (UCase(Cells(i, 13).Value) = "S") Then
                Cells(ks, 46).Value = Cells(i, 14).Value
                Cells(ks, 47).Value = Cells(i, 15).Value
                ks = ks + 1
            ElseIf (UCase(Cells(i, 13).Value) = "R") Then
                Cells(kr, 48).Value = Cells(i, 14).Value
                Cells(kr, 49).Value = Cells(i, 15).Value
                kr = kr + 1
            ElseIf (UCase(Cells(i, 13).Value) = "T") Then
                Cells(kt, 50).Value = Cells(i, 14).Value
                Cells(kt, 51).Value = Cells(i, 15).Value
                kt = kt + 1
            End If
            i = i + 1
        Loop
    End If
End If
Sheets("Sheet1").Visible = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Sheets("BG").Visible = False
Sheets("Main").Select
Exit Sub

Template_Rename:
Workbooks.Open Filename:=in_path & "\" & tmp1
ActiveWorkbook.SaveAs in_path & "\" & tmp
Resume
End Sub

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 8 horas 2 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10690
¿el archivo existe? Re: me manda error 1004

¿el archivo existe?

¿y está donde se supone que tiene que estar?

lo está buscando en la misma ubicación que el libro actual ¿están todos los archivos ahí?

 

------
Ya sé Excel, pero necesito más.

tetorin
Imagen de tetorin
Offline
última acción: Hace 1 semana 4 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 26/05/2011 - 02:57
Puntos: 3177
Re: ¿el archivo existe? Re: me manda error 1004

no no existe de echo es una macro que me

psaron y que les dejo de funcionar.

 cual es el archivo que devo de crear y en donde ?

 

saludos........

Cron
Imagen de Cron
Offline
última acción: Hace 1 mes 1 día
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12715
Re: me manda error 1004

Parece que te falta el archivo:

 

e-Plac Template.src.xls


que debería estar en la misma carpeta que la hoja en la que tengas la macro.


Saludos