Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Fonksiyonlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Fonksiyonlar Bir fonksiyonun, nasıl işlediğini veya aradığınız bir işleme uygun olup olmadığını bu başlık altında sorabilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 29-10-2017, 12:36   #1
altan888
Altın Üye
 
altan888 kullanıcısının avatarı
 
Giriş: 15/02/2008
Şehir: İzmir
Mesaj: 183
Excel Vers. ve Dili:
Excel 2016 TR
Varsayılan Koşullu Biçimlendirme-Fiş Numarası Değiştikçe

Merhabalar
Excel tablomda alt alta numaralı olarak muhasebe fiş dökümleri bulunmaktadır ve bir muhasebe fişi 1 den fazla satırdan oluşmaktadır, ve fiş noları ardışık değildir, bir muhasebe fişim kaç satırdan oluşuyor ise B sütununda aynı muhasebe fişi için aynı muhasebe numaralandrımasını yaptım ancak benim sizden ricam örneğin; 9 satırdan oluşan 2027 nolu fişten sonra 8 satırdan oluşan 2469 nolu fiş geliyor ise bu 2469 nolu muhasebe fişinin tüm satırları ayrı renklensin, yani bir muhasebe fişi renkli olacak bir muhasebe fişi renksiz olacak ve böyle alt alta devam edip gidecek, benim gözle takip ve kontrol açısından çok işime yarayacak, yardımcı olmanızı rica ederim, şimdiden teşekkürler, iyi çalışmalar. (makrosuz bir çözüm olursa çok sevinirim)
Eklenmiş Dosyalar
Dosya Türü: xlsx Koşullu Biçimlendirme-Fiş Numarası Değiştikçe.xlsx (11.2 KB, 5 Görüntülenme)

Bu mesaj en son " 29-10-2017 " tarihinde saat 13:11 itibariyle altan888 tarafından düzenlenmiştir....
altan888 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-10-2017, 13:07   #2
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,031
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Merhaba,
Aşağıdaki kodları deneyiniz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub ayni_olanlari_renklendir()
Dim sh As Worksheet, ss As Long, i As Long, renk(), z As Object, r As Byte
r = 0
n = 0
renk = Array(48, 44, 42, 40, 39, 38, 36, 33, 28, 26, 24, 22, 20, 17, 15, 8, 7, 6, 4, 3)
Set sh = Sheets(Sheets(1).Name)
ss = sh.Range("B" & Rows.Count).End(3).Row
Set z = CreateObject("scripting.dictionary")
    For i = 2 To ss
        If sh.Range("B" & i).Value <> "" Then
            aranan = sh.Range("B" & i).Value
            If Not z.exists(aranan) Then
                r = r + 1
                n = n + 1
                z.Add aranan, r
                z(aranan) = r
                n = r
                sh.Range("A" & i & ":C" & i).Interior.ColorIndex = renk(r)
            Else
                sh.Range("A" & i & ":C" & i).Interior.ColorIndex = renk(z(aranan))
            End If
        End If
    Next i
    MsgBox "İşlem tamamlnadı", vbInformation, "antonio"
End Sub
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-10-2017, 13:11   #3
altan888
Altın Üye
 
altan888 kullanıcısının avatarı
 
Giriş: 15/02/2008
Şehir: İzmir
Mesaj: 183
Excel Vers. ve Dili:
Excel 2016 TR
Varsayılan

Alıntı:
antonio tarafından gönderildi Mesajı Görüntüle
Merhaba,
Aşağıdaki kodları deneyiniz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub ayni_olanlari_renklendir()
Dim sh As Worksheet, ss As Long, i As Long, renk(), z As Object, r As Byte
r = 0
n = 0
renk = Array(48, 44, 42, 40, 39, 38, 36, 33, 28, 26, 24, 22, 20, 17, 15, 8, 7, 6, 4, 3)
Set sh = Sheets(Sheets(1).Name)
ss = sh.Range("B" & Rows.Count).End(3).Row
Set z = CreateObject("scripting.dictionary")
    For i = 2 To ss
        If sh.Range("B" & i).Value <> "" Then
            aranan = sh.Range("B" & i).Value
            If Not z.exists(aranan) Then
                r = r + 1
                n = n + 1
                z.Add aranan, r
                z(aranan) = r
                n = r
                sh.Range("A" & i & ":C" & i).Interior.ColorIndex = renk(r)
            Else
                sh.Range("A" & i & ":C" & i).Interior.ColorIndex = renk(z(aranan))
            End If
        End If
    Next i
    MsgBox "İşlem tamamlnadı", vbInformation, "antonio"
End Sub
Sayın antonio
Cevap için çok teşekkür ederim ancak makrosuz bir çözümü var mıdır ?
altan888 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-10-2017, 13:26   #4
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,031
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Alıntı:
altan888 tarafından gönderildi
Sayın antonio
...makrosuz bir çözümü var mıdır ?
Koşullu biçimlendirmeye fiş numaralarını tanıtabilirsiniz. Bu şekilde her fiş numarası için ayrı bir dolgu biçimlendirmesi yapmayı deneyiniz.
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-10-2017, 17:30   #5
altan888
Altın Üye
 
altan888 kullanıcısının avatarı
 
Giriş: 15/02/2008
Şehir: İzmir
Mesaj: 183
Excel Vers. ve Dili:
Excel 2016 TR
Varsayılan Makrosuz çözüm

Merhabalar, kendimce makrosuz bir çözüm buldum, yardımcı sütun ve koşullu biçimlendirme ile, ihtiyacı olan olabilir diye excel dosyamı ekte paylaşıyorum
Eklenmiş Dosyalar
Dosya Türü: xlsx Koşullu Biçimlendirme-Fiş Numarası Değiştikçe..xlsx (48.9 KB, 5 Görüntülenme)
altan888 Ç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 07:52


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- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden