Açılır Liste

[tukayf]

Değerli üstadlar ekteki dosyanın içerisinde yazdığım gibi Açılır listeden dağıtım yerlerini seçtiğimizde paraf kısmı ve imza kısmının kaldırılması mümkünmüdür.
Şimdiden tüm ilgil ve yadımlar için teşekkürler.

 

[tukayf]

konudan bilgisi olan arkadaşlar yapılamayacak ya da yapılması çok zor olacaksa bilgi verebilirlermi acaba. ayrıca üstadlar 2003 de açılır kutu da formu kilitleme vardı ama 2007 ve 2010 versiyonunda kilitlemeyi bulamıyorum. yeni versiyonularda kilitleme nasıl yapılır bilgisi olan varmı acaba.

 

[tukayf]

değerli üstadlar bi el atın.

 

[leumruk]

Merhaba,
GÖRÜLMÜŞTÜR ve PARAF kısımları ayrı bir sayfada mı, metin kısmının hemen altında mı? Soru kısmınızı silip örneğinizi orijinaline uygun şekilde ekler misiniz?

 

[leumruk]

Metin kutusu kullanarak makro ile bir çözüm ürettim.
Listeden seçim yaptıktan sonra "CTRL Ş" tuşuna bastığınızda makro çalışacak ve istediğiniz eylemi gerçekleştirecektir.
NOT: İmza 2 adet, Görülmüştür ve Paraf kısımlarını metin kutusu içerisine aldım. Toplam 4 metin kutusu var.

Sub Makro1()
For Each mtn In ActiveDocument.Range.ShapeRange
mtn.Visible = msoTrue
Next
If ActiveDocument.FormFields(1).Result = " " Then
    ActiveDocument.Range.ShapeRange(2).Visible = msoFalse
        ActiveDocument.Range.ShapeRange(3).Visible = msoFalse
    ActiveDocument.Range.ShapeRange(4).Visible = msoFalse
    MsgBox ActiveDocument.FormFields(1).Result
ElseIf ActiveDocument.FormFields(1).Result = "DOSYASINA" Then
        ActiveDocument.Range.ShapeRange(2).Visible = msoFalse
    MsgBox ActiveDocument.FormFields(1).Result
ElseIf ActiveDocument.FormFields(1).Result = "VALİLİK MAKAMINA" Then
        ActiveDocument.Range.ShapeRange(2).Visible = msoFalse
    ActiveDocument.Range.ShapeRange(4).Visible = msoFalse
    MsgBox ActiveDocument.FormFields(1).Result
ElseIf ActiveDocument.FormFields(1).Result = "C. BAŞSAVCILIĞINA" Then
    ActiveDocument.Range.ShapeRange(1).Visible = msoFalse
    MsgBox ActiveDocument.FormFields(1).Result
End If
End Sub

 

[tukayf]

hocam şu şekilde belirteyim. GÖRÜLMÜŞTÜR ve PARAF kısımlarının konulacağı yer yazının uzunluğu-kısaılğına göre değişiyor. Görülmüştür kısmı yaznın bittiği yerin 2-3 satır altına PARAF kısmı ise DAĞITIM Bölümünün 2-3 satır altına gelse uygun olur. tabiki yapılabilirse.
Örneği de orijinaline uygun şekilde tekrar attım. bu mesajda

 

[tukayf]

hocam ekli resimde görüldüğü gibi bir hata veriyor acaba sorun nedir? kodları kopyalayıp farklı dosyaya attığımda ise "runtime error 5852"
istenilen nesne kullanılamıyor. hatası alıyorum. visiul basic'de sorun var diye tekrar tekrar kurdum ama nafile. başka bir pc de deneyeceğim birde.

 

[leumruk]

5 nolu mesajda eklediğim dosyayı hiçbir değişiklik yapmadan denediniz mi? Kodları taşıdığınızda ekli dosyadaki metin kutularını da taşımanız gerekir. Sorunun ofis programından kaynaklandığını sanmıyorum. Sonuçta kodlar çalışıyor ki hata alıyorsunuz.

 

[tukayf]

çalıştı hocam kodlar. ama bu sefer bi sorunum var ctrl ş den çalıştıramadım. vb'den çalıştırabildim. ayrıca C. Başsavcılığına seçilince sağ ütte bulunan "merdarne durdu, Yökbaşkanı, Prof" un olduğu yere Yök Başkanlığı'nın gelmesini istiyordum. onu soruda anlatamamışım. kussura bakmayın.
Diğer bir husus hocam. bu metin kutusunun içerisine gerçek isimler yazmam gerekiyor bu değişiklikleri nasıl yapabilirim.

 

[leumruk]

sayın hocam bu sefer tamam çok teşekkür ederim. ama ctrl ş çalışmadı vb den çalıştırabildim. ofis 2010'da.

CTRL Ş benim eklediğim dosya için ayarlandı. Eğer siz farklı bir belgede kodları çalıştırmışsanız, Bu kısayolu onun için de oluşturmalısınız.
2010 kullanmadığım için nereden ayarlandığını tarif edemeyeceğim. Aşağıdaki link yardımcı olabilir.
http://office.microsoft.com/tr-tr/word-help/HP005186704.aspx

Metin kutusunda değişiklik yapabilmek için Açılır Form Alanı'nın korumasını kaldırmanız gerekli. Korumayı kaldırdıktan sonra ilgili yerlerin üzerine tıkladığınızda metin kutularını görebilirsiniz.

"merdarne durdu, Yökbaşkanı, Prof" un olduğu yere Yök Başkanlığı'nın gelmesini istiyordum.

Bu işlemi yapıyor olması gerekli.

 

[tukayf]

değerli hocam çok teşekkür ederim.
her sabah defalarca tekrarladığım işten kurtardınız beni.

 

[leumruk]

Merhaba,
Ekteki örnekte listenin altına buton ekledim. Seçim yaptıktan sonra butona tıklayarak makroyu çalıştırabilirsiniz.