Arama sonucuna göre belirli değerleri farklı hücrelere yazdırma...

[ersingur]

Arkadaşlar a hücrelerinde usta belge bitiş tarihleri b hücrelerinde de usta isimleri var ben bugünün tarihi baz alınarak belgele süreleri dolan usta isimleri ve sürelerini başka bir çalışma sayfasına alt alta satırlara yazdırmak istiyorum acaba böyle bir şey mümkün mü ? Şimdiden yardımlarınız için teşekkür ederim iyi akşamlar.

 

[Mustafa MUTLU]

Macro ile olabilir..

 

[Mustafa MUTLU]

Yatacağım artık sizi bekleyemem.
Macro işinize yararsa
Aşağıdaki kodu deneyin

Verilerinin Sayfa1 a ve b sütununda olduğunu varsayarak
Sayfa 2 ye süresi dolanı atacak..

Sub Kontrol_Et()
[C1] = "=Today()"
[C1] = [C1]
MM1 = 0
For MSTF = 2 To Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
If Sheets("Sayfa1").Cells(MSTF, "A") = [C1] Then
Mutlu = Sheets("Sayfa2").Range("A65536").End(3).Row + 1
Sheets("Sayfa2").Cells(Mutlu, "A") = Sheets("Sayfa1").Cells(MSTF, "A")
Sheets("Sayfa2").Cells(Mutlu, "B") = Sheets("Sayfa1").Cells(MSTF, "B")
MM1 = MM1 + 1
End If
Next
[C1] = ""
    MsgBox " Bu gün  " & MM1 & " kişinin belgesi dolmuştur.", vbExclamation, "Mustafa MUTLU 0 533 740 45 49"

End Sub

 

[erdenek]

güzel bir çalışma ellerinize sağlık.

 

[ersingur]

Mustafa bey cevabınız için teşekkür ederim ama makro bilgim olmadığı için kod u çalıştırmak için 1 gün uğraştım onun için geç cevap yazabildim . kodda makro her çalıştığında var olan isimleri tekrar yazmazsa olur mu? ayrıca bana büyük kolaylık sağladınız teşekkür ederim.
saygılarımla.

 

[Emir Hüseyin Çoban]

Sub kod başlığından sonra şu şatırı ilave ederek deneyiniz.
Sheets("sayfa2").range("a1:b65536").ClearContents

 

[ersingur]

Teşekkür ederim istediğim oldu, elinize sağlık.