Y

Çözüldü Kodda Revize Veri Girişi Engelleme

Y

YasarPiskin

Yıllık Forum Üyesi
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
EK'te ki çalışmanın, kod sayfasında "J7:AN517" arasında, "HT" hafta tatili ve "RT" resmi tatillerine denk gelen günlerde fazla mesai girişini engelleyen bir kod mevcut, bu kodun çalıştırılmadım. Mevcut kod baki kalmak koşulu ile kodun revize edilmesi hususunda yardımlarınızı rica ediyorum.
 

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Merhabalar Sn. @zompcu_80
Cells(2, Target.Column) ifadesi ile boş bir hücre değeri koşul olarak kullanılmak istendiği için kod istenilen sonucu vermiyor.

-- Tarih alanlarınız 3 ve 4. satırın birleşiminden oluştuğu için Cells(2, Target.Column) ifadesinde 3. satırı kullanmak gerekir.

-- Kod içinde bulunan aşağıdaki satırlarda belirttiğim değişiklikleri yapınız.
VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)
satırını
VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)
satırı ile

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)
satırını da
VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)
satırı ile değiştiriniz.
 
Oyla 0 Olumsuz oyla
Ahmet Bey EK'te ki çalışmadaki gibi kodda gerekli düzenlemeleri yapıtım. "RT" resmi tatillerine denk gelen günlerde fazla mesai girmeye çalıştığımda ekran görüntüsünü paylaştığım hatayla birlikte çalışma kitabı kapanmaya ve yeni bir çalışma kitabı açılmaya başladı. Bu hususta yardımlarınızı rica ediyorum.
 

Ekli dosyalar

  • Ekran görüntüsü 2021-05-20 061845.webp
    Ekran görüntüsü 2021-05-20 061845.webp
    70.8 KB · Görüntüleme: 7
  • Kitap1.xlsm
    Kitap1.xlsm
    598.9 KB · Görüntüleme: 4
Oyla 0 Olumsuz oyla
Merhabalar Sn. @zompcu_80
Paylaştığınız dosya hata vermedi ama
VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)
satırlarından sonra
VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)
satırını ekleyebilirsiniz.
 
Oyla 0 Olumsuz oyla
Merhabalar Sn. @zompcu_80
Belirttiğiniz bu durumda paylaştığınız dosyada olmadı ama Hesaplamaları ve Ekran Hareketlerini pasif aktif ederek biraz hızlanma sağlayabilirsiniz.
-- Worksheet_Change kodlarını aşağıdaki kodlar ile değiştiriniz.
VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(32 satır)
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Üst