VBA ile EĞER Formülü Yazma

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

muhsar

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
185
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
merhaba,ekteki belgemde aktif hasta listesi sayfasında H sütünuna veri doğrulama ile yazdığım ekip adına göre il ilçe personel gibi bilgileri bağlantı sayfasından çekiyor. 5000 satır civarında verim oldu ve çoğalıyor ,dolayısı ile ağırlaşmaya başladı .bu sebeple D;E F;G;I;J;K;N sütınlarındaki formülü makroya çevirip sayfanın kod bölümüne yapıştırsam formül olmadan h sütununa ekip yazıldığında eğer formlü ile yaptığım işlemi yapabilirmiyim.

kullanıcı :muharrem
şifre:1111
 
Worksheet_Change Kodundaki Hatayı Çözme
Sayfa birleştirme

Ekli dosyalar

Çözüm
Muharrem bey, merhaba...
Kolaylık olması açısından ekip bilgilerinizi veritabanı mantığı ile ayrı bir sayfada düzenlemek gerekiyor. Verileriniz standart bir formatta olursa hem formül hem kod yazmak daha basit olur. İç içe bir sürü IF formülü yerine tek bir VLOOKUP formülü ile de istediğiniz bilgileri ulaşabilirsiniz.

Öncelikle Ekip bilgilerinizi aşağıdaki formata getirip EKIPLER isimli bir sayfaya kaydedin.

resim1.webp


Sonra "AKTİF_HASTA_LİSTESİ" sayfasının kod sayfasına giderek aşağıdaki kodları ekleyiniz. Böylece H sütününda her ekip seçişinizde ilgili satırdaki bilgi EKIPLER sayfasından alınarak doldurulacaktır.


VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(2 satır)
Tarihe göre sırala Oylamaya göre sırala
Muharrem bey, merhaba...
Kolaylık olması açısından ekip bilgilerinizi veritabanı mantığı ile ayrı bir sayfada düzenlemek gerekiyor. Verileriniz standart bir formatta olursa hem formül hem kod yazmak daha basit olur. İç içe bir sürü IF formülü yerine tek bir VLOOKUP formülü ile de istediğiniz bilgileri ulaşabilirsiniz.

Öncelikle Ekip bilgilerinizi aşağıdaki formata getirip EKIPLER isimli bir sayfaya kaydedin.

resim1.webp


Sonra "AKTİF_HASTA_LİSTESİ" sayfasının kod sayfasına giderek aşağıdaki kodları ekleyiniz. Böylece H sütününda her ekip seçişinizde ilgili satırdaki bilgi EKIPLER sayfasından alınarak doldurulacaktır.


VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(35 satır)
 
Oyla 0 Olumsuz oyla
Çözüm
ilginiz için teşekkür ederim,mantığınızı anladım fakat ilçe seçiminde eğer ve kullanmak zorundayım çünkü eğer h sütununda ekip 3 ise mahallede x ise efeler değil ise germencik yaz gibi mantık var,sizin mantık ile burada sorun yaşarım.yani ekip 3 ilçe olarak bazı hastalarda efeler bazılarında germencik olacak gibi
 
Oyla 0 Olumsuz oyla
Kuralı tam anlamadım ama target.ofset(0,-3) satırını şu şekilde değiştirip kuralınızı buraya yazmaya çalışın.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(5 satır)

Şimdi bunu yazınca Mahalleyi değiştirincede Ekipe ait ilçe bilgisini güncellemek isteyeceksiniz. O zaman da ilk stırdaki H sütünü kontrolünü şu şekilde değiştirin:

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(1 satır)
 
Oyla 0 Olumsuz oyla
hocam kural şu:
ekip 3:eğer mahalle mimarsinan ise ilçe efeler değil ise ilçe germencik
ekip 2:eğer mahalle ovaeymir ise efeler değil ise koçarlı
ekip 1 ilçe incirliova
ekip 4-5-6 ilçe efeler
 
Oyla 0 Olumsuz oyla
Muhsar bey, ilk verdiğim kodu güncelledim. Onu tekrar inceler misiniz? Ekip yada Mahalle ismi değişirse ilgili satırdaki tüm bilgileri EKIPLER sayfasından alarak güncelliyor. Ekip2 ve 3 ile ilgili özel durumuda kodun içine aşağıdaki şekilde tanımladım. Bu özel durumlardan biri yoksa tabloya yazdığınız değeri getiriyor.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(2 satır)
 
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