Benzer değeri farklı sutuna kaydetmesin

[seddur]

Merhabalar.Aşağıdaki kod ile userformdan excel sayfasına kayıt yapıyorum."A" sutununda isim "C" sütununda ilaç adı var.Yapmak istediğim "A" ve "C" sütununa girilen değerler aynı anda "F" ve "G" sutunlarına da kayıt yapsın ama bir sefere mahsus kayıt yapacak yani "F" ve "G" sütununda sadece 1 tane "A" ve "C" değeri olacak.Ekran görüntüsünden daha iyi anlaşılacaktır.Yardımlarınız için Teşekkür ediyorum.

Set s1 = Sheets("Kayıt")
i = Sheets("Kayıt").Cells(Rows.Count, "a").End(3).Row + 1
Sheets("Kayıt").Cells(i, "a") = UserForm1.TextBox1.Text
Sheets("Kayıt").Cells(i, "b") = UserForm1.TextBox2.Text
Sheets("Kayıt").Cells(i, "c") = UserForm1.TextBox3.Text

If CheckBox1.Value = True Then s1.Cells(i, "d") = UserForm1.TextBox6
If CheckBox2.Value = True Then s1.Cells(i, "e") = UserForm1.TextBox6
If CheckBox3.Value = True Then s1.Cells(i, "h") = UserForm1.TextBox6
If CheckBox4.Value = True Then s1.Cells(i, "ı") = UserForm1.TextBox6
If CheckBox5.Value = True Then s1.Cells(i, "j") = UserForm1.TextBox6

 

[seddur]

Konu başlığı yanlış olmuş doğrusu -Benzer değeri farklı sütuna kaydetmesin - olacak.

 

[Korhan Ayhan]

Bu işlem için ÇOKEĞERSAY fonksiyonunu kullanabilirsiniz.

F-G sütununa kayıt işlemi için koşulunuz aşağıdaki gibi olmaldır.

If WorksheetFunction.CountIfs(S1.Range("F:F"), TextBox1, S1.Range("G:G"), TextBox3) = 0 Then
'Buraya kayıt kodlarınızı yazacaksınız...
End If

 

[Korhan Ayhan]

Ya da başka bir yöntemde verileri tekrarlı şekilde F-G sütunlarına kayıt ettikten sonra YİNELENENLERİ KALDIR işlemini uygulayabilirsiniz. Bu yöntemde işinize yarayabilir. Eğer kullanmak isterseniz MAKRO KAYDET tekniği ile kodlarını elde edebilirsiniz.