Userform açıldığında diğer çalışma kitaplarınında kapanması

bydogannn67 · 11 Şubat 2016

merhabalar,

userform açıldığında var olan excel kitabının yanında diğer çalışma kitaplarıda kapanıyo oysakı sadece userformun bulunduğu excel çalışma kitabı kapansın nasıl yapabiliriz

PLİNT · 11 Şubat 2016

bydogannn67' Alıntı:
merhabalar,

userform açıldığında var olan excel kitabının yanında diğer çalışma kitaplarıda kapanıyo oysakı sadece userformun bulunduğu excel çalışma kitabı kapansın nasıl yapabiliriz

Merhaba
Userform da bulunan kapatma kodlarını şöyle deneyebilirsiniz;

Kod:

 If Application.Workbooks.Count = 1 Then Application.Quit
ThisWorkbook.Close SaveChanges:=True

bydogannn67 · 11 Şubat 2016

Bu seferde formu açmadı hocam

PLİNT · 12 Şubat 2016

bydogannn67' Alıntı:
Bu seferde formu açmadı hocam

O zaman sizin kapanıyordan kastettiğiniz "application visible" ile gizlenmesimi?
Kodlarınızı eklermisiniz?

bydogannn67 · 12 Şubat 2016

Kod:

Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long

Sub Auto_Open()
Application.Visible = False
KAYITYAP.Show
LOGİN.Show
   
  
    x = GetSystemMetrics(0) ' x eksenindeki genişliği veriyor
    y = GetSystemMetrics(1) ' y eksenindeki genişliği veriyor
    ActiveWindow.Zoom = 75 * x / 1024
    

    Sheets("GİRİŞ").Select
    
End Sub

bydogannn67 · 12 Şubat 2016

güncel ....

PLİNT · 12 Şubat 2016

Form bulunan dosyayı; başka dosyadan ayrı pencerede açmakla mümkün olabilir.

Kod:

Private Sub CommandButton1_Click()
dosya = "FORM.xlsm"
adr = "c:\" & dosya
aç = Shell("c:\Program Files\Microsoft Office\Office14\EXCEL.exe" & " " & adr, 1)
End Sub

bydogannn67 · 13 Şubat 2016

bunun pek işe yarıyacağını samıyorum hocam

başka fikri olan arkadas yokmudur ?

bydogannn67 · 13 Şubat 2016

Güncel,...........

bydogannn67 · 14 Şubat 2016

Yardımlarınızı rica ediyorum arkadaslar

PLİNT · 14 Şubat 2016

Merhaba
Sizin istediğiniz gibi olması için "Userform" u açılan dosyanın ayrı pencerede açılması gereklidir.
Formda veya internette regedit ayarları ile çözümler mevcut ama uygun ve tavsiye edilecek
çözüm değildir.
Yukarıda bahsettiğim şekle göre aşağıdaki dosyayı bir deneyin.
Ms 2010 için:
Dosya açıldığında açık başka excel dosyası varmı bakacak varsa; kendi yanına bir ".bat" dosyası
oluşturacak "form" açıldığında bu dosyayı silecek.
Normal bir excel dosyası açın; ardından aşağıdaki "userform" adlı dosyayı açarak deneyin,
dosyanın sadece formu görünecek arka planda ilk açtığınız dosya kalacaktır, açılan "Userform" dan diğer excel dosyasına kayıt yapıyorsanız kodlar çalışmayacak.
http://s8.dosya.tc/server2/3o9ivt/userform.zip.html
"Thisworkbook" (Buçalışma kitabı) kod sayfasına:

Kod:

Private Sub Workbook_Open()
If Application.Workbooks.Count > 1 Then
dosyaad = ThisWorkbook.Path & "\DOSYA_AÇ.bat"
Open dosyaad For Output As #1
f = "Start" & Chr(32) & Chr(34) & "Excel" & Chr(34) & Chr(32) & Chr(34) & "c:" & "\" & "Program Files\Microsoft Office\Office14\EXCEL.EXE" & Chr(34) _
   & Chr(32) & Chr(34) & ThisWorkbook.Path & "\" & ThisWorkbook.Name & Chr(34)
Print #1, f
Close #1
AÇ = Shell(ThisWorkbook.Path & "\DOSYA_AÇ.bat")
ThisWorkbook.Close
End If
Application.Visible = False
UserForm1.Show
End Sub

"Userform Initalize" kod sayfasına

Kod:

Private Sub UserForm_Initialize()


Set a = CreateObject("scripting.filesystemobject")
If a.FileExists(ThisWorkbook.Path & "\DOSYA_AÇ.bat") = True Then
Kill ThisWorkbook.Path & "\DOSYA_AÇ.bat"
End If

End Sub

Regeditle ilgili http://www.excel.web.tr/f14/excel-2010-da-2-excel-sheet-ayry-ayry-t97226/sayfa2.html

bydogannn67 · 15 Şubat 2016

emekleriniz için teşekkürler hocam

PLİNT · 15 Şubat 2016

bydogannn67' Alıntı:
emekleriniz için teşekkürler hocam

Rica ederim
Uygulama gizlenmeden "Formu" minimize yaparakta olursa; şu konuyuda inceleyin
http://www.excel.web.tr/f48/aktif-caly-ma-kitaby-gizleme-t154728.html#post842354

bydogannn67 · 21 Şubat 2016

düzenlemeye karşı kilitlenmiş diye uyarı veriyo hocam kaç gündür uğraşıyorum ama yapamadım kilit felanda koymadım neyden kaynaklı olabilir

PLİNT · 21 Şubat 2016

Merhaba
"mmmm" dosyası
"Application.Visible = False" "Userform1.Show" kodlarıyla açılmış uygulama ""Application.Visible = True" kodu eklenmeden userform kapatılmış,program geri planda çalışıyor olmalı "Görev Yöneticisinden" "Excel.exe" uygulamalarını kapatın,
İmkanı varsa bu dosyanızı eklermisiniz? http://s6.dosya.tc/
Bu ve diğer konuya göre düzenlemeye çalışalım.

bydogannn67 · 21 Şubat 2016

hocam bydogannn@windowslive.com adresine boş mail atabilirmisiniz dosyayı gondereyım şirket bilgileri var eklıyemıyorum

PLİNT · 22 Şubat 2016

Merhaba
Açılışta Formül hesaplamalarından dolayı aşağıdaki bölümü ekleyelim.

Kod:

 Private Sub Workbook_Open()
If Application.Workbooks.Count > 1 Then
dosyaad = ThisWorkbook.Path & "\DOSYA_AÇ.bat"
Open dosyaad For Output As #1
f = "Start" & Chr(32) & Chr(34) & "Excel" & Chr(34) & Chr(32) & Chr(34) & "c:" & "\" & "Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE" & Chr(34) _
   & Chr(32) & Chr(34) & ThisWorkbook.Path & "\" & ThisWorkbook.Name & Chr(34)
Print #1, f
Close #1
AÇ = Shell(ThisWorkbook.Path & "\DOSYA_AÇ.bat")
ThisWorkbook.Close [COLOR="Red"]SaveChanges:=False[/COLOR]
End If
Application.Visible = False
UserForm8.Show
End Sub

Form "X" den kapatma engeli; bütün formlara uygulanmalı.
Uygulama dosya kapanırken açık kalmasın
USERFORM 6 - USERFORM 15

Kod:

Private Sub CommandButton32_Click()
Sheets("GİRİŞ").Select
Dim pir
pir = MsgBox("Yapımcı: DOĞAN " & Chr(10) & Chr(10) & _
            "İyi günler diler..." & Chr(10) & Chr(10) & _
            "Dosya Kaydedilsin mi?", vbQuestion + vbYesNo[COLOR="Red"]Cancel[/COLOR], "Çıkış")
Select Case pir
    Case vbYes
        ActiveWorkbook.Save
        Unload Me
[COLOR="Red"] Application.Quit[/COLOR] '.....................EK
        ActiveWorkbook.Close
    Case vbNo
        Application.DisplayAlerts = False
        Unload Me
[COLOR="Red"] Application.Quit[/COLOR] '.....................EK
        ActiveWorkbook.Close
End Select
[COLOR="Blue"]'ÜST KISMA (CANCEL) İPTAL TUŞUDA EKLENİP EXCEL SAYFASINA DÖNÜLEBİLİR.[/COLOR]
[COLOR="Red"]If pir = vbCancel Then
Application.Visible = True
Unload Me
End If[/COLOR]

(Form kapatmalardada kullanılabilir)

bydogannn67 · 22 Şubat 2016

çok tesekkurler emeklerınız için hocam

bydogannn67 · 22 Şubat 2016

hocam şöyle bi sıkıntı var bu kod ile görev çubuğunda birden fazla excel var ise onları kapatmadan kendı userfomlu dosyamınız açabılıyoruz

fakat diğer çalışma kitaplarını kapatıp sadece kendı çalışma kitabımız kaldığında tekrar farklı bır excel kitabı açmaya kalktığımızda açmamıza izin vermiyo buna bi çare varmıdır

PLİNT · 22 Şubat 2016

bydogannn67' Alıntı:
hocam şöyle bi sıkıntı var bu kod ile görev çubuğunda birden fazla excel var ise onları kapatmadan kendı userfomlu dosyamınız açabılıyoruz
fakat diğer çalışma kitaplarını kapatıp sadece kendı çalışma kitabımız kaldığında tekrar farklı bır excel kitabı açmaya kalktığımızda açmamıza izin vermiyo buna bi çare varmıdır

Merhaba
Formların açılışı "Showmodal" false ile mümkün ("Userform8.show 0" gibi)
ama bu form açıkken; yeni açılacak excel dosyası formun dosyası ile aynı pencerede açılır. userformlu dosya geri planda kalır, iki dosyayı beraber kulanacaksanız; bu seferde formlarınızdaki listelere veri alırken, "textbox" lardan veri eklerken dosyayı aktif hale getirmek gerekir.
Buda userformlardaki kodlara ek ister
"Thisworkbook.activate", "Workbooks("calisma").activate" gibi
yada veri eklerken, alırken tam adres
"Thisworkbook.Sheets("Sayfa1").Range("A1")=Texbox1" gibi
Sizin de dosyada bayağı form bulunuyor, bu şekildeki eklemeler ile yukarıdaki isteğiniz olur.