Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > Windows-Word-PowerPoint....
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Windows-Word-PowerPoint.... Excel haricindeki Ofis programları ile ilgili konular.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 09-08-2017, 14:25   #1
biyoinforma
 
Giriş: 03/07/2017
Şehir: İstanbul
Mesaj: 11
Excel Vers. ve Dili:
Excel 2013
Varsayılan satır renklendirme

Merhaba,

Word' de oluşturduğum 100 sayfalık tablolar var. Bu tablolar içerisinde belli kelimelerin olduğu satırları renklendirmek istiyorum. Örnek: "kalem" kelimesini içeren satırlar kırmızı olsun gibi. Bul-Değiştir yolunu takıip ettim, ancak orada sadece yazının rengi değişiyor.

Bunları exceldeki gibi toplu bir şekilde renklendirmem mümkün mü?

Teşekkürler
biyoinforma Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-08-2017, 16:31   #2
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,476
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Bir örnek dosya ekleyin ne yapılacağını görelim.
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-08-2017, 17:10   #3
biyoinforma
 
Giriş: 03/07/2017
Şehir: İstanbul
Mesaj: 11
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Merhaba,

Dosya aşağıdaki bağlantıda yer almakta.
Teşekkürler

http://s9.dosya.tc/server3/1sxca9/kalem.docx.html
biyoinforma Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-08-2017, 18:26   #4
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,476
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

dosya inmiyor yeniden yükleyiniz
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2017, 12:55   #5
leumruk
Uzman
 
leumruk kullanıcısının avatarı
 
Giriş: 15/04/2007
Şehir: Mustafa ALTUN ANKARA
Mesaj: 3,163
Excel Vers. ve Dili:
Office 2010 & 2013 tr
Varsayılan

Selamlar,
Aşağıdaki kodu, dosyanızın makro bölümüne kopyalayın ve çalıştırın.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub dene()
sor = InputBox("Aranacak metni yazınız...", "Metin Arama")
If sor = "" Then Exit Sub

For Each tbl In ActiveDocument.Tables
    For Each rw In tbl.Rows
        For Each hcr In rw.Cells
        txt = Mid(hcr, 1, Len(hcr) - 2)
        If InStr(1, txt, sor) > 0 Then
            rw.Shading.ForegroundPatternColor = wdColorAutomatic
            rw.Shading.BackgroundPatternColor = wdColorRed
        End If
        Next
    Next
Next
MsgBox "İşlem tamamlandı.", vbOKOnly, "leumruk"
End Sub
__________________
"Seni her türlü noksandan tenzih ederiz. Senin bize öğrettiğinden başka bizim hiçbir bilgimiz yoktur. Sen herşeyi hakkıyla bilir, her işi hikmetle yaparsın." (Bakara Sûresi: 2:32.)

"Onların duaları şu sözlerle sona erer: Ezelden ebede her türlü hamd ve övgü, şükür ve minnet, Âlemlerin Rabbi olan Allah'a mahsustur." (Yunus Suresi, 10:10.)
leumruk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2017, 14:38   #6
biyoinforma
 
Giriş: 03/07/2017
Şehir: İstanbul
Mesaj: 11
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Lemruk selam,

Verdiğin kod işe yaradı, ama sadece "kalem" yazan satırı değil aynı sıradaki tüm satırlar da kırmızı oluyor. Bunu nasıl düzeltebiliriz?
biyoinforma Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2017, 14:41   #7
leumruk
Uzman
 
leumruk kullanıcısının avatarı
 
Giriş: 15/04/2007
Şehir: Mustafa ALTUN ANKARA
Mesaj: 3,163
Excel Vers. ve Dili:
Office 2010 & 2013 tr
Varsayılan

Siz kalem yazan hücrenin mi renklenmesini istiyorsunuz?
__________________
"Seni her türlü noksandan tenzih ederiz. Senin bize öğrettiğinden başka bizim hiçbir bilgimiz yoktur. Sen herşeyi hakkıyla bilir, her işi hikmetle yaparsın." (Bakara Sûresi: 2:32.)

"Onların duaları şu sözlerle sona erer: Ezelden ebede her türlü hamd ve övgü, şükür ve minnet, Âlemlerin Rabbi olan Allah'a mahsustur." (Yunus Suresi, 10:10.)
leumruk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2017, 15:06   #8
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,476
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

3 nolu mesajınızdaki dosya linki bende indirmiyor hayret ama 10 kere indirildi uyarısı veriyor.
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2017, 16:47   #9
biyoinforma
 
Giriş: 03/07/2017
Şehir: İstanbul
Mesaj: 11
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Lemruk, evet sadece kalem yazan satırın renklenmesini istiyorum. Örnek dosyada diğer satırlar boş görünüyor, ama asıl dosyada boş olan satırlarda dolu ve onları da farklı renklendireceğim.

Halit3 indirmede bir sıkıntı yok gibi duruyor.
biyoinforma Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-08-2017, 20:57   #10
leumruk
Uzman
 
leumruk kullanıcısının avatarı
 
Giriş: 15/04/2007
Şehir: Mustafa ALTUN ANKARA
Mesaj: 3,163
Excel Vers. ve Dili:
Office 2010 & 2013 tr
Varsayılan

Sanırım, satırla kastettiğiniz, metnin bulunduğu hücre. Eğer öyle ise aşağıdaki kodu deneyiniz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub dene()
sor = InputBox("Aranacak metni yazınız...", "Metin Arama")
If sor = "" Then Exit Sub

For Each tbl In ActiveDocument.Tables
    For Each rw In tbl.Rows
        For Each hcr In rw.Cells
        txt = Mid(hcr, 1, Len(hcr) - 2)
        If InStr(1, txt, sor) > 0 Then
            hcr.Shading.ForegroundPatternColor = wdColorAutomatic
            hcr.Shading.BackgroundPatternColor = wdColorRed
        End If
        Next
    Next
Next
MsgBox "İşlem tamamlandı.", vbOKOnly, "leumruk"
End Sub
__________________
"Seni her türlü noksandan tenzih ederiz. Senin bize öğrettiğinden başka bizim hiçbir bilgimiz yoktur. Sen herşeyi hakkıyla bilir, her işi hikmetle yaparsın." (Bakara Sûresi: 2:32.)

"Onların duaları şu sözlerle sona erer: Ezelden ebede her türlü hamd ve övgü, şükür ve minnet, Âlemlerin Rabbi olan Allah'a mahsustur." (Yunus Suresi, 10:10.)
leumruk Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 21:35


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden