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 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. 
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub 
    Cancel = True 
    Satır = Target.Row 
    Range(Cells(Satır, 1), Cells(Satır + 1, 31)).ClearContents 
    Range(Cells(Satır, 1), Cells(Satır + 1, 31)).Interior.ColorIndex = xlNone 
    TARİH = DateSerial(Year(Now), Month(Now), 1) 
    AYINİLKGÜNÜ = TARİH 
    AYEKLE = DateAdd("M", 1, TARİH) 
    AYINSONGÜNÜ = DateAdd("D", -1, CDate(AYEKLE)) 
    Sütun = 1 
    For GÜNLER = AYINİLKGÜNÜ To AYINSONGÜNÜ 
    Cells(Satır, Sütun) = GÜNLER 
    Cells(Satır + 1, Sütun) = Format(GÜNLER, "DDDD") 
    If Weekday(Cells(Satır, Sütun), vbMonday) = 6 Or Weekday(Cells(Satır, Sütun), vbMonday) = 7 Then 
    Range(Cells(Satır, Sütun), Cells(Satır + 1, Sütun)).Interior.ColorIndex = 6 
    End If 
    Sütun = Sütun + 1 
    Next 
End Sub

Benzer Sonuçlar
No	Makro Adı
1	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
2	herhangi bir hücreye tıklayınca o hücreden sağa doğru kayarak o aydaki günlerin numaralarını yazma
3	hücre değerini açiklamaya ekleme
4	bu ayın günlerini sağa doğru yazma, alt hücreye gününü yazma ve haftasonlarını renklendirme
5	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
6	otomatik cümle yazar
7	a sütununda herhangi bir hücreye tıkla satır numarasını versin
8	renkli hücreleri toplama / sayma (İstediğim renkte kaç tane hücre var)
9	aktif hücreden sağa, sola, yukarı, aşağı son hücreye gitme
10	herhangi bir hücreye tıklayınca makro çalışsın
11	b sütununda herhangi bir hücreye çift tıkla 1 artırsın
12	ilk satıra yazdığım tarihe bakarak tek bir hareket ile o aya ait çalışma günlerini aşağıya doğru diğer hücrelere açmak.
13	sayfada belli hücrelere veri girilince yanındaki satıra tarihini atar
14	aynı makroyla birden çok sayfaya kayıt yapmak
15	b sütununda herhangi bir hücreye çift tıkla kaç satır ekleneceğini belirt
16	listenin en sonuna yapıştırma
17	excel sayfasının isteğe göre kısıtlanması
18	şifrelemede son nokta
19	Karakterleri Bir Dizinden Çıkarın: Sadece bir metin dizesinin başlangıcındaki karakterleri kaldırın. Tek ihtiyacınız olan şey, bir hücreye başvurmanız ya da işleve metin dizesinden kaldırılacak karakter sayısına ve bir metin eklemenizdir. Metin dizesi için "rng" ve kaldırılacak karakter sayısı için "cnt" olmak üzere iki bağımsız değişkeni vardır. Örneğin: Bir hücreden ilk karakterleri kaldırmak isterseniz 1 incnt;
20	ehatalıysa formülünün izahı

Benzer Sonuçlar

Makro Adı

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

hücre değerini açiklamaya ekleme

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

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

otomatik cümle yazar

a sütununda herhangi bir hücreye tıkla satır numarasını versin

renkli hücreleri toplama / sayma (İstediğim renkte kaç tane hücre var)

aktif hücreden sağa, sola, yukarı, aşağı son hücreye gitme

herhangi bir hücreye tıklayınca makro çalışsın