S

Çözüldü Personelin Devamlı Listenin Sonunda Yer Alması

S

sedat2161

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Hayırlı günler arkadaşlar. Ekli dosyamın FİŞ TESLİM sayfasındaki personel listesindeki personeller isim alfabetik sıralanmaktadırlar. (Personel giriş çıkışı olmaktadır).
Benim sorunum 4.Sıradaki (Kaya KARACADAĞ) ve 8. Sıradaki (Vedat POLAT) personellerin devamlı listenin altında kalması gerekmektedir. Bunun için yardımlarınızı bekliyorum.
 

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Şöyle bir deneyin bakalım:
-- UserForm_Initalize kodunda End Sub satırının hemen üstüne AlfaSirala diye bir satır ekleyin.
-- AlfaSirala kod blokunda da yine End Sub satırının hemen üstüne şu satırları ekleyin.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(8 satır)
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Şöyle bir deneyin bakalım:
-- UserForm_Initalize kodunda End Sub satırının hemen üstüne AlfaSirala diye bir satır ekleyin.
-- AlfaSirala kod blokunda da yine End Sub satırının hemen üstüne şu satırları ekleyin.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(8 satır)
Genişletmek için tıklayın ...
Hocam userform hatası verdi
 

Ekli dosyalar

  • Ekran Alıntısı.webp
    Ekran Alıntısı.webp
    1.8 KB · Görüntüleme: 1
Oyla 0 Olumsuz oyla
sona eklenecek personel için belki sicilnoların Başına "Z" yada "Son" gibi bir ekleme yapılabilir, yada yeni bir sütun açılı oraya duruma uygun bir değer eklenerek otomasyon sağlanabileceği gibi @Ömer BARAN hocamın kodlarına sona taşınacak her personel için sadece kırmızı yerlerin değişeceği satırlar da eklenebilir
vp = WorksheetFunction.Match("VEDAT POLAT", .[B:B], 0)
.Range("B" & vp & ":J" & vp).Cut: .Cells(son + 1, 2).Insert Shift:=xlDown
 
Oyla 0 Olumsuz oyla
Oyla 0 Olumsuz oyla
halily' Alıntı:
sona eklenecek personel için belki sicilnoların Başına "Z" yada "Son" gibi bir ekleme yapılabilir, yada yeni bir sütun açılı oraya duruma uygun bir değer eklenerek otomasyon sağlanabileceği gibi @Ömer BARAN hocamın kodlarına sona taşınacak her personel için sadece kırmızı yerlerin değişeceği satırlar da eklenebilir
vp = WorksheetFunction.Match("VEDAT POLAT", .[B:B], 0)
.Range("B" & vp & ":J" & vp).Cut: .Cells(son + 1, 2).Insert Shift:=xlDown
Genişletmek için tıklayın ...
Ben bunu Ömer BARAN hocama izah etmek istedim. 7. sorumda . Herhalde suç bende izah edemedim.
 
Oyla 0 Olumsuz oyla
kodu aşağıdaki gibi düzenleyip deneyebilirsiniz
mesela isim eklemek istediğinizde StrSon = "KAYA KARACADAĞ;VEDAT POLAT" bu satıra yeni isim ekleyebilirsiniz
diyelim ki "halily" ismini ekleyeceksiniz bu durumda
StrSon = "KAYA KARACADAĞ;VEDAT POLAT;halily" yazmanız yeterli ama dikkat edin isimleri ayırabilmek için isimler arasına;
"noktalı virgül ;" koymalısınız
Mma bu YÖNTEMDE her dafasında sizin isimleri eklemeniz gerek
otomatik olması için bir yerlerde bir bilginin olması gerek
Kod: 
Görüntülemek için giriş yapmanız gerekmektedir.
(16 satır)
 
Oyla 0 Olumsuz oyla
halily' Alıntı:
kodu aşağıdaki gibi düzenleyip deneyebilirsiniz
mesela isim eklemek istediğinizde StrSon = "KAYA KARACADAĞ;VEDAT POLAT" bu satıra yeni isim ekleyebilirsiniz
diyelim ki "halily" ismini ekleyeceksiniz bu durumda
StrSon = "KAYA KARACADAĞ;VEDAT POLAT;halily" yazmanız yeterli ama dikkat edin isimleri ayırabilmek için isimler arasına;
"noktalı virgül ;" koymalısınız
Mma bu YÖNTEMDE her dafasında sizin isimleri eklemeniz gerek
otomatik olması için bir yerlerde bir bilginin olması gerek
Kod: 
Görüntülemek için giriş yapmanız gerekmektedir.
(16 satır)
Genişletmek için tıklayın ...
Merhaba hocam bir aksilik var ama çözemiyorum. en az 20 defa farklı denemeler yaptım. Yeni isimler eklediğimde koddaki isimleri değiştirdiğimde user form hatası veriyor.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
kodu aşağıdaki gibi düzenlerseniz sayısal yada metin olması fark etmez
xDgr = IIf(IsNumeric(itm), Val(itm), itm) ile ifade sayısalsa sayıya çevriliyor metinse işlem yapılmıyor
ama bence isim yerine sicil No kullanılması daha mantıklı olur
Kod: 
Görüntülemek için giriş yapmanız gerekmektedir.
(17 satır)
 
Oyla 0 Olumsuz oyla
eğer aranan değer yoksa hata vermemesi için
If Not IsError(kk) Then match bulmadığında hata vermemesi için
Kod: 
Görüntülemek için giriş yapmanız gerekmektedir.
(17 satır)
 
Oyla 0 Olumsuz oyla
hata veriyor çünkü çalışmanızda "enver" diye bir değer yok başında ve sonunda boşluklar olduğundan arananı bulamıyor hata veriyor
bulunmadığında hata vermemesi için önerdiğim son kodu kullanın
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Üst