hakki83

Silinmiş veya Hatalı Saatler İçin Uyarı Verme

  • Konuyu başlatan Konuyu başlatan hakki83
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
hakki83

hakki83

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
887
Excel Versiyonu
Excel 2016
Excel Sürümü
32 Bit
Excel Dili
Türkçe
Merhabalar

Örnek dosyada, değerli hocamız Ömer Baran hocamızın, tarihler için oluşturduğu çok güzel bir kod vardır.

Aynı şekilde hocalarımız tarafından saatler için de bir kod oluşturulabilirse çok sevinirim.

Önemli husus şudur:

Tarihlerin bir standardı vardı.
Yani
01.01.2022'de başlayıp,
1'er gün arayla devam ediyordu.

Fakat
Saatlerde maalesef bir standart yoktur:
Yani
başlangıç saatinin,
iki saat arasındaki zaman aralığının, ve
bitiş saatinin bir standardı yoktur.

Değişkendir, Yani:

08:00'da başlayıp, 15'er dakika aralıklarla, 18:00'da da bitebilir.
10:00'da başlayıp, 10'ar dakika aralıklarla, 17:30'da da bitebilir.
Bu kullanan kişiye göre değişecektir.

Tek standart; başlangıç saatinin B2'den itibaren başlamış olduğudur.

Bundan dolayı, Excelden yapması istenilen görev için oluşturulan kodlarda;

başlangıç saati, bitiş saati ve zaman aralığının girilmesi gereken yerlerin, ya da bunlardan en az bir/belki iki tanesinin yerinin belli olması gerekiyor diye düşünüyorum.

Düşüncelerimi ifade etmeye çalıştım. Takdir değerli hocalarımızındır.

Teşekkürler
 
Kodla Çarpım İşlemi Uygulama Hatasını Çözme
kodla diğer sayfaya veri aktarma

Ekli dosyalar

Çözüm
Ömer BARAN
Örnek doğru/yanlış/eksik veri girişleri yaptıktan sonra
VBA ekranı üzerinden elle şu kodu çalıştırıp deneyin bakalım.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(14 satır)
Tarihe göre sırala Oylamaya göre sırala
Ben isteğinizi maalesef tam olarak anlayamadım.

İsteğiniz kod çalıştırıldığında;
-- ilk olarak süreye ilişkin dakika anlamındaki ritim için bir soru sorulsa (diyelim kullanıcı 7 yazdı),
-- B1 hariç B sütunundan başlayarak sağa doğru tüm sütunlarda olmak üzere 2'nci satırdan aşağıda kalan tüm veriler silinip,
-- C1'den başlayarak sağa doğru solundaki saate, kullanıcıya sorulan sorunun cevabı olan sayı kadar dakika eklenerek saatlerin yazılması mı?
Yoksa tarih silinmesiyle ilgili durumun yakalanması gibi, saatlerden silinen olup olmadığını mı yakalamak istiyorsunuz?
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Yoksa tarih silinmesiyle ilgili durumun yakalanması gibi, saatlerden silinen olup olmadığını mı yakalamak istiyorsunuz?
Genişletmek için tıklayın ...



Evet Ömer hocam.

Tam olarak istediğim, tıpkı tarih kodunda olduğu gibi saatlerde de silinen olup olmadığının yakalanmasını istiyorum.

Başlangıç / bitiş saatini ve dakika aralıklarını sadece ben belirliyorum.
Bir başkasının bu verilerle (tarihlerle, saatlerle) ilgili değişiklik yapma ihtimali yok.

Sadece yanlışlıkla silebilir,
veya
Normal iç kısımdaki hücreye veri yazmak isterken, yanlışlıkla birinci satıra veri yazabilir.
ve dolayısıyla dosya bozulabilir.

Tıpkı eksilen tarihteki kodunuzun aynısı için saatler için de olursa çok güzel olur.

.......
İlk mesajımda yazdığım gibi hocam,
başlangıç saatinin,
zaman aralıklarının ve
bitiş saatinin (yani hangi sütunda biteceğinin)
bir standardı yoktur.
.......

Yine anlaşılmayan bir şey olursa severek anlatmaya hazırım
 
Oyla 0 Olumsuz oyla
Örnek doğru/yanlış/eksik veri girişleri yaptıktan sonra
VBA ekranı üzerinden elle şu kodu çalıştırıp deneyin bakalım.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(17 satır)
 
Oyla 0 Olumsuz oyla
Çözüm
Ömer hocam hata verdi ama bilmiyorum neden,

Bir de hocam inputBox olmaması lazım.

Önceki tarih kodunuz çok güzeldi. Onun gibi olsa şahane olur.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Değerli hocam sizin bütün kodlarınız mükemmeldir.

Excel konusundaki ustalığınıza hayran olan yüzlerce üyeden sadece birisiyim. :)

Hocam maalesef bilgisayar başından ayrıldım. Birkaç saat sonra tekrar geçeceğim.
Geçince hemen rahatça denemeler yapacağım.

Bir de hocam saat kısmını şöyle bir-iki cümleyle tekrar özetleyeyim.

Yeni kodlar B1’deki saate bakacak.
Bir de aradaki saat farkına ve son saate bakacak.
Silinmiş veya değişmiş hatalı bir saat hücresi varsa, tespit edecek.
Sadece budur hocam.

Tekrar emeklerinize sağlık. Teşekkürler. :)
 
Oyla 0 Olumsuz oyla
O zaman; ayrı kod olarak deneme işini bir kenara bırakıp,
Activate koduna ekleme yönteminden (eklediğiniz son örnek belgedeki durum) devam edelim.

-- Eklenen kısımdaki ritim = InputBox...... kısmını ritim = 15 olarak değiştirin,
-- Eklenen kısımdaki GoTo 10 kısmını GoTo 20 olarak, daha alttaki 10: kısmını da 20: olarak değiştirin.
Bu değişiklikler yeterlidir,
 
Oyla 0 Olumsuz oyla
Ömer hocam emeklerinize sağlık, şahane olmuş.

Sadece hocam, bir önceki saati gösteriyor.

İki tane GoTo 10 vardı, bunları GoTo 20 yaptım.
Alttaki 10'u da 20 yaptım.

Hücre adresleri doğru, sadece olması gereken saatten bir önceki hücrenin saatini gösteriyor.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
dogrusu = TimeValue(ilkS + ((a - 2) * (ritim) / 24 / 60))

bu kod satırını, For a = 2 To son_sutun satırının hemen altına TAŞIyın.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt