Girilen Tarihin İlk Gününden İtibaren Belirtilen Sayıya Kadar Sayfaya Yazdırma

[ahmed_ummu]

Merhaba arkadaşlar.

Textbox2 den girilen bir tarihin, belirtilen sayıda günlerinin arasına - koyarak sayfaya nasıl yazdırabilirim.

Örneğin Textbox2 den 13.01.2003 tarihini girdim. Textbox3 'e de 7 değerini yazdım.

Aktif hücrenin bir sağına "13-14-15-16-17-18-19 Ocak 2023 Rapor" Nasıl yazdırabilirim.

Yardımcı olursanız sevinirim.

 

[Muzaffer Ali]

Rapor sadece tek bir ay içinde oluyorsa aşağıdaki kodu deneyiniz.

Sub Test()
    Dim Bak As Integer
    Dim Deger As String
    For Bak = Day((TextBox2.Text)) To TextBox3.Text + Day((TextBox2.Text))-1
        If Deger = "" Then
            Deger = Bak
        Else
            Deger = Deger & "-" & Bak
        End If
    Next
    Deger = Deger & " " & Format(TextBox2.Text, "mmmm yyyy") & " Rapor"
    ActiveCell(1, 2).Value = Deger
End Sub

 

[ahmed_ummu]

Rapor sadece tek bir ay içinde oluyorsa aşağıdaki kodu deneyiniz.

Sub Test()
    Dim Bak As Integer
    Dim Deger As String
    For Bak = Day((TextBox2.Text)) To TextBox3.Text + Day((TextBox2.Text))
        If Deger = "" Then
            Deger = Bak
        Else
            Deger = Deger & "-" & Bak
        End If
    Next
    Deger = Deger & " " & Format(TextBox2.Text, "mmmm yyyy") & " Rapor"
    ActiveCell(1, 2).Value = Deger
End Sub

Çok teşekkürler Muzaffer Ali bey.

Yalnız Textbox3 den 1 değeri girilince örnek olarak 11.02.2023 tarihini girdim. 11-12 Şubat 2023 yazıyor yani bir gün fazla yazıyor. Textbox3' girilen değer izinli veya raporlu olduğu gün sayısı.

ActiveCell(1, 2).Value = Deger-1 yaptım ama bu kez de tip hatası verdi


Kusura bakmayın şimdi farkettim. TExtbox3 e hangi değer girilirse onun bir fazlasını yazdırıyor sayfaya

 

[Muzaffer Ali]

Kodu düzelttim deneyiniz.

 

[ahmed_ummu]

Kodu düzelttim deneyiniz.

Teşekkürler Muzaffer Ali bey düzeldi.