1. * 5651 Sayılı Kanun'a göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur.
    * Telif hakkına konu olan eserlerin yasal olmayan şekilde paylaşıldığını ve yasal haklarının çiğnendiğini düşünen hak sahiplerinin İLETİŞİM bölümünden bize ulaşmaları durumunda ilgili şikayet incelenip gereği 1 (bir) hafta içinde gereği yapılacaktır.
    E-posta adresimiz
Notu Gizle
Yaklaşık 6 ay içinde forumda köklü değişimlerin olacağı bir sürümle karşınızda olacağız. Sistemi test etmek için aşağıdaki adresi kullanabilirsiniz.

http://www.degisim-sanat.com/_xf2/
Notu Gizle
Merhaba Ziyaretçi.

"KIRMIZI" konulu resimler için anketimiz açıldı. İlgili konuya BURADAN ulaşabilirsiniz.

Sizi de ankete katılmaya davet ediyoruz...

Excel Makro hatası

Konusu 'Office Programları' forumundadır ve baytunc2 tarafından 16 Eylül 2011 başlatılmıştır.

  1. baytunc2

    baytunc2 Üyecik

    Katılım:
    11 Mart 2011
    Mesajlar:
    1
    Beğenileri:
    0
    Ödül Puanları:
    20
    Banka:
    0 ÇTL
    Aşağıdaki makro. Otomatik renk makrosu oluşturdum (fazla bilgim olmadığı halde deneme yanılma yöntemiyle)... Yalnız 3 renk işlemi yapabiliyorum 4. bir renkte hata veriyor. ben fazla sayıda renk eklemek istiyorum. Yardımcı olursanız sevinirim.

    sub Makro2()
    '
    ' Makro2 Makro
    ' Makro OLCAY tarafından 16.09.2011 tarihinde kaydedildi.
    '
    SARI ' Klavye Kısayolu: Ctrl+u
    KIRMIZI '
    MAVİ Columns("B:B").Select
    MAVİ Selection.FormatConditions.Delete
    MAVİ Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
    SARI Formula1:="=""sarı"""
    SİYAH Selection.FormatConditions(1).Interior.ColorIndex = 6
    YEŞİL
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
    Formula1:="=""mavi"""
    Selection.FormatConditions(2).Interior.ColorIndex = 8
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
    Formula1:="=""yeşil"""
    Selection.FormatConditions(3).Interior.ColorIndex = 4
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
    Formula1:="=""kırmızı"""
    Selection.FormatConditions(4).Interior.ColorIndex = 3
    End Sub
     

Sayfayı Paylaş