Comment.text Hakkinda

[ETEKİN]

Merhaba Arkadaşlar;

Ekteki dosyada hücre içerisinde ki açıklama kutularında tarih ve harfler var,
Örneğin 01.12.2007 B masa gibi

ilk önce tarihe göre arama yapacak, daha sonra harfe göre arama yapacak, bu iki önerme istenileni sağlıyorsa b2 hücresine yazacak.

sevgi ve saygıyla

 

[Mahmut Kök]

Merhaba Arkadaşlar;

Ekteki dosyada hücre içerisinde ki açıklama kutularında tarih ve harfler var,
Örneğin 01.12.2007 B masa gibi

ilk önce tarihe göre arama yapacak, daha sonra harfe göre arama yapacak, bu iki önerme istenileni sağlıyorsa b2 hücresine yazacak.

sevgi ve saygıyla

Sayın ETEKİN, arama yapılacak tarih ve harfi neye göre yapacak? Yani açıklama kutularındaki tarihlerin, hangi tarihle eşleşeceğini belirtmemişsiniz. Harf de aynı şekilde. B2 Hücresine de açıklama metnini mi yazacak, yoksa hücredeki değeri mi? Bunu tam olarak anlayamadığımdan, ilgili kısımları size bırakarak aşağıdaki kodları hazırladım. Sadece 2 satıra bakıyor, siz çalışmanıza göre uyarlarsınız.

tarih = "01.12.2007" [COLOR=red]'Buraya tarih nereden alınacaksa o hücre yazılacak.[/COLOR]
harf = "B" [COLOR=red]'Buraya Harf nereden alınacaksa o hücre yazılacak.[/COLOR]

For a = 6 To 7 [COLOR=red]'Buraya döngü başlangıç ve bitiş değeri yazılacak.
[/COLOR]If Left(Cells(a, "a").Comment.Text, 10) = CDate(tarih) And Mid(Cells(a, "a").Comment.Text, 13, 1) = harf Then

MsgBox "ölçüte uyuyor. Satır = " & a [COLOR=red]'Ölçüte uyduğu için B2'ye yazma kodunu bu satırın yerine yazacağız.[/COLOR]

End If

Next

 

[ETEKİN]

Sayın Mesleki

İlginiz için teşekkürler...

Tarih ve harfi açıklama kutusundan alacak ve hücredeki değer yazılacak
Örneğin;

a6 hücresinde açıklama ve değer var, açılamada bulunan 01.12.2007 den küçük veya eşit, açıklamada bulunan harf te "b" ise a6 hücresindeki değer b2 hücresine yazılacak.

Sevgi ve saygıyla

 

[ETEKİN]

Sayın Mesleki

Vermiş olduğunuz kodları şöyle değiştirince istediğim oldu.TEŞEKÜRLER

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address(0, 0) <> "B2" And Target.Address(0, 0) <> "B3" Then

For a = 6 To 10
For b = 0 To 5
If CDate(Left(Cells(a, b).Comment.Text, 10)) <= Date And Mid(Cells(a, b).Comment.Text, 13, 1) = "B" Then deg1 = deg1 + Cells(a, b)
If CDate(Left(Cells(a, b).Comment.Text, 10)) <= Date And Mid(Cells(a, b).Comment.Text, 13, 1) = "C" Then deg2 = deg2 + Cells(a, b)

Next
Next



[b2] = deg1
[b3] = deg2
End If
End Sub