RESMİ YAZIŞMA SAYFASI HAZIRLAMA

[qbilay06]

Merhaba ,
Word ortamında hazırlanmakta olan yazışma formatını Excel ile yapmak istiyorum. (her zamanki gibi  )
Standart yazışma formatında bazı bilgiler değişiklik gösteriyor.  Sırasıyla ;
1 - Kişi Ad Soyad
2 - Sicil Numarası
3 - Şirkete Giriş tarihi ve
4 - İşlem yapılan tarih ...

Bu bilgileri de tüm çalışan verilerinin olduğu excel sayfasından aldırmak istiyorum. Şöyleki ;
kullanıcı G1 hücresine TC kimlik numarasını girdikten sonra yukarıda yazdığım 4 bilginin verisini de DÜŞEYARA ile buldururyorum. Buraya kadar sıkıntı yok. Bilgiler bulunduktan sonra oluşan paragraf, haliyle uzunluk olarak farklılık gösteriyor ve yazdırma alanımın dışına çıkabiliyor ya da çok kısa kalabiliyor.
Bunu yapabilmek için nasıl bir yol izlemem gerekir?
İlgilenecek arkadaşlara şimdiden teşekkür ederim.
Saygılar...



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

[Bülent Öztürk]

Merhaba Kubilay Bey,

Soruma geçmeden önce yazmadan edemeyeceğim;

Excelle Uyuyan  Vakıf Müdürü

Exceli Gönüldenseven  Yönetim Kurulu Üyesi

Excelce Net T.A.Ş. Mensupları

Exceli Sevenler Vakfı

Vakıflar ve kişiler harika olmuş. 

Hangi paragraf sorun oluyor?
"İlgili  Makama" yazısının altında kalan metin mi?
Ne kadar uzayıp, ne kadar kısalabiliyor?

[qbilay06]

((: teşekkür ederim.
Evet aynen dediğiniz gibi İlgili makama ksımının altında kalan metin sorun oluyor. Ne kadar uzayıp kısalacağı aslında tam olarak kişi isim ve soyismine göre değişiyor. Diğer veriler tarih ve 3 haneli sicil numarası old için pek bir değişiklik yaratmıyor.

benim istediğim TC yi girdikten sonra gelen isim soyisim ne kadar uzun olursa olsun , Yazdırma alanına göre ayarlayıp çıktı alındığı zaman eksik gösterim olmaması.

[Bülent Öztürk]

Hücre birleştirme ile yaptığım halde işinize yarar mı?



(Yeni hali eklendiğinden dosya silinmiştir - Bülent)

[qbilay06]

Çok teşekkür ederim Bülent bey.
Hücre birleştir ile bu şekilde bir çözüm belki de aklıma hiç gelmeyecek şıklardandı ((:
İyi çalışmalar.
Saygılar...

[Bülent Öztürk]

Rica ederim Kubilay Bey.

Bu arada, ne kadar uzun veya kısa olabileceğini sormamdaki sebep; Hücre Birleştir ile bunu yapıp yapamayacağımızı anlayabilmek içindi.

Fark çok olsaydı, yani asıl konu metni vb. uzunluğu da değişseydi, bu şekilde belki yine zorlanırdık, ancak sadece isim olmasından dolayı pek sorun olacağını düşünmüyorum.

Çalışmalarınızda başarılar.

Saygılar.

[qbilay06]

Günaydın ,
aynı dosyaya ilişkin 2 adet soruyu ekteki dosyada belirttim. Umarım açıklayıcı olabilmişimdir.
Saygılar...

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

[Bülent Öztürk]

Günaydın Kubilay Bey,

1-) H15-H16-H17 ve H18 DEKİ BİLGİLERİ PARAGRAFIN İÇİNDE KOYU RENK OLARAK GÖSTERMEK İSTİYORUM.

Ne yazık formül ile alınan verilerde biçimlendirme yapamayız.
Dilerseniz makro kullanalım?

2-) "YENİ" SAYFASINDAN 2 ADET YAZDIRMAK İSTİYORUM. BİR TANESİ ORJİNAL HALİ İLE OLACAK. 2.SAYFA İSE "ANTET" SAYFASINDAKİ BİLGİLERİN "YENİ" SAYFASINDAKİ BİLGİLERİN EN ÜSTÜNE GELECEK ŞEKİLDE YAZDIRILMASI.

Tam anlamadım ama, 2 ayrı sayfaya aynı verileri aldırıp, farklı formatta yazdırabiliriz.

[qbilay06]

1. sorum içim makro kullanalım derim , çünkü yazışmada o kısımları koyu olarak belirtmem lazım.
2. sorumu biraz daha detaylı açıklayayım ;

Asıl amaç iki adet yazışma sayfası yazdırmak. Yani "YENİ" isimli sayfadan 2 adet yazdıracağım. Resmi yazıyı kuruma gönderirken bu iki sayfadan bir tanesini tekrar yazıcıya koyup ANTET kısmını bastırıyorum. Amacım bu anteti yazdırmak için geçen zaman kaybının önlenmesi.


 

[Bülent Öztürk]

Verileri alıp, ilgili alana yazan ve gerekli yerleri koyu yapan kod kullanarak 1. sorunuz için düşündüğüm çözüm ekte.
İnceleyip neticeyi bildirir misiniz?



(Yeni hali eklendiğinden dosya silinmiştir - Bülent)

[qbilay06]

Elinize bilginize sağlık. 1.soru kısmı sorunsuz olarak tamamlanmış.Teşekkür ederim.

[Bülent Öztürk]

2. sorunuz da aynı yöntem (ad tanımlama, birleştirme ve hücre içinde biçimlendirme) ile tamam.

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

[qbilay06]

Mantık olarak işlem tamam Bülent Bey. Teşekkür ederim.
Ekstra olarak iki noktada işlem gerekiyor :
1-) Tüm metin koyu renk oluyor . Sadece 4 satırdakıi bilgilerin koyu olması gerekiyor.
2-) Veri al biçimlendir butonu gibi yazdır butonu yapıp,iki sayfayı da arka arkaya yazdırmak için ;

     Private sub commandbutton_click()
       range ("a1:f29").select
       activewindow.rangeselection.printout copies :=1
       msgbox" 1.sayfa yazdırıldı ."
    end sub

kodlarına aynı anda 2.sayfayı da yazdıracak kodu nasıl ekleyebilirim ?

Saygılar...

[qbilay06]

Bülent bey bir önceki mesajımdaki koyu kısımlar ile olan kısmı dikkate almayınız. Makro ile ilgili bir durum değilmiş. Araç çubuğundaki Koyu imleçi ile işlemi tamamladım.  Kusura bakmayın uğraştırdı isem .

Son olarak Yazdır butonu kaldı. Yine bir önceki mesajda yazdığım kod sadece ilk sayfadaki seçili alanı yazdırıyor sanırım. Aynı anda ikinci sayfayı yazdırmak için araya nasıl bir ibare eklemem lazım ? Teşekkür ederim.
Saygılar...

[Bülent Öztürk]

Koyu font ile ilgili ne olur ne olmaz diye bir ekleme yaptım kodlara, bir de yazdırma ile ilgili talebiniz için;

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 'Kalın fontlar iptal
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

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

Yazdır butonu:

Kod: [Seç]

Private Sub commandbutton_click()
       Worksheets("YENİ (2)").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