Open workbooks minimize çalışsın

[ziya]

Merhaba,
Kapalı kitaptan veri alırken veya kaydederken kitabın kısa süre de olsa ön plânda açılması sanıyorum herkesi rahatsız ediyordur. Bu durumu önlemek için geçici açılan bu kitap minimize durumda -simge halinde- açılıp kapatılamaz mı.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Windows("Kitap1").WindowState = xlMinimized

 

[ziya]

Sn Ayhan
Teşekkür ederim.

 

[ziya]

Sn Ayhan
Aynı klasör içindeki 10 veya daha fazla kapalı dosyadan bir döngü ile ve komutla verilerimizi alıyoruz. Önerdiğiniz kodu

Windows("Kitap1").WindowState = xlMinimized

o döngü içinde kullanabilirmiyiz, yani bu kodu bu döngüye nasıl adepte edebiliriz. Kod aşağıda.

Private Sub CommandButton1_Click()
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(ThisWorkbook.Path & "/dosyalar")
Set fc = f.Files
For Each f1 In fc
ad = f1.Name
Workbooks.Open (ThisWorkbook.Path & "/dosyalar/" & ad)
ActiveWorkbook.Sheets("İÖO").Range("c7:h11").Copy
Workbooks("ANA.xls").Sheets("Sayfa1").Range("c7:h11").PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
        
ActiveWorkbook.Sheets("İÖO").Range("c15:h19").Copy
Workbooks("ANA.xls").Sheets("Sayfa1").Range("c15:h19").PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
        
  ActiveWorkbook.Sheets("İÖO").Range("c23:h27").Copy
Workbooks("ANA.xls").Sheets("Sayfa1").Range("c25:h29").PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
 ActiveWorkbook.Close
Next
End Sub

(Kodlar "omerceri" den alınmıştır.)
Selamlar,

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodda "Workbooks.Open (ThisWorkbook.Path & "/dosyalar/" & ad)" satırından sonra aşağıdaki kodu ekleyip deneyiniz.

Windows(ThisWorkbook.Path & "/dosyalar/" & ad).WindowState = xlMinimized

 

[ziya]

Merhaba,
Run-time error 9 ,Subscript out of range hatası verdi.
Gitmesi gereken ilk kitabı açtı ve hata verdi.
Selamlar,