Textboxa girilen değeri karşılaştırma

[drummers]

Userform içinde birkaç textbox var ve textboxlara girilen değerler excelde hücrelere aktarılmaktadır

textbox2 ye firma isimleri girilmektedir ve B2 den başlıyarak aşağıya doğru kaydetmektedir


istediğim şudur textbox2 ye girilen ismin "data" sekmesinde B2:B100 aralığında olup olmadığına bakacak varsa uyarı verecek

ve textbox2 ye yazılan her değeri aynen label1 e yazacak

 

[İhsan Tank]

merhaba
mükerrer kayıt için

Private Sub CommandButton1_Click() 
If TextBox2.Value <> "" Then 
Sheets("data").Activate 
Cells(1, 1).Select 
Do While ActiveCell.Value <> "" 
If Trim(ActiveCell.Value) = Trim(Me.TextBox2.Value) Then 
If MsgBox(Me.TextBox2 & " isimli işçi kayıtlı" & " Yeniden kayıt yapılsın mı?", vbYesNo) = vbNo Then Exit Sub 
End If 
ActiveCell.Offset(1, 0).Activate 
Loop 
ActiveCell.Value = TextBox2.Value 
ActiveCell.Offset(0, 1).Value = TextBox2.Value 
End If 
End Sub

kod alıntıdır

 

[drummers]

Private Sub CommandButton1_Click()
Sheets("data").Range("A2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

If Sheets("data").Range("A2").Value = "" Then
Sheets("data").Range("A2").Value = 1
Sheets("data").Range("A2").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox2.Text
ActiveCell.Offset(0, 4).Value = TextBox3.Text
ActiveCell.Offset(0, 5).Value = TextBox4.Text
ActiveCell.Offset(0, 6).Value = TextBox5.Text
ActiveCell.Offset(0, 7).Value = TextBox6.Text
ActiveCell.Offset(0, 8).Value = TextBox7.Text
ActiveCell.Offset(0, 9).Value = TextBox8.Text
ActiveCell.Offset(0, 10).Value = TextBox9.Text
ActiveCell.Offset(0, 11).Value = TextBox10.Text
ActiveCell.Offset(0, 12).Value = TextBox11.Text
ActiveCell.Offset(0, 13).Value = TextBox12.Text
ActiveCell.Offset(0, 14).Value = TextBox13.Text
ActiveCell.Offset(0, 15).Value = TextBox14.Text
ActiveCell.Offset(0, 16).Value = TextBox15.Text
ActiveCell.Offset(0, 17).Value = TextBox16.Text
ActiveCell.Offset(0, 18).Value = TextBox17.Text
ActiveCell.Offset(0, 19).Value = TextBox18.Text
ActiveCell.Offset(0, 20).Value = TextBox19.Text
ActiveCell.Offset(0, 21).Value = TextBox20.Text
ActiveCell.Offset(0, 22).Value = TextBox21.Text
ActiveCell.Offset(0, 23).Value = TextBox22.Text
ActiveCell.Offset(0, 24).Value = TextBox23.Text
ActiveCell.Offset(0, 25).Value = TextBox24.Text
ActiveCell.Offset(0, 26).Value = TextBox25.Text
ActiveCell.Offset(0, 27).Value = TextBox26.Text
ActiveCell.Offset(0, 28).Value = TextBox27.Text
ActiveCell.Offset(0, 29).Value = TextBox28.Text
ActiveCell.Offset(0, 30).Value = TextBox29.Text
ActiveCell.Offset(0, 31).Value = TextBox30.Text
ActiveCell.Offset(0, 32).Value = TextBox31.Text
ActiveCell.Offset(0, 33).Value = TextBox32.Text
ActiveCell.Offset(0, 34).Value = TextBox33.Text
ActiveCell.Offset(0, 35).Value = TextBox34.Text
ActiveCell.Offset(0, 36).Value = TextBox35.Text
ActiveCell.Offset(0, 37).Value = TextBox36.Text
ActiveCell.Offset(0, 38).Value = TextBox37.Text
ActiveCell.Offset(0, 39).Value = TextBox38.Text
ActiveCell.Offset(0, 40).Value = TextBox39.Text
ActiveCell.Offset(0, 41).Value = TextBox40.Text
ActiveCell.Offset(0, 42).Value = TextBox41.Text
ActiveCell.Offset(0, 43).Value = TextBox42.Text
ActiveCell.Offset(0, 44).Value = TextBox43.Text
ActiveCell.Offset(0, 46).Value = TextBox45.Text

acik = "işlem tamam"
buton = vbOKOnly + vbInformation + vbDefaultButton1
bas = kayıt = "işlemi"
MsgBox acik, buton, bas

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
TextBox16.Text = ""
TextBox17.Text = ""
TextBox18.Text = ""
TextBox19.Text = ""
TextBox20.Text = ""
TextBox21.Text = ""
TextBox22.Text = ""
TextBox23.Text = ""
TextBox24.Text = ""
TextBox25.Text = ""
TextBox26.Text = ""
TextBox27.Text = ""
TextBox28.Text = ""
TextBox29.Text = ""
TextBox30.Text = ""
TextBox31.Text = ""
TextBox32.Text = ""
TextBox33.Text = ""
TextBox34.Text = ""
TextBox35.Text = ""
TextBox36.Text = ""
TextBox37.Text = ""
TextBox38.Text = ""
TextBox39.Text = ""
TextBox40.Text = ""
TextBox41.Text = ""
TextBox42.Text = ""
TextBox43.Text = ""
TextBox44.Text = ""
TextBox45.Text = ""
end sub

ben böyle kaydediyorum sizin kodu buna uyarlıyamadım .. Yardım rica etsem

 

[drummers]

örnek dosyayı ekliyorum

birde textbox2 ye yazılan yada listbox1 de seçilen her ismin en attaki label13 içinde görünmesini sağlıyabilirmisiniz

teşekkürler

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz..

Private Sub CommandButton1_Click()
 
Set S1 = Sheets("data")
son = S1.[A65536].End(3).Row + 1
 
If WorksheetFunction.CountIf(S1.[B:B], TextBox2.Text) = 0 Then
    S1.Range("A" & son).Select: S1.Range("A" & son) = son - 1
    ActiveCell.Offset(0, 1).Value = TextBox2.Text
 
    For i = 4 To 46
        ActiveCell.Offset(0, i).Value = Controls("textbox" & i - 1)
    Next i
 
    acik = "işlem tamam": buton = vbOKOnly + vbInformation + vbDefaultButton1
    bas = kayıt = "işlemi": MsgBox acik, buton, bas
 
    For i = 1 To 45
        Controls("textbox" & i) = ""
    Next i
Else
    MsgBox "Mükerrer Veri Girişi Yaptınız"
End If
 
End Sub
 
Private Sub TextBox2_Change()
    Label13 = TextBox2.Text
End Sub

.

 

[Ömer]

Mükerrer ile ilgili sorunuzu yeni farkettim. #5 nolu mesajdaki kodu buna göre yeniden güncelledim..

.

 

[drummers]

Mükerrer ile ilgili sorunuzu yeni farkettim. #5 nolu mesajdaki kodu buna göre yeniden güncelledim..

.

hay ALLAH razı olsun... baya makbule geçti

 

[drummers]

ömer bey texbaklar ilgili hücrelere kayıt yapmıyor sadece adı soyadı bölümünü kayıt ediyor

mükerrer kayıtta sorun yok ama bir bakabilirmisiniz

 

[Ömer]

Deneyerek vermiştim. Eski kodları sildiniz mi?

.

 

[drummers]

Deneyerek vermiştim. Eski kodları sildiniz mi?

evet sildim ... örnek dosya eklemiştim üzerinde yapabilirseniz memnun olurum

 

[Ömer]

Eki inceleyiniz..

.

 

[drummers]

teşekkürler.. elinize sağlık