Excel Her Ay İçin Sayfa Oluşturup Tarihleri Yazdırma

ErdemMH · 15 Mar 2023

Excelde makro ile her ay için otomatik sayfa oluşturup ayın günlerini yazdırmak

Tek yapmanız gereken makroyu çalıştırmak aşağıda ki fotoğrafta gördüğünüz gibi her ay için yapmış olacaktır

Kod:

Sub CreateMonths()
   Dim lDay As Long
   Dim iWks As Integer, iDay As Integer
   For iWks = 1 To 12
      Worksheets.Add after:=Worksheets(Worksheets.Count)
      ActiveSheet.Name = Format(DateSerial(1, iWks, 1), "mmmm")
      For lDay = DateSerial(Year(Date), iWks, 1) To DateSerial(Year(Date), iWks + 1, 0)
         iDay = iDay + 1
         Cells(iDay, 1).Value = DateSerial(Year(Date), iWks, iDay)
      Next lDay
      iDay = 0
   Next iWks
   Worksheets(1).Select
End Sub

Sub GotoToDay()
   Dim iRow As Integer
   Worksheets(Month(Date) + 1).Select
   iRow = WorksheetFunction.Match(CDbl(Date), Columns(1), 0)
   Cells(iRow, 1).Select
End Sub

victoriousayph · 15 Mar 2023

Peki bu metinlerin önemini vurgulamak için renk eklemek istesek nasıl bir komut satırı kullanmalıyız

ErdemMH · 15 Mar 2023

victoriousayph' Alıntı:
Peki bu metinlerin önemini vurgulamak için renk eklemek istesek nasıl bir komut satırı kullanmalıyız

Tam olarak ne demek istiyorsunuz

DelPhoİ · 15 Mar 2023

Bilgi için teşekkürler bilmeyenler için güzel bir konu

omercnaa4 · 15 Mar 2023

ErdemMH' Alıntı:
Excelde makro ile her ay için otomatik sayfa oluşturup ayın günlerini yazdırmak

Tek yapmanız gereken makroyu çalıştırmak aşağıda ki fotoğrafta gördüğünüz gibi her ay için yapmış olacaktır

Ekli dosyayı görüntüle 87666

Kod:

Sub CreateMonths() Dim lDay As Long Dim iWks As Integer, iDay As Integer For iWks = 1 To 12 Worksheets.Add after:=Worksheets(Worksheets.Count) ActiveSheet.Name = Format(DateSerial(1, iWks, 1), "mmmm") For lDay = DateSerial(Year(Date), iWks, 1) To DateSerial(Year(Date), iWks + 1, 0) iDay = iDay + 1 Cells(iDay, 1).Value = DateSerial(Year(Date), iWks, iDay) Next lDay iDay = 0 Next iWks Worksheets(1).Select End Sub Sub GotoToDay() Dim iRow As Integer Worksheets(Month(Date) + 1).Select iRow = WorksheetFunction.Match(CDbl(Date), Columns(1), 0) Cells(iRow, 1).Select End Sub

Hocam keşke bu kodu nereye gireceğimizi de gösterseydiniz. Elinize sağlık

victoriousayph · 15 Mar 2023

ErdemMH' Alıntı:
Tam olarak ne demek istiyorsunuz

Sub CreateMonths()
Dim lDay As Long
Dim iWks As Integer, iDay As Integer
For iWks = 1 To 12
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(DateSerial(1, iWks, 1), "mmmm")
For lDay = DateSerial(Year(Date), iWks, 1) To DateSerial(Year(Date), iWks + 1, 0)
iDay = iDay + 1
Cells(iDay, 1).Value = DateSerial(Year(Date), iWks, iDay)
If Month(Cells(iDay, 1).Value) = Month(Date) Then
Cells(iDay, 1).Interior.ColorIndex = 6 'Sarı renk kullanıldı
End If
Next lDay
iDay = 0
Next iWks
Worksheets(1).Select
End Sub

Gibi

Muhammet Uysal · 15 Mar 2023

bu kodları tam olarak nereye gireceğiz nasıl çalışacak onlarıda yazarsan seviniriz bro

#Adc Main · 15 Mar 2023

victoriousayph' Alıntı:
Peki bu metinlerin önemini vurgulamak için renk eklemek istesek nasıl bir komut satırı kullanmalıyız

Vba'da bir metnin rengini değiştirmek için "Font.ColorIndex" özelliğini kullanabilirsin örneğin aşağıdaki kod "sub createmonths" ve "sub gototoday" satırlarını sırasıyla mavi ve yeşil olarak ayarlar:

vbnet

Sub CreateMonths()
   Dim lDay As Long
   Dim iWks As Integer, iDay As Integer
   For iWks = 1 To 12
      Worksheets.Add after:=Worksheets(Worksheets.Count)
      ActiveSheet.Name = Format(DateSerial(1, iWks, 1), "mmmm")
      For lDay = DateSerial(Year(Date), iWks, 1) To DateSerial(Year(Date), iWks + 1, 0)
         iDay = iDay + 1
         Cells(iDay, 1).Value = DateSerial(Year(Date), iWks, iDay)
      Next lDay
      iDay = 0
   Next iWks
   Worksheets(1).Select
End Sub

Sub GotoToDay()
   Dim iRow As Integer
   Worksheets(Month(Date) + 1).Select
   iRow = WorksheetFunction.Match(CDbl(Date), Columns(1), 0)
   Cells(iRow, 1).Select
End Sub

Sub ColorizeText()
   ' CreateMonths satırını mavi olarak renklendir
   With Worksheets("Sheet1").Range("A1:A2")
      .Find("Sub CreateMonths").Characters(Start:=1, Length:=15).Font.ColorIndex = 5
   End With
   
   ' GotoToDay satırını yeşil olarak renklendir
   With Worksheets("Sheet1").Range("A3:A4")
      .Find("Sub GotoToDay").Characters(Start:=1, Length:=13).Font.ColorIndex = 4
   End With
End Sub

ErdemMH · 15 Mar 2023

omercnaa4' Alıntı:
Hocam keşke bu kodu nereye gireceğimizi de gösterseydiniz. Elinize sağlık

Developer/Visual Basic bölümünü açacaksın sonra yeni modül ekleyip içine yapıştıracaksın.

thrturker · 15 Mar 2023

Usta daha fazla gelsin...

ErdemMH · 15 Mar 2023

thrturker' Alıntı:
Usta daha fazla gelsin...

Vakit buldukça paylaşacağım.

Fahres · 15 Mar 2023

Teşekkürler,elinize sağlık gayet güzel ve yaralı bir paylaşım olmuş

ErdemMH · 15 Mar 2023

Fahres' Alıntı:
Teşekkürler,elinize sağlık gayet güzel ve yaralı bir paylaşım olmuş

Teşekkür ederiyorum yenilerini eklemeye çalışacağım

ArchProphet · 15 Mar 2023

Böyle detaylı yazılmış bir kodun böylesine basit bir işlem için çok fazla buluyorum. Excel'in kendi içinde zaten bunu yapmamızı sağlayan modüller mevcut...

ErdemMH · 15 Mar 2023

ArchProphet' Alıntı:
Böyle detaylı yazılmış bir kodun böylesine basit bir işlem için çok fazla buluyorum. Excel'in kendi içinde zaten bunu yapmamızı sağlayan modüller mevcut...

Eğer aynı işlemi yapan modül varsa paylaşırsanız onuda görmüş oluruz.

ArchProphet · 15 Mar 2023

ErdemMH' Alıntı:
Eğer aynı işlemi yapan modül varsa paylaşırsanız onuda görmüş oluruz.

Modül derken Excel'in kendi içinde olandan bahsediyorum.

Hücre içine 01.03.2023 yazıp köşesinden aşağı çektiğinde kendiliğinde geri kalanı giriyor.

ErdemMH · 15 Mar 2023

ArchProphet' Alıntı:
Modül derken Excel'in kendi içinde olandan bahsediyorum.

Hücre içine 01.03.2023 yazıp köşesinden aşağı çektiğinde kendiliğinde geri kalanı giriyor.

Eee kodu kopyala yapıştır yaptığında ne sayfa açmakla uğraşıyorsun ne yazmakla uğraşıyorsun otomatik hepsini bir anda yazıyor. Tek yapman gerek kodu çalıştır butonuna basmak

daksman · 15 Mar 2023

askerdeyken nizamiyedeki bilgisayara buna benzer bir exel yapmıştım her ay gelen misafirler için liste istiyordu komutan duygulandım biraz :')

okanberk · 15 Mar 2023

Eline emeğine sağlık, yararlı bir konu.

ErdemMH · 15 Mar 2023

daksman' Alıntı:
askerdeyken nizamiyedeki bilgisayara buna benzer bir exel yapmıştım her ay gelen misafirler için liste istiyordu komutan duygulandım biraz :')

Aylık ortalama kaç misafir geliyordu kanka

Ara

Excel Her Ay İçin Sayfa Oluşturup Tarihleri Yazdırma

ErdemMH

victoriousayph

Lelouch Vi Britannia

ErdemMH

DelPhoİ

Enkaz altındayım canım belki başka baharlara

omercnaa4

victoriousayph

Lelouch Vi Britannia

Muhammet Uysal

#Adc Main

ErdemMH

thrturker

ErdemMH

Fahres

ErdemMH

ArchProphet

ErdemMH

ArchProphet

ErdemMH

daksman

Her hile kullanan bir gün banı tadacaktır

okanberk

ErdemMH

Benzer Konular