Sayfaya Kayıt ama biraz farklı?

[udentr2002]

Merhaba arkadaşlar başlık hiç açıklayıcı olmadı biliyorum.

Örnek dosya hazırladım Giriş sayfasında bulunan textlere verileri yazdıktan sonra kayıt butonun bastığımızda textlerdeki verileri Veri sayfasına yazıyor.
Benim yapmak istediğim ise

Kayıt düğmesine tıkladığımızda Textbox1'deki veriyi Giris syfasının A stünunda arayacak eğer textbox1'deki adı daha önce girilmiş olarak Veri sayfasındaki A stünunda bulursa o verinin olduğu yerde altına bir satır ekleyip bilgileri oraya yazacak.

Eğer Textbox1'e yazılan veriyi Veri sayfasında bulamaz ise normal örnekteki gibi kayıt yapacak

Şimdiden yardımcı olabilecek arkadaşlarıma teşekkür ederim

 

[udentr2002]

Gerek Kalmadı arkadaşlar
deneme yanılma yaparak şöyle bir kod yardımı ile sorunumu çözdüm.

Set s1 = Sheets("Veri")
a = s1.[a65536].End(3).Row + 2
trh = CDate(TextBox5.Value)
trh1 = CDate(TextBox6.Value)
TextBox5 = Format(DateSerial(Year(trh), Month(trh), Day(trh)), "dd.mm.yyyy")
TextBox6 = Format(DateSerial(Year(trh), Month(trh), Day(trh)), "dd.mm.yyyy")

For Each isim In s1.Range("a5:a" & s1.Range("a65536").End(3).Row)
If UCase(LCase(isim)) Like UCase(LCase(TextBox1)) Then

isim.Offset(1, 0).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
isim.Offset(1, 1) = TextBox2.Text
isim.Offset(1, 2) = TextBox3.Text
isim.Offset(1, 3) = TextBox4.Text
isim.Offset(1, 4) = CDate(TextBox5.Value)
isim.Offset(1, 5) = CDate(TextBox6.Value)
isim.Offset(1, 6) = TextBox7.Text

 Exit For
 
End If
Next
  
If isim Is Nothing Then
 
b = s1.[b65536].End(3).Row + 1
  
s1.Cells(b, "a") = TextBox1.Text
s1.Cells(b + 1, "b") = TextBox2.Text
s1.Cells(b + 1, "c") = TextBox3.Text
s1.Cells(b + 1, "d") = TextBox4.Text
s1.Cells(b + 1, "e") = CDate(TextBox5.Value)
s1.Cells(b + 1, "f") = CDate(TextBox6.Value)
s1.Cells(b + 1, "g") = TextBox7.Value

End If
 
MsgBox ("Kayıt Tamamlanmıştır")