• DİKKAT

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

Word Dosyasında Aradığım Kriterleri Saydırmak

Ali bey tekrar rahatsız ediyorum kusura bakmayın.

Verdiğiniz kod Word ve Excel dosyam yan yana olduğunda çalışıyor. Benim işleyişim gereği iki dosyamın yan yana olmaması gerek. Word dosyamı bir adres yolu belirterek açmamız gerekiyor. Yardımcı olur musunuz ?
 
Word doyasının üzerinde mausun sağ sağına tıklayın, orada, Özellikleri tıklayın açılan iletişim kutusunda Konum bilgisi var onu kopyalayın ve Word dosyasının tam adını yazarsanız yardımcı olurum.
 
Ali Bey

Word dosyamın adres yolu ‪"D:\dene.docx"
Word dosyamın adı "dene"
 
#4 mesajdaki koddaki ".doc" u ".docx" olarak değiştirin
 
Ali bey size yazmayı unuttum. Ben word dosyamın içeriğinde bi değişiklik yapmıştım. Yeni dosya ile denedim kod hata vermiyor ama excelede yazmıyor yani galiba arayıp bulamıyor. yeni dosyalarım ektedir. Çok uğraştırdım sizi kusura bakmayın.Ekteki dosyalarım daha önce gönderdiklerimden farklı lütfen sizde incelermisiniz. Sanırım tablolar var diye arayamıyor.
 

Ekli dosyalar

Altın üye değilim. Dosyanızı tcdosya gibi bir dosya paylaşım sitesine eklerseniz.
 
Şehir isimlerini Exceldeki Sayfa1 deki A sütunundan alıyor. Aşağıdaki kodu deneyin
Kod: 
Sub saydir()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Range("a2:C1000").ClearContents
say = s1.Range("A" & Cells.Rows.Count).End(3).Row
Set doc = CreateObject("Word.Document")
doc.Application.documents.Open "D:\dene.docx"
doc.Application.ActiveDocument.Select
yaz = 2
For i = 2 To say
bul = s1.Range("B" & i)
If UBound(Split(doc.Application.Selection, bul)) <> 0 Then
s2.Range("A" & yaz).Value = s1.Range("A" & i)
s2.Range("B" & yaz).Value = s1.Range("B" & i)
s2.Range("C" & yaz).Value = UBound(Split(doc.Application.Selection, bul))
yaz = yaz + 1
End If
Next
doc.Application.Quit
Set doc = Nothing
End Sub
 
Son düzenleme:
yukardaki kodların son satırlarını değiştirdim. word dosyası açık kalıyordu.
 
Dosyalar aynı klasörde iken macro çalışıyorsa, anladığım kadarıyla dosya yolunu doğru veremiyorsunuz. Benim yapabileceğim bir şey yok.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst