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

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ş