Döngü ile tarih yazdırma

[seddur]

Merhaba. B2:B16 arası 01.01.2022 formatında ayın ilk 15 gününü ve D217 arası yine aynı formatda ayın son 15 gününü döngü ile yazdırarak tablo yapmak istiyorum.Daha sonra Combobox1'den ayı seçtiğimde bu sefer seçilen ayın ilk 15 ve son 15 gününü yine aynı hücrelere yazdırmak istiyorum.Yardımcı olabilirseniz sevinirim.

 

[Greenblacksea53]

Buyrun Makrosuz yaptım illa makro isterseniz makroda yazılır.

 

[seddur]

Teşekkür ederim.Bu kadarı yeterli olacaktır.

 

[Necdet]

Merhaba,
Döngülü değil serileri kullandım.
Sadece B2 hücresine başlanğıç tarihini girin ve kodları çalıştırın.

Sub Makro1()

    Range("B2:B16").DataSeries Date:=xlDay, Step:=1
    Range("D2") = Range("B2") + 15
    Range("B2:B16").DataSeries Date:=xlDay, Step:=1
    
End Sub

 

[YUSUF44]

Teşekkür ederim.Bu kadarı yeterli olacaktır.

Aşağıdaki konuyu unuttunuz mu sayın seddur?

Günlük ve aylık satış bulma

Merhaba.Ekli dosyada bulunan Liste sayfasındaki B sutununda bulunan siparişlerin E sutununda bulunan adetlerini Döküm sayfasında bulunan Textbox1 deki tarihe göre Döküm sayfası Adet sutunlarına ürün toplamları olarak yazdırmak istiyorum.Yine aynı şekilde Combobox2 deki ay ve combobox1 deki yıla...

www.excel.web.tr

 

[seddur]

Sn.YUSUF44.Özet tablo oluşturmayı ve kullanmayı bilmediğim için şu anda yaptığınız özet tablonun bir benzerini özgün olarak yapmaya çalışıyorum Özet tablonun ayarlarını bozdum galiba tarihlerin üstüne tıkladığımda hiç bir şey olmuyor.Dolayısıyla kullanamadım.

 

[Korhan Ayhan]

Başlangıç için inceleyiniz.

https://www.excel.web.tr/threads/oezet-tablo-hazirlamak-resimli-anlatim.111547/

 

[seddur]

Sn.Necdet başlangıç tarihini aşağıdaki kod ile giriyorum ama combobox3'deki yıl seçeneğini dahil ettiğimde sadece b3 hücresinde değişiklik yapıyor diğer hücreler aynı kalıyor Yıl seçeneğini başka nasıl ekleyebiliriz.Yani B3:B17 aralığında hangi yılı seçersem o yıla ait aylar gözükecek.

Private Sub ComboBox2_Change()
If ComboBox2.Value = "Ocak" Then
Sheets("Sayfa1").Range("b3") = "01.01" & "." & ComboBox3.Value
end if
Sheets("Sayfa1").Range("B3:B17").DataSeries Date:=xlDay, Step:=1
Sheets("Sayfa1").Range("D3") = Range("B3") + 15
Sheets("Sayfa1").Range("d3:d18").DataSeries Date:=xlDay, Step:=1
end sub

 

[Necdet]

Merhaba,

Örnek dosyanızı görmek gerek.

 

[seddur]

Dosya ektedir.

 

[Necdet]

Merhaba,
Aşağıdaki değişiklikleri yaparak dener misiniz?

Private Sub CommandButton1_Click()

    Sayfa1.Range("B3") = DateSerial(ComboBox3.Value, Split(ComboBox2.Value, " ")(0), 1)

    Sayfa1.Range("B3:B17").DataSeries Date:=xlDay, Step:=1
    Sayfa1.Range("D3") = Range("B3") + 15
    Sayfa1.Range("d3:d18").DataSeries Date:=xlDay, Step:=1

End Sub

Private Sub Worksheet_Activate()

    Dim i As Integer
    ComboBox2.Clear
    
    For i = 1 To 12
        ComboBox2.AddItem i & " " & MonthName(i)
    Next i
    
    For i = 2020 To 2100
        ComboBox3.AddItem i
    Next i

End Sub