takvimi sayfaya yazar(yılı değiştiriniz) 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 takvim()
   Dim varYear As Variant
   Dim bytMonth As Byte
   Dim bytDay As Byte
   Dim bytWeekday As Byte
   Dim strWeekday As String
   Dim ws As Worksheet
    
   varYear = 2005
  
   For Each ws In Worksheets
      If ws.Name = "Jahr " & varYear Then
         ws.Delete
      End If
   Next ws
    
   Set ws = Worksheets.Add
   ws.Name = "Jahr " & varYear
    
   For bytMonth = 1 To 12
      With Cells(1, bytMonth)
         .Value = Format(DateSerial(varYear, bytMonth, 1), "mmmm")
         .Interior.ColorIndex = 36
         .Font.Bold = True
      End With
      
      For bytDay = 1 To Day(DateSerial(varYear, bytMonth + 1, 0))
         With Cells(bytDay + 1, bytMonth)
            bytWeekday = Weekday(DateSerial(varYear, bytMonth, bytDay))
            
            strWeekday = WhichWeekday(bytWeekday)
                        
            .Value = strWeekday & ", " & bytDay

If bytWeekday = 7 Or bytWeekday = 1 Then
               .Interior.ColorIndex = 22
            End If
         End With
      Next bytDay
   Next bytMonth
End Sub
Function WhichWeekday(ByVal bytWeekday As Byte) As String
   Select Case bytWeekday
      Case 1
         WhichWeekday = "pazar"
      Case 2
         WhichWeekday = "p.tesi"
      Case 3
         WhichWeekday = "salı"
      Case 4
         WhichWeekday = "carsamba"
      Case 5
         WhichWeekday = "persembe"
      Case 6
         WhichWeekday = "cuma"
      Case 7
         WhichWeekday = "c.tesi"
   End Select
End Function

Benzer Sonuçlar
No	Makro Adı
1	takvimi sayfaya yazar(yılı değiştiriniz)
2	hücrede takvim (calendar) açma
3	forma otomatik resim getirme
4	combobox kullanımı
5	userformda takvim
6	ayları sayfa olarak ekler ayın günlerini de yazar ve aktif ay ve güne gider
7	şifreyi girmeye zorlama girince diğer sayfaya yönlendirir
8	renkli hücreye sadece rakam girme: msgbox
9	değişen hücreleri gösterme
10	değişen hücreleri göster
11	comboboxa göre kayıt
12	hücredeki yazi karakterinin rengine göre filtreleme
13	dolaylı makro
14	sayfaya jpeg eklemek
15	daha önce koruma yaptiğim sayfanin koruma şifresini nasıl kirabilirim
16	metinleri büyük&küçük harfe çevirir
17	metinleri büyük & küçük harfe çevirir
18	formüllü hücreyi seçmeden başka sayfaya değer olarak atamak
19	sayfayı istenilen sayı kadar yazdırma ve numaralandırma
20	hücre tanimlamalarini sayfaya göre ayarlama

Benzer Sonuçlar

Makro Adı

takvimi sayfaya yazar(yılı değiştiriniz)

hücrede takvim (calendar) açma

forma otomatik resim getirme

combobox kullanımı

userformda takvim

ayları sayfa olarak ekler ayın günlerini de yazar ve aktif ay ve güne gider

şifreyi girmeye zorlama girince diğer sayfaya yönlendirir

renkli hücreye sadece rakam girme: msgbox

değişen hücreleri gösterme

değişen hücreleri göster