Textboxlara Verilerin Tam Alınmaması

ahmed_ummu · 18 Kasım 2024

Merhaba arkadaşlar.
Aşağıdaki kodda Textbox2'den başlayarak, Textbox32'ye kadar verileri yazdırması gerekirken, 6. Textbox'dan itibaren yazdırıyor. Yardımcı olursanız çok sevinirim.

Dim i As Integer
Dim haftaninGunleri As Variant
Dim dersSaatleri(1 To 7) As String
Dim hedefTextBox As MSForms.TextBox

' Haftanın günlerini tanımlayın
haftaninGunleri = Array("Pazartesi", "Salı", "Çarşamba", "Perşembe", "Cuma", "Cumartesi", "Pazar")

' TextBox131-137'deki verileri al
dersSaatleri(1) = Me.TextBox131.Value ' Pazartesi
dersSaatleri(2) = Me.TextBox132.Value ' Salı
dersSaatleri(3) = Me.TextBox133.Value ' Çarşamba
dersSaatleri(4) = Me.TextBox134.Value ' Perşembe
dersSaatleri(5) = Me.TextBox135.Value ' Cuma
dersSaatleri(6) = Me.TextBox136.Value ' Cumartesi
dersSaatleri(7) = Me.TextBox137.Value ' Pazar

For i = 2 To 32
Set hedefTextBox = Me.Controls("TextBox" & i)
Select Case Weekday(DateValue("2024-11-01") + (i - 2)) ' Pazartesi günü: 2024-01-01
Case vbMonday: hedefTextBox.Value = dersSaatleri(1) ' Pazartesi
Case vbTuesday: hedefTextBox.Value = dersSaatleri(2) ' Salı
Case vbWednesday: hedefTextBox.Value = dersSaatleri(3) ' Çarşamba
Case vbThursday: hedefTextBox.Value = dersSaatleri(4) ' Perşembe
Case vbFriday: hedefTextBox.Value = dersSaatleri(5) ' Cuma
Case vbSaturday: hedefTextBox.Value = dersSaatleri(6) ' Cumartesi
Case vbSunday: hedefTextBox.Value = dersSaatleri(7) ' Pazar
End Select
Next i

tugkan · 18 Kasım 2024

Merhaba,

Dener misiniz?

Kodunuzda, For döngüsünün başlangıcında i = 2 olarak ayarlandığı için, TextBox2'den başlıyor ve aslında TextBox131'den TextBox137'ye kadar olan verileri almak için yazılmış. Ancak, döngüdeki Weekday fonksiyonu, DateValue("2024-11-01") + (i - 2) ifadesiyle her seferinde tarih hesaplıyor ve bu hesaplamada herhangi bir yanlışlık olabilir.

Bu durumu çözmek için birkaç öneri sunabilirim:

For Döngüsünü Gözden Geçir: Döngü başlatıldığında, TextBox2'den itibaren verileri yazdırmak istediğinizi belirttiğiniz için döngüdeki i değerinin başlangıcını doğru ayarlamanız gerekebilir.
Tarih Hesaplamasını Düzelterek: Weekday fonksiyonu kullanırken tarih hesaplamasında hata olabilir, bu yüzden bunu düzeltmek faydalı olacaktır.

Aşağıdaki şekilde bir düzenleme yapabilirsiniz:

Düzeltilmiş Kod:

Kod:

Dim i As Integer
Dim haftaninGunleri As Variant
Dim dersSaatleri(1 To 7) As String
Dim hedefTextBox As MSForms.TextBox
Dim startDate As Date

' Haftanın günlerini tanımlayın
haftaninGunleri = Array("Pazartesi", "Salı", "Çarşamba", "Perşembe", "Cuma", "Cumartesi", "Pazar")

' TextBox131-137'deki verileri al
dersSaatleri(1) = Me.TextBox131.Value ' Pazartesi
dersSaatleri(2) = Me.TextBox132.Value ' Salı
dersSaatleri(3) = Me.TextBox133.Value ' Çarşamba
dersSaatleri(4) = Me.TextBox134.Value ' Perşembe
dersSaatleri(5) = Me.TextBox135.Value ' Cuma
dersSaatleri(6) = Me.TextBox136.Value ' Cumartesi
dersSaatleri(7) = Me.TextBox137.Value ' Pazar

' Başlangıç tarihi olarak 2024-11-01'i al
startDate = DateValue("2024-11-01")

For i = 2 To 32
    Set hedefTextBox = Me.Controls("TextBox" & i)
    Select Case Weekday(startDate + (i - 2), vbMonday) ' Pazartesi'yi başlangıç olarak al
        Case vbMonday: hedefTextBox.Value = dersSaatleri(1) ' Pazartesi
        Case vbTuesday: hedefTextBox.Value = dersSaatleri(2) ' Salı
        Case vbWednesday: hedefTextBox.Value = dersSaatleri(3) ' Çarşamba
        Case vbThursday: hedefTextBox.Value = dersSaatleri(4) ' Perşembe
        Case vbFriday: hedefTextBox.Value = dersSaatleri(5) ' Cuma
        Case vbSaturday: hedefTextBox.Value = dersSaatleri(6) ' Cumartesi
        Case vbSunday: hedefTextBox.Value = dersSaatleri(7) ' Pazar
    End Select
Next i

Yapılan Düzenlemeler:

startDate Değişkeni Eklenmiştir: DateValue("2024-11-01") tarihini bir değişkene atadım, böylece daha temiz bir kullanım sağlanır.
Weekday Fonksiyonuna vbMonday Parametresi Eklenmiştir: Weekday fonksiyonunda haftanın başının Pazartesi olmasını sağlamak için vbMonday parametresi ekledim.
Döngü Başlangıcı: i = 2 ile başlamaya devam ettim, böylece TextBox2'den başlayarak verileri yazdırır.

Bu düzenleme ile TextBox2'den itibaren doğru bir şekilde veri yazdırmanız sağlanmalıdır.

ahmed_ummu · 18 Kasım 2024

tugkan' Alıntı:
Merhaba,

Dener misiniz?

Kodunuzda, For döngüsünün başlangıcında i = 2 olarak ayarlandığı için, TextBox2'den başlıyor ve aslında TextBox131'den TextBox137'ye kadar olan verileri almak için yazılmış. Ancak, döngüdeki Weekday fonksiyonu, DateValue("2024-11-01") + (i - 2) ifadesiyle her seferinde tarih hesaplıyor ve bu hesaplamada herhangi bir yanlışlık olabilir.

Bu durumu çözmek için birkaç öneri sunabilirim:

For Döngüsünü Gözden Geçir: Döngü başlatıldığında, TextBox2'den itibaren verileri yazdırmak istediğinizi belirttiğiniz için döngüdeki i değerinin başlangıcını doğru ayarlamanız gerekebilir.

Tarih Hesaplamasını Düzelterek: Weekday fonksiyonu kullanırken tarih hesaplamasında hata olabilir, bu yüzden bunu düzeltmek faydalı olacaktır.

Aşağıdaki şekilde bir düzenleme yapabilirsiniz:

Düzeltilmiş Kod:

Kod:

Dim i As Integer Dim haftaninGunleri As Variant Dim dersSaatleri(1 To 7) As String Dim hedefTextBox As MSForms.TextBox Dim startDate As Date ' Haftanın günlerini tanımlayın haftaninGunleri = Array("Pazartesi", "Salı", "Çarşamba", "Perşembe", "Cuma", "Cumartesi", "Pazar") ' TextBox131-137'deki verileri al dersSaatleri(1) = Me.TextBox131.Value ' Pazartesi dersSaatleri(2) = Me.TextBox132.Value ' Salı dersSaatleri(3) = Me.TextBox133.Value ' Çarşamba dersSaatleri(4) = Me.TextBox134.Value ' Perşembe dersSaatleri(5) = Me.TextBox135.Value ' Cuma dersSaatleri(6) = Me.TextBox136.Value ' Cumartesi dersSaatleri(7) = Me.TextBox137.Value ' Pazar ' Başlangıç tarihi olarak 2024-11-01'i al startDate = DateValue("2024-11-01") For i = 2 To 32 Set hedefTextBox = Me.Controls("TextBox" & i) Select Case Weekday(startDate + (i - 2), vbMonday) ' Pazartesi'yi başlangıç olarak al Case vbMonday: hedefTextBox.Value = dersSaatleri(1) ' Pazartesi Case vbTuesday: hedefTextBox.Value = dersSaatleri(2) ' Salı Case vbWednesday: hedefTextBox.Value = dersSaatleri(3) ' Çarşamba Case vbThursday: hedefTextBox.Value = dersSaatleri(4) ' Perşembe Case vbFriday: hedefTextBox.Value = dersSaatleri(5) ' Cuma Case vbSaturday: hedefTextBox.Value = dersSaatleri(6) ' Cumartesi Case vbSunday: hedefTextBox.Value = dersSaatleri(7) ' Pazar End Select Next i

Yapılan Düzenlemeler:

startDate Değişkeni Eklenmiştir: DateValue("2024-11-01") tarihini bir değişkene atadım, böylece daha temiz bir kullanım sağlanır.

Weekday Fonksiyonuna vbMonday Parametresi Eklenmiştir: Weekday fonksiyonunda haftanın başının Pazartesi olmasını sağlamak için vbMonday parametresi ekledim.

Döngü Başlangıcı: i = 2 ile başlamaya devam ettim, böylece TextBox2'den başlayarak verileri yazdırır.

Bu düzenleme ile TextBox2'den itibaren doğru bir şekilde veri yazdırmanız sağlanmalıdır.

SAyın tugkan kodlar için çok teşekkür ederim. Yalnız Yine 6. Textbox'dan itibaren yazdırdı. 2. Textbox'dan başlaması gerekiyor.

tugkan · 18 Kasım 2024

Anladım, istediğiniz şey TextBox2'den başlayarak verileri yazdırmak ve yazdırmanın 6. TextBox'tan başlamaması. Şu anki kodunuzda Weekday fonksiyonunun tarih hesaplamasındaki bir problemden dolayı, doğru TextBox'lara yazdırma işlemi gerçekleşmiyor.

Bu durumu çözmek için, hafta içindeki günleri ve ilgili TextBox'ları doğru şekilde eşleştirmeniz gerekiyor. Bu amaçla, TextBox2'den TextBox32'ye kadar her birini doğru şekilde işaretleyip, günlere uygun olarak verileri yazdıracağız.

Düzeltilmiş Çözüm:
Buradaki asıl sorun, Weekday fonksiyonuyla elde edilen günün, doğru TextBox'a eşlenmesinin yapılmıyor olması. Şimdi bunu doğru şekilde çözelim:

Başlangıç tarihini belirlerken, sadece o haftanın ilk gününden itibaren işlem yapalım. (1 Kasım 2024'ü 1. gün olarak kabul edip, ardışık olarak günlere karşılık gelen TextBox'ları dolduralım).

Yeni Kod:

Kod:

Dim i As Integer
Dim haftaninGunleri As Variant
Dim dersSaatleri(1 To 7) As String
Dim hedefTextBox As MSForms.TextBox
Dim startDate As Date
Dim gunIndex As Integer

' Haftanın günlerini tanımlayın
haftaninGunleri = Array("Pazartesi", "Salı", "Çarşamba", "Perşembe", "Cuma", "Cumartesi", "Pazar")

' TextBox131-137'deki verileri al
dersSaatleri(1) = Me.TextBox131.Value ' Pazartesi
dersSaatleri(2) = Me.TextBox132.Value ' Salı
dersSaatleri(3) = Me.TextBox133.Value ' Çarşamba
dersSaatleri(4) = Me.TextBox134.Value ' Perşembe
dersSaatleri(5) = Me.TextBox135.Value ' Cuma
dersSaatleri(6) = Me.TextBox136.Value ' Cumartesi
dersSaatleri(7) = Me.TextBox137.Value ' Pazar

' Başlangıç tarihi olarak 2024-11-01'i al
startDate = DateValue("2024-11-01")

' 2024-11-01 tarihinin hangi gün olduğunu belirle
' Pazartesiye denk gelmesi için 2024-11-01'in haftanın 1. günü olduğunu kabul ediyoruz
gunIndex = Weekday(startDate, vbMonday)

' TextBox2'den başlayarak TextBox32'ye kadar veri yazdırma
For i = 2 To 32
    Set hedefTextBox = Me.Controls("TextBox" & i)
    
    ' Gün index'ine göre doğru TextBox'a veri yazdır
    hedefTextBox.Value = dersSaatleri(gunIndex)
    
    ' Sonraki güne geçmek için gunIndex değerini arttır
    gunIndex = gunIndex + 1
    If gunIndex > 7 Then gunIndex = 1 ' Haftanın 7. gününden sonra tekrar Pazartesi'ye dön
Next i

Yapılan Değişiklikler:

gunIndex Değişkeni: Haftanın hangi günü olduğunu belirlemek için Weekday fonksiyonunu kullandım. Bu değişken, her döngüde haftanın gününü takip eder.
For Döngüsü ve TextBox Eşleştirmesi: Döngüde, TextBox2'den başlayarak sırasıyla her bir günün verisini yazdırdım. gunIndex değeri her arttığında, haftanın diğer gününe geçiyor. 7'ye ulaştığında tekrar 1'e (Pazartesi'ye) dönüyor.

Bu şekilde, TextBox2'den başlayarak ve 6. TextBox'tan önce doğru bir şekilde verilerin yazdırılması sağlanacaktır.

ahmed_ummu · 18 Kasım 2024

tugkan' Alıntı:
Anladım, istediğiniz şey TextBox2'den başlayarak verileri yazdırmak ve yazdırmanın 6. TextBox'tan başlamaması. Şu anki kodunuzda Weekday fonksiyonunun tarih hesaplamasındaki bir problemden dolayı, doğru TextBox'lara yazdırma işlemi gerçekleşmiyor.

Bu durumu çözmek için, hafta içindeki günleri ve ilgili TextBox'ları doğru şekilde eşleştirmeniz gerekiyor. Bu amaçla, TextBox2'den TextBox32'ye kadar her birini doğru şekilde işaretleyip, günlere uygun olarak verileri yazdıracağız.

Düzeltilmiş Çözüm:
Buradaki asıl sorun, Weekday fonksiyonuyla elde edilen günün, doğru TextBox'a eşlenmesinin yapılmıyor olması. Şimdi bunu doğru şekilde çözelim:

Başlangıç tarihini belirlerken, sadece o haftanın ilk gününden itibaren işlem yapalım. (1 Kasım 2024'ü 1. gün olarak kabul edip, ardışık olarak günlere karşılık gelen TextBox'ları dolduralım).

Yeni Kod:

Kod:

Dim i As Integer Dim haftaninGunleri As Variant Dim dersSaatleri(1 To 7) As String Dim hedefTextBox As MSForms.TextBox Dim startDate As Date Dim gunIndex As Integer ' Haftanın günlerini tanımlayın haftaninGunleri = Array("Pazartesi", "Salı", "Çarşamba", "Perşembe", "Cuma", "Cumartesi", "Pazar") ' TextBox131-137'deki verileri al dersSaatleri(1) = Me.TextBox131.Value ' Pazartesi dersSaatleri(2) = Me.TextBox132.Value ' Salı dersSaatleri(3) = Me.TextBox133.Value ' Çarşamba dersSaatleri(4) = Me.TextBox134.Value ' Perşembe dersSaatleri(5) = Me.TextBox135.Value ' Cuma dersSaatleri(6) = Me.TextBox136.Value ' Cumartesi dersSaatleri(7) = Me.TextBox137.Value ' Pazar ' Başlangıç tarihi olarak 2024-11-01'i al startDate = DateValue("2024-11-01") ' 2024-11-01 tarihinin hangi gün olduğunu belirle ' Pazartesiye denk gelmesi için 2024-11-01'in haftanın 1. günü olduğunu kabul ediyoruz gunIndex = Weekday(startDate, vbMonday) ' TextBox2'den başlayarak TextBox32'ye kadar veri yazdırma For i = 2 To 32 Set hedefTextBox = Me.Controls("TextBox" & i) ' Gün index'ine göre doğru TextBox'a veri yazdır hedefTextBox.Value = dersSaatleri(gunIndex) ' Sonraki güne geçmek için gunIndex değerini arttır gunIndex = gunIndex + 1 If gunIndex > 7 Then gunIndex = 1 ' Haftanın 7. gününden sonra tekrar Pazartesi'ye dön Next i

Yapılan Değişiklikler:

gunIndex Değişkeni: Haftanın hangi günü olduğunu belirlemek için Weekday fonksiyonunu kullandım. Bu değişken, her döngüde haftanın gününü takip eder.

For Döngüsü ve TextBox Eşleştirmesi: Döngüde, TextBox2'den başlayarak sırasıyla her bir günün verisini yazdırdım. gunIndex değeri her arttığında, haftanın diğer gününe geçiyor. 7'ye ulaştığında tekrar 1'e (Pazartesi'ye) dönüyor.

Bu şekilde, TextBox2'den başlayarak ve 6. TextBox'tan önce doğru bir şekilde verilerin yazdırılması sağlanacaktır.

Sayın tugkan işyerinden çıktım. Evdeki internete de sorun var. Sorunu çözünce bakacağım. Çok teşekkürler

ahmed_ummu · 18 Kasım 2024

ahmed_ummu' Alıntı:
Sayın tugkan işyerinden çıktım. Evdeki internete de sorun var. Sorunu çözünce bakacağım. Çok teşekkürler

Sayın tugkan ilgilize çok teşekkürleer ama yine Textbox6'dan başladı yazdı. İsterseniz dosyamı gönderebilirim.

pitchoute · 19 Kasım 2024

Merhaba, şu şekilde deneyip sonucu paylaşabilir misiniz;

Kod:

Dim i As Integer
Dim dersSaatleri(1 To 7) As String
Dim hedefTextBox As MSForms.TextBox

' TextBox131-137'deki verileri al
dersSaatleri(1) = Me.TextBox131.Value ' Pazartesi
dersSaatleri(2) = Me.TextBox132.Value ' Salı
dersSaatleri(3) = Me.TextBox133.Value ' Çarşamba
dersSaatleri(4) = Me.TextBox134.Value ' Perşembe
dersSaatleri(5) = Me.TextBox135.Value ' Cuma
dersSaatleri(6) = Me.TextBox136.Value ' Cumartesi
dersSaatleri(7) = Me.TextBox137.Value ' Pazar

For i = 2 To 32
    On Error Resume Next
    Set hedefTextBox = Me.Controls("TextBox" & i)
    If Err.Number <> 0 Then
        Debug.Print "TextBox" & i & " bulunamadı."
        Err.Clear
        GoTo Next_i
    End If
    On Error GoTo 0

    hedefTextBox.Value = dersSaatleri(Weekday(DateValue("2024-11-01") + (i - 2), vbMonday))

Next_i:
Next i

ahmed_ummu · 19 Kasım 2024

pitchoute' Alıntı:

Merhaba, şu şekilde deneyip sonucu paylaşabilir misiniz;

Kod:

Dim i As Integer
Dim dersSaatleri(1 To 7) As String
Dim hedefTextBox As MSForms.TextBox

' TextBox131-137'deki verileri al
dersSaatleri(1) = Me.TextBox131.Value ' Pazartesi
dersSaatleri(2) = Me.TextBox132.Value ' Salı
dersSaatleri(3) = Me.TextBox133.Value ' Çarşamba
dersSaatleri(4) = Me.TextBox134.Value ' Perşembe
dersSaatleri(5) = Me.TextBox135.Value ' Cuma
dersSaatleri(6) = Me.TextBox136.Value ' Cumartesi
dersSaatleri(7) = Me.TextBox137.Value ' Pazar

For i = 2 To 32
    On Error Resume Next
    Set hedefTextBox = Me.Controls("TextBox" & i)
    If Err.Number <> 0 Then
        Debug.Print "TextBox" & i & " bulunamadı."
        Err.Clear
        GoTo Next_i
    End If
    On Error GoTo 0

    hedefTextBox.Value = dersSaatleri(Weekday(DateValue("2024-11-01") + (i - 2), vbMonday))

Next_i:
Next i

Sayın pitchoute kod için teşekkürler. Yine 6. textbox'dan itibaren yazdırdı. Textboxların sıralamasında falan bir sorun yok.

ahmed_ummu · 19 Kasım 2024

pitchoute' Alıntı:

Merhaba, şu şekilde deneyip sonucu paylaşabilir misiniz;

Kod:

Dim i As Integer
Dim dersSaatleri(1 To 7) As String
Dim hedefTextBox As MSForms.TextBox

' TextBox131-137'deki verileri al
dersSaatleri(1) = Me.TextBox131.Value ' Pazartesi
dersSaatleri(2) = Me.TextBox132.Value ' Salı
dersSaatleri(3) = Me.TextBox133.Value ' Çarşamba
dersSaatleri(4) = Me.TextBox134.Value ' Perşembe
dersSaatleri(5) = Me.TextBox135.Value ' Cuma
dersSaatleri(6) = Me.TextBox136.Value ' Cumartesi
dersSaatleri(7) = Me.TextBox137.Value ' Pazar

For i = 2 To 32
    On Error Resume Next
    Set hedefTextBox = Me.Controls("TextBox" & i)
    If Err.Number <> 0 Then
        Debug.Print "TextBox" & i & " bulunamadı."
        Err.Clear
        GoTo Next_i
    End If
    On Error GoTo 0

    hedefTextBox.Value = dersSaatleri(Weekday(DateValue("2024-11-01") + (i - 2), vbMonday))

Next_i:
Next i

Sayın pitchoute dosyamı ekledim size zahmet bakabilir misiniz.

İlgili kod, Userform2, Multipage 1 sekmesinde Combobox4'ün içinde. Kodları denemek için Listbox2'den isim seçilip, Combobox4'den Gündüz veya seçeneği seçilecek. Diğer seçenekler içn veri girilmedi.

halit3 · 19 Kasım 2024

Kodun çalışmasında bir sıkıntı yok
makronun bu kısmı kodu tetikliyor.

Kod:

Private Sub ComboBox4_Click()
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
End Sub

Private Sub ComboBox4_Click()
Private Sub ComboBox4_Change()

makroları aynı olmalı ayrı ayrı olursa her iki olay yordamı çalıştığında texbox2,3,4,5 silinecektir.

ahmed_ummu · 19 Kasım 2024

halit3' Alıntı:
Kodun çalışmasında bir sıkıntı yok
makronun bu kısmı kodu tetikliyor.

Kod:

Private Sub ComboBox4_Click() TextBox2.Value = "" TextBox3.Value = "" TextBox4.Value = "" TextBox5.Value = "" End Sub

Private Sub ComboBox4_Click()
Private Sub ComboBox4_Change()

makroları aynı olmalı ayrı ayrı olursa her iki olay yordamı çalıştığında texbox2,3,4,5 silinecektir.

Halit bey hayırlı akşamlar.

Teşekkürler düzeldi. Heralde başka bir işlem için Textboxların içi boşaltılacaktı, vazgeçinde ilk dört Textbox öyle kaldı.

Textboxlara Verilerin Tam Alınmaması

ahmed_ummu

tugkan

ahmed_ummu

tugkan

ahmed_ummu

ahmed_ummu

Ekli dosyalar

pitchoute

ahmed_ummu

ahmed_ummu

Ekli dosyalar

halit3

Uzman

ahmed_ummu