(27/09/2016, 17:12)atoz112 yazdı: Sayın balkan85,

Tam emin olmamakla birlikte,sadece ilk mesajda eklediğiniz kodlar üzerinden değerlendirmek sureti ile ve yine sadece bu kodlara dair olarak geçerli sayılmak sureti ile,bir de, Komut332 adlı butonun içeriğini aşağıdakiler ile değiştirerek kullanmayı deneyebilirsiniz.

On Error GoTo OpenErr



FileCopy "C:\LCW TT\Data\KTDNM.xlsx", "C:\Users\UMIT.BALKAN\Desktop\Talimat " & Ülke & " ID" & Invoice_ID & " " & Kap_Sayısı & " Kap.xlsx"



Dim MyXL As Object



Set MyXL = GetObject("C:\Users\UMIT.BALKAN\Desktop\Talimat " & Ülke & " ID" & Invoice_ID & " " & Kap_Sayısı & " Kap.xlsx")



MyXL.Application.Visible = True

MyXL.Application.WindowState = 3

MyXL.Parent.Windows(1).Visible = True

MyXL.Parent.ActiveWindow.WindowState = 2



    With MyXL.worksheets(1)

        .Range("B4").Value = Acente

        .Range("B3").Value = Adı & " " & Soyadı

        .Range("E3").Value = Date

        .Range("B30").Value = Banka

        .Range("B14").Value = Alıcı_Firma_Ünvanı

        .Range("B16").Value = Alıcı_Firma_Adresi

        .Range("B32").Value = Ödeme_Şekli

        .Range("B34").Value = Teslim_Şekli

        .Range("D38").Value = Gross_Weight

        .Range("D39").Value = Net_Weight

        .Range("D40").Value = Kap_Sayısı

        .Range("D41").Value = Invoice_ID

        .Range("B24").Value = Varış_Yeri

        .Range("C43").Value = CI

        .Range("C44").Value = PL

        .Range("C45").Value = PRL

        .Range("C46").Value = CO

        .Range("C48").Value = FORMA

        .Range("C49").Value = CMR

        .Range("C50").Value = AWB

        .Range("B54").Value = Talimat_Notları

    End With

    

If CI_Onay = True Then

MyXL.worksheets(1).Range("E43").Value = "<- TİCARET ODASI ONAYLI"

End If



If PRL_Onay = True Then

MyXL.worksheets(1).Range("E45").Value = "<- TİCARET ODASI ONAYLI"

End If



MyXL.WorkSheets(1).Activate

MyXL.ActiveSheet.PrintOut

MyXL.Application.DisplayAlerts = False

MyXL.Application.Quit



Me.Repaint

DoCmd.SelectObject acForm, Me.Name



OpenEnd:

Set MyXL = Nothing

Exit Sub



OpenErr:

Select Case err.Number

Case 1004 ' can't write to protected cell

Resume Next

case else

Msgbox err.Number & " " & err.Description

Resume OpenEnd

End Select

Olumsuz durumda,zaten bilgilendirmede bulunacaksınızdır.

Bilginize…iyi çalışmalar,saygılar.

Sayın atoz112,

Maalesef yine olmadı. Yine aynı satırda "Subscript out of range" hatası veriyor.

MyXL.Parent.Windows(1).Visible = True

Sürümden kaynaklı olarak test edemeyip, yine de yardımcı olmak adına gösterdiğiniz çabadan ötürü size çok teşekkür ederim.

İyi günler,