Personelin Devamlı Listenin Sonunda Yer Alması

sedat2161 · 12 Tem 2022

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.

Ömer BARAN · 12 Tem 2022

Şö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:

İndirmek için giriş yapmanız gerekmektedir.
(8 satır)

sedat2161 · 12 Tem 2022

Ö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:

İndirmek için giriş yapmanız gerekmektedir. (8 satır)

Hocam userform hatası verdi

Ömer BARAN · 12 Tem 2022

İlk maddedeki eklemeyi iptal ederek deneyin.

sedat2161 · 12 Tem 2022

Ömer BARAN' Alıntı:
İlk maddedeki eklemeyi iptal ederek deneyin.

ilk madde dediğiniz AlfaSirala yımı iptal edeyim.
Hocam bide veriler üste kaydı

Ömer BARAN · 12 Tem 2022

Her iki eklemeyi yaptığımda bende bir sorun yok.
Birkaç kod satırında küçük dokunuşlar da yaptım.
Sicil No sütununu boş bırakmayın derim.

Denersiniz.

sedat2161 · 12 Tem 2022

Ömer BARAN' Alıntı:
Her iki eklemeyi yaptığımda bende bir sorun yok.
Birkaç kod satırında küçük dokunuşlar da yaptım.
Sicil No sütununu boş bırakmayın derim.

Denersiniz.

Hocam yeni bir personel bu koda eklemek gerekirse nasıl yazmam gerekiyor.

Ömer BARAN · 12 Tem 2022

YENİ PERSONEL olayına ve ilgili düğme kodlarına hiç bakmadım.

halily · 12 Tem 2022

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

halily · 12 Tem 2022

çalışmanıza sicilnoyu aynı isme sahip kişileri ayırmak için koymuştuk ama şimdi sicil noların boş olduğu isimler var?

sedat2161 · 12 Tem 2022

Ömer BARAN' Alıntı:
YENİ PERSONEL olayına ve ilgili düğme kodlarına hiç bakmadım.

Hocam bu konu ile ilgili

halily' Alıntı:
çalışmanıza sicilnoyu aynı isme sahip kişileri ayırmak için koymuştuk ama şimdi sicil noların boş olduğu isimler var?

Hocam denemeler yapıyorum. Doğrudur sicil noyu aynı isme sahip kişileri ayırmak için koymuştunuz bazen unutuyorum. Dikkat etmem gerek.

sedat2161 · 12 Tem 2022

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

Ben bunu Ömer BARAN hocama izah etmek istedim. 7. sorumda . Herhalde suç bende izah edemedim.

halily · 12 Tem 2022

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:

İndirmek için giriş yapmanız gerekmektedir.
(16 satır)

sedat2161 · 12 Tem 2022

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:

İndirmek için giriş yapmanız gerekmektedir. (16 satır)

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.

halily · 12 Tem 2022

sayı yerine metin denediniz mi? sonuçta isim sayısal bir değer değil

sedat2161 · 12 Tem 2022

halily' Alıntı:
sayı yerine metin denediniz mi? sonuçta isim sayısal bir değer değil

Evet hocam zaten metinde olmadı sayı yamak daha rahat olduğu için öyle yaptım.

halily · 12 Tem 2022

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:

İndirmek için giriş yapmanız gerekmektedir.
(17 satır)

halily · 12 Tem 2022

eğer aranan değer yoksa hata vermemesi için
If Not IsError(kk) Then match bulmadığında hata vermemesi için

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(17 satır)

sedat2161 · 12 Tem 2022

halily' Alıntı:
eğer aranan değer yoksa hata vermemesi için
If Not IsError(kk) Then match bulmadığında hata vermemesi için

Kod:

İndirmek için giriş yapmanız gerekmektedir. (17 satır)

Hocam inanın kafam çok karıştı. Hocam asıl dosyama yakın bir dosya ekliyorum bi deneme yapabilirseniz çok memnun olurum.

halily · 12 Tem 2022

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