Döngünün seçili TextBox da seçili tarih satırından başlaması

[sdegirmenci]

Merhaba;
For i = 7 To 372 Step 4
ÇZ.Cells(i, 4) = "İstirahat"
Next i

Yukarıdaki döngü For i = 7 ile 7. satırdan başlamaktadır.For i = 7 yerine ne yazmalıyımki UserForm üzerindeki SIRALA düğmesini tıkladığımda TextBox da yazılı olan tarih, "B" sütunundaki yazılı karşılığından başlasın.
Ayrıca UserForm açıldığında ListBox da günün tarihi seçili olarak gelebilirmi.
Bu konuda yardımcı olabilirseniz çok sevinirim. Saygılarımla

 

[ÖmerBey]

Merhaba,
Aşağıdaki döngüyü Userform_Initialize olayına ekleyerek listboxta bugünün seçili olmasını sağlayabilirsiniz.

For a = LBound(ListBox1.List) To UBound(ListBox1.List)
    If ListBox1.List(a) = Date Then ListBox1.Selected(a) = True
Next

Sırala kodunuzu da aşağıdaki ile değiştirip deneyiniz.

Private Sub CommandButton1_Click()
Set ÇZ = Sheets("Çizelge")
If WorksheetFunction.CountIf(ÇZ.Range("B:B"), DateValue(tarih.Text)) > 0 Then
    sat = WorksheetFunction.Match(CDbl(DateValue(tarih.Text)), ÇZ.Range("B:B"), 0)
    ilk = sat - (sat - 7) Mod 4
    For i = ilk To 372 Step 4
        ÇZ.Cells(i, 4) = "İstirahat"
    Next i
Else
    MsgBox "Tarih yok"
End If
End Sub

 

[sdegirmenci]

Ömer Hocam İlginize çok teşekkür ederim. Kodları uyguladım. Tam istediğim gibi oldu, tekrar çok teşekkür ederim.İşleriniz kolay gelsin.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...