Açık olan tüm excelleri kapatma

[mustilem23]

Günaydınlar,

Gün içeresinde o kadar çok farklı excel çalışma kitabı açıyorum artık kapatmaktan sıkıldım ,excel değil klasör olsaydı görev çubuğunda tüm pencereleri kapat diyerek hepsi kapanıyor fakat excel olunca işlev görmüyor ya birini kapatıyor yada kaydedilsin mi diye soruyor ,BEnim exceller sabit sadece veri kopyalıyorum değiştirme gibi işlem yapmıyorum dolayısı ile kaydetmeden çıkmak için kolay bir yol var mıdır yardımcı olabilir misiniz.

 

[Asri]

Bu kodu kişisel makro (Personal.xlsb) bölümüne kopyalayın.
Şeridi özelleştir den yeni bir sekme ekleyerek makroyu oraya tanımlayıp her zaman kullanılır hale getirin.

Public Sub CloseAllWorkbooks()
  Dim wb As Workbook
  For Each wb In Workbooks
    If UCase(wb.Name) <> "PERSONAL.XLSB" Then wb.Close False
  Next wb
End Sub

 

[mustilem23]

Üstad çok ama çok teşekkürler .çok güzel bir çözüm oldu benim için.

 

[mustilem23]

Üstadım aynı durumu outlook içinde yapabilmek mümkündür sadece sayfaları kapatacak outlook açık gibi.

 

[Asri]

Outlook / Görünüm / Tüm Öğeleri kapat aynı işi görür sanırım.

 

[mustilem23]

Çok teşekkür ederim üstadım

 

[mustilem23]

Üstad şirketteki programı n açık olan sayfalarını sadece 1 tanesi kalacak şekilde kapattirabilmek mümkün müdür.

 

[Asri]

Üstad şirketteki programı n açık olan sayfalarını sadece 1 tanesi kalacak şekilde kapattirabilmek mümkün müdür.

Bu derlenmiş bir program kendi içinde bir seçeneği yok ise dışardan bir program ile müdahale edilebilir. Bunun içinde her kapatma işleminde programı çalıştırmanız gerekecek.

Kaç pencere aynı anda açık kalıyor 3-4 pencere için deymez bence.

 

[mustilem23]

Üstadım .
Bir saatte yaklaşık 3 4 kez en az sifirliyorum autoit için mecburen ekran geçiş için önerebileceğiniz 3 parti bir program mevcutmudur tek sayfa bırakacak ücretsiz bilgi işleme kurdurtalim.

 

[Asri]

Üstadım .
Bir saatte yaklaşık 3 4 kez en az sifirliyorum autoit için mecburen ekran geçiş için önerebileceğiniz 3 parti bir program mevcutmudur tek sayfa bırakacak ücretsiz bilgi işleme kurdurtalim.

Ana sayfanın pencere başlığındaki metin nedir?

 

[mustilem23]

Üstad ,

Programın ana sayfası aşağıdaki gibidir.



IFS Uygulamalarına Hoşgeldiniz! - MUSTAFA DOGRU @ DURMAZLAR PROD. APPLICATION SERVER - IFS Applications





Benim ihtiyaç duyduğum nokta ,aşağıdaki ekranda bir teklif no oluşturuyorum .

Satis Teklifi - MUSTAFA DOGRU @ DURMAZLAR PROD. APPLICATION SERVER - IFS Applications



‘’Y2000….’’ Numarası değişken her seferinde farklı no oluşuyor

Satis Teklifi - Y20007523 - MUSTAFA DOGRU @ DURMAZLAR PROD. APPLICATION SERVER - IFS Applications



Daha sonra açık sayfaları kapatıyorum programdaki (ıfs) çünki aynı safyadan açıksa o sayfaya gidiyor işlem yapmak için mecburen .



Sonra autoiti çalıştırıyorum ,ilk ekranda işlemini yapıyor

1 ekran

Satis Teklifi - Y20007523 - MUSTAFA DOGRU @ DURMAZLAR PROD. APPLICATION SERVER - IFS Applications

Daha sonra 2 ekran olan

Satis Siparisi - Y10009458 - MUSTAFA DOGRU @ DURMAZLAR PROD. APPLICATION SERVER - IFS Applications

Burada işlem yapıyor böyle bir durumum var yardımcı olabilir seniz çok iyi olacak .



Auto it çalıştığında sadece teklif sayfası kalacak diğer sayfalar kapanacak gibi .

Satis Teklifi - Y20007523 - MUSTAFA DOGRU @ DURMAZLAR PROD. APPLICATION SERVER - IFS Applications

 

[BedriA]

Örnek dosya olmadan sizce de anlatılmak isteneni anlamak zor değil mi?

 

[Asri]

Örnek dosya olmadan sizce de anlatılmak isteneni anlamak zor değil mi?

Bizim bu konu hakkında geçmişimiz uzun vadede, karşılıklı ne demek istediğimizi anlıyoruz

 

[mustilem23]

Daha biz o programın iskender dönerini yiyeceğiz usta Bursa ya gelirse ????????????

 

[Asri]

Bu şekilde dener misiniz?

#include <AutoItConstants.au3>

Local $var = WinList()
For $i = 1 To $var[0][0]
      If $var[$i][0] <> "" And IsVisible($var[$i][1]) Then
        ;MsgBox(0, "Details", "Title=" & $var[$i][0] & @LF & "Handle=" & $var[$i][1])
        Local $sirasi = StringInStr($var[$i][0], "IFS Applications")
        Local $soldan = StringLeft($var[$i][0], 18)
        if $sirasi>0 then
            if $soldan<>"IFS Uygulamalarına" then
                 WinClose($var[$i][0])
            EndIf
        EndIf
    EndIf
Next


Func IsVisible($handle)
    If BitAND(WinGetState($handle), 2) Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc

 

[mustilem23]

İşte budur açık sayfalarin tamamını kapatıyor. Şimdi sıra geldi kullandığı m dosya scripte eklemeye üstadım çok teşekkür ederim.

 

[Asri]

İşte budur açık sayfalarin tamamını kapatıyor. Şimdi sıra geldi kullandığı m dosya scripte eklemeye üstadım çok teşekkür ederim.

Bir zorluğu yok, script in tanımlardan sonraki en başına eklersiniz olur.
O iş sizde

 

[salihhtr]

Dostum lütfen biriniz bana yardımcı olurmusunuz
excel vba ortamında userfrom üzerine textbox yerleştirdim
hesaplama yap butonuna basınca excel sayfa1 deki d17 sutunundaki değerle textbox değerini çarpmasını istiyorum yardımcı olabilirmisiniz ?
şimdiden teşekkürler ..

 

[Asri]

Dostum lütfen biriniz bana yardımcı olurmusunuz
excel vba ortamında userfrom üzerine textbox yerleştirdim
hesaplama yap butonuna basınca excel sayfa1 deki d17 sutunundaki değerle textbox değerini çarpmasını istiyorum yardımcı olabilirmisiniz ?
şimdiden teşekkürler ..

Lütfen sorularınızı yeni bir konu açarak sorunuz.

Aşağıdaki şekilde deneyebilir siniz.

  sonuc = TextBox1.Value * [D17]
  MsgBox (sonuc)

 

[Korhan Ayhan]

Birisi döner mi dedi !