RESMİ YAZIŞMA SAYFASI HAZIRLAMA

[qbilay06]

Tekrar tekrar elinize bilginize sağlık Bülent Bey.  Gerçekten ucu bucağı olmayan bir derya gibi excel. İlk mesajımda istediklerim belirli iken her mesaj sonrası üzerine farklı istekler ekledim    Kodları irdeledikten sonra sanırım daha da eklenecek gibi
Dosya oluştukça dahasını isteniyor. Tabi bu ben ve benim gibi arkadaşlar için pozitif duygu olsa da umarım siz ve sizin gibi üstadları da fazla bunaltmıyoruzdur. Yüreğinize sağlık. Varolun...

Saygılar...

[Bülent Öztürk]

Haklısınız Kubilay Bey,
insan önce bir kaç şey düşünür, onları yapınca, başka şeyler aklına gelir. Onlar da olunca, daha başka şeyler... Bu böyle devam eder, gider.
Aynı şey bende de var. İşlerimi kolaylaştırmak için yapmış olduğum eklentiler vb. var, ama neredeyse her gün bir şeyler ekliyorum.
Özel menü yapıp, bir iki özellik ekleme ile başlıyorum, sonra bir bakıyorum, menü olmuş aşağı kadar... 

Aklınıza gelenler oldukça, bizim de imkanımız oldukça, eklemelere/düzenlemelere devam ederiz. 

Sağolun.

Saygılar.

[qbilay06]

Dosya ile bir soru daha türettim malesef 

Dosya içinde çözüm olacağı için bu konuda soruyorum. Eğer ki farklı başlık adı altında açmam  gerekir ise lütfen uyarınız.
Dosyadaki ADI kısmında yazan isim soyisim ne ise , o sayfanın adını, o isim soyisime çevirmesini istiyorum. Yani örneğimize göre 1.sayfa adını Bülent Öztürk yapmasını istiyorum.
Saygılar...

[Bülent Öztürk]

İstediğiniz kadar soru türetebilirsiniz. 

Kodları şu şekilde değiştirip kullanabilirsiniz;

Kod: [Seç]

Sub Excelce()
excelce1 = "Şirketimiz elemanı " 'Sabit metin
isim = Range("ADI") 'Ad bulunan hücre
virgul = ", " 'virgül
sicil_no = Range("SİCİLİ") 'Sicil no bulunan hücre
excelce2 = " sicil numarası ile " ' sabit metin
tarih1 = CStr(Range("GİRİŞ")) 'Giriş tarihi bulunan hücre
excelce3 = " tarihinden itibaren, 123 sayılı  kanunun geçici 12’ nci maddesine göre kurulmuş bulunan Vakfımızın üyesi olup, halen prim ödemekte ve Vakıf Senedi hükümleri dahilinde sağlık yardımlarından faydalanmaktadır."
excelce4 = "İşbu belge adı geçenin talebi üzerine " 'sabit metin
tarih2 = CStr(Range("TANZİM")) 'tanzim tarihi bulunan hücre
excelce5 = " tarihinde tanzim olunmuştur." ' sabit metin
metin1 = excelce1 & isim & virgul & sicil_no & excelce2 & tarih1 & excelce3 'İlk parçaları birleştir
metin2 = excelce4 & tarih2 & excelce5 'İkinci parçaları birleştir

Range("Veri1") = metin1 'İlk birleştirilen kısmı yaz
Range("Veri2") = metin2 'İkinci birleştirilen kısmı yaz

Range("Veri1").Font.Bold = False
Range("Veri2").Font.Bold = False
Range("Antetli1").Font.Bold = False
Range("Antetli2").Font.Bold = False

adi_bul = InStr(1, Range("Veri1"), Range("ADI").Value) 'Hücre içinde "AD'I" ara
adi_uzunluk = Len(Range("ADI").Value) 'Ad'ın uzunluğuna bak
Range("Veri1").Characters(Start:=adi_bul, Length:=adi_uzunluk).Font.Bold = True 'Hücre içinde "AD"ı kalın yap

sicil_bul = InStr(1, Range("Veri1"), Range("SİCİLİ").Value) 'Sicil
sicil_uzunluk = Len(Range("SİCİLİ").Value)
Range("Veri1").Characters(Start:=sicil_bul, Length:=sicil_uzunluk).Font.Bold = True

giris_bul = InStr(1, Range("Veri1"), Range("GİRİŞ").Value) 'Giriş tarihi
giris_uzunluk = Len(Range("GİRİŞ").Value)
Range("Veri1").Characters(Start:=giris_bul, Length:=giris_uzunluk).Font.Bold = True

tanzim_bul = InStr(1, Range("Veri2"), Range("TANZİM").Value) 'Tanzim tarihi
tanzim_uzunluk = Len(Range("TANZİM").Value)
Range("Veri2").Characters(Start:=tanzim_bul, Length:=tanzim_uzunluk).Font.Bold = True


'Antetli sayfa
Range("Antetli1").Value = Range("Veri1")
Range("Antetli2").Value = Range("Veri2")

adi_bul = InStr(1, Range("Antetli1"), Range("ADI").Value) 'Hücre içinde "AD'I" ara
adi_uzunluk = Len(Range("ADI").Value) 'Ad'ın uzunluğuna bak
Range("Antetli1").Characters(Start:=adi_bul, Length:=adi_uzunluk).Font.Bold = True 'Hücre içinde "AD"ı kalın yap

sicil_bul = InStr(1, Range("Antetli1"), Range("SİCİLİ").Value) 'Sicil
sicil_uzunluk = Len(Range("SİCİLİ").Value)
Range("Antetli1").Characters(Start:=sicil_bul, Length:=sicil_uzunluk).Font.Bold = True

giris_bul = InStr(1, Range("Antetli1"), Range("GİRİŞ").Value) 'Giriş tarihi
giris_uzunluk = Len(Range("GİRİŞ").Value)
Range("Antetli1").Characters(Start:=giris_bul, Length:=giris_uzunluk).Font.Bold = True

tanzim_bul = InStr(1, Range("Antetli2"), Range("TANZİM").Value) 'Tanzim tarihi
tanzim_uzunluk = Len(Range("TANZİM").Value)
Range("Antetli2").Characters(Start:=tanzim_bul, Length:=tanzim_uzunluk).Font.Bold = True

ActiveSheet.Name = Range("ADI").Value 'Sayfa adını değiştir

MsgBox "İşlem tamam.", vbInformation, "Excelce.Net"

End Sub

Private Sub commandbutton_click()
       ActiveSheet.Range("a1:f29").PrintOut copies:=1
       MsgBox " 1.sayfa yazdırıldı ."
       Worksheets("antetli yeni").Range("a1:f29").PrintOut copies:=1
       MsgBox " 2.sayfa da yazdırıldı ."
       
End Sub



[Bülent Öztürk]

1. koda şunu ekledik;

Kod: [Seç]

ActiveSheet.Name = Range("ADI").Value 'Sayfa adını değiştir
2. kodda şunu değiştirdik;

Kod: [Seç]

ActiveSheet.Range("a1:f29").PrintOut copies:=1

[qbilay06]

Varolun. Teşekkür ederim. Sizlerden böyle destek gördükçe, imkanlar olumlu olduğu sürece tabiiki türetmeye ve üretmeye devam o zaman .  Umarım ilerleyen zamanlarda hemen hemen tüm forum kullanıcıları bilgi aktaracak konumda olacaktır.
Saygılar...

[Bülent Öztürk]

Rica ederim. Siz de sağolun, varolun.

Destek sitesi/forumu diye açtıysak, destek olmaya gayret edeceğiz demek ki. 

Genelde forumları sürekli takip eden, sadece kendi sorularını çözdürüp kaybolmayan, başka soru-cevap ve örnekleri de takip edenler, dilediğiniz şekilde, bilgi aktaracak konuma geliyor. 

Saygılar.

[qbilay06]

Günaydın ,
Örnekte yaptığımız yazışma gibi 10 tane farklı yazışma formatı olduğunu varsayalım. Dosyanın ilk sayfasını ANASAYFA olarak belirleyeceğim.Ve bu sayfaya,kullanıcıların seçim yapması için yazışma çeşitlerinin isimlerinin yazılı olduğu bir açılan liste oluşturacağım. Burada aklıma gelen iki yol var.
1-) Tek bir sayfaya kod yazarak,  Eğer seçilen ... ise şu paragrafı getir , ... ise şu paragrafı getir ...
şeklinde if- then- else döngüsü oluşturmak  ,

2-) Her farklı format için ayrı bir sayfa açıp, kullanıcı hangi formatı seçer ise ona göre o sayfaya yönlendirmek...

Belki düşünemediğim ya da büyük ihtimalle bilmediğim seçenekler de olabilir Bilgi verebilecek arkadaşlara şimdiden teşekkür ederim.
Saygılar...

[Bülent Öztürk]

Günaydın,

Her iki seçenek de kullanılabilir.

Formattaki paragraf uzunlukları birbirine yakın ise tek sayfada daha iyi olabilir.
Ancak her sayfanın açıklama uzunlukları çok farklı ise o zaman tek sayfada format bozukluğu olabilir.

[qbilay06]

    Evet belirttiğiniz gibi formlar çok farklı çeşitlilik göstereceği için,sizin yazdığınız kodları uygulayarak sayfalar halinde metinler oluşturmak en mantıklısı sanırım . Teşekkür ederim.
Saygılar...

[Bülent Öztürk]

O zaman en iyisi, dediğiniz gibi bir ANASAYFA oluşturup, seçim yaptırmak ve ilgili sayfaya yönlendirmek. 

[qbilay06]

Merhaba ,
Dosyada ufak değişiklikler yapmaya çalıştım ama sonuca varamadım 

1- Yeni açılan konudaki VBA şifreleme olayını yapmaya çalıştım . (Şifre : excelce ) Fakat menülerden kodların yazıldığı kısma tekrar ulaşamadım 
2- İlk sayfadaki imza kısmındaki iismleri ikinci sayfaya aktarmak için AD TANIMLAMAya ve kod kısmına eklemeler yaptım . Fakat ikinci sayfaya, 1.sayfadaki isimleri aktartamadım.
3 - Butonların renk değişimi için kod yazmadan, biçimlendirme kısmından ayarlamak  istedim fakat sadece yazı metni ayarlanıyor. Farklı çözümü var mı?
     Son olarak, sayfalar her kişi için ikişer ikişer hazırlanacağı için 1.sayfadaki ADI kısmını ikinci sayfaya KUBİLAY BAKIRCI antetli olarak yapmak için naıl bir yol izlenebilir?
Teşekkür eder saygılar sunarım.


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Bülent Öztürk]

Merhaba Kubilay Bey,

1- Araçlar | Makro |  Visual Basic Düzenleyicisine tıklayın. Şifreyi yazın.
    Veya
    Alt + F11 yapın, şifreyi yazın.
    Veya
    Herhangi bir sayfa adına sağ yıklayıp Kod Görüntüle'yi seçin, şifreyi girin.

2- Teorik olarak bir sorun görünmüyor. Şu an için sorunun sebebini anlayamadım ama geçici olarak şöyle çözebiliriz;

Kod: [Seç]

Range("Antetli3").Value = Worksheets("KUBİLAY BAKIRCI").Range("A28") 'Kubilay B.tarafından eklenen kısım
Range("Antetli4").Value = Worksheets("KUBİLAY BAKIRCI").Range("C28")  'Kubilay B.tarafından eklenen kısım

3- Formlar araç çubuğundaki düğmelerin sadece yazı tipleri değiştirilebilir. Onun yerine resim veya Denetim Araç Kutusundan düğme ekleyebilirsiniz.

[qbilay06]

Merhaba Kubilay Bey,

1- Araçlar | Makro |  Visual Basic Düzenleyicisine tıklayın. Şifreyi yazın.
    Veya
    Alt + F11 yapın, şifreyi yazın.
    Veya
    Herhangi bir sayfa adına sağ yıklayıp Kod Görüntüle'yi seçin, şifreyi girin.

Çok çok pardon diyorum. Fakat mesjdaki yazdığını üç yolu bilip uygulamama rağmen ekrana gelen ekran koyu gri renkte. Ve ben module 1 kısmına ulaşamıyorum. Sanırım bayağı saçma bir mesaj ile uğraştırıyorum ama ekran atüm menülere bakmama rağmen getiremedim ... Pardon...

[Bülent Öztürk]

Ekran resmini ekleyebilir misiniz?