ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[ohreyn]

Enes bey öncelikle Aksaray'a selamlar ve ilginize teşekkürler. Çalışmayı yaparken tek bir form üzerinde nesnelerin görünürlük özelliklerini değiştirerek farklı görünümler elde etmeye çalıştım bu sebeple kodlar biraz uzun oldu. Dün akşam düşündüm acaba görünüm kodlarını modül olarak eklesek o şekilde olur mu hem form kodları biraz daha sadeleşir. Bu yöntemi denemeyi düşünüyorum.

[Enes Recep BAĞ]

Sizin sorularınızın altına, yanıtlarımı verim.
Ayrıca dosya ektedir.

1) Kayıtlı bir kişi tekrar kayıt yapılabiliyor. Bu da arama da en büyük sıkıntıyı doğuruyor. Bunu engellemek için tasarımı değiştirmek gerekebilir sanırım.
Sayfa1 kod sayfası içine aşağıdaki kodları yazın.

Kod: Tümünü seç

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
erb = Target.Value
For l = [L65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("L2:L" & l), Cells(l, "L")) > 1 Then MsgBox erb
Next l
End Sub


2) REHBER sayfasında kimse kayıtlı değilken ara butonu çalışıyor.
Userform da CommandButton1 yani Ara tuşunun kodlarının ilk satırına aşağıdaki kodları yazın.

Kod: Tümünü seç

Private Sub CommandButton1_Click() 'arama prosedürü
If Sayfa1.Range("L2").Value < 1 Then MsgBox "Kayıt yok": Exit Sub


Ama bir kişi bile kayıtlı olsa arama eşleşmezse çalışmıyor.
Bu kısmı anlamadım.
Benim istediğim sayda boşken ara tuşuna basıldığında Sil, Değiştir gibi butonların çıkmasını engellemek.
Sayda ne demek?
Sil tuşu için, CommandButton8.visible =false
Değiştir butonu için CommandButton2.visible=falseyapın.

3) Kayıt kısmında Ad kısmı boşken kayıdı engelleyebiliyoruz ama Soyad için aynı şeyi malesef yapamadım. Denediğim kodlar ' işareti ile ayrılmış olarak duruyor olmalı.
If TextBox1 = Empty Or TextBox2 = Empty Then olarak deneyin.

4) Kayıt kısmında Ad kısmında boşluk tuşuna basıldığında boş bir isim olarak kayıt yapılabiliyor. Bunu engellemek mümkünmü
Elbetteki engellenebilinir lakin, boşluk tuşuda a,b,c,1,2,3 gibi bir karakter.
Userform içine aşağıdaki kodları yazın.
Eğer sadece boşluk olursa engeller, ama Enes Recep, yani arada boşluk yazarsanız sıkıntı olmaz.

Kod: Tümünü seç

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 32 Then
erb = Len(TextBox1)
If erb < 1 Then MsgBox "Boşluk karakterini kullanamazsınız"
End If
End Sub


5) Son olarak combobox' ta eşleşme olmaması durumunda Örneğin Orhan isimli kimse kayıtlı değil Orhan yazılıp araya basıldığında bunu kaydetsin mi şeklinde Msgbox döngüsü başlatılabilir mi?
Bu kısmı da anlamadım.
Msgbox döngüsü nedir?

Bundan sonrakiler çok ta elzem olmayan konular olmakla beraber
- Ad kısmını sadece ilk harf büyük Soyad kısmını da komple büyük olarak kayıt yapmaya zorlamak ve bu kısımlara rakam girişini engellemek mümkün olur mu?
Aşağıdaki kodlar Enes BAĞ şeklinde yazar. Çift isimli ise Enes Recep BAĞ şeklinde yazar.

Kod: Tümünü seç

Private Sub TextBox1_Change()
On Error Resume Next
Dim a, j, Ad, Soyad
a = Split(TextBox1)
    For j = 0 To UBound(a) - 1
        Ad = Trim(Ad & " " & a(j))
    Next j
Soyad = Trim(a(UBound(a)))

If Soyad = "" Then
Soyad = Evaluate("=UPPER(""" & Soyad & """)")
Else
Ad = Evaluate("=PROPER(""" & Ad & """)")
End If

Soyad = Evaluate("=UPPER(""" & Soyad & """)")
TextBox1 = Ad & " " & Soyad
End Sub

Rakam girişini engellemek için,

Kod: Tümünü seç

Private Sub Textbox1_Change()
    If Not IsNumeric(TextBox1) Then SendKeys "{BS}"
End Sub

- Kaydet ve kapat tuşuna basıldığında sayfa kapanıyor bunu excel'i bütün olarak kapatacak şekilde yapabilir miyiz?
Application.Workbooks.Close bunu,
Application.Quit olarak değiştirin.

[ohreyn]

Enes Bey ilgi alakanız için Allah razı olsun.

1) Yazdığınız kodları denedim Msgbox erb kısmında hata verdi

2) Sorun çözülmüş "sayfa" yerine "sayda" yazmışım yanlışlıkla. Orada demek istediğim kayıtlı kimse yokken ara tuşunun çalışmasını engellemekti ki siz daha güzel bir çözüm bulmuşsunuz.

3 - 4 sorun yok benim bilgi eksikliklerim var.

5 ) Burada anlatmak istediğim Combobox' a aranmak üzere girilen ve kayıtlı olmayan birinin Msgbox vbyesno döngüsü ile kayıt yapılsın mı şeklinde sorulmasıydı. Örneğin Orhan ERDİM kayıtlı bir isim değil Combobox'a Orhan ERDİM yazılıp ara tuşuna basıldığında Orhan ERDİM kaydedilsin mi? şeklinde Msgbox ile sorulması.

Bundan sonrakiler de benim henüz bilmediğim şeyler sanırım. Yani içlerinde UPPER, UBound gibi hiç duymadığım ifadeler var.
Daha yolun çok başındayım anlaşılan öğrenecek çok şeyim var. Yardımlarınız için tekrar çok teşekkür ederim.
İyi akşamlar

[Enes Recep BAĞ]

Enes Bey ilgi alakanız için Allah razı olsun.

1) Yazdığınız kodları denedim Msgbox erb kısmında hata verdi

Kod: Tümünü seç

Private Sub Worksheet_Change(ByVal Target As Range)
erb = Target.Value
For i = [L65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("L2:L" & i), Cells(i, "L")) > 1 Then Target.Value = ""
Next i
End Sub

2) Sorun çözülmüş "sayfa" yerine "sayda" yazmışım yanlışlıkla. Orada demek istediğim kayıtlı kimse yokken ara tuşunun çalışmasını engellemekti ki siz daha güzel bir çözüm bulmuşsunuz.

3 - 4 sorun yok benim bilgi eksikliklerim var.

5 ) Burada anlatmak istediğim Combobox' a aranmak üzere girilen ve kayıtlı olmayan birinin Msgbox vbyesno döngüsü ile kayıt yapılsın mı şeklinde sorulmasıydı. Örneğin Orhan ERDİM kayıtlı bir isim değil Combobox'a Orhan ERDİM yazılıp ara tuşuna basıldığında Orhan ERDİM kaydedilsin mi? şeklinde Msgbox ile sorulması.

Bundan sonrakiler de benim henüz bilmediğim şeyler sanırım. Yani içlerinde UPPER, UBound gibi hiç duymadığım ifadeler var.
Daha yolun çok başındayım anlaşılan öğrenecek çok şeyim var. Yardımlarınız için tekrar çok teşekkür ederim.
İyi akşamlar

Hayırlı akşamlar.

[sercantorun]

Merhaba,
ben excel'de userformun tam ekran olmasını ve şuan programı tasarladım ama kodlarda sıkıntı çekiyorum.
Bana yardımcı olur musunuz?

[Enes Recep BAĞ]

Merhaba,
ben excel'de userformun tam ekran olmasını ve şuan programı tasarladım ama kodlarda sıkıntı çekiyorum.
Bana yardımcı olur musunuz?

Olalım...

[esslow]

Merhaba Tarkan Bey,
Ellerinize sağlık tam aradığım şeyi buldum.
Bu konu ile ilgili bende yardım konusu açmıştım, sağ olsun Osman Bey buraya yönlendirdi.
Ellerinize, emeğinize sağlık.

[Enes Recep BAĞ]

Murat OSMA Bey galiba.

[esslow]

Murat OSMA Bey galiba.

Ov Çok özür dilerim Murat Bey diyecektim

[Nusret77]

[vba_kadir]

Tarkan hocam, Bu Combobox dan birkaç tane olabilir mi acaba.
Yani bir kaç sütuna arama kriteri girip aratabilirmiyiz.
Yada hepsi Label yerine Combobox olsa nasıl olur.

[vba_kadir]

Texbox yerine label yazmışım afedersiniz.

[vba_kadir]

Tarkan hocam dosya çok harika. Mükemmel.
Ancak excel 2003 sürümünde.
Birde Sütun sayısı çok az.
Ben bir dosya eklicem ama yardımcı olabilirmisiniz bilmiyorum, zaman ayırırmısınız.

[vba_kadir]

Ayrıca değiştir butonu saklı olsa da,
zeten böyle bir kayıt var dediğinde görünse ve üzerine yazılsın mı yazsa nasıl olur.

[vba_kadir]

Birde listview ekleyemedim hocam nasıl ekleyeceğiz.

[vba_kadir]

Enes bey benimmi kafam karışık bilmiyorum.
Sayfayı açarken tarkan vural yazıyordu ilginç.

[vba_kadir]

Tarkan bey bu dosyaya bir FARKLI KAYDET butonu ekleyebilirmiyiz zahmet olmazsa.
Yada gerekli kodları yazabilirmisiniz.

[mesutalkan]

Merhaba listbox doubleclick ile bilgileri ilgili textbox ve comboboxlara çektiğimde
tarih formatında olan veri sayıya dönüşüyor
saat formatında olanlarda aynı sorunu yaşıyorum
yapmak istediğim bu hataları gıdererek bır duzelt butonu eklemek ama bundada başarılı olamadım yardımlarınızı rica ediyorum
formda cok araştırmama rağmen iki tarih arası süzmeyi de gerçekleştiremedim


Listbox doubleclick kodu

Kod: Tümünü seç

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
mkodu = ListBox1.List(ListBox1.ListIndex, 0)
Load UserForm4
UserForm4.TextBox1 = UserForm5.ListBox1.List(UserForm5.ListBox1.ListIndex, 1)
UserForm4.TextBox2 = UserForm5.ListBox1.List(UserForm5.ListBox1.ListIndex, 2)
UserForm4.TextBox3 = UserForm5.ListBox1.List(UserForm5.ListBox1.ListIndex, 3)
UserForm4.TextBox4 = UserForm5.ListBox1.List(UserForm5.ListBox1.ListIndex, 9)
UserForm4.TextBox5 = UserForm5.ListBox1.List(UserForm5.ListBox1.ListIndex, 10)
UserForm4.TextBox6 = UserForm5.ListBox1.List(UserForm5.ListBox1.ListIndex, 11)
UserForm4.TextBox7 = UserForm5.ListBox1.List(UserForm5.ListBox1.ListIndex, 12)
UserForm4.TextBox8 = UserForm5.ListBox1.List(UserForm5.ListBox1.ListIndex, 13)
UserForm4.TextBox9 = UserForm5.ListBox1.List(UserForm5.ListBox1.ListIndex, 14)
UserForm4.TextBox10 = UserForm5.ListBox1.List(UserForm5.ListBox1.ListIndex, 15)
UserForm4.TextBox11 = UserForm5.ListBox1.List(UserForm5.ListBox1.ListIndex, 16)
UserForm4.TextBox16 = UserForm5.ListBox1.List(UserForm5.ListBox1.ListIndex, 17)
UserForm4.TextBox17 = UserForm5.ListBox1.List(UserForm5.ListBox1.ListIndex, 18)
UserForm4.ComboBox1 = UserForm5.ListBox1.List(UserForm5.ListBox1.ListIndex, 4)
UserForm4.ComboBox2 = UserForm5.ListBox1.List(UserForm5.ListBox1.ListIndex, 5)
UserForm4.ComboBox3 = UserForm5.ListBox1.List(UserForm5.ListBox1.ListIndex, 6)
UserForm4.ComboBox4 = UserForm5.ListBox1.List(UserForm5.ListBox1.ListIndex, 7)
UserForm4.ComboBox5 = UserForm5.ListBox1.List(UserForm5.ListBox1.ListIndex, 8)
UserForm4.ComboBox10 = UserForm5.ListBox1.List(UserForm5.ListBox1.ListIndex, 19)
Unload UserForm5
UserForm4.Show
End Sub



Kaydetme butonu

Kod: Tümünü seç

If TextBox1.Text <> "" And TextBox3.Text <> "" Then
        Son_Dolu_Satir = Sheets("ARIZA").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Sheets("ARIZA").Range("A" & Bos_Satir).Value = _
    Application.WorksheetFunction.Max(Sheets("ARIZA").Range("A:A")) + 1
   Sheets("ARIZA").Range("E" & Bos_Satir).Value = ComboBox1.Text
   Sheets("ARIZA").Range("F" & Bos_Satir).Value = ComboBox2.Text
   Sheets("ARIZA").Range("G" & Bos_Satir).Value = ComboBox3.Text
   Sheets("ARIZA").Range("H" & Bos_Satir).Value = ComboBox4.Text
   Sheets("ARIZA").Range("I" & Bos_Satir).Value = ComboBox5.Text
   Sheets("ARIZA").Range("T" & Bos_Satir).Value = ComboBox10.Text
         
   Sheets("ARIZA").Range("B" & Bos_Satir).Value = TextBox1.Text
   Sheets("ARIZA").Range("C" & Bos_Satir).Value = TextBox2.Text
   Sheets("ARIZA").Range("D" & Bos_Satir).Value = TextBox3.Text
   Sheets("ARIZA").Range("J" & Bos_Satir).Value = TextBox4.Text
   Sheets("ARIZA").Range("K" & Bos_Satir).Value = TextBox5.Text
   Sheets("ARIZA").Range("L" & Bos_Satir).Value = TextBox6.Text
   Sheets("ARIZA").Range("M" & Bos_Satir).Value = TextBox7.Text
   Sheets("ARIZA").Range("N" & Bos_Satir).Value = TextBox8.Text
   Sheets("ARIZA").Range("O" & Bos_Satir).Value = TextBox9.Text
   Sheets("ARIZA").Range("P" & Bos_Satir).Value = TextBox10.Text
   Sheets("ARIZA").Range("Q" & Bos_Satir).Value = TextBox11.Text
 
   Sheets("ARIZA").Range("R" & Bos_Satir).Value = TextBox16.Text
   Sheets("ARIZA").Range("S" & Bos_Satir).Value = TextBox17.Text
 
   
   
   
    Sheets("ARIZA").Select
    Unload UserForm4
   Else
   MsgBox "VERİLERİ DOLDURUNUZ"
            End If
           
            End Sub
   



[kayakula]

excelde yaptığım bir çalşımaya kaydet-bul değiştir. düzelt butonları eklemek istiyorum saygılarımla

[Ali ÖZ]

excelde yaptığım bir çalşımaya kaydet-bul değiştir. düzelt butonları eklemek istiyorum saygılarımla

Merhaba,hoş geldiniz.
Öncelikler forum kurallarını gözden geçiriniz. kurallar.php

Geliştirici sekmesinden ekleyebilirsiniz.