Userformda application.visible olayından sonra işlem yaparken excel kendi kendine kapanıyor

[omerap06]

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Save
End Sub

Merhaba bi sıkıntım var userform ile ilgili. ben userformu Exe dosyası yaptım(exe dosyası derken yani userform gözüksün excel gözükmesin anlamında). Sorunum şu ; bazen açılıyor ve sonra yaptığım userformdaki ARA çubuğuna bir numara yazıyorum ara diyorum 1-2 saniye sonra komple kapanıyor ama exceli açıp içindeki "userformu aç" butonundan userformu açtığımda herhangi bir sıkıntı olmadan çalışıyor(yani excel açık şekilde yaptığımda) yardımlarınız için şimdiden çok teşekkür ederim yukarıdaki kodlardamı sıkıntı var anlamadım. Yardımcı olursanız çok sevinirim.

 

[tamer42]

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Save
End Sub

Merhaba bi sıkıntım var userform ile ilgili. ben userformu Exe dosyası yaptım(exe dosyası derken yani userform gözüksün excel gözükmesin anlamında). Sorunum şu ; bazen açılıyor ve sonra yaptığım userformdaki ARA çubuğuna bir numara yazıyorum ara diyorum 1-2 saniye sonra komple kapanıyor ama exceli açıp içindeki "userformu aç" butonundan userformu açtığımda herhangi bir sıkıntı olmadan çalışıyor(yani excel açık şekilde yaptığımda) yardımlarınız için şimdiden çok teşekkür ederim yukarıdaki kodlardamı sıkıntı var anlamadım. Yardımcı olursanız çok sevinirim.

Application.Visible = False

bu satırı iptal edin yada;
userform kapanışını aşağıdaki şekilde düzenleyin

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Save
Application.Visible = True
End Sub

 

[omerap06]

Yok hocam dediğinizi yaptım o da olmuyor 2 gündür deli gibi uğraşıyorum olmuyor attığım fotolardaki gibi excel açıkken sorun olmuyor excel görünmezken bul ekranına bir sayı giriyorum kendi kendine kapanıyor birde application.visible olayı tüm excellerde işlem görüyor o da sıkıntıya sokuyor beni. Ben size olayı da anlatıyım ben stajyer bir öğrenciyim firmanın üretim takibi sıkıntılı olduğu için bir userform tasarladım ve her şeyi tamamladım ve userformuda bir uygulamaymış gibi göstermek istiyorum ama tek bu kısmı beceremedim bunu da halledersem ortak paylaşımlı klasöre atacağım ve firma buradan üretim takip yapacak. yardımınız için şimdiden teşekkürler.

 

[AdemCan]

Merhaba, Excel gizliyken arama bölümünde hata yok.

Spoyler: Ekran görüntüsü

Açık Excel dosyalarının gizlenmemesi için değiştirmeniz gereken kodlar.

Private Sub Workbook_Open()
    If Application.Windows.Count > 1 Then
        Windows(ThisWorkbook.Name).Visible = False
    Else
        Application.Visible = False
    End If
    UserForm1.Show
End Sub

Private Sub CommandButton11_Click()
    Windows(ThisWorkbook.Name).Visible = True
    Application.Visible = True
    Unload Me
End Sub

Private Sub CommandButton2_Click()
    Unload Me
    ThisWorkbook.Save
    If Application.Windows.Count > 1 Then
        Windows(ThisWorkbook.Name).Close
    Else
        Application.Quit
    End If
End Sub

Sub Makrom()
    If Application.Windows.Count > 1 Then
        Windows(ThisWorkbook.Name).Visible = False
    Else
        Application.Visible = False
    End If
    UserForm1.Show
End Sub

Açık Excel dosyalarında işlem yapmak istiyorsanız Userform1 in ShowModal özelliğini False yapmalısınız.

 

[omerap06]

AdemCan hocam cansınız çok saolun ama hocam dediklerinizi tek tek yaptım sıkıntı hala devam ediyor 1. sıkıntı açıyorum arıyorum başlarda bi sıkıntı olmuyor 3. tekrar açışımda bul yerine yazıyorum iş emrini bi anda mausede yükleniyor işareti gelip kapanıyor. 2. sıkıntıda başka bir excel dosyası açıkken onu açıyorum kafayı yiyor hocam kimi zaman aranan değer bulunamadı diyor kimi zaman kodun içinden bazı hatalar veriyor. ben bu işin içinden çıkamadım hocam bakarsanız çok müsterih olurum.

 

[AdemCan]

Merhaba,
Bul kodlarını değiştiriniz. Başka bir dosya açıkken de peş peşe aramalar yaptım takılmadan devam ediyor.

Private Sub BUL_Click()
    Dim aranan As String
    Dim bulunan As Range
    Dim yaz_satır As Long
    Dim dosyaYolu As String
    
    aranan = InputBox("İş Emri Numarasını Giriniz", "Arama Ekranı")
    
With ThisWorkbook.Sheets("Sayfa2")
    Set bulunan = .Columns("B:B").Find(aranan, LookIn:=xlValues)
    
    If Not bulunan Is Nothing Then
    yaz_satır = bulunan.Row
    
    On Error Resume Next
    
    dosyaYolu = .Cells(yaz_satır, 219).Value
    resim1.Picture = LoadPicture(dosyaYolu)   
    
    TextBox14.Value = .Cells(yaz_satır, 219)
    TextBoxisemri.Value = .Cells(yaz_satır, 2)
    TextBoxmusteri.Value = .Cells(yaz_satır, 3)
    TextBoxpk.Value = .Cells(yaz_satır, 4)
    TextBoxstok.Value = .Cells(yaz_satır, 5)
    TextBoxsevk.Value = .Cells(yaz_satır, 6)
    TextBox8.Value = .Cells(yaz_satır, 183)
    TextBox9.Value = .Cells(yaz_satır, 184)
    CheckBox5.Value = .Cells(yaz_satır, 193)
    CheckBox6.Value = .Cells(yaz_satır, 194)
    CheckBox7.Value = .Cells(yaz_satır, 195)
    CheckBox8.Value = .Cells(yaz_satır, 196)
    CheckBox9.Value = .Cells(yaz_satır, 197)
    CheckBox10.Value = .Cells(yaz_satır, 198)
    CheckBox11.Value = .Cells(yaz_satır, 199)
    CheckBox12.Value = .Cells(yaz_satır, 200)
    CheckBox13.Value = .Cells(yaz_satır, 201)
    CheckBox14.Value = .Cells(yaz_satır, 202)
    CheckBox15.Value = .Cells(yaz_satır, 203)
    CheckBox16.Value = .Cells(yaz_satır, 204)
    CheckBox17.Value = .Cells(yaz_satır, 205)
    CheckBox18.Value = .Cells(yaz_satır, 206)
    CheckBox19.Value = .Cells(yaz_satır, 207)
    CheckBox20.Value = .Cells(yaz_satır, 208)
    TextBoxa1.Value = .Cells(yaz_satır, 209)
    TextBoxa2.Value = .Cells(yaz_satır, 210)
    TextBoxa3.Value = .Cells(yaz_satır, 211)
    TextBoxa4.Value = .Cells(yaz_satır, 212)
    TextBoxa5.Value = .Cells(yaz_satır, 213)
    TextBoxa6.Value = .Cells(yaz_satır, 214)
    TextBoxa7.Value = .Cells(yaz_satır, 215)
    TextBoxa8.Value = .Cells(yaz_satır, 216)
    TextBoxp1.Value = .Cells(yaz_satır, 217)
    TextBoxs1.Value = .Cells(yaz_satır, 218)
    TextBox7.Value = .Cells(yaz_satır, 192)
    TextBox10.Value = .Cells(yaz_satır, 185)
    TextBox11.Value = .Cells(yaz_satır, 186)
    TextBox12.Value = .Cells(yaz_satır, 187)
    CheckBox2.Value = .Cells(yaz_satır, 188)
    CheckBox1.Value = .Cells(yaz_satır, 189)
    CheckBox3.Value = .Cells(yaz_satır, 190)
    CheckBox4.Value = .Cells(yaz_satır, 191)
    surec1.Value = .Cells(yaz_satır, 7)
    islem1.Value = .Cells(yaz_satır, 8)
    makine1.Value = .Cells(yaz_satır, 9)
    op1.Value = .Cells(yaz_satır, 10)
    bat1.Value = .Cells(yaz_satır, 11)
    saat1.Value = .Cells(yaz_satır, 12)
    ua1.Value = .Cells(yaz_satır, 13)
    bit1.Value = .Cells(yaz_satır, 14)
    vakit1.Value = .Cells(yaz_satır, 15)
    CheckBoxTM1.Value = .Cells(yaz_satır, 16)
    CheckBoxBK1.Value = .Cells(yaz_satır, 17)
    kkt1.Value = .Cells(yaz_satır, 18)
    CheckBoxTMM1.Value = .Cells(yaz_satır, 19)
    CheckBoxYİ1.Value = .Cells(yaz_satır, 20)
    yit1.Value = .Cells(yaz_satır, 21)
    firma1.Value = .Cells(yaz_satır, 22)
    gt1.Value = .Cells(yaz_satır, 23)
    dt1.Value = .Cells(yaz_satır, 24)
    CheckBoxUY1.Value = .Cells(yaz_satır, 25)
    CheckBoxUD1.Value = .Cells(yaz_satır, 26)
    CheckBoxSE1.Value = .Cells(yaz_satır, 27)
    st1.Value = .Cells(yaz_satır, 28)
    
    surec2.Value = .Cells(yaz_satır, 29)
    islem2.Value = .Cells(yaz_satır, 30)
    makine2.Value = .Cells(yaz_satır, 31)
    op2.Value = .Cells(yaz_satır, 32)
    bat2.Value = .Cells(yaz_satır, 33)
    saat2.Value = .Cells(yaz_satır, 34)
    ua2.Value = .Cells(yaz_satır, 35)
    bit2.Value = .Cells(yaz_satır, 36)
    vakit2.Value = .Cells(yaz_satır, 37)
    CheckBoxTM2.Value = .Cells(yaz_satır, 38)
    CheckBoxBK2.Value = .Cells(yaz_satır, 39)
    kkt2.Value = .Cells(yaz_satır, 40)
    CheckBoxTMM2.Value = .Cells(yaz_satır, 41)
    CheckBoxYİ2.Value = .Cells(yaz_satır, 42)
    yit2.Value = .Cells(yaz_satır, 43)
    firma2.Value = .Cells(yaz_satır, 44)
    gt2.Value = .Cells(yaz_satır, 45)
    dt2.Value = .Cells(yaz_satır, 46)
    CheckBoxUY2.Value = .Cells(yaz_satır, 47)
    CheckBoxUD2.Value = .Cells(yaz_satır, 48)
    CheckBoxSE2.Value = .Cells(yaz_satır, 49)
    st2.Value = .Cells(yaz_satır, 50)
    
    surec3.Value = .Cells(yaz_satır, 51)
    islem3.Value = .Cells(yaz_satır, 52)
    makine3.Value = .Cells(yaz_satır, 53)
    op3.Value = .Cells(yaz_satır, 54)
    bat3.Value = .Cells(yaz_satır, 55)
    saat3.Value = .Cells(yaz_satır, 56)
    ua3.Value = .Cells(yaz_satır, 57)
    bit3.Value = .Cells(yaz_satır, 58)
    vakit3.Value = .Cells(yaz_satır, 59)
    CheckBoxTM3.Value = .Cells(yaz_satır, 60)
    CheckBoxBK3.Value = .Cells(yaz_satır, 61)
    kkt3.Value = .Cells(yaz_satır, 62)
    CheckBoxTMM3.Value = .Cells(yaz_satır, 63)
    CheckBoxYİ3.Value = .Cells(yaz_satır, 64)
    yit3.Value = .Cells(yaz_satır, 65)
    firma3.Value = .Cells(yaz_satır, 66)
    gt3.Value = .Cells(yaz_satır, 67)
    dt3.Value = .Cells(yaz_satır, 68)
    CheckBoxUY3.Value = .Cells(yaz_satır, 69)
    CheckBoxUD3.Value = .Cells(yaz_satır, 70)
    CheckBoxSE3.Value = .Cells(yaz_satır, 71)
    st3.Value = .Cells(yaz_satır, 72)
    
    surec4.Value = .Cells(yaz_satır, 73)
    islem4.Value = .Cells(yaz_satır, 74)
    makine4.Value = .Cells(yaz_satır, 75)
    op4.Value = .Cells(yaz_satır, 76)
    bat4.Value = .Cells(yaz_satır, 77)
    saat4.Value = .Cells(yaz_satır, 78)
    ua4.Value = .Cells(yaz_satır, 79)
    bit4.Value = .Cells(yaz_satır, 80)
    vakit4.Value = .Cells(yaz_satır, 81)
    CheckBoxTM4.Value = .Cells(yaz_satır, 82)
    CheckBoxBK4.Value = .Cells(yaz_satır, 83)
    kkt4.Value = .Cells(yaz_satır, 84)
    CheckBoxTMM4.Value = .Cells(yaz_satır, 85)
    CheckBoxYİ4.Value = .Cells(yaz_satır, 86)
    yit4.Value = .Cells(yaz_satır, 87)
    firma4.Value = .Cells(yaz_satır, 88)
    gt4.Value = .Cells(yaz_satır, 89)
    dt4.Value = .Cells(yaz_satır, 90)
    CheckBoxUY4.Value = .Cells(yaz_satır, 91)
    CheckBoxUD4.Value = .Cells(yaz_satır, 92)
    CheckBoxSE4.Value = .Cells(yaz_satır, 93)
    st4.Value = .Cells(yaz_satır, 94)
    
    surec5.Value = .Cells(yaz_satır, 95)
    islem5.Value = .Cells(yaz_satır, 96)
    makine5.Value = .Cells(yaz_satır, 97)
    op5.Value = .Cells(yaz_satır, 98)
    bat5.Value = .Cells(yaz_satır, 99)
    saat5.Value = .Cells(yaz_satır, 100)
    ua5.Value = .Cells(yaz_satır, 101)
    bit5.Value = .Cells(yaz_satır, 102)
    vakit5.Value = .Cells(yaz_satır, 103)
    CheckBoxTM5.Value = .Cells(yaz_satır, 104)
    CheckBoxBK5.Value = .Cells(yaz_satır, 105)
    kkt5.Value = .Cells(yaz_satır, 106)
    CheckBoxTMM5.Value = .Cells(yaz_satır, 107)
    CheckBoxYİ5.Value = .Cells(yaz_satır, 108)
    yit5.Value = .Cells(yaz_satır, 109)
    firma5.Value = .Cells(yaz_satır, 110)
    gt5.Value = .Cells(yaz_satır, 111)
    dt5.Value = .Cells(yaz_satır, 112)
    CheckBoxUY5.Value = .Cells(yaz_satır, 113)
    CheckBoxUD5.Value = .Cells(yaz_satır, 114)
    CheckBoxSE5.Value = .Cells(yaz_satır, 115)
    st5.Value = .Cells(yaz_satır, 116)
    
    surec6.Value = .Cells(yaz_satır, 117)
    islem6.Value = .Cells(yaz_satır, 118)
    makine6.Value = .Cells(yaz_satır, 119)
    op6.Value = .Cells(yaz_satır, 120)
    bat6.Value = .Cells(yaz_satır, 121)
    saat6.Value = .Cells(yaz_satır, 122)
    ua6.Value = .Cells(yaz_satır, 123)
    bit6.Value = .Cells(yaz_satır, 124)
    vakit6.Value = .Cells(yaz_satır, 125)
    CheckBoxTM6.Value = .Cells(yaz_satır, 126)
    CheckBoxBK6.Value = .Cells(yaz_satır, 127)
    kkt6.Value = .Cells(yaz_satır, 128)
    CheckBoxTMM6.Value = .Cells(yaz_satır, 129)
    CheckBoxYİ6.Value = .Cells(yaz_satır, 130)
    yit6.Value = .Cells(yaz_satır, 131)
    firma6.Value = .Cells(yaz_satır, 132)
    gt6.Value = .Cells(yaz_satır, 133)
    dt6.Value = .Cells(yaz_satır, 134)
    CheckBoxUY6.Value = .Cells(yaz_satır, 135)
    CheckBoxUD6.Value = .Cells(yaz_satır, 136)
    CheckBoxSE6.Value = .Cells(yaz_satır, 137)
    st6.Value = .Cells(yaz_satır, 138)
    
    surec7.Value = .Cells(yaz_satır, 139)
    islem7.Value = .Cells(yaz_satır, 140)
    makine7.Value = .Cells(yaz_satır, 141)
    op7.Value = .Cells(yaz_satır, 142)
    bat7.Value = .Cells(yaz_satır, 143)
    saat7.Value = .Cells(yaz_satır, 144)
    ua7.Value = .Cells(yaz_satır, 145)
    bit7.Value = .Cells(yaz_satır, 146)
    vakit7.Value = .Cells(yaz_satır, 147)
    CheckBoxTM7.Value = .Cells(yaz_satır, 148)
    CheckBoxBK7.Value = .Cells(yaz_satır, 149)
    kkt7.Value = .Cells(yaz_satır, 150)
    CheckBoxTMM7.Value = .Cells(yaz_satır, 151)
    CheckBoxYİ7.Value = .Cells(yaz_satır, 152)
    yit7.Value = .Cells(yaz_satır, 153)
    firma7.Value = .Cells(yaz_satır, 154)
    gt7.Value = .Cells(yaz_satır, 155)
    dt7.Value = .Cells(yaz_satır, 156)
    CheckBoxUY7.Value = .Cells(yaz_satır, 157)
    CheckBoxUD7.Value = .Cells(yaz_satır, 158)
    CheckBoxSE7.Value = .Cells(yaz_satır, 159)
    st7.Value = .Cells(yaz_satır, 160)
    
    surec8.Value = .Cells(yaz_satır, 161)
    islem8.Value = .Cells(yaz_satır, 162)
    makine8.Value = .Cells(yaz_satır, 163)
    op8.Value = .Cells(yaz_satır, 164)
    bat8.Value = .Cells(yaz_satır, 165)
    saat8.Value = .Cells(yaz_satır, 166)
    ua8.Value = .Cells(yaz_satır, 167)
    bit8.Value = .Cells(yaz_satır, 168)
    vakit8.Value = .Cells(yaz_satır, 169)
    CheckBoxTM8.Value = .Cells(yaz_satır, 170)
    CheckBoxBK8.Value = .Cells(yaz_satır, 171)
    kkt8.Value = .Cells(yaz_satır, 172)
    CheckBoxTMM8.Value = .Cells(yaz_satır, 173)
    CheckBoxYİ8.Value = .Cells(yaz_satır, 174)
    yit8.Value = .Cells(yaz_satır, 175)
    firma8.Value = .Cells(yaz_satır, 176)
    gt8.Value = .Cells(yaz_satır, 177)
    dt8.Value = .Cells(yaz_satır, 178)
    CheckBoxUY8.Value = .Cells(yaz_satır, 179)
    CheckBoxUD8.Value = .Cells(yaz_satır, 180)
    CheckBoxSE8.Value = .Cells(yaz_satır, 181)
    st8.Value = .Cells(yaz_satır, 182)
 Else
        MsgBox "Aranan değer bulunamadı."
    End If
End With
End Sub