userform

[sinemomec]

o şekilde düzeltim yine hata veriyor dosya ekliyorum

 

[sinemomec]

İndir EVRAK KAYIT1

Dosyayı indir EVRAK KAYIT1

dosya.co

 

[sinemomec]

hatayı buldum düzelttim ama belirli kayıttan sonra veriler konu ve kurumlara giden verileri karıştırma yapıyor.

 

[AdemCan]

Son paylaştığınız dosyada hangi kayıtlar karışmış durumda? Örnek olarak gösterir misiniz?

 

[sinemomec]

şimdi gelenevrakta kayıt yapılan verilerden konu ve gelen kurum kısmına bakınız daha sonra tekrar KONUGELEN VE GELENKURUM sayfalarına girerseniz eksikleri görecekseniz ve combobax ta baktığınız zamanda göreceksiniz ayrıca combobax ta ta incelediğiniz zaman konu ile kurum verileri birbirine karışık göstermekte.
teşekkür ederim.
https://dosya.co/w8b2ql6tcp8a/EVRAK_KAYIT2.xlsm.html

 

[sinemomec]

cbkonu combobax a bakarsanız ıkı veriyi birden göstermekte ve konugelen sayfasında veriyi girmemektedir.

 

[AdemCan]

Kurum ve konu bölümlerinde aynı isimler olduğu için karışıklık varmış gibi görünüyor bence. Sayfalardaki kayıtlarda düzenleme yaptım. Comboboxlara gelen kayıtlarda karışıklık yok. Gerçek dosyanızın yedeğini alıp, kodları denediniz mi?

İndir EVRAK KAYIT2

Dosyayı indir EVRAK KAYIT2

dosya.co

 

[sinemomec]

kadir bey o sorunu çözdüm şimdilik bir sıkıntı yok ancak alfabetik ve mükerrer kayıt yapmada bir hata veriyor

 

[sinemomec]

onları da düzeltim çok teşekkür ederim herşey için.

 

[AdemCan]

Rica ederim Kadir Bey kim bilmiyorum ama forumdaki konularda karıştı sanırım.

 

[sinemomec]

aynen pardon özür dilerim. kafam karıştı

 

[sinemomec]

peki birsey danışcam listbax daki alt scrollbar neden açılmıyor olabilir

 

[AdemCan]

Formların ve listboxın boyutlarını uygun olacak şekilde küçülttüğünüz zaman kaydırma çubukları görünür.

Spoyler: Ekran Görüntüsü

 

[sinemomec]

gidenevrak kısmında sıkıntı yaşıyorum kuçultmeme rağmen olmadı acaba özellik kısmında bir durum olabilir mi

 

[AdemCan]

Giden evrak formunda listboxın alt tarafı frame içinde kaldığı için görünmüyor.

Spoyler: Ekran Görüntüsü

 

[sinemomec]

teşekkür ederim.

 

[AdemCan]

Rica ederim.

 

[sinemomec]

adem bey gelenevrak ve gidenevrak sayfalarında verileri sıfırlayınca tekrar hata alıyorum
ve
pson = Worksheets("PERSONELÖNTANIM").Cells(Rows.Count, 2).End(3).Row
pliste = Worksheets("PERSONELÖNTANIM").Range("B2:B" & pson)
With Cbhavaleedilenmemur
.Clear
.List = pliste
End With
dson = Worksheets("DESİMALDOSYA").Cells(Rows.Count, 2).End(3).Row
dliste = Worksheets("DESİMALDOSYA").Range("D2" & dson)
With Cbdesimaldosya
.Clear
.List = dliste
End With
bu kodun amacı nedir tam kavrayamadım çünkü çok vba bilgim yok ögrenme aşamasındayım

teşekkür ederim.