Çö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: 
You must log in to view content
(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: 
You must log in to view content
(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: 
You must log in to view content
(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: 
You must log in to view content
(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: 
You must log in to view content
(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: 
You must log in to view content
(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.

Benzer Konular Popüler Daha Fazlası

Konuyu başlatan
S
sedat2161
Normal Üye
Katılım
Konu Bilgi
Durum
Çözüldü 
Forum
Genel Excel Soruları
Başlangıç tarihi
Son yanıt tarihi
Cevaplar
21
Üst