Kodda Revize Veri Girişi Engelleme

YasarPiskin

VIP Üye
Kullanıcı
Katılım
6 Ara 2016
Mesajlar
2,059
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.
 
Aplikasyonun kapanmaması sorunu
Linkedinden veri çekme mümkün müdür

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Merhabalar Sn. @yasarpiskin
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: 
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)
satırını
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)
satırı ile

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)
satırını da
VBA: 
İndirmek 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: 38
  • Kitap1.xlsm
    Kitap1.xlsm
    598.9 KB · Görüntüleme: 4
Oyla 0 Olumsuz oyla
Merhabalar Sn. @yasarpiskin
Paylaştığınız dosya hata vermedi ama
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)
satırlarından sonra
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)
satırını ekleyebilirsiniz.
 
Oyla 0 Olumsuz oyla
Merhabalar Sn. @yasarpiskin
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: 
İndirmek 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.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt