İçinden çıkamadığım bir durum

[korpixy]

Merhaba hocalarım içinden çıkamadığım bir sorun var herhangi bir hücre içinde BEYAZ ve SİYAH kelimeleri her gün yada 2 günde bir sırayla yer değişecek. örneğin tarih 20.2015 olduğu zaman hücrede BEYAZ 21.10.2015 tarihinde ise SİYAH yazmasını istiyorum. Bu sırayla hergün sırayla değişmesi mümkün mü. Şimdiden ilgilenenlere çok teşekkür ediyorum
Saygılar

 

[Emir Hüseyin Çoban]

. . .

Aşağıdaki kodları boş bir modüle yapıştırdıktan sonra tablonuzu kaydedip kapatın.
Yeniden açtığınızda kodlar çalışır.

Sub AUTO_OPEN()
    
    gün = WorksheetFunction.IsOdd(Format(Date, "D"))
    If gün = True Then
        Range("A1") = "Beyaz"
    Else
        Range("A1") = "Siyah"
    End If
    
End Sub

. . .

 

[korpixy]

Allah razı olsun sizden hüseyin bey. Sayenizde çalışmamı tamamlayabileceğim. Peki bu formülü istediğim hücrelerde kullansam sorun çıkmaz değil mi hocam

 

[Emir Hüseyin Çoban]

. . .

Bu formül değildir. Makro kodları.

Range("A1") kısımlarını istediğiniz hücre adreslerini yazarak değiştirebilirsiniz.

. . .

 

[korpixy]

tamam hocam teşekkürederim

 

[sefaburan]

http://www.excel.web.tr/f14/userformdan-veri-aktarma-t151913.html#post827206 hüseyin abi bu konuya bi el atman mümkün mü