-
- Destek
-
Özel Arama
![]() |
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
Private Sub CommandButton1_Click() 'arama prosedürü
If Sayfa1.Range("L2").Value < 1 Then MsgBox "Kayıt yok": Exit Sub
CommandButton8.visible =false
CommandButton2.visible=false
yapın.If TextBox1 = Empty Or TextBox2 = Empty Then
olarak deneyin.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
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
Private Sub Textbox1_Change()
If Not IsNumeric(TextBox1) Then SendKeys "{BS}"
End Sub
Application.Workbooks.Close
bunu,Application.Quit
olarak değiştirin.
ohreyn yazdı: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
sercantorun yazdı: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 BAĞ yazdı:Murat OSMA Bey galiba.
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
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 yazdı:excelde yaptığım bir çalşımaya kaydet-bul değiştir. düzelt butonları eklemek istiyorum saygılarımla
Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir