Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 12-11-2017, 23:54   #1
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,504
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr
Varsayılan Matbu dilekçe hazırlama programında 4 sorun

Zipten çıkarılan klasörün C:\ Altına konması , yani yolun "Cresimler" olması gerekli . Burada programın kısayolu yapılarak masaustune çekilmeli


Bir üyenin talebini ,userform kontrolleri ile geliştirdim.
Özetle; diplomasını kaybeden ve tasdiknamesini kurumdan almak isteyenler için bir matbu dilekçe düzenlemek amaçlı, kişi listesi ve belge sayfası var. Ancak listede herkesin (asıl liste 1970lere gittiğinden ) TC kimliği yok ve iki taraflı kontrol edilerek önce TC sinn yerleştirilmesi ve buradan da belge sayfasına gerekli hücrelerin aktarımını yapmak üzere 14 textbox 1 listbox 2 combobox ile resim çağırmak üzere bir imagebox nesneleri olan bir userform yaptım.

Dosyanın masaustunde kazara delete edilmesi riskine karşılık, dosya ve resimleri içeren bir klasörü C: altına atarak dosyanın kısayolunu masaustune aldım. Buraya kadar sorun yok.

Ancak düzeltmeleri forumdaki örneklerle de eşleştirsem de gün boyu başaramadığım birkaç noktada sizlerin düzeltmesini rica etmek üzere, bütün klasörü zip olarak yüklüyorum. Kişi resmi bir kurumda ve mesaisine yetiştirmeyi umuyorum .

Aksaklıklar:
1- İkiz isim kontrolü yapmak için listboxu süzmesini beklediğim textbox41, isim yazarken tetiklendiğinde listbox un .Clear fonksiyonunda takılıyor. Süzme gerçekleşmiyor , dolayısı ile kişinin diğer ( ana baba adı doğum yeri vs ) ayrıntıları gözle kontrol edilip doğru olanı seçilemiyor. Bu seçme yapılır ve tıklanırsa veri textboxlara yükleniyor ve bu anda eksik olan TC Numarası girilip, değiştir tuşu ile de sabitleniyor.
Bundan sonra arama TC üzerinden yapılabilecek ve bulunduğunda Dilekçe tuşuna basıldığında veriden gelen bilgilerin Belge sayfasında gerekli yerlere (varsa resimle beraber ) aktarması gerçekleşecek.

2-Dilekçe tuşuna basınca userform kapanıyor ve Belge sayfasına aktarma yapılıyor. Burada sorun , eğer klasöre kondu ise userformda görünen resim Belge sayfasında ayrılan yer boyutunda değil minicik çıkıyor. Bunun yerine tam ( AD31) eşitlenmesi gerekiyor.

3- Belge sayfasında aslında printpreview ve userforma dön tuşları var. Ancak kodlarda bulunan Alldrawingobjects.delete , eski resimle beraber bu tuşları da yok ediyor. Dolayısı ile altta sayfa adlarına basarak geri dönmek mümkün oluyor. Yani , belge sayfasında resmin boyutlanması ve baskı alanı dışında varolan 2 tuşun eski resimle beraber silinmekden kurtulması gerek.

4- TC kimlikten seçilen kişinin resmi varsa dilekçe tuşuna basınca belge sayfasına ( minik de olsa bir ) resim olarak atıyor. Kişinin resmi yoksa uyarı veriyor ancak , kodlar resim bulamadığında takılıp VBA yı açıyor. Resim yoksa Belge sayfasındaki (AD31) alan boş / beyaz olarak kalması gerek. Sayfada aslında printpreview ve userform aç kodları var ama tuşlar eski resimi kaldırırken (AllDrawingobjects.delete) ile temizlik esnasında siliniyor.

Bu aksaklıkların düzelmesi ve programın sorunsuz iş görmesi adına desteğiniz ve farklı kod uyarlamaları sevindirici olacaktır.
Eklenmiş Dosyalar
Dosya Türü: rar programdaki aksaklıklar.rar (314.3 KB, 17 Görüntülenme)

Bu mesaj en son " 13-11-2017 " tarihinde saat 00:02 itibariyle cems tarafından düzenlenmiştir....
cems Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 13:00   #2
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,489
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Private Sub TextBox41_Change() kodunu aşağıdaki ile değiştir.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub TextBox41_Change()
Dim sat, s As Integer
Dim deg1, deg2 As String
ListBox1.RowSource = ""
ReDim myarr(0 To 13, 1 To 1)
For sat = 5 To Cells(65536, "b").End(xlUp).Row
deg1 = UCase(Replace(Replace(Cells(sat, "b"), "ı", "I"), "i", "İ"))
deg2 = UCase(Replace(Replace(TextBox41, "ı", "I"), "i", "İ"))
If deg1 Like "*" & deg2 & "*" Then
a = a + 1
ReDim Preserve myarr(0 To 13, 1 To a)
For j = 0 To 13
myarr(j, a) = Cells(sat, j + 1)
Next j

End If: Next

ListBox1.Column = myarr
End Sub
Private Sub CommandButton3_Click() kodunu aşağıdaki ile değiştir.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton3_Click()
If ActiveCell.Row < 2 Then
        MsgBox "İlk önce BUL ile değiştirmek istediğiniz veriyi bulmalısınız!", vbCritical
        Exit Sub
    End If
    
    Onay = MsgBox("Seçtiğiniz kayıt değiştirilecektir! Onaylıyor musunuz?", vbExclamation + vbYesNo)
    If Onay = vbNo Then Exit Sub
    
    'ActiveCell = Val(TextBox2)
    sat = Val(TextBox1.Value) + 4
    For i = 1 To 14
    Sheets("sayfa1").Cells(sat, i).Value = Me.Controls("TextBox" & i)
    Next i
    End Sub
Private Sub ComboBox2_Change() kodunu aşağıdaki ile değiştir.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub ComboBox2_Change()
Dim Hedef, resimadi, Dosya, uzanti

Hedef = ThisWorkbook.Path & "\"

resimadi = ComboBox2.Text
uzanti = ".jpg"

Dosya = Hedef & resimadi & uzanti
MsgBox Dosya
If CreateObject("Scripting.FileSystemObject").FileExists(Dosya) = True Then
UserForm1.Image1.Picture = LoadPicture(Dosya)
Call CommandButton8_Click
Else
Dosya = Hedef & "\yok.jpg"
UserForm1.Image1.Picture = LoadPicture(Dosya)
MsgBox "ŞAHSA AİT RESİM YOK. Lütfen BUL tuşu ile veriyi alınız."
End If


End Sub
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 16:05   #3
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,504
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr
Varsayılan

Sayın Halit3

Her 3 kodu da gerekli yerlere aktardım ,denemeler yapıyorum . İlk anda hiç bir sorun görünmedi, ikiz isimlerde doğru kişinin benzersiz textboxlara aktarılması için sol sıra numarasını temel alan bir 3cü combobox da ekledim ve kodlarınızı örnekledim. Bunu ,ikiz isim taraması hatalı satırı textboxlara getirirse benzersiz satır nosuna bakılarak doğrusunun çekilebilmesi için yaptım.

Küçük bir problem olarak ; ikiz isim tarattığımda gelen isimlere tıkladığımda o satırın değil başka satırın verisinin textboxlara aktarıldığını farkettim. Düzeltmeyi denedim ancak size sormanın daha doğru olduğunu düşündüm. Bu satır sıçramasını nasıl düzeltebilirim ?

Programın bütün olasılıkları cevaplayabildiğini sınamak için küçük değişiklikler ve liste çoğaltması yaptım , ileri saatlerde ağır denemelerin sonucunu da bildireceğim.

Bu ana dek göstermiş olduğunuz ilgi ve yardım için çok teşekkür ederim , büyük kısmı sayenizde çözüldü

Tek kalan konu ; soruda 4cü olarak belirttiğim Belge sayfasında eski resmi silerken print ve userform tuşlarının da siliniyor olması. Bu konuda DİLEKÇE AÇ Tuşu kodları için bir öneriniz olabilir mi ?

Bu mesaj en son " 13-11-2017 " tarihinde saat 16:41 itibariyle cems tarafından düzenlenmiştir....
cems Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 17:49   #4
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,489
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Bu dosyayı irdele
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 18:53   #5
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,504
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr
Varsayılan

İki sorunu buldum , kalanı daha sonra salim kafa ile daha dikkatle irdeleyeceğim ve sonucu sizinle paylaşacağım .

Şu anlık ikiz isim süzgecindeki satır sıçraması ve Belge sayfasında resmin kendi karesine eşit boyda oturması ile, bu resmin sonraki bir dilekçede görünmemesi için silen kodun , aynı zamanda 2 tuşu da silmesi sorunu kaldı.

Desteğiniz için teşekkür ederim

Bu mesaj en son " 13-11-2017 " tarihinde saat 19:14 itibariyle cems tarafından düzenlenmiştir....
cems Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 20:41   #6
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,489
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Alıntı:
cems tarafından gönderildi Mesajı Görüntüle
İki sorunu buldum , kalanı daha sonra salim kafa ile daha dikkatle irdeleyeceğim ve sonucu sizinle paylaşacağım .

Şu anlık ikiz isim süzgecindeki satır sıçraması ve Belge sayfasında resmin kendi karesine eşit boyda oturması ile, bu resmin sonraki bir dilekçede görünmemesi için silen kodun , aynı zamanda 2 tuşu da silmesi sorunu kaldı.

Desteğiniz için teşekkür ederim
4 nolu mesajdaki dosyayı indirip deneme yaptınızmı?

Şu anlık ikiz isim süzgecindeki satır sıçraması ve Belge sayfasında resmin kendi karesine eşit boyda oturması ile, bu resmin sonraki bir dilekçede görünmemesi için silen kodun , aynı zamanda 2 tuşu da silmesi sorunu kaldı.

bu bölümü adım adım anlatırmısınız ne işlem yapınca sonuç istediğiniz gibi çıkmıyor.

resim eklemesi yapınca sayfadaki komut düğmelerini silmiyor.

dosyanızdaki komut düğmelerini silen prosedür bu
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
ActiveSheet.DrawingObjects.Delete
bu bölümü kodlarınızın hepsinden silmeniz gerekiyor.
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 22:01   #7
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,504
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr
Varsayılan

Evet , dosyanızı indirip çalıştırdım ve farkları buldum .Tam ve istenen algoritmisine de uygun bir karşılaştırmayı yaparak bölük pörçük olmayan ve düzeltildiği halde farketmediğimin kalmaması için soru sahibinden zaman istedim, size en optimum açıklama ile yarın akşam saatlerinde , dosyanın son hali ile beraber döneceğim .

EK : Siz belgeye resim gönderme ve ayarları konusunu da halletmişsiniz . İki dosya üstüste bakarken ben ilintiyi iki dosyadaki kodlar ile dosyalar aynı anda üstüste açık olunca kaçırmışım. Dikkatsizliğim için kusuruma bakmayın

Teker teker kontrol edip sonucu paylaşacağım .

Bu mesaj en son " 13-11-2017 " tarihinde saat 23:02 itibariyle cems tarafından düzenlenmiştir....
cems Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-11-2017, 11:33   #8
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,504
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr
Varsayılan

Göndermiş olduğunuz ve incelememi önerdiğiniz dosyada ;

Resim işlemleri , 5000+ satır veride aşırı yer gerekeceği için iptal edildi . Ancak örnekteki işlemleri başka ve personel işlemlerini konu alan 80 kişilik bir çalışmama uyarladım , teşekkür ederim

Bu çalışmadaki senaryo:
Userform üzerinden girişi yapılan bir data listesi ile , diploma ya da tasdikname için dilekçe ve onay sayfası yaratmak .

Yapılanlar :
20 adet textbox yardımı ile data girişi
1 Adet Listbox ile sayfadaki verilerin görünürleştirimesi
Kaydet Bul Değiştir Sil + Dipl sureti ve tasdik sureti tuşları
İsim soyad tarayarak listboxu süzen 21ci ve TC kimlik no süzen 22ci textbox ile bul tuşu.

Akış:
Girişi yapılmış veri ilk olarak TC süzerek aranıyor. Bulunduğunda başka eksik veri yoksa suretlerden biri çıkarılıyor. TC kimlik no bulunamazsa ;
İsim soyad ile aranıyor, listboxta benzeri de gelirse doğru olan satır tıklanarak bilgi kutulara alınıyor , daha sonra suretlerden biri çıkarılıyor.

Sorun : Eksik olan veriyi ( örneğin TC K no veya başka ) yerleştirip DEĞİŞTİR tuşu ile sabitleyemedim . Tuşun altındaki kodlar karma karışık oldu.

Sorun : Herhangi arama kutusu ile yapılan aramaların sonucunda listboxtaki tarih sütunlarının formatı bozuluyor.

Sorun : Textbox15 te mezun görünüyorsa tasdik ; tasdikname görünüyorsa mezun tuşunda uyarı gelmesi ve baskıyı engellemesi gerekli.

Sorun: İstenen suretin detayı , baskı alındığında türüne göre ( Diploma veya TASDİK adlı ek bir sayfada ) sistemden alınacak tarih ve işlem saati ile satır data olarak altalta arşivlenmesi gerekli.
Eklenmiş Dosyalar
Dosya Türü: xlsm userformx ile Kütük Kayıt irdelenecek .xlsm (92.2 KB, 1 Görüntülenme)

Bu mesaj en son " 17-11-2017 " tarihinde saat 15:26 itibariyle cems tarafından düzenlenmiştir....
cems Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-11-2017, 15:33   #9
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,489
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

ekli dosyayı irdeleyiniz

not açılışdaki kodları ben pasif yaptım.
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-11-2017, 16:10   #10
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,504
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr
Varsayılan

Alıntı:
halit3 tarafından gönderildi Mesajı Görüntüle
ekli dosyayı irdeleyiniz
not açılışdaki kodları ben pasif yaptım.
Açılış kodlarını pasifize etmeyi unuttum , kusura bakmayın.

Kısa bir kontrol olarak, nasıl bir sihir taşıdığını bilmediğim parmaklarınızla bana mantığı çizdirmiş ve sorun olarak bildirdiklerimin hepsini bir çırpıda halletmişsiniz elleriniz dert görmesin ...

Gece saatlerinde ise derin kontrol yaparak benim kendi eksiklerimi tamamlayıp , örnek verdiğiniz ( arşiv ) sayfalarını tamamlamam ile deneme sürüşü için isteğin sahibine sanırım hafta başında kullanılır şekilde gönderebileceğim.

Bütün destekleriniz için tekrar çok teşekkür ederim .
cems Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 13:30


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden