Bul Formu Hazirlama

[Ferhat Pazarçevirdi]

Ne kadar basılı tutmak gerekiyor "shift" tuşuna? Ben ilk defa duyuyorum bunu...

 

[kutlayozbilgin]

Hocam İnanirmisiniz AÇiliyordu Ama Şİmdİ Şİfre Gİrmesİz AÇilmiyor Dosyayi AÇarken Basili Tutuyorsunuz Hatta Acsess De Ana Menuyu GeÇmek İÇİnde Shİftde Basili Tutarsaniz GeÇer

 

[kutlayozbilgin]

Hocam Sira Numarasinda Mesala 6. Satiri Sİlİnce 5 Ve 7 Kaliyor Tekrar Siralamiyor Bunu Yapamazmiyiz

 

[kutlayozbilgin]

Hocam Umarim Bana Kizmiyorsunuzdur Çok Soru Soruyorum Gİbİ Gelİyor

 

[Ferhat Pazarçevirdi]

Shifle dosya açma işlemiyse kastınız; bu işlem "Tasarım Modu"nda dosya açmayı sağlıyor. Böyle bir durumda kodların çalışması beklenemez. Ta ki, Tasarım Modunu kapatana kadar ...

Eğer kullanıcı tasarım modunu kapatırsa; her bir worksheet'in Activate kodunda, Userform'un gösterilmesi sağlanabilir. Ama tabi kullanıcı modu kapatırsa..

Sıra numarasını da düzeltiriz. Çok karmaşık bir işlem değil.

 

[Ferhat Pazarçevirdi]

Commanbutton3'un kodunu aşağıdaki gibi değiştiriniz. Böylelikle sıra numaraları yeniden verilmiş olur.

Private Sub CommandButton3_Click() 'SİL
If ListBox1.ListCount = 0 Then Exit Sub
cevap = MsgBox("VEriyi silmek istediğinize emin misiniz?", vbYesNo, "SİLME İŞLEMİ İÇİN ONAY")
If cevap = vbYes Then
Set sh = Sheets(ListBox1.List(ListBox1.ListIndex, 0))
satir = ListBox1.List(ListBox1.ListIndex, 2)
sh.Rows(satir).Delete
son = sh.Cells(65536, 2).End(xlUp).Row
For i = 3 To son
x = x + 1
sh.Cells(i, 1) = x
Next i
    For Each Ctrl In Me.Controls
        If TypeName(Ctrl) = "TextBox" Then Ctrl.Value = Empty
    Next
ListBox1.Clear
ComboBox1.Value = ""
Set sh = Nothing
End If
End Sub

 

[kutlayozbilgin]

Hocam Ne Dİm Mukemmelsİn Elİne Saglik