• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Dilekçe Hazırlama

E

erdenek

Katılım
5 Mart 2008
Mesajlar
896
Excel Vers. ve Dili
EV:EXCEL 2010-TÜRKÇE
İŞ:EXCEL 2010-TÜRKÇE
Arkadaşlar ekte 2 tane belge var.biri Word biri excel dosyası var.arkadaşlar excel dosyasında öğrenci seçimi yaptığım zaman Word dosyasındaki ilgili yerler otomatik dolsun.
 
* Sayfanıza bir buton ekleyerek aşağıdaki kodları butonunuzun click olayına yapıştırınız.
* Mesaj ekindeki şablonu, excel dosyanızın bulunduğu klasör içerisine kopyalayınız.

Dilekçesini oluşturacağınız öğrencinin A sütununda yer alan sınıf hücresini seçiniz ve oluşturduğunuz yeni butona tıklayınız.

Kod: 
On Error Resume Next
txtsınıfı = ActiveCell.Offset(0, 0).Value
txtokulnumarası = ActiveCell.Offset(0, 1).Value
txttckimlikno = ActiveCell.Offset(0, 2).Value
txtadısoyadı = ActiveCell.Offset(0, 3).Value
txtveliadısoyadı = ActiveCell.Offset(0, 4).Value
txtadısoyadı2 = txtadısoyadı
txtbugün = CDate(Date)

y_imi = Array("txtsınıfı", "txtokulnumarası", "txttckimlikno", "txtadısoyadı", "txtveliadısoyadı", "txtbugün", "txtadısoyadı2")
dizi = Array(txtsınıfı, txtokulnumarası, txttckimlikno, txtadısoyadı, txtveliadısoyadı, txtbugün, txtadısoyadı2)
yol = ThisWorkbook.Path
Set wd = CreateObject("word.Application")
wd.Visible = True
wd.Application.Documents.Open yol & "\" & "semelidersbelirlemeanket5.sinifubat2013.doc"

For X = 0 To 6
wd.ActiveDocument.Bookmarks(y_imi(X)).Range.Select
wd.Selection = dizi(X)
wd.ActiveDocument.Bookmarks.Add Range:=wd.Selection.Range, Name:=y_imi(X)
Next

Set WDDoc = wd.ActiveDocument
WDDoc.SaveAs yol & "\" & txtadısoyadı & " - Dilekçe (" & CDate(Date) & ").doc"
 

Ekli dosyalar

dangerousyaso' Alıntı:
* Sayfanıza bir buton ekleyerek aşağıdaki kodları butonunuzun click olayına yapıştırınız.
* Mesaj ekindeki şablonu, excel dosyanızın bulunduğu klasör içerisine kopyalayınız.

Dilekçesini oluşturacağınız öğrencinin A sütununda yer alan sınıf hücresini seçiniz ve oluşturduğunuz yeni butona tıklayınız.

Kod: 
On Error Resume Next
txtsınıfı = ActiveCell.Offset(0, 0).Value
txtokulnumarası = ActiveCell.Offset(0, 1).Value
txttckimlikno = ActiveCell.Offset(0, 2).Value
txtadısoyadı = ActiveCell.Offset(0, 3).Value
txtveliadısoyadı = ActiveCell.Offset(0, 4).Value
txtadısoyadı2 = txtadısoyadı
txtbugün = CDate(Date)

y_imi = Array("txtsınıfı", "txtokulnumarası", "txttckimlikno", "txtadısoyadı", "txtveliadısoyadı", "txtbugün", "txtadısoyadı2")
dizi = Array(txtsınıfı, txtokulnumarası, txttckimlikno, txtadısoyadı, txtveliadısoyadı, txtbugün, txtadısoyadı2)
yol = ThisWorkbook.Path
Set wd = CreateObject("word.Application")
wd.Visible = True
wd.Application.Documents.Open yol & "\" & "semelidersbelirlemeanket5.sinifubat2013.doc"

For X = 0 To 6
wd.ActiveDocument.Bookmarks(y_imi(X)).Range.Select
wd.Selection = dizi(X)
wd.ActiveDocument.Bookmarks.Add Range:=wd.Selection.Range, Name:=y_imi(X)
Next

Set WDDoc = wd.ActiveDocument
WDDoc.SaveAs yol & "\" & txtadısoyadı & " - Dilekçe (" & CDate(Date) & ").doc"
Genişletmek için tıkla ...

hocam özür dilerim ama benim excel bilgim çok çok zayıf bu dediklerinizi yapabilecek kadar bilgim yok
 
ellerine sağlık.hocam yalnız bu sene hem bizde 5.sınıf 6.sınıfta seçmeli ders var.ama seneye 7.sınıf ondan sonraki 8.sınıf bunu öyle bir ayarlasak ki her sene kullanışlı olsun.yani hersene aynı sorunla uğraşmamak adına.5 ve 6.sınıflar için dilekçe örnekleri ekte.
 

Ekli dosyalar

erdenek' Alıntı:
ellerine sağlık.hocam yalnız bu sene hem bizde 5.sınıf 6.sınıfta seçmeli ders var.ama seneye 7.sınıf ondan sonraki 8.sınıf bunu öyle bir ayarlasak ki her sene kullanışlı olsun.yani hersene aynı sorunla uğraşmamak adına.5 ve 6.sınıflar için dilekçe örnekleri ekte.
Genişletmek için tıkla ...

Eğer doğru anlamışsam, dosyanız ektedir.
 

Ekli dosyalar

dangerousyaso' Alıntı:
Eğer doğru anlamışsam, dosyanız ektedir.
Genişletmek için tıkla ...

hocam ellerine sağlık çok güzel olmuş.sizi de yordum.hocam size bir sorum birde isteğim var.sorum şu Word dosyalarında seçilecek dersler kısmında değişiklik yaptığımız zaman herhangi bir sorun olmaz değil mi?isteğim ise hocam excel dosyasına bir tane bul butonu ekleyip öğrencinin adına ya da okul numarasına göre arama yapıp dilekçeyi hazırlatsak olmaz mı?
 
erdenek' Alıntı:
hocam ellerine sağlık çok güzel olmuş.sizi de yordum.hocam size bir sorum birde isteğim var.sorum şu Word dosyalarında seçilecek dersler kısmında değişiklik yaptığımız zaman herhangi bir sorun olmaz değil mi?isteğim ise hocam excel dosyasına bir tane bul butonu ekleyip öğrencinin adına ya da okul numarasına göre arama yapıp dilekçeyi hazırlatsak olmaz mı?
Genişletmek için tıkla ...

Ne demek. :) Yardımcı olabildiysem ne mutlu.

Yok, dilekçenizin talep kısmında herhangi bir değişiklik yapmazsanız sorun olmaz.
Değiştirilmemesi gereken alan, resimde kırmızı alan ile gösterdim.
http://j1306.hizliresim.com/1b/h/p6fz2.jpg

Öğrencinin adı soyadına göre arama özelliğini de ekledim uygulamanıza. Ektedir.
 

Ekli dosyalar

Son düzenleme:
herşey için teşekkür ederim ellerine sağlık.size de zahmet verdim.tam istediğim gibi olmuş.word dosyasındaki tarih kısmını otomatik tarih ekleyi aktif yapsam Word dosyası zarar görmez değil mi?
 
erdenek' Alıntı:
herşey için teşekkür ederim ellerine sağlık.size de zahmet verdim.tam istediğim gibi olmuş.word dosyasındaki tarih kısmını otomatik tarih ekleyi aktif yapsam Word dosyası zarar görmez değil mi?
Genişletmek için tıkla ...

Rica ederim, kolay gelsin. :)

Word dosyasında, arz ederimden sonra tarih eklemiyor mu?
 
orada tarih var hocam benim dediğim kısım veli öğrenci imza kısmında yer alan bölüm.
 
kalsın o zaman herşey çok teşekkür ederim.ellerine sağlık.hakkını helal et.
 
Hocam kodlari nasıl yapılacağı hakkında bilgi verirseniz sevinirim. Saygılarımla
 
Son düzenleme:
yerbakili' Alıntı:
Ne demek. :) Yardımcı olabildiysem ne mutlu.

Yok, dilekçenizin talep kısmında herhangi bir değişiklik yapmazsanız sorun olmaz.
Değiştirilmemesi gereken alan, resimde kırmızı alan ile gösterdim.
http://j1306.hizliresim.com/1b/h/p6fz2.jpg

Öğrencinin adı soyadına göre arama özelliğini de ekledim uygulamanıza. Ektedir.
Genişletmek için tıkla ...

Merhaba hocam kolay gelsin. İyi çalışmalar. Üzerinden zaman geçmiş ancak hocamızın isteğine benzer benimde bir isteğim var. Benim excelim için word sayfası boş olacak. Herhangi bir tablo olmayacak. Excel de genellikle A hücrelerine yazacağım metinleri (kaç satır olacağı meçhul) Sizin yaptığınız gibi worde aktarmasını istiyorum. Lütfen yardımcı olun..
http://www.excel.web.tr/f48/excelden-makro-ile-worde-aktarma-t170642.html#post930689
 
Selamlar

Hocam çok güzel bir çalışma olmuş. Ellerinize Sağlık
Benim sorum şu buradaki word sayfalarında aktarılan bilgilerin yerlerini değiştirmek istersek ya da Excel den aktarılanların dışında başka hücrelerden word içerisinde daha başka yerlere aktarmak istediğimizde nasıl bir yol izlemeliyiz.

Saygılar
 
Hocalarım merhaba Yerbakili hocam çalışmanızı görebilmem için dosyatc gibi bir linkten paylaşabilir misiniz. Teşekkürler.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst