Soru Veri kaydedince tckimlik aynı olanların alt alta gelmesi

[balanar]

Merhaba, ekte eklediğim dosyada kayıt girişi yapıldıktan sonra alttaki boş satıra veri ekliyor.

Benim burada yapmak istediğim TC'sine bakarak ekleyince direk aynı kişi olanın altına eklenmesini istiyorum yardımcı olabilirseniz sevinirim



Aynı tcler alt alta.. Amacım aynı kişiye ait olanlar alt alta gelsin yeni veri eklesekte..

Dosyayı verisiz şekilde ekledim. Bununda nedeni Combobox1'e anasayfada veri olmayınca düzgün veri çekmiyor. Sayfa1'e veri eklenmeye başladıktan sonra combobox içeriğini çekiyor bu konudada yardımcı olursanız sevinirim..

 

[Cengiz Demir]

Bu kodu modüle kopyalayın ve user formdaki verileri excele aktaran makronuzun en altına
Call Sirala yazın. Bu kod, her kayıt işleminden sonra sıralama yapacaktır.

Sub Sirala()
Columns("A:I").Sort key1:=Range("A2"), _
      order1:=xlAscending, Header:=xlYes
End Sub

 

[balanar]

hocam teşekkürler aynı tckimlik altına ekliyor..

Combobox1'e anasayfada veri olmayınca düzgün veri çekmiyor bu konu hakkında bilginiz var mı

 

[Cengiz Demir]

Rica ederim.
O şekilde bakmadım. İnceliyeyim. Bir şey bulursam yazarım.

hocam teşekkürler aynı tckimlik altına ekliyor..

Combobox1'e anasayfada veri olmayınca düzgün veri çekmiyor bu konu hakkında bilginiz var mı

 

[Cengiz Demir]

Comboboxa ekleme yapılacak alan belirlemede bir sorun vardı. Kodu aşağıdaki şekilde düzenledim.
Eski kodun yerine bunu ekleyebilirsiniz..

Private Sub UserForm_Initialize()
Dim xfGct As Object, xyXnt As Range, xXnt As Range
Dim sstr As Long
Dim alan As String

Set xfGct = CreateObject("Scripting.Dictionary")
sstr = Sheets("vergidaireleriveiban").Cells(Rows.Count, 1).End(xlUp).Row
alan = "A2:" & "A" & sstr
Set xyXnt = Sheets("vergidaireleriveiban").Range(alan)
For Each xXnt In xyXnt
If xXnt.Value <> "" Then xfGct(xXnt.Text) = 1
Next
ComboBox1.List = xfGct.Keys
Set xfGct = Nothing
Set xyXnt = Nothing

End Sub

 

[balanar]

hocam çok teşekkür ediyorum..