Excel liste word aktarma

[buseen]

excel liste sindeki seçtigim isim soyad+blok no daire no yu word form nasıl aktara bilirim.

 

[Levent Menteşoğlu]

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

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

 

[buseen]

hocam ismi nasıl şececem

 

[buseen]

hocam word de combobox acılabilirmi isim blok no daire no secmek için aşgılar sabit zaten

 

[Levent Menteşoğlu]

Yukarıdaki kodu yeniledim. C sütununda bir ismi seçin sonra butona basın.

 

[buseen]

Teşekkürler hocam affınıza sıgınaraktan ev sahibi+ kiracı ismini ikisinide aktara bilirmiyiz ?

 

[Levent Menteşoğlu]

Yukarıdaki koda gerekli ilaveyi yaptım.

 

[buseen]

Yardımlarınızdan dolayı Teşekkürler.

 

[muygun]

Merhaba;
Sorun çözümlenmiş ama Alternatif olsun. (bence word gereksiz. Word içinde yapmak istediğiniz tüm görselliği excelde sağlayabilirsiniz.)

 

[buseen]

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.

 

[muygun]

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

 

[buseen]

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.

 

[muygun]

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...

 

[buseen]

İ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.

 

[muygun]

Anladığım kadarıyla bir uygulama örneği oluşturuyum. İstediğiniz yada istemediğiniz yerleri modifiye ederiz.

 

[muygun]

Merhaba;
Eki inceleyin.
hatalı yerler varsa düzeltelim.
İyi çalışmalar.

 

[buseen]

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.

 

[muygun]

Eksik kısmı belirttiğiniz açıklama nerde ?

 

[buseen]

Hocam 17 ci mesaj düzettim

 

[buseen]

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