Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Kapalı Konu
 
Paylaş Konu Araçları Görünüm Modları
Eski 03-02-2016, 13:39   #1
muratkul
Altın Üye
 
Giriş: 27/01/2009
Şehir: SİVAS
Mesaj: 174
Excel Vers. ve Dili:
EXCEL2003,TÜRKÇE
Varsayılan Kenarlık oluşturma

Merhaba
Ekteki tabloda temsil.ıd yazan yere her temsil ıd değiştiğinde aynı temsil ıd olanları dört tarafının kenarlık çizgilerini kalın yapmak istiyorum.Kolay yoldan nasıl keanrlık oluştururum.
Eklenmiş Dosyalar
Dosya Türü: xls örnek tablo.xls (71.0 KB, 17 Görüntülenme)

Bu mesaj en son " 04-02-2016 " tarihinde saat 11:01 itibariyle muratkul tarafından düzenlenmiştir....
muratkul Çevrimdışı  
Eski 08-02-2016, 16:16   #2
muratkul
Altın Üye
 
Giriş: 27/01/2009
Şehir: SİVAS
Mesaj: 174
Excel Vers. ve Dili:
EXCEL2003,TÜRKÇE
Varsayılan

Merhaba,
Arkadaşlar nasıl yapacağım konusunda hiç kimsenin bir fikri yokmu acaba.
Her numara dedğiştiğinde o numaraya ait bilgilerin hepsine dıştan dışa kenarlık yapmak istiyorum.
muratkul Çevrimdışı  
Eski 08-02-2016, 23:04   #3
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,672
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba, bildiğim kadarıyla koşullu biçimlendirme ile kalın kenarlık çizilemiyor ama
en basitiyle aşağıdaki gibi bir makro kod ile olabilir.

-- Sayfaya bir metin kutusu/şekil ekleyin,
-- Alt tarafta sayfanın adına fareyle sağ tıklayın ve KOD GÖRÜNTÜLEyi seçin,
-- Açılan ekranın sağ tarafındaki boş alana aşağıdaki kod blokunu yapıştırın,
-- Sayfaya eklediğiniz metin kutusuna/şekle fareyle sağ tıklayın ve MAKRO ATAyı seçin,
-- Açılan küçük ekranda ÇERÇEVE_KENARLIK_BRN adını seçin ve işlemi onaylayın,
-- Sayfaya eklediğiniz metin kutusuna/şekle fareyle tıklayın.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub ÇERÇEVE_KENARLIK_BRN()
Columns("A:E").Borders.LineStyle = xlNone: son = [A65536].End(3).Row
With Range("A1:E" & son).Borders: .LineStyle = xlContinuous: .ColorIndex = 16: .Weight = xlThin: End With
For brn = 2 To [A65536].End(3).Row
ilk = WorksheetFunction.Match(Cells(brn, 1), Range("A1:A" & [A65536].End(3).Row), 0)
son = ilk + WorksheetFunction.CountIf(Range("A1:A" & [A65536].End(3).Row), Cells(brn, 1)) - 1
alan = "A" & ilk & ":E" & son: Range(alan).Select
With Selection.Borders(xlEdgeLeft): .LineStyle = xlContinuous: .ColorIndex = 0: .Weight = xlMedium: End With
With Selection.Borders(xlEdgeTop): .LineStyle = xlContinuous: .ColorIndex = 0: .Weight = xlMedium: End With
With Selection.Borders(xlEdgeBottom): .LineStyle = xlContinuous: .ColorIndex = 0: .Weight = xlMedium: End With
With Selection.Borders(xlEdgeRight): .LineStyle = xlContinuous: .ColorIndex = 0: .Weight = xlMedium: End With
brn = son: Next: Cells(1, 1).Activate: MsgBox "KENARLIKLAR TAMAM"
End Sub
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.

Bu mesaj en son " 09-02-2016 " tarihinde saat 02:05 itibariyle Ömer BARAN tarafından düzenlenmiştir....
Ömer BARAN Çevrimdışı  
Eski 09-02-2016, 09:14   #4
muratkul
Altın Üye
 
Giriş: 27/01/2009
Şehir: SİVAS
Mesaj: 174
Excel Vers. ve Dili:
EXCEL2003,TÜRKÇE
Varsayılan

çok teşekkür ederim Ömer bey,
Daha basit bir yöntem yok galiba. istediğim işlemi yapıyor. sağolun
muratkul Çevrimdışı  
Eski 09-02-2016, 12:34   #5
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,672
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Alıntı:
muratkul tarafından gönderildi Mesajı Görüntüle
........... istediğim işlemi yapıyor......
İyi günler dilerim.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı  
Eski 10-02-2016, 11:22   #6
muratkul
Altın Üye
 
Giriş: 27/01/2009
Şehir: SİVAS
Mesaj: 174
Excel Vers. ve Dili:
EXCEL2003,TÜRKÇE
Varsayılan

Ömer Bey,
Yalnız filtre yaptığım zaman kenarlıklar kayboluyor. Mesla tarihe göre filtre yaptığım zaman örnekteki tablodaki temsil ıd. her değişmesinde ilgili alanın dört tarafını kenarlık yapmasını istiyorum.
Tekrar yardımcı olabilir misiniz.
Eklenmiş Dosyalar
Dosya Türü: xls ÖRNEK.xls (141.0 KB, 1 Görüntülenme)
muratkul Çevrimdışı  
Eski 15-01-2018, 10:40   #7
muratkul
Altın Üye
 
Giriş: 27/01/2009
Şehir: SİVAS
Mesaj: 174
Excel Vers. ve Dili:
EXCEL2003,TÜRKÇE
Varsayılan

Merhaba Ömer Baran Bey,
İlgili Kodu A sütunu için değilde C SUTUNU İÇİN TEKRAR düzenleyip göndermenizi rica edebilirmiyim.
muratkul Çevrimdışı  
Eski 15-01-2018, 15:36   #8
muratkul
Altın Üye
 
Giriş: 27/01/2009
Şehir: SİVAS
Mesaj: 174
Excel Vers. ve Dili:
EXCEL2003,TÜRKÇE
Varsayılan

Ömer bey ilgili kodu A sutunu değilde C9 SUTUNUNA GÖRE DÜZENLEYİP GÖNDEREBİLİRMİSİNİZ.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub ÇERÇEVE_KENARLIK_BRN()
Columns("A:E").Borders.LineStyle = xlNone: son = [A65536].End(3).Row
With Range("A1:E" & son).Borders: .LineStyle = xlContinuous: .ColorIndex = 16: .Weight = xlThin: End With
For brn = 2 To [A65536].End(3).Row
ilk = WorksheetFunction.Match(Cells(brn, 1), Range("A1:A" & [A65536].End(3).Row), 0)
son = ilk + WorksheetFunction.CountIf(Range("A1:A" & [A65536].End(3).Row), Cells(brn, 1)) - 1
alan = "A" & ilk & ":E" & son: Range(alan).Select
With Selection.Borders(xlEdgeLeft): .LineStyle = xlContinuous: .ColorIndex = 0: .Weight = xlMedium: End With
With Selection.Borders(xlEdgeTop): .LineStyle = xlContinuous: .ColorIndex = 0: .Weight = xlMedium: End With
With Selection.Borders(xlEdgeBottom): .LineStyle = xlContinuous: .ColorIndex = 0: .Weight = xlMedium: End With
With Selection.Borders(xlEdgeRight): .LineStyle = xlContinuous: .ColorIndex = 0: .Weight = xlMedium: End With
brn = son: Next: Cells(1, 1).Activate: MsgBox "KENARLIKLAR TAMAM"
End Sub
muratkul Çevrimdışı  
Kapalı Konu


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 11:54


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden