- Katılım
- 22 Ekim 2017
- Mesajlar
- 4,779
- Excel Vers. ve Dili
- Microsoft 365 Tr-64
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Uzmanım emeğinize sağlık.
Sizin bu sorularıma #13 nolu mesajda verdiğiniz cevaba göre yapmıştım.Diyelim listeniz 1.10.2021 den başlıyor.
Bugün ayın 5 i
Açtınız 2.satırda 5.10.2021 güzüküyor
1-2-3-4.10.2021 satırları
silinecek mi?
gizlenecek mi?
aşağı mı kayacak?
Uzmanım kendim kullansam her şey olur, fakat bu konuda biraz hevesliyim. Fornül değil, makro kodu ile tamamen otomatik olması gerekiyor. Veya eğer olmuyorsa, bu özellik olmayacak bu randevu listesinde.Bence şöyle yapsanız daha iyi olmaz mı?
İlk bir kaç satırı boş bırakın. Sonra düşeyara ile bugüne ait tarihi sorgulayıp boş satırlardan birinde bu verileri görüntüleyin.
Böylece gereksiz kod yükünden kurtulmuş olursunuz.
Uzmanım bazen “mesaj ile iletişim de yanlış anlaşılmalar olabiliyor, canınız sağolsun, ben sabır ve merakla bekleyeceğim yeni kodlarınızıSizin bu sorularıma #13 nolu mesajda verdiğiniz cevaba göre yapmıştım.
Heyecandan yine yanlış yazmışım, Saatler; örnek dosyalarda olduğu gibi B1, C1, D1, E1… diye gidiyorBoş bir excel sayfası
A1 hücresinde başlık var. B1-B2-B3… saatler yazılı.
Private Sub Worksheet_Activate()
Set Bul = Range("A:A").Find(Date)
If Bul Is Nothing Then Exit Sub
ActiveWindow.ScrollRow = Bul.Row
End Sub
Uzmanım işte budur. Oldu. Çok teşlekkür ederim, emekleriniz için zahmetleriniz için.Eğer 29 mesajda çözülemediyse başka bir sıkıntı var.
Aşağıda kodu tarihlerin olduğu sayfanıza yapıştırın
C++:Private Sub Worksheet_Activate() Set Bul = Range("A:A").Find(Date) If Bul Is Nothing Then Exit Sub ActiveWindow.ScrollRow = Bul.Row End Sub
Private Sub Worksheet_Activate()
Dim Bul As Range, Zaman As Integer
Set Bul = Range("A:A").Find(Date)
If Bul Is Nothing Then Exit Sub
ActiveWindow.ScrollRow = Bul.Row
Zaman = VBA.Round((VBA.Minute("14:33") + 60 * VBA.Hour("14:33")) / 15) - 38
Zaman = WorksheetFunction.Max(2, Zaman - 1)
Zaman = WorksheetFunction.Min(32, Zaman)
ActiveWindow.ScrollColumn = Zaman +0
Cells(Bul.Row, Zaman + 1).Select
End Sub
Denerken düzeltmeyi unutmuşum. Aşağıdaki değişikliği yapın lütfen.
Zaman = VBA.Round((VBA.Minute("14:33") + 60 * VBA.Hour("14:33")) / 15) - 38
Zaman = VBA.Round((VBA.Minute(Now) + 60 * VBA.Hour(Now)) / 15) - 38