ilk girlen veri ile diğer girilen veriyi karşılastırma

[Kemal Demir]

burda 8 textboxtan olusan 240
adet doldurulacak kısım var
bunlar doldurulduktan sonra kontrol mahiyeti ile
userform içerisinde 2 giriş diye bir optionbutton var
burası tıklandıktan sonra tekrar 8 adet textbox aktif hale geliyor
ID(A KOLONU) BAZ ALINARAK
Ã?RNEK:textbox3=3 sırada textbox9 daki girilen değer
3 değilse uyarı versinm ilgili textbox9 daki değeri silsin

Ama bu 33 sırada iken ilgili textboxa karsılık gelen diğer textboxtada gecerli olsun
Bu tum textboxzların karsındaki textboxlar için gecerli olsun

Saygılar.

Antım Yetersiz olabilir Dosya Ekliyorum .
Yardımcı olursanız Sevinirim.Saygılar.

 

[Kemal Demir]

Zannedersem Biraz fala kastım anlasılan.
Yardımcı olurmusunuz Arkadaslar.

Teşekkur Ederim.

 

[Kemal Demir]

Bu konu hakkında yardımcı olabilicek arkadaslar varmı.
Varsa Yardımcı olabilirler mi?

İyi Akşamlar.

 

[veyselemre]

Ekte birşeyler yapmaya çalıştım,

 

[Kemal Demir]

teşekkur ederim.
Bir ilave Bir şey Sormak istiyorum.Buradaki Uyarıyı
Textbox'a farklı girdiğinde alabilirmiyiz.?

 

[veyselemre]

[vb:1:6f3eb902c9]Private Sub CommandButton1_Click()
On Error Resume Next
sonb = [B65536].End(3).Row

For x = 1 To 8
If Controls("textbox" & x) = "" Then
MsgBox "Bilgi eksik tamamlayın yeniden deneyin"
Exit Sub
End If
Next

For x = 1 To 8
Cells(sonb + x, 2) = Controls("textbox" & x)
Controls("textbox" & x) = ""
Next

End Sub
Private Sub CommandButton2_Click()
sonc = [C65536].End(3).Row

For x = 9 To 16
If Controls("textbox" & x) = "" Then
MsgBox "Bilgi eksik tamamlayın yeniden deneyin"
Exit Sub
End If
Next

For x = 9 To 16
Cells(sonc + x - 8, 3) = Controls("textbox" & x)
Controls("textbox" & x) = ""
Next

TextBox9.SetFocus

End Sub
Sub KONTROL(sira)
sonc = [C65536].End(3).Row
If Controls("textbox" & sira) <> Cells(sonc + sira - 8, 2) Then
MsgBox sonc + sira - 8 & ".nolu Satıra Yazılması Gereken Bilgilerde Hata Var Kontrol Edin " & Controls("Textbox" & sira).Value & " <> " & Cells(sonc + sira - 8, 2)
Exit Sub
End If
End Sub

Private Sub OptionButton1_Click()
CommandButton1.Visible = 1
CommandButton2.Visible = 0
For x = 1 To 16
Controls("textbox" & x).Visible = Not Controls("textbox" & x).Visible
Next
End Sub
Private Sub OptionButton2_Click()
CommandButton2.Visible = 1
CommandButton1.Visible = 0
For x = 1 To 16
Controls("textbox" & x).Visible = Not Controls("textbox" & x).Visible
Next
End Sub
Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
KONTROL (9)
End Sub
Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
KONTROL (10)
End Sub
Private Sub TextBox11_Exit(ByVal Cancel As MSForms.ReturnBoolean)
KONTROL (11)
End Sub
Private Sub TextBox12_Exit(ByVal Cancel As MSForms.ReturnBoolean)
KONTROL (12)
End Sub
Private Sub TextBox13_Exit(ByVal Cancel As MSForms.ReturnBoolean)
KONTROL (13)
End Sub
Private Sub TextBox14_Exit(ByVal Cancel As MSForms.ReturnBoolean)
KONTROL (14)
End Sub
Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean)
KONTROL (15)
End Sub
Private Sub TextBox16_Exit(ByVal Cancel As MSForms.ReturnBoolean)
KONTROL (16)
End Sub
Private Sub UserForm_Initialize()
For x = 9 To 16
Controls("textbox" & x).Visible = False
Next
CommandButton2.Visible = False
End Sub[/vb:1:6f3eb902c9]