Aynı soyadlarından birincisini tanıyor

[puma22]

Buradan Sn İLERİEXCEL hocama çok teşekkür ediyorum ayrıca tüm katılımcılara kendisinin bende emeği çok onun büyük katkıları ile hazırladığım form da yapmak istediğim aynı soyad dan olan kişilerden sadece excel deki ilk kayıtlı olanı tanıyor diğerlerini tanımıyor

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[puma22]

Sn Levent hocam teşekkür ederim

 

[Levent Menteşoğlu]

Rica ederim. Eğer listboxta benim hazırladığım gibi isimleri görmek istemezseniz bu durumda sadece listboxtaki kodu aşağıdaki ile değiştirmeniz yeterlidir.

Private Sub ListBox1_Click()
say = ListBox1.ListIndex + 1
TextBox8.Value = ListBox1
Dim bak As Range
For Each bak In Range("C1:C" & WorksheetFunction.CountA(Range("C1:C65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox8.Value, vbUpperCase) Then
c = c + 1
bak.Select
TextBox1.Value = ActiveCell.Offset(0, -2).Value
TextBox2.Value = ActiveCell.Offset(0, -1).Value
TextBox3.Value = ActiveCell.Offset(0, 0).Value
TextBox4.Value = ActiveCell.Offset(0, 1).Value
TextBox5.Value = ActiveCell.Offset(0, 2).Value
TextBox6.Value = ActiveCell.Offset(0, 3).Value
TextBox7.Value = ActiveCell.Offset(0, 4).Value
If c = say Then Exit Sub
End If
Next bak
TextBox8.SetFocus
End Sub

 

[puma22]

Sn levent hocam çok teşekkür ederim yardımlarınız için iyiki varsınız bunu tüm samiyetimle söylüyorum Olurmu hocam körün istediği bir göz Allahın verdiği iki göz

 

[harakikiri]

benzeri bir durumda bende var, baya bir araştırma yaptım ama benim bilmek istediğim yapılışından ziyade sebebi yardımcı olursanız sevinirim. Yapmak istediğim ise formdaki kayıt butonuna tıkladığımda , formumda bulunan 2 textbox ve bir comboboztaki veriyi b2,c2,d2 hücrelerine yazmak. ve yeni bir kayıt numarasını alt satıra vererek bir sonraki kayda hazır olmasını sağlamk fakat StrConv hatasını gideremedim. aslında strconv tam anlamış değilim.
başarılı çalışmalar.

Private Sub cmdkaydet_Click()
Dim bak As Range
Dim say As Integer
For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A65000")))
If bak.Value = CbAd.Value Then
MsgBox "kayıt nosu var "
End If
Next bak
For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(txtsira.Value, vbUpperCase) Then
MsgBox "Bu model mevcut"
End If
Next bak
say = WorksheetFunction.CountA(Range("B1:B65000"))
txtsira.Value = say
Cells(say + 1, 1).Value = txtsira.Value
Cells(say + 1, 2).Value = CbAd.Value
Cells(say + 1, 3).Value = txturun.Value
MsgBox "Verileriniz Kaydedildi"
CbAd.RowSource = "stok!B2:B" & say + 1
txtsira.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub