ComboBox sorunu Ve Tekrar Kayıt

[mustafakoker]

Günaydın Arkadaşlar

Ekli Dosyada ComboBoxtaki verileri (I2.I65536) ya kayıt etmemde yardımcı olurmusunuz

İkinci olarak (E2.E65536) seri nolar kısmında aynı seri no okutulduğunda Uyarı Mesajı ile kayıt yapmak istiyorum
yani aynı seri no varsa Uyarı versin ama isteğe göre kayıt yapabilelim

Yardımcı olanlara şimdiden teşekkürler

 

[mustafakoker]

arkadaşlar konu hakkında yardımcı olabilirmisiniz

 

[Orion1]

Dosyanız ekte.

 

[fedeal]

Merhaba,
1.soru için ilgili satırı değiştirin

Sheets("Barkod").Range("I" & Bos_Satir).Value = ETIKET.Text

2.sorudaki mükerrerlik kontrolünü

If WorksheetFunction.CountIf(Range("I2:I65536"), [COLOR="Red"]textbox1.Text[/COLOR]) > 0 Then
    MsgBox "Bu veri Kayıtlıdır.."
    Exit Sub
End If

olarak yapabilirsiniz (textbox ismini değiştirin)

 

[mustafakoker]

Sayın evren hocam ve sayın fedeal yardımlarınız için teşekkürler
Evren hocam sorumu anlatamadım galiba istenilen, etiket taleb eden kişi texboxlarında değil de
seri no kısmında mükerrer kayıt yapılırken uyarı versin
mesala barkodu okuttuğumda 114855 seri kayıtlı tekrar başkası bu barkodu taleb ettiğinde(başkası aynı isimdeki kişiler olabilir) A hücresinde tarih saat var zaten 114855 nolu barkod falancı tarihte verilmiş diyebilelim tekrar istenirse kayıt yapabilelim tekrar teşekkürler

 

[Orion1]

Dosyanız ekte.

 

[mustafakoker]

Evren bey size zahmet verdim tesekkur ederım yardımlarınız için fakat istediğim gibi olmadı
Barkod İçi Açılımı Yani TextBox1 e Barkodu okuttuğumda otomatik excele iligi satırlara atıyor aynı barkodu okuttuğumda da atıyor ama Uyarı mesajı geliyor

İstenilen Etiketler Texboxlarını yani 8,9,10,11 Comandbuton 1 (KATIT) ile aktarıyorum
Buraya kadar hersey normal

Dolayısı ile barkodu okuttuğumda ilgili hücrelere çoktan gecmiş oluyor zaten
barkodun kaydını da KAYIT butonuna alabilirmiyiz bu arada mükerrer ise görmüş oluruz
Yani userform üzerindeki bütün texboxları doldurup kayıt düğmesi ile kayıt altına alayım

 

[Orion1]

Siz bana söylermisiniz hangi nesne Hangi sütunda bakılacak.En doğrusu bu.Deyin textbox1 B sütununda sorgulanacak bende kodu öne göre yazayım.Veya başak bir nesne b sütunu veya başka bir sütunda.Siz yeterli açıklamayı yapmayınca bende tahmini bir şeyler yapıyorum ama olmuyor doğal olarakSorularınızı net bir şekilde açıklarsanız hem ben uğraşmam hemde siz yanıtınız çabucak alısınız.Bizim için kullandığınız başlıklar ve nesnelerin captionları önemli değil isimleri ve sütun adları önemli .Ben B sütununda textbox1e yazdığım değerin mükerer olup olmadığına kontrol etmek istiyorum deyin mesela.Eğer oysa yani bu şekilde sorunuzu sorun.Şimdi bu söylediğim bağlamda sorunuzu tekrardan sorunuz.

 

[mustafakoker]

Sayın Evren Bey Haklısınız anlatamadım bunu için özür dilerim
Ben B veya E sütununda textbox1e yazdığım değerin mükerer olup olmadığına kontrol etmek istiyorum
ikinci olarak

Barkod İçi Açılımı Yani TextBox1 e Barkodu okuttuğumda otomatik excele iligi satırlara atıyor
atmasın bütün Textboxlara veri girildiğinde kayıt butonu ile kayıt edilsin istediğim bu
teşekkürler

 

[Orion1]

B ve E sütunlarında farklı değerler tutuluyor.
Ben sorunuzu anlayamadım.
Bundan sonrası için başka arkadaşaların yardımını alınız.
Kolay gelsin.

 

[mustafakoker]

sayın Evren bey tesekkurler yinede yardımlarınız için
B ve E sutunlarının içerikleri farklı olabilir ama bahsettiğimde buydu

yani b sutununda komple barkod var e sutununda ıse serı no (Bu serı no) B sutunda da yer alıyor yani barkodun içi Ben seri no mükerer kayıt edilmesin istiyordum

kayıtıda barkodu okutunca değil butona bağlayabilirmiyiz diyordum

B sutunu
7129770100091001000901
E Sutunu
100100

Hayırlı akşamlar

 

[mustafakoker]

Sevgili evren bey Yardımlarınız için teşekkür ederim
Sorunumu Sayın Bülent Öztürk sayesinde çözdüm
kodları aşağıdaki gibi değiştirince oldu size ve bülent beye çok teşekkür eder
çalışmalarınızı devamını dilerim

Private Sub CheckBox1_Click()
    If CheckBox1 = True Then
    Application.Visible = True
    Else
    Application.Visible = False
    End If
End Sub

Private Sub UserForm_Activate()
' combobox un içeriği
With ETIKET
    .AddItem "TİP ETİKETİ"
    .AddItem "ÜRÜN ETİKETİ "
End With
Label22 = Format(Now, " dd   mmmm   yyyy    dddd  ")
DoEvents
End Sub

Private Sub TextBox6_Change()
If TextBox1 <> Empty And Len(TextBox1) = 22 Then
tr = Format(Date, "dd.mm.yy")
trh = Format(Date, "dd") & " " & TextBox5 & " " & TextBox3
trh = Format(trh, "dd.mm.yy")
    If CDate(tr) > CDate(trh) + 30 Then
    Res = MsgBox(" DİKKAT FARKLI Tarih Okuttunuz.Devam Edilsin mi?   ", vbYesNo)
            If Res = vbNo Then
            UserForm_Initialize
            Exit Sub
            End If
    End If
End If
End Sub

Private Sub TextBox1_Change()
    If TextBox1 <> Empty And Len(TextBox1) = 22 Then
    TextBox2 = Mid(TextBox1, 1, 10)
    TextBox3 = Mid(TextBox1, 11, 2)
    TextBox4 = Mid(TextBox1, 13, 6)
    TextBox5 = Mid(TextBox1, 19, 2)
    TextBox6 = Mid(TextBox1, 22, 2)
    End If
   If TextBox1 <> Empty And Len(TextBox1) = 22 Then Exit Sub
End Sub

Private Sub UserForm_Initialize()
    TextBox1 = Empty
    TextBox2 = Empty
    TextBox3 = Empty
    TextBox4 = Empty
    TextBox5 = Empty
    TextBox6 = Empty
    TextBox1.MaxLength = 22
    TextBox1.SetFocus
End Sub

Private Sub CommandButton1_Click()
cevap = MsgBox(" Veriler kayıt edilsin mi ", vbYesNo, "")
If cevap = vbNo Then Exit Sub
Dim k As Range
Set k = Range("E2:E65536").Find(TextBox4.Text, , xlValues, xlWhole)
If Not k Is Nothing Then
    If MsgBox("[ " & TextBox4.Value & " ] veri Kayıtlıdır.." & _
    vbLf & "Yinede kayıt etmek istiyormusunuz?", vbYesNo + _
    vbQuestion, "KAYIT") = vbNo Then Exit Sub
End If
  Son_Dolu_Satir = Sheets("Barkod").Range("H65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Sheets("Barkod").Range("H" & Bos_Satir).Value = _
    Application.WorksheetFunction.Max(Sheets("Barkod").Range("H:H")) + 1
    
        With Sheets("Barkod")
            Satır = WorksheetFunction.CountA([a1:a65536])
            Cells(Satır + 1, 1) = Format(Now, "dd.mmmm.yyyy" & " " & "hh:mm")
            Cells(Satır + 1, 2) = TextBox1.Text
            Cells(Satır + 1, 3) = TextBox2.Text
            Cells(Satır + 1, 4) = TextBox3
            Cells(Satır + 1, 4) = Format(TextBox3, "#,#00")
            Cells(Satır + 1, 5) = TextBox4.Text
            Cells(Satır + 1, 6) = TextBox5
            Cells(Satır + 1, 6) = Format(TextBox5, "#,#00")
            Cells(Satır + 1, 7) = TextBox6.Text
            UserForm_Initialize
        End With
 Sheets("Barkod").Range("I" & Bos_Satir).Value = ETIKET.Value
 Sheets("Barkod").Range("J" & Bos_Satir).Value = TextBox8.Text
 Sheets("Barkod").Range("K" & Bos_Satir).Value = TextBox9.Text
 Sheets("Barkod").Range("L" & Bos_Satir).Value = TextBox10.Text
 Sheets("Barkod").Range("M" & Bos_Satir).Value = TextBox11.Text
 MsgBox "_____________________________________________ " & vbLf _
    & "                                               " & vbLf _
    & "      Veri kaydınız yapılmıştır.               " & vbLf _
    & "                                               " & vbLf _
    & "                                               " & vbLf _
    & "                                               " & vbLf _
    & "        LÜTFEN                                 " & vbLf _
    & "                                               " & vbLf _
    & "            DİĞER                              " & vbLf _
    & "                                               " & vbLf _
    & "               BARKODU                         " & vbLf _
    & "                                               " & vbLf _
    & "                   OKUTUNUZ..                  " & vbLf _
    & "                                               " & vbLf _
    & "                                               " & vbLf _
    & "                                               " & vbLf _
    & "                                               " & vbLf _
    & "                                               " & vbLf _
    & "                                               " & vbLf _
    & "                                                 " & vbLf _
    & " _____________________________________________ ", vbOKOnly + vbInformation, "TEŞEKKÜRLER"

 ETIKET_Change = ""
  TextBox8 = ""
  TextBox9 = ""
  TextBox10 = ""
  TextBox11 = ""
 TextBox8.SetFocus
End Sub