makro ile hücre rengini değiştirmek

[ark123]

Merhaba;
3 adet commandbutton var sayfamda. B2 hücre rengi her commandbuttonda farklı olsun istiyorum. Yardımlarınız için teşekkür ederim.

 

[Korhan Ayhan]

Aşağıdaki kodları deneyiniz.

İşlemi yapmak istediğiniz sayfanızın kod bölümüne uygulayınız. Butonlarda aynı sayfada olmalıdır.

Private Sub CommandButton1_Click()
    Range("B2").Interior.ColorIndex = 6
End Sub

Private Sub CommandButton2_Click()
    Range("B2").Interior.ColorIndex = 3
End Sub

Private Sub CommandButton3_Click()
    Range("B2").Interior.ColorIndex = 8
End Sub

 

[ark123]

Makro ile z sürücüye bağlanmak

Meraba;
Ağdaki başka bir bilgisayarda paylaşılan klasöre z sürücüsü olarak bağlanıyorum. excell çalışma kitabım açılınca z sürücüsüne bağlanan makro yazmak istiyorum. Çünkü z sürücüdeki data dozyasından veri alacağım.

 

[bluefalcon]

macro ile hücre rengini değiştirmek

Konuyu hortlatıyorum ama ilgili olduğu için yazmak istedim. Konu açılırken hücre renginin nasıl değişeceği sorulmuş ve yanıtlanmış. Ben bu hücre rengi, fontu gibi değişikliklerin nasıl sıfırlanacağını sormak istiyorum. Örneğin sarı zemin rengi ile kırmızı font rengini nasıl excel default değere getirebilirim?

 

[bluefalcon]

buldum ;

Range("B2:F" & Rows.Count).ClearFormats

 

[Necdet]

buldum ;

Range("B2:F" & Rows.Count).ClearFormats

Merhaba,

Tüm formatları silmek için kestirme yol, fakat bazı formatları düzenlemeniz gerekirse aşağıdaki örneği inceleyiniz. Daha fazla özellik eklenebilir.

Sub aa()

    With Range("B2:F15")
        .Font.ColorIndex = xlAutomatic
        .Interior.ColorIndex = xlNone
        .Font.Bold = False
    End With
    
End Sub

 

[ptcsite]

@bluefalcon ve @Necdet her ikinize de teşekkür ederim.