Userformda butona tıklayınca aynı kaydı engelleme

[Arines]

Merhaba arkadaşlar öncelikle hepinize iyi günler diliyorum.

Benim sorunum şu şekilde ingilizce- türkçe kelime bulma ingilizcesi yazıyor türkçesini bilmeye çalışıyoruz. Kelime ekleme kısmında problem yaşıyorum. Kelime ekliyorum fakat aynı kelimeyi eklemeyi engelleyemedim bir çok yere baktım fakat bununla alakalı bulduğum şeylerde işe yaramadı. Yardımcı olabilir misiniz ? Butona tıkladığımda eğer aynı kelime varsa anlamına da aynı yazıldıysa kayıt yapmayacak eğer anlam farklı girildiyse diğer sütuna kaydını yapacak.

Umarım yardım edebilirsiniz teşekkür ederim şimdiden

 

[YUSUF44]

Örnek olmadan, dosya yapısını ve kodları görmeden bir şey yapamayız.

 

[Arines]

Linkini böyle bırakayım.

İngilizce program

View and download from Yandex Disk

yadi.sk

Kelime ekle kısmındaki butona koyulacak kodlar fakat yapamadım.

 

[YUSUF44]

Aşağıdaki gibi deneyin:

Private Sub CommandButton2_Click()
Sheet1.Activate
son = Sheet1.Cells(Rows.Count, "A").End(3).Row

If TextBox1.Text = "" Or TextBox2.Text = "" Then
    MsgBox "Kayıt Geçirsizdir."
ElseIf WorksheetFunction.CountIf(Sheet1.Range("B1:B" & son), TextBox1.Text) = 0 Then
    Sheet1.Cells(son + 1, "A") = son+1
    Sheet1.Cells(son + 1, "B") = TextBox1.Text
    Sheet1.Cells(son + 1, "C") = TextBox2.Text
    Label10 = "Kelime eklenmiştir."
ElseIf WorksheetFunction.VLookup(TextBox1.Text, Sheet1.Range("B1:C" & son), 2, 0) <> TextBox2.Text Then
    Sheet1.Cells(son + 1, "A") = son+1
    Sheet1.Cells(son + 1, "B") = TextBox1.Text
    Sheet1.Cells(son + 1, "C") = TextBox2.Text
    Label10 = "Kelime eklenmiştir."
Else
    MsgBox "Girilen kelime zaten mevcuttur!", vbInformation
End If
TextBox1.Text = ""
TextBox2 = ""
TextBox1.SetFocus

End Sub

 

[Arines]

Çok teşekkür ederim çok sağolun işe yaradı kodunuz ^^

 

[Arines]

Yeni konu açmamak adına buradan yazıyorum hatalıysam kusura bakmayın şimdiden çok özür dilerim.

Tekrar bir yardıma ihtiyacım var yardım edebilecek biri varsa çok iyi olur.

Program çalıştır sayfasını değiştireceğim kelime ekle İngilizce-Türkçe kelime bulma kısımları değişip A'dan Z'ye sırala, Z'den A'ya sırala tarzı yapacağım butona tıklanınca internette baktığım kadarıyla yapamadım mantığını anlatan herhangi bir döküman falan da bulamadım rica etsem yardımcı olabilir misiniz ?

 

[YUSUF44]

Biraz daha açık anlatırsanız, nerede nasıl bir değişiklik istediğinizi belirtir ve örneklerseniz yardımcı olmaya çalışırız.

 

[Arines]

Dosyayı güncelledim Yusuf Bey. Şöyle anlatayım girişteki ekranda bulunan multipage'in ilk sayfasında optionbuttonlarda yazan A'dan Z'ye Z'den A'ya sırala diye yazdım butona tıklayınca excel içinde bulunan ingilizce ve türkçe kelimeleri sıralayacak. Umarım anlatabilmişimdir.

 

[YUSUF44]

Aşağıdaki kodları kullanın:

Private Sub OptionButton1_Click()
    son = ActiveWorkbook.Worksheets("Sheet1").Cells(Rows.Count, "A").End(3).Row
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("B1:C" & son)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

Private Sub OptionButton2_Click()
    son = ActiveWorkbook.Worksheets("Sheet1").Cells(Rows.Count, "A").End(3).Row
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B1"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("B1:C" & son)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

 

[Arines]

Yusuf Bey gerçekten çok teşekkür ederim hakkınızı helal edin gerçekten. Ellerinize sağlık çok iyisiniz.

 

[YUSUF44]

Helal olsun, iyi çalışmalar, sağlıklı günler.

 

[Arines]

Sizi çok yordum biliyorum fakat fikir almam gerekiyor. Kendini Test Et kısmını nasıl hazırlayabilirim? Labelda bulunan kelimenin anlamını 4 şık olacak şekilde ayarlamam gerekiyor. Aynı test mantığı gibi olacak doğru şık dahil 4 tane de random şık üretmesi gerekiyor. Doğru olanı seçince doğru hanesine +1 yapacak yanlış yapınca yanlış hanesine +1 yapacak? Random karıştırıp yaptım fakat ingilizce kelimenin doğru türkçe karşılığı gelmiyor. Nasıl yapabilirim ?

 

[YUSUF44]

Ben bir şeyler yapmaya çalıştım. ekli dosyayı inceleyin. Geliştirilmesi gereken yer olursa elimden geldiğince yapmaya çalışırım:

ingilizce-program.xlsm

drive.google.com

 

[Arines]

Çok teşekkür ederim ellerinize sağlık tam olarak istediğim buydu çok teşekkürler rahatsız ettim sizi de kusura bakmayın. Helal edin valla hakkınızı.

 

[YUSUF44]

Dosyada biraz değişiklik yaptım. İncelerseniz sevinirim. bir de programı tamamlayınca paylaşırsanız sevinirim. Tüm öğrenciler için faydalı olacaktır:

ingilizce-program.xlsm

drive.google.com

 

[Arines]

Çok geç bir dönüş oldu kusura bakmayın. Programı sizin yaptığınız şekilde yeterince kullanabiliyorum. Bu yüzden tekrar atmadım ve yeni bir şey eklemedim. Her şey için tekrardan teşekkür ederim.