bu ayın günlerini sağa doğru yazma, alt hücreye gününü yazma ve haftasonlarını renklendirme Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Sub Ayarla() 
    Dim Ayin_Ilk_Gunu As Date, Ayin_Son_Gunu As Date, Hedef As Range, Adres As String 
    Ayin_Ilk_Gunu = DateSerial(Year(Now), Month(Now), 1) 
    Ayin_Son_Gunu = DateSerial(Year(Now), Month(Now) + 1, 1) - 1

On Error Resume Next 
    ActiveWorkbook.Names("Bayramlar").Delete 
    On Error GoTo 0 
    ActiveWorkbook.Names.Add Name:="Bayramlar", RefersToR1C1:= _ 
        "={" & CDbl(CDate("23.04.2007")) & ";" & CDbl(CDate("19.05.2007")) & ";" & CDbl(CDate("23.10.2007")) & ";" & CDbl(CDate("24.10.2007")) & ";" & CDbl(CDate("25.10.2007")) & ";" & _ 
        CDbl(CDate("29.10.2007")) & ";" & CDbl(CDate("31.12.2007")) & ";" & CDbl(CDate("01.01.2008")) & ";" & CDbl(CDate("02.01.2008")) & ";" & CDbl(CDate("03.01.2008")) & "}" 
    Set Hedef = Range("A5") 
    Hedef = Ayin_Ilk_Gunu 
    Hedef.NumberFormat = "DD" 
    With Hedef 
        Adres = .Address(True, False) 
        .Select 
        .FormatConditions.Delete 
        .FormatConditions.Add Type:=xlExpression, Formula1:= _ 
        "=VE(" & Adres & """"";YADA(DEĞİL(EHATALIYSA(DÜŞEYARA(" & Adres & ";Bayramlar;1;0)));HAFTANINGÜNÜ(" & Adres & ";2)=6;HAFTANINGÜNÜ(" & Adres & ";2)=7))" 
        .FormatConditions(1).Interior.ColorIndex = 3 
    End With 
    With Hedef(2, 1) 
        .FormatConditions.Delete 
        .FormatConditions.Add Type:=xlExpression, Formula1:= _ 
        "=VE(" & Adres & """"";YADA(DEĞİL(EHATALIYSA(DÜŞEYARA(" & Adres & ";Bayramlar;1;0)));HAFTANINGÜNÜ(" & Adres & ";2)=6;HAFTANINGÜNÜ(" & Adres & ";2)=7))" 
        .FormatConditions(1).Interior.ColorIndex = 3 
    End With 
    
    Hedef.DataSeries Rowcol:=xlRows, Type:=xlChronological, Date:=xlDay, _ 
    Step:=1, stop:=CDbl(Ayin_Son_Gunu), Trend:=False 
    Hedef.AutoFill Destination:=Range(Hedef, Hedef.End(xlToRight)), Type:=xlFillDefault 
    Hedef(2, 1) = Format(Hedef(1, 1), "DDD") 
    Hedef(2, 1).AutoFill Destination:=Range(Hedef(2, 1), Hedef.End(xlToRight)(2, 1)), Type:=xlFillDefault 
    Range(Hedef(2, 1).EntireColumn, Hedef.End(xlToRight)(2, 1).EntireColumn).Columns.AutoFit 
    Hedef(3, 1).Formula = "=IF(AND(OR(WEEKDAY(" & Adres & ",2)=1,WEEKDAY(" & Adres & ",2)=3,WEEKDAY(" & Adres & ",2)=5),ISERROR(VLOOKUP(" & Adres & ",Bayramlar,1,0))),10,IF(AND(OR(WEEKDAY(" & Adres & ",2)=2,WEEKDAY(" & Adres & ",2)=4),ISERROR(VLOOKUP(" & Adres & ",Bayramlar,1,0))),4,0))" 
    Hedef(3, 1).AutoFill Destination:=Range(Hedef(3, 1), Hedef.End(xlToRight)(3, 1)), Type:=xlFillDefault 
    Set Hedef = Nothing 
End Sub

Benzer Sonuçlar
No	Makro Adı
1	bu ayın günlerini sağa doğru yazma, alt hücreye gününü yazma ve haftasonlarını renklendirme
2	herhangi bir hücreye tıklayınca o hücreden sağa doğru kayarak o aydaki günlerin numaralarını yazar ve haftasonlarını renklendirir
3	herhangi bir hücreye tıklayınca o hücreden sağa doğru kayarak o aydaki günlerin numaralarını yazma
4	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
5	hücre değerini açiklamaya ekleme
6	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
7	excel operatörleri hk
8	D2 hücresine tıklandığında hücrenin bulunduğu sütun genişlesin, başka bir hücreye tıklandığında ise daralsın.
9	sayfada belli hücrelere veri girilince yanındaki satıra tarihini atar
10	ayın son gününü bulur aktif hücreye yazar
11	Kesme, kopyalama ve yapıştırmayı iptal etme
12	aktif hücreden sağa, sola, yukarı, aşağı son hücreye gitme
13	multipage zemin rengi
14	renkli hücreye sadece rakam girme: msgbox
15	değişen hücreleri göster
16	yazdırma alanı seçme
17	ehatalıysa formülünün izahı
18	hücreye formül yazdirirken referans çeşitleri
19	Bir Sütundaki en son kullanılan hücreyi bulun
20	uyan şartlara göre userform3teki commandbutton gizlensin.

Benzer Sonuçlar

Makro Adı

bu ayın günlerini sağa doğru yazma, alt hücreye gününü yazma ve haftasonlarını renklendirme

herhangi bir hücreye tıklayınca o hücreden sağa doğru kayarak o aydaki günlerin numaralarını yazar ve haftasonlarını renklendirir

herhangi bir hücreye tıklayınca o hücreden sağa doğru kayarak o aydaki günlerin numaralarını yazma

menü çubuğunun silinmesi ve özel bir menünün oluşturulması

hücre değerini açiklamaya ekleme

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

excel operatörleri hk

D2 hücresine tıklandığında hücrenin bulunduğu sütun genişlesin, başka bir hücreye tıklandığında ise daralsın.

sayfada belli hücrelere veri girilince yanındaki satıra tarihini atar

ayın son gününü bulur aktif hücreye yazar