Hatam nerde excel hızlandırma

[ahmethuseyin]

Basit bir formul kullandim,D2 D8 Araliginda ve j11 den sonra renklendirme formulu,makro yapmak istedim ama o konuda cok yetersizim bu ,bu ekdeki excelde hizlandirma konusunda siz degerli hocalarim yardimci olursaniz cok sevinirim, saygilarimla

 

[Ömer BARAN]

Merhaba.

Biraz geç olmuş ama konuyu ve cevap yazılmamış olduğunu yeni fark ettim.

Aşağıdaki işlemleri adım adım uygularsanız;
koşullu biçimlendirme yerine J sütunundakii hücre değeri ile,
C3:C8 aralığındaki parantez içlerindeki değerler karşılaştırılarak,
aynı olanların arkaplan renkleri, C3:C8 hücrelerinin rengi neyse ona boyanır,
D38 arasına ise adetleri yazılır.

-- Alt taraftan Blad1 sayfasının adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılan VBA ekranında, sağdaki boş alana aşağıdaki kod'u yapıştırın,
-- Sayfaya bir adet düğme/şekil/metin kutusu ekleyin,
-- Eklediğiniz bu şekil/düğme/metin kutusuna fareyle sağ tıklayıp MAKRO ATAyı seçin,
-- Açılan küçük ekranda RENKLER'i fareyle seçip işlemi onaylayın.

Artık sayfaya eklediğiniz bu şekile fareyle tıkladığınızda kod çalışır ve J sütununda boyama yapılır.
C3:C8 aralığındaki renkleri değiştirerek makroyu tekrar çalıştırırsanız yeni renklerin uygulandığını göreceksiniz.
.

[B]Sub [COLOR="Red"]RENKLER[/COLOR]()[/B]
Set wf = Application.WorksheetFunction
son = Cells(Rows.Count, "J").End(3).Row
Range("J11:J" & son).FormatConditions.Delete
Range("J11:J" & son).Interior.Color = xlNone
For sat1 = 3 To 8
    harf = Mid(Cells(sat1, "C"), wf.Search("(", Cells(sat1, "C"), 1) + 1, _
    wf.Search(")", Cells(sat1, "C"), 1) - (wf.Search("(", Cells(sat1, "C"), 1) + 1))
    For sat2 = 11 To son
        If UCase(Cells(sat2, "J")) = UCase(harf) Then
            Cells(sat2, "J").Interior.Color = Cells(sat1, "C").Interior.Color
        End If
    Next
    Cells(sat1, "D") = sayi: sayi = 0
Next
[B]End Sub[/B]