Userformdan kayıt yaparken, sıralı kayıt yapmak.

[İsmail Küçükşengün]

Merhabalar;


Private Sub CommandButton7_Click()
On Error Resume Next
Dim deneme As Integer
deneme = Application.CountA(Sheets("liste (2)").Columns("A")) + 1
Sheets("liste (2)").Cells(deneme, 1) = TextBox2.Text
Sheets("liste").Cells(deneme, 2) = TextBox3.Text
If TextBox4 <> "" Then Sheets("liste (2)").Cells(deneme, 3) = TextBox4.Text
If TextBox5 <> "" Then Sheets("liste (2)").Cells(deneme, 4) = TextBox5.Text
If TextBox6 <> "" Then Sheets("liste (2)").Cells(deneme, 5) = TextBox6.Text
If TextBox6 <> "" Then Sheets("liste (2)").Cells(deneme, 6) = TextBox7.Text
If TextBox8 <> "" Then Sheets("liste (2)").Cells(deneme, 7) = TextBox8.Text
Sheets("liste (2)").Cells(deneme, 8) = TextBox9.Text
Sheets("liste (2)").Cells(deneme, 9) = TextBox10.Text
If TextBox26 <> "" Then Sheets("liste (2)").Cells(deneme, 10) = TextBox26.Text
If TextBox27 <> "" Then Sheets("liste (2)").Cells(deneme, 11) = TextBox27.Text
If TextBox28 <> "" Then Sheets("liste (2)").Cells(deneme, 12) = TextBox28.Text
If TextBox29 <> "" Then Sheets("liste (2)").Cells(deneme, 13) = TextBox29.Text
If TextBox11 <> "" Then Sheets("liste (2)").Cells(deneme, 14) = TextBox11.Text
If TextBox12 <> "" Then Sheets("liste (2)").Cells(deneme, 15) = TextBox12.Text
Sheets("liste (2)").Cells(deneme, 16) = TextBox13.Text
Sheets("liste (2)").Cells(deneme, 17) = TextBox14.Text
If TextBox15 <> "" Then Sheets("liste (2)").Cells(deneme, 18) = TextBox15.Text
If TextBox16 <> "" Then Sheets("liste (2)").Cells(deneme, 19) = TextBox16.Text
If TextBox17 <> "" Then Sheets("liste (2)").Cells(deneme, 20) = TextBox17.Text
If TextBox18 <> "" Then Sheets("liste (2)").Cells(deneme, 21) = TextBox18.Text
If TextBox19 <> "" Then Sheets("liste (2)").Cells(deneme, 22) = TextBox19.Text * 1
If TextBox20 <> "" Then Sheets("liste (2)").Cells(deneme, 23) = TextBox20.Text * 1
If TextBox21 <> "" Then Sheets("liste (2)").Cells(deneme, 24) = TextBox21.Text * 1
If TextBox22 <> "" Then Sheets("liste (2)").Cells(deneme, 25) = TextBox22.Text * 1
If TextBox23 <> "" Then Sheets("liste (2)").Cells(deneme, 26) = TextBox23.Text * 1
If TextBox24 <> "" Then Sheets("liste (2)").Cells(deneme, 27) = TextBox24.Text * 1
If TextBox25 <> "" Then Sheets("liste(2)").Cells(deneme, 28) = TextBox25.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 = ""
TextBox23.Text = ""
TextBox24.Text = ""
TextBox25.Text = ""
TextBox26.Text = ""
TextBox27.Text = ""
TextBox28.Text = ""

TextBox29.Text = ""


MsgBox "Yeni Dava Bilgileri Kaydedilmiştir."

End Sub

Yukarıdaki kodla, userforma üzerinden, excel sayfasına kayıt yapmaktayım. Kayıtlar en son boş satıra yapılmaktadır.

İleride bu bilgileri görmek istediğimizde, kolaylık olması açısından,
kayıt sırasında, sıralı olarak kayıt yapabilir miyiz?

Yani Mehmet adlı bir kişiyi kayıt yaparken, bu son kayıt, enson satıra değil de, (mesela Kemal isimli önceden bir kayıt varsa) bu kayıttan önceki
satıra yapılabilir mi?

Bunun için yukarıdaki koda ne gibi ilave gerekir.

NOT: Liste sayfamızda A sütununda sıra no. yok. Sıralamanın A SÜTUNU ESAS ALINARAK yapılması.

Şimdiden teşekkürler...

 

[Levent Menteşoğlu]

Kodlarınızın en sonuna isme göre sıralama yapan bir satır ilave edin. Örneğin;

[a2:bb65536].sort key1:=[c2]

 

[İsmail Küçükşengün]

Kodlarınızın en sonuna isme göre sıralama yapan bir satır ilave edin. Örneğin;

[a2:bb65536].sort key1:=[c2]

Kodundaki (c2) herhalde sıralama yapılması istenen sütun adı olduğunu
düşünerek (bende a sütunu sıralı kaydetmesini istediğimden) (a2) olarak
değiştirip uyguladım. Fakat yine satırın sonuna yazdı.

Çalışmamda A sütunund sıralama yapmasını düşündüğümüzde, yukarıdaki
kodlarımın, neresine ve nasıl ilave edilmesini yazabilirseniz memnun olurum.

Teşekkür ve saygılarımla..

 

[Levent Menteşoğlu]

Aşağıdaki gibi end sub satırından hemen önce olmalı.

[vb:1:9260d34442]
.
.
.
[a2:bb65536].sort key1:=[a2]
end sub
[/vb:1:9260d34442]

 

[İsmail Küçükşengün]

Aşağıdaki gibi end sub satırından hemen önce olmalı.

[vb:1:082b5cc120]
.
.
.
[a2:bb65536].sort key1:=[a2]
end sub
[/vb:1:082b5cc120]

Burada a2:bb .. bb.kaydedilecek son sütun olduğunu düşünerek
[a2:ab65536].sort key1:=[a2] olarak uguladım. Yine son satıra yazdı.
Türkçe karakterler etkiler mi.

Selamlar..

 

[İsmail Küçükşengün]

Yukarıdaki sorunumu henüz çözemedim.

Listede çok isim olduğundan, bulmak için gerekli gördüğüm bu sorunumu çözmeye yardımcı olacaklara şimdiden teşekkürlerimi sunarım.