Combobox İle Veri Alma ve Benzersiz Kayıtlar Oluşturma

[riddick1453]

İyi çalışmalar sayın excel.web.tr üyeleri ekteki dosyada combobox7(alt Proje adı) ye göre veri tabanından verilerin çekilmesi olayını yaptım fakat yeni bir proje ekleyeceğim zaman kaydet butonuna tıkladığımda "invalid property name" diye bir uyarı çıkıyor. Bunu nasıl çözebilirim.

Yardımlarınız için teşekkürler.

Private Sub CommandButton1_Click()


If ComboBox7.Text <> Empty Then

Else
MsgBox "UYARI!Lütfen Eksik Alanları Doldurunuz."

Exit Sub
End If
son = Sayfa1.Range("a65536").End(3).Row + 1
Sayfa1.Cells(son, "a").Value = ComboBox1.Value
Sayfa1.Cells(son, "b").Value = ComboBox2.Value
Sayfa1.Cells(son, "c").Value = ComboBox3.Value
Sayfa1.Cells(son, "d").Value = ComboBox4.Value
Sayfa1.Cells(son, "e").Value = TextBox1.Value
Sayfa1.Cells(son, "f").Value = ComboBox5.Value
Sayfa1.Cells(son, "g").Value = TextBox2.Value
Sayfa1.Cells(son, "h").Value = ComboBox7.Value
Sayfa1.Cells(son, "i").Value = TextBox3.Value
Sayfa1.Cells(son, "j").Value = TextBox4.Value
Sayfa1.Cells(son, "k").Value = ComboBox6.Value
Sayfa1.Cells(son, "l").Value = TextBox5.Value
Sayfa1.Cells(son, "m").Value = TextBox6.Value
Sayfa1.Cells(son, "n").Value = TextBox7.Value
Sayfa1.Cells(son, "o").Value = TextBox8.Value
Sayfa1.Cells(son, "p").Value = TextBox9.Value
Sayfa1.Cells(son, "q").Value = TextBox10.Value
Sayfa1.Cells(son, "r").Value = TextBox11.Value
Sayfa1.Cells(son, "s").Value = TextBox12.Value
Sayfa1.Cells(son, "t").Value = TextBox13.Value
Sayfa1.Cells(son, "u").Value = TextBox14.Value
Sayfa1.Cells(son, "v").Value = TextBox15.Value
Sayfa1.Cells(son, "w").Value = TextBox16.Value
Sayfa1.Cells(son, "x").Value = TextBox17.Value
Sayfa1.Cells(son, "y").Value = TextBox18.Value
Sayfa1.Cells(son, "z").Value = TextBox19.Value
Sayfa1.Cells(son, "aa").Value = TextBox20.Value
Sayfa1.Cells(son, "ab").Value = TextBox21.Value

MsgBox "Kaydınız Tamamlanmıştır."

Private Sub UserForm_Initialize()
ComboBox7.Clear
For i = 2 To Sayfa1.[h65536].End(3).Row
If WorksheetFunction.CountIf(Sayfa1.Range("h2:h" & i), Sayfa1.Cells(i, "h")) = 1 Then
ComboBox7.AddItem Sayfa1.Cells(i, "h").Value
End If
Next
End Sub


End Sub

Private Sub CommandButton3_Click()
If ComboBox7.Text = "" Then
MsgBox "Lütfen Alt Proje Adını Giriniz"
Else

For Each bul In Sayfa1.Range("h2:h" & Sayfa1.Range("h65536").End(3).Row)
If ComboBox7.Text Like bul.Text & "" Then
MsgBox "Lütfen Alt Proje Adını Giriniz"
ComboBox1.Text = bul.Offset(0, -7).Text
ComboBox2.Text = bul.Offset(0, -6).Text
ComboBox3.Text = bul.Offset(0, -5).Text
ComboBox4.Text = bul.Offset(0, -4).Text
TextBox1.Text = bul.Offset(0, -3).Text
ComboBox5.Text = bul.Offset(0, -2).Text
TextBox2.Text = bul.Offset(0, -1).Text
'ComboBox7.Text = ""
TextBox3.Text = bul.Offset(0, 1).Text
TextBox4.Text = bul.Offset(0, 2).Text
ComboBox6.Text = bul.Offset(0, 3).Text
TextBox5.Text = bul.Offset(0, 4).Text
TextBox6.Text = bul.Offset(0, 5).Text
TextBox7.Text = bul.Offset(0, 6).Text
TextBox8.Text = bul.Offset(0, 7).Text
TextBox9.Text = bul.Offset(0, 8).Text
TextBox10.Text = bul.Offset(0, 9).Text
TextBox11.Text = bul.Offset(0, 10).Text
TextBox12.Text = bul.Offset(0, 11).Text
TextBox13.Text = bul.Offset(0, 12).Text
TextBox14.Text = bul.Offset(0, 13).Text
TextBox15.Text = bul.Offset(0, 14).Text
TextBox16.Text = bul.Offset(0, 15).Text
TextBox17.Text = bul.Offset(0, 16).Text
TextBox18.Text = bul.Offset(0, 17).Text
TextBox19.Text = bul.Offset(0, 18).Text
TextBox20.Text = bul.Offset(0, 19).Text
TextBox21.Text = bul.Offset(0, 20).Text
End If
Next
End If

End Sub