Sorgu için arama sonuçları: workbooks.open

...For i = 2 To ssat With kitaptan.Worksheets("ÖZET LİSTE") If .Range("E" & i).Value = "NORMAL" Then Set kitaba = Workbooks.Open("C:\Users\Murat\Desktop\RAPOR TASLAKLARI" & "\NORMAL.xlsx") kitaba.Worksheets("RAPOR").Range("D9").Value = .Range("I" & i).Value...

...For i = 2 To ssat With kitaptan.Worksheets("ÖZET LİSTE") If .Range("E" & i).Value = "NORMAL" Then Set kitaba = Workbooks.Open("C:\Users\Murat\Desktop\RAPOR TASLAKLARI" & "\NORMAL.xlsx") kitaba.Worksheets("RAPOR").Range("D9").Value = .Range("I" & i).Value...

Bu kod işime baya yarar. fakat ilk aşağıdaki görseldeki hatayı aldım. ve "File" ibaresini "My_File" olarak değiştirince düzeldi. Sonrasında çalıştı ve password yazmam istenilen ekran geldi. şifreyi girdim. ve kod çalıştı gitti belirtilen klasördeki ilk exceli açtı ve aşağıdaki hatayı verdi...

...For i = 2 To ssat With kitaptan.Worksheets("ÖZET LİSTE") If .Range("E" & i).Value = "NORMAL" Then Set kitaba = Workbooks.Open("C:\Users\Murat\Desktop\RAPOR TASLAKLARI" & "\NORMAL.xlsx") kitaba.Worksheets("RAPOR").Range("D9").Value =...

...If InStr(My_File.Name, ".xlsx") > 0 Or InStr(My_File.Name, ".xlsm") > 0 Then ' Excel dosyasını açın Workbooks.Open My_File.Path ' VBA projesini şifreleyin ActiveWorkbook.VBProject.Protect Password:=Pwd ' Excel dosyasını kaydedin ve...

...If .Show = True Then verial = .SelectedItems(1) End If End With If verial <> "" Then Set kitap = Workbooks.Open(verial) Range("F2:AK99999").ClearContents ' H2:AO99999 hücre aralığını silme kitap.ActiveSheet.Range("A2:AF9999").Copy...

If .Range("E" & i).Value = "NORMAL" Then Set kitaba = Workbooks.Open("C:\Users\Yesım\Desktop\ooo" & "\NORMAL.xlsx") kitaba.Worksheets("RAPOR").Range("D9").Value = .Range("I" & i).Value kitaba.Worksheets("RAPOR").Range("D10").Value = .Range("J" & i).Value...

..." dosyası dikkate alınarak ilgili hücrelere değerleri alıp kaydediyor. If .Range("E" & i).Value = "NORMAL" Then Set kitaba = Workbooks.Open("C:\Users\Yesım\Desktop\ooo" & "\NORMAL.xlsx") End If kitaba.Worksheets("RAPOR").Range("D9").Value =...

Set kitaba = Workbooks.Open("C:\Users\Yesım\Desktop\ooo" & "\NORMAL.xls") dosya yolu hatalı

...Resume Next For i = 2 To ssat With kitaptan.Worksheets("LİSTE") If .Range("E" & i).Value = "NORMAL" Then Set kitaba = Workbooks.Open("C:\Users\Yesım\Desktop\ooo" & "\NORMAL.xlsx") End If kitaba.Worksheets("RAPOR").Range("D9").Value =...

Üstteki çalışmadı ama bu kod çalıştı. Teşekkür ederim.

Merhaba, Alternatif olarak denenebilir. Sub kod() Dim yol As String, dsy As String yol = "\\server\Formlar\" dsy = Dir(yol & Cells(ActiveCell.Row, "B").Value & ".xls*") If dsy <> "" Then Workbooks.Open yol & dsy End Sub

...belki ondandır. Aşağıdaki şekilde deneyin. Sub Secimi_Ac() Dim Dosya As String Dosya = "\\server\Formlar\" & ActiveCell.Value & ".xls" If Dir(Dosya) <> "" Then Workbooks.Open Filename:=Dosya Else Workbooks.Open Filename:=Dosya & "x" End If End Sub

...açtıramayacağım. xls dosyası yoksa xlsm dosyasını aç gibi kodu değiştirebilir miyim? Kabaca kodu böyle nasıl değiştirebilirim? If Workbooks.Open Filename:="\\server\Formlar\" & ActiveCell.Value & ".xls" = True Then Workbooks.Open Filename:="\\server\Formlar\" & ActiveCell.Value & ".xls"...

Sub databaseyeaktar() Set s1 = Sheets("Sevkiyat.") Workbooks.Open Filename:="d:\database1.xlsm" SON = [A65536].End(3).Select If ActiveCell.Address = "$A$1" Then ActiveCell.Offset(1, 0).Select ActiveCell = 1 Else ActiveCell.Offset(1, 0).Select ActiveCell = ActiveCell.Offset(-1, 0) + 1 End If...

Teşekkürler Korhan bey.

...File_Name = "Deneme.xlsm" On Error Resume Next Set WB = Workbooks(File_Name) On Error GoTo 0 If WB Is Nothing Then Set WB = Workbooks.Open(File_Path & Application.PathSeparator & File_Name, False, False) Else WB.Activate End If End Sub

Korhan bey çok teşekkür ederim. Bu kod açık ise kapat, kapalı ise aç için mi? Dosya açık iken, dosya zaten açık, yeniden açılsın mı diye uyarı veriyor.

...Dim WB As Workbook, File_Name As String File_Name = "Deneme.xlsm" On Error Resume Next Set WB = Workbooks(File_Name) On Error GoTo 0 If WB Is Nothing Then Set WB = Workbooks.Open(File_Name, False, False) Else WB.Activate End If End Sub

....Filters.Add "Excel Dosyaları", "*.xlsx" .Show If .SelectedItems.Count > 0 Then Set Wb = Workbooks.Open(.SelectedItems(1), UpdateLinks:=0, ReadOnly:=0, AddToMru:=False, Notify:=False) End If End With End Sub Dosyada kaç sayfa var ve hangi sayfadaki...