• DİKKAT

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

Excel liste word aktarma

B

buseen

Katılım
30 Aralık 2004
Mesajlar
240
excel liste sindeki seçtigim isim soyad+blok no daire no yu word form nasıl aktara bilirim.
 

Ekli dosyalar

Biraz kolaya kaçtım. Aşağıdaki gibi bir çözüm işinize yarayabilir.

Kod: 
Sub wordeaktar()
If ActiveCell.Column <> 3 Then Exit Sub
Set f = WorksheetFunction
deg = Space(28) & "SAYIN: " & ActiveCell.Previous & " - " & ActiveCell & f.Rept(Chr(10), 2) & Space(50) & "Blok No:" & ActiveCell.Next & Space(13) & _
"Daire No:" & ActiveCell.Next.Next & f.Rept(Chr(10), 5) & Space(9) & _
"Diriliş Site Yönetimi …………………………………………….. ayına ait yakıt" & Chr(10) & _
"ücreti………………….. yatırılmamıştır Gecikme bedeli ile beraber ………………TL olarak" & Chr(10) & "yatırmanızı rica ederiz." & _
f.Rept(Chr(10), 4) & Space(12) & "Not:" & Chr(10) & Space(12) & "Aidatlarımızı günü ve zamanında yapılmasını rica ederiz" & _
Chr(10) & Space(12) & "Aidatlar  ayın 1 ila 30 'u arasıdır Cumartesi+Pazar Haric." & f.Rept(Chr(10), 6) & Space(103) & _
"SİTE YÖNETİM KURULU"
Set word = CreateObject("Word.Application")
word.Documents.Add
word.Visible = True
word.Selection.TypeText Text:=deg
End Sub
 
hocam word de combobox acılabilirmi isim blok no daire no secmek için aşgılar sabit zaten
 
Yukarıdaki kodu yeniledim. C sütununda bir ismi seçin sonra butona basın.
 
Teşekkürler hocam affınıza sıgınaraktan ev sahibi+ kiracı ismini ikisinide aktara bilirmiyiz ?
 
Yukarıdaki koda gerekli ilaveyi yaptım.
 
Merhaba;
Sorun çözümlenmiş ama Alternatif olsun. (bence word gereksiz. Word içinde yapmak istediğiniz tüm görselliği excelde sağlayabilirsiniz.)
 

Ekli dosyalar

Sayın muygun ilginizden dolayı Teşekkürler.
aynı kişi bir kaç ay yatrımadıysa ilave edecekmi listeye yoksa her aya ayrı ayrı listemi alacak ?.TŞK.
 
Merhaba;
Düzenlediğim tablonun işlevi Sayfa1 sayfasında A4 A1000 aralığında tik işareti koyulan verilerin word benzeri bir excel sayfasında sıralanması. (bu sizin talebinizdi yani bir tablodan verilerin word tablosuna aktarılması)
Aslında basit bir borç-alacak tahsiliyle ilgili tablo için sayfa1 tablosunda yapılması gereken;
ay adı
Adı soyadı
geçen aydan kalan borç
bu ay tahakkuk eden borç
toplam borç
bu ay yatan
kalan
şeklinde bir tablolama yapılırsa o zaman sadece ay adı seçerek ve bakiyesi olanları listeleyerek bir çıktı alınabilir. Bence doğrusu da bu (site yöneticisi iseniz borçlu bir kiracı taşındı ise bunu ev sahibine bildirmeniz ve site alacağını tahsil etmeniz gerekir) diye düşünüyorum.
Bu şekilde bir tablo için gecikmenin ne şekilde ne oranda uygulanacağının da bilinmesi gerekir.
İyi çalışmalar
 
Evet hesap takip programım var ama yazışma yapmak için bir bildiri kagıdı göndermek için kullanacam mesala hangi ay yatmadıysa o ay isim leri gözüksün yeter.
 
Hesap takip programınız yine excel tablosu mu? eğer öyle ise bunları birleştirin tek bir tablodan yani sayfa1 benzeri yukarda belirttiğim özellikleri olan bir sayfanız olsa (veritabanı) buradan istediğiniz özellikte veri çekilebilir.
isme göre , aya göre ,borcu olanlar, iki tarih arası,sadece ilgili daire vs...
 
İsim listesinden seçtigim ev sahibi ve kiracı ismi altına blok no daire no yazdırmak
boş olan kısımları borçunu + faizli toplamını elle yazmak yeterli.TŞK.
yaptıgınız yaz sayfasına oturtturmak.
 
Anladığım kadarıyla bir uygulama örneği oluşturuyum. İstediğiniz yada istemediğiniz yerleri modifiye ederiz.
 
Emeklerinizden dolayı çok Tşk.tam istedigim gibi hocam
gerekli açıklama göndermiş oldugunuz örnekte belirtim hocam başka bir eksik yok
Çok Teşekkürler.
 

Ekli dosyalar

Son düzenleme:
Eksik kısmı belirttiğiniz açıklama nerde ?
 
yaz sayfasında ay ismi yazan yere acıklama daki bölümü yazabilirmi ? tek sonun o bir ev sahibinden son kiracı ismi yazabiilirmi?
hesap kısmı güzel
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst