TextBoxlara Veri Kaydetme

[ahmed_ummu]

kod
kırmızı yeri ekledim.

Private Sub CommandButton78_Click()
Dim S1 As Worksheet, S2 As Worksheet, i As Long, sut As Integer

Set S1 = Sheets("data1")
Set S2 = Sheets("tablo")
S2.Range("D5:AO5").ClearContents

S1.Cells(5, "L") = CDate(TextBox265.Text)
S1.Cells(6, "L") = CDate(TextBox266.Text)

sut = 4
For i = CDate(TextBox265.Text) To CDate(TextBox266.Text)
tarih = CDate(TextBox265.Text) + sut - 4
S2.Cells(5, sut) = Val(Format(tarih, "dd"))
S2.Cells(5, sut).NumberFormat = "General"
sut = sut + 1
If sut = 41 Then Exit Sub
Next i

End Sub

Halit bey kusura bakmayın yine rahatsız ediyorum. Şimdi de cumartesi pazar a ders saati girmiş perşembe cuma yı hafta sonu olarak göstermiş

 

[halit3]

siz giriş tarihlerini ne yazıyorsunuz

 

[ahmed_ummu]

siz giriş tarihlerini ne yazıyorsunuz

Tüm ayları deniyorum. Mesela resmini gönderdiğim tarih 12 ay

 

[halit3]

UserForm_Activate
bunun kodlarını aşağıdaki ile değiştir.

Private Sub UserForm_Activate()
EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
Set S1 = Sheets("data1")
TextBox265.Text = CDate(S1.Cells(5, "L"))
TextBox266.Text = CDate(S1.Cells(6, "L"))
End Sub

diğer kod

Private Sub CommandButton78_Click()
 Dim S1 As Worksheet, S2 As Worksheet, i As Long, sut As Integer
    
    Set S1 = Sheets("data1")
    Set S2 = Sheets("tablo")
    S2.Range("D5:AO6").ClearContents
    
S1.Cells(5, "L") = CDate(TextBox265.Text)
S1.Cells(6, "L") = CDate(TextBox266.Text)
    
    sut = 4
    For i = CDate(TextBox265.Text) To CDate(TextBox266.Text)
        tarih = CDate(TextBox265.Text) + sut - 4

        S2.Cells(5, sut) = Val(Format(tarih, "dd"))
        S2.Cells(5, sut).NumberFormat = "General"
        S2.Cells(6, sut) = Format(tarih, "dddd")
        S2.Cells(6, sut).NumberFormat = "General"
        
        sut = sut + 1
        If sut = 41 Then Exit Sub
    Next i

End Sub

 

[ahmed_ummu]

UserForm_Activate
bunun kodlarını aşağıdaki ile değiştir.

Private Sub UserForm_Activate()
EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
Set S1 = Sheets("data1")
TextBox265.Text = CDate(S1.Cells(5, "L"))
TextBox266.Text = CDate(S1.Cells(6, "L"))
End Sub

diğer kod

Private Sub CommandButton78_Click()
Dim S1 As Worksheet, S2 As Worksheet, i As Long, sut As Integer
 
    Set S1 = Sheets("data1")
    Set S2 = Sheets("tablo")
    S2.Range("D5:AO6").ClearContents
 
S1.Cells(5, "L") = CDate(TextBox265.Text)
S1.Cells(6, "L") = CDate(TextBox266.Text)
 
    sut = 4
    For i = CDate(TextBox265.Text) To CDate(TextBox266.Text)
        tarih = CDate(TextBox265.Text) + sut - 4

        S2.Cells(5, sut) = Val(Format(tarih, "dd"))
        S2.Cells(5, sut).NumberFormat = "General"
        S2.Cells(6, sut) = Format(tarih, "dddd")
        S2.Cells(6, sut).NumberFormat = "General"
     
        sut = sut + 1
        If sut = 41 Then Exit Sub
    Next i

End Sub

Şimdi de Pazartesi Salı günlerini haftasonu olarak gösteriyo Aralık ayında

 

[ahmed_ummu]

Şimdi de Pazartesi Salı günlerini haftasonu olarak gösteriyo Aralık ayında

Ocak ayında Pazartesi Salı
Nisan ayında SAlı ÇArşamba haftasonu veriyı

 

[halit3]

tarihler ne yazıyorsun

 

[halit3]

önce userformdaki TextBox265 ve TextBox266 nesnelerine tarih girip sonra CommandButton78_Click düğmesine tıklayacaksınız
ondan sonra hepsini aktar düğmesine tıklayacaksınız.

 

[ahmed_ummu]

tarihler ne yazıyorsun

data1 sayfasındaki hepsini aktar düğmesine mi

tarih olarak mesela 01.12.2021 31.12.2021

 

[halit3]

evet ona tıklayacaksınız veya o kodu size userform içinde yazmıştım ona da tıklayabilirsiniz.

 

[ahmed_ummu]

data1 sayfasındaki hepsini aktar düğmesine mi

tarih olarak mesela 01.12.2021 31.12.2021

Textlere tarihleri girp Yeni dosya aç text78 butonuna klik yaptım. sonra da data1 sayfasındaki hepsini aktar butonuna klik yaptım. Bu kez de Pazartesi Salı haftasonu olarak gösteriyo

Hespsini aktar düğmesinin içindeki kodlar commandbutton71 de de var zaten puantajı hazırlarken ona klik yapıyorum. Bu kez de Pazartesi Salı haftasonu olarak verdi.

 

[halit3]

3 defadır yazıyorum text nesnelerine tarih ne yazıyorsun

 

[ahmed_ummu]

3 defadır yazıyorum text nesnelerine tarih ne yazıyorsun

01.12.2021 - 31.12.2021
Yazıp görüntüsünü göndereyim.

 

[ahmed_ummu]

01.12.2021 - 31.12.2021
Yazıp görüntüsünü göndereyim.

01.12.2021 - 31.12.2021 olarak girdim tarihleri

 

[halit3]

VERI_TABANI99999.xlsm dosyasını indir - download

VERI_TABANI99999.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

tarih formatını değiştirince kodlarda düzeltme yaptım.

 

[ahmed_ummu]

VERI_TABANI99999.xlsm dosyasını indir - download

VERI_TABANI99999.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

tarih formatını değiştirince kodlarda düzeltme yaptım.

VERI_TABANI99999.xlsm dosyasını indir - download

VERI_TABANI99999.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

tarih formatını değiştirince kodlarda düzeltme yaptım.

Halit bey Ekim, Kasım aylarında bir sorun yok ama Aralık ayında resimde gösterdim. Her öğretmenin İlk ödeme türünü ilk üç güne yazmamış.

 

[ahmed_ummu]

Tablo sayfasındaki düğmeye basınca bir sorun çıkmıyor. Zahmet verdim Halit Bey sağolun

 

[ahmed_ummu]

Halit bey Ekim, Kasım aylarında bir sorun yok ama Aralık ayında resimde gösterdim. Her öğretmenin İlk ödeme türünü ilk üç güne yazmamış.

Halit bey yarın falan da bakabilirsiniz. 01.03.2022 - 31.03.2022 tarihlerini girip puantaj hazırlayınca 1,2,3,4 günlerinin verilerini eklemedi puantaja.
01.12.2021-31.12.2021 tarihleri için de aynısını yaptı

 

[halit3]

Kodda bu bölümü bul

If "Pazartesi" = Format(tarih + N, "dddd") Then sut1 = 4 + N: Exit For

bununla değiştir.

If Sh1.Cells(6, "D").Value = Format(tarih + N, "dddd") Then sut1 = 4 + N: Exit For

 

[ahmed_ummu]

Kodda bu bölümü bul

If "Pazartesi" = Format(tarih + N, "dddd") Then sut1 = 4 + N: Exit For

bununla değiştir.

If Sh1.Cells(6, "D").Value = Format(tarih + N, "dddd") Then sut1 = 4 + N: Exit For

Günleri verdi ama bu kez de haftasonunu Pazar Pazartesi verdi