Userform4.Label5 : (Kullanıcının girdiği başlangıç tarihi)
Userform4.Label6 : (Kullanıcının girdiği bitiş tarihi)
hcr diye adlandırılan ise bildiğimiz Excel sayfası hücreleri
Dim hcr As Range 'bir HÜCREyi temsil etmesi için yaratılmıştır
Dim i As Integer
Dim don As Date
don = UserForm4.Label5.Caption
For don = UserForm4.Label5.Caption To UserForm4.Label6.Caption
For Each hcr In alt
i = i + 1
If hcr.Value = don Then
If Intersect(ActiveCell.SpecialCells(xlCellTypeComments), ActiveCell) Is Nothing Then
hcr.AddComment.Text Text:=UserForm4.TextBox1.Value
Else
hcr.Comment.Text Text:=com.Text & Chr(10) & "-" & UserForm4.TextBox1.Value
End If
End If
Next
don = don + 1 >> ? burada bir sonraki tarihi seçip döngüye girmesi gerek????
Next
End Sub
Ben yukarıdaki programı çalıştırdım: Label5 'e 10.01.2008 verdim; Label6'ya da 11.01.2008 değerini girdim.
çalışma sayfasında bu değere sahip hücrelerde açıklama yoktu başta.
sayfayabaktım.. ne güzel 10.01.2008 değerindeki hücreye UserForm4.TextBox1'e yazdığım açıklamayı comment olarak koymuş.
ama 11.01.2008 değerindeki hücrede açıklama yok.yani DÖNGÜ YAPMAMIŞ.[/B]
SEBEBİ NEDİR ACABA?
Userform4.Label6 : (Kullanıcının girdiği bitiş tarihi)
hcr diye adlandırılan ise bildiğimiz Excel sayfası hücreleri
Dim hcr As Range 'bir HÜCREyi temsil etmesi için yaratılmıştır
Dim i As Integer
Dim don As Date
don = UserForm4.Label5.Caption
For don = UserForm4.Label5.Caption To UserForm4.Label6.Caption
For Each hcr In alt
i = i + 1
If hcr.Value = don Then
If Intersect(ActiveCell.SpecialCells(xlCellTypeComments), ActiveCell) Is Nothing Then
hcr.AddComment.Text Text:=UserForm4.TextBox1.Value
Else
hcr.Comment.Text Text:=com.Text & Chr(10) & "-" & UserForm4.TextBox1.Value
End If
End If
Next
don = don + 1 >> ? burada bir sonraki tarihi seçip döngüye girmesi gerek????
Next
End Sub
Ben yukarıdaki programı çalıştırdım: Label5 'e 10.01.2008 verdim; Label6'ya da 11.01.2008 değerini girdim.
çalışma sayfasında bu değere sahip hücrelerde açıklama yoktu başta.
sayfayabaktım.. ne güzel 10.01.2008 değerindeki hücreye UserForm4.TextBox1'e yazdığım açıklamayı comment olarak koymuş.
ama 11.01.2008 değerindeki hücrede açıklama yok.yani DÖNGÜ YAPMAMIŞ.[/B]
SEBEBİ NEDİR ACABA?
