Macro'da Select-Case ve ElseIf Örnekleri

Aşağıda Select-Case ve If-ElseIf yapılarını kullanılışına ilişkin örnek bir prosedür mevcuttur. 
Prosedürde, Karne Notuna karşılık Karne Derecesi, Select-Case ve If-ElseIf yapıları kullanılarak buldurulmaktadır. 

Karne Notu, Excel hücresinden alınmakta ve ayrıca kullanıcıya sorulmaktadır. 
Karne Notuna karşılık Karne Derecesi buldurulmaktadır. 
Örnekte Select-Case ve If-ElseIf yapıları kullanılmıştır. 
Hücreden alınan Karne Notuna karşılık olan Karne Derecesi yine bir hücreye atanmaktadır. 
Kullanıcıdan öğrenilen Karne Notuna karşılık olan Karne Derecesi de mesaj kutusuyla görüntülenmektedir. 

Prosedür ve ile ilgili görüntüler aşağıda verilmiştir. 

--------------------------------------------------------------------------------------------------------------------------
Public Sub KarneDerecesi()
 KarneNotu = InputBox("Karne Notu:")     'Kullanıcıya Karne Notu soruluyor.
 
  Select Case KarneNotu    'Karne Notu kontrol edilmek üzere seçiliyor.
   Case Is < 50: Derecesi = "Zayıf"     '50'den küçükse Derecesi değişkenine Zayıf atanıyor.
   Case Is < 70: Derecesi = "Orta"     'Değilse ve 70'den küçükse Derecesi değişkenine Orta atanıyor.
   Case Is < 85: Derecesi = "İyi"     'Değilse ve 85'den küçükse Derecesi değişkenine İyi atanıyor.
   Case Is <= 100: Derecesi = "Pekiyi"   'Değilse ve '100den küçük veya eşitse Derecesi değişkenine Pekiyi atanıyor.
   Case Else: Derecesi = ""    'Hiçbiri değilse Derecesi değişkeni boşaltılıyor. 
  End Select

  If Range("B2") < 50 Then   'B2 hücresindeki değer 50'den küçükse 
   Range("D2") = "Zayıf"      'D2 hücresine Zayıf atanıyor.
  ElseIf Range("B2") < 70 Then      'Değilse ve B2 hücresindeki değer 70'den küçükse 
   Range("D2") = "Orta"       'D2 hücresine Orta atanıyor.
  ElseIf Range("B2") < 85 Then     'Değilse ve B2 hücresindeki değer 85'den küçükse 
   Range("D2") = "İyi"           'D2 hücresine İyi atanıyor.
  ElseIf Range("B2") <= 100 Then   'Değilse ve B2 hücresindeki değer 100'den küçük veya eşitse
   Range("D2") = "Pekiyi"     'D2 hücresine Pekiyi atanıyor.
  Else: Range("D2") = ""       'Hiçbiri değilse D2 hücresi boşaltılıyor. 
  End If


  MsgBox "Karne Notu " & KarneNotu & " için Derecesi: " & Derecesi  'Sonuç bir cümle içinde mesaj kutusuyla görüntüleniyor. 
  
End Sub

--------------------------------------------------------------------------------------------------------------------------


























Bu blogdaki popüler yayınlar

Power BI'da Yeni Sütun Eklemek

Resim
Power BI'da yeni sütun eklemek için ilgili tabloyu seçin, üst menüdeki Yeni Sütun düğmesini tıklayın. Açılan formül giriş alanında eşittir işaretinin sağ tarafına formülü yazın, eşitin sol tarafına ise yeni sütunun adını yazın.  Aşağıdaki örnekte bir başka tabloya Marka tablosuna bağlantı yapılıyor. Bu bağlantı tablolar arasındaki ilişki tarafından sağlanmaktadır. 
Devamı

Macro'yla Borç Alacak Girişi ve Mizanı

Resim
Excel Macro kullanarak bir Borç Alacak Girişi ekranı oluşturacağız.  Bu ekranı bir menüden çağıracağız.  Bu menü, Excel sayfasındaki dikdörtgen şekle Makro Ata seçeneğiyle atanan prosedürle görüntüleyeceğiz.  Borç Alacak Girişi ekranından Excel satırlarına yüklenen bilgilerden her bir Ad Soyad'a ilişkin borç ve alacaklar ayrı ayrı toplanacak. Bu borç alacak dengesinden bir Mizan oluşturacağız.   Bu işlemler ile ilgili ekran görüntüleri ve ilgili Macro program kodları aşağıda verilmiştir. Bu kodları kopyalayıp değişiklik yaparak kullanabilirsiniz.  Aşağıda önce Macro program kodlarını ve sonra ekran görüntülerini bulabilirsiniz.  ------------------------------------------------------------------------------------------------------------------------- Excel'deki Dikdörtgen Şekle 'Makro Ata' Seçeneğiyle Atanan Public Prosedür Public Sub EkraniGoster()  frmAnaMenu.Show End Sub ----------------------------------------------------------------------------...
Devamı

ETarihli Fonksiyonu

Resim
Excel'de YılOran fonksiyonundan ayrıca Yıl farkı değerini ve aynı zamanda Ay ve Gün farkı değerlerini de hesaplayan ETARİHLİ fonksiyonunun örneklerini aşağıdaki görselde bulabilirsiniz.  3 parametreli olan bu fonksiyonun 1. parametresi Başlangıç Tarihi, ikinci parametresi ise Bitiş Tarihi'dir.  Fonksiyonun 3. parametresi, Gün, Ay, Yıl seçimi içindir. Bu seçimde parametre değerleri İngilizce karşılığı kelimelerin ilk harfleridir. Yani gün için D, ay için M, yıl için Y girilir.  Bu fonksiyon, ismini yazmaya başlayınca ismi kendiliğinden tamamlanmıyor ve parametreleri için de bir hint (ipucu) görünmüyor. Dolayısıyla siz önceden bilip giriş yapacaksınız.  Etarihli fonksiyonunun İngilizcesi  Datedif  fonksiyonudur. 
Devamı

Kümülatif Toplam

Resim
Kümülatif Toplam için iki ayrı formül veriyorum.  Formül-1. Bulunduğumuz satırdaki toplanacak değere üst satırdaki toplam değerinin eklenmesiyle =B2 =C2+B3 =C3+B4 =C4+B5 =C5+B6 =C6+B7 =C7+B8 =C8+B9 =C9+B10 =C10+B11 =C11+B12 =C12+B13 Formül-2. Aralık bazında toplama işlemi yapan TOPLA(aralık) fonksiyonundaki aralığın başlangıç hücresini sabit yapıp, bitiş hücresini serbest bırakılmasıyla =TOPLA($B$2:B2) =TOPLA($B$2:B3) =TOPLA($B$2:B4) =TOPLA($B$2:B5) =TOPLA($B$2:B6) =TOPLA($B$2:B7) =TOPLA($B$2:B8) =TOPLA($B$2:B9) =TOPLA($B$2:B10) =TOPLA($B$2:B11) =TOPLA($B$2:B12) =TOPLA($B$2:B13)
Devamı

Excel Macro'da Tutar Hesaplamaları

Resim
Excel Macro'da temel Tutar hesaplamaları aşağıdaki örneklerde açıklamalarla verilmiştir. Aşağıdaki tabloda henüz bir hesaplama yapılmamıştır.  Aşağıda görüntüde hesaplamalar ile ilgili program satırları verilmiştir. Bu Macro sayfasına Excel programında Alt-F11'a basılarak ulaşılır.  Bu görüntüden sonraki satırlarda görüntüdeki program satırları açıklamalar ile birlikte ve sizlerin kopya alacağı şekilde verilmiştir.  --------------------------------------------------------------------------------------------------------------------- Public Sub TutarHesaplamalari() 'Tutar Hesabı 'Her bir hücre Range("...") olarak kullanılmıştır.  'C2, D2 için açıklama: C2 ve D2 hücrelerindeki değerler çarpılmış ve E2 hücresine atanmıştır.     Range("E2") = Range("C2") * Range("D2")    Range("E3") = Range("C3") * Range("D3")    Range("E4") = Range("C4") * Range("D4")    Range("E5...
Devamı

Dinamik Grafik Hazırlanması

Resim
Aşağıdaki tablonun tablo satırları arttıkça, tablonun yeni boyutlarına göre grafiğin dinamik olarak büyümesi sağlamak istiyoruz.      Yukarıdaki tablonun kolonlarına dinamik aralıklı isim veriyoruz.  Bu amaçla tablonun Ay, Satış, Maliyet kolonlarına ad tanımlıyoruz. Bu tanımlamalarda Başvuru Yeri alanında aralığı doğrudan yazmıyoruz ve Kaydır fonksiyonuyla dinamik olarak oluşmasını sağlıyoruz. Bu fonksiyonları, aşağıdaki gibi Ad Tanımla ekranında, tablomuzun Ay, Satış ve Maliyet kolonları için ayrı ayrı yazıyoruz. Yukarıdaki tanımlamalarda benzer formül olduğunu görüyoruz. Ay kolonu için: =KAYDIR(Sayfa1!$A$2;0;0;BAĞ_DEĞ_DOLU_SAY(Sayfa1!$A:$A)-1;1) Satış kolonu için: =KAYDIR(Sayfa1!$B$2;0;0;BAĞ_DEĞ_DOLU_SAY(Sayfa1!$B:$B)-1;1) Maliyet kolonu için: =KAYDIR(Sayfa1!$C$2;0;0;BAĞ_DEĞ_DOLU_SAY(Sayfa1!$C:$C)-1;1)   Kaydır fonksiyonunun parametreleri:  =Kaydır(Başvuru; Satırlar; Sütu...
Devamı

Power BI Kullanımına Giriş

Resim
Power BI, değişik kaynaklardaki veriler üzerinden raporlar ve grafikler oluşturan bir araçtır. Veri kaynakları, veritabanı, Excel, text dosya, XML ve diğerleridir.  Power BI programını Microsoft'un sitesinden indirmek için gerekli bağlantı:  https://www.microsoft.com/en-us/download/details.aspx?id=58494   Bu programı çalıştırılınca, ilk gelen sarı renkli ekranı kapatın. Bu sarı ekranı kapatınca aracın orta bölmesinde bir rapor oluşturma bölgesi bulunmaktadır.  Programa önce verileri yüklüyoruz veya verilere bağlantı kuruyoruz. Sonra sağdaki Görsel Öğeler bölmesinden bir Öge simgesini tıklıyoruz. Görsel Öğeler bölmesinin alt kısmındaki Alanlar isimli bölümde, bu görsel ögeye bağlı olarak, kullanılabilecek ayar alanları görünmektedir. Verileri içeri aktarınca veya bağlantı kurunca verilerin tabloları ve tablo alanları, ekranın en sağındaki Alanlar isimli bölmede görünmektedir.   Verileri içeri aktarınca aracın sol dikey menüsünde 3 tane, verilere bağlantı k...
Devamı

Eğer Benzerse

Resim
Excel'de Benzerlik kontrolü için, tırnak içinde ve amaca göre yeri değiştirilerek '*' işareti kullanılır. Bilinmeyen harflerin yerine '*' işareti yazılır.  Örneğin,  Başında 'H' harfini arıyorsak, "H*" ,  Ortasında 'e' harfi arıyorsak "*e*" ,  Sonunda 'z' harfini arıyorsak "*z" yazarız.  Amaç                       Bileşik Fonksiyon İçinde e var mı?     =EĞER(DEĞİL(EHATALIYSA(KAÇINCI("*e*";B1;0)));"Evet";"Hayır") H ile başlıyor mu? =EĞER(DEĞİL(EHATALIYSA(KAÇINCI("H*";B1;0)));"Evet";"Hayır") z ile bitiyor mu?     =EĞER(DEĞİL(EHATALIYSA(KAÇINCI("*z";B1;0)));"Evet";"Hayır") Yukarıdaki bileşik fonksiyonlarda Kaçıncı fonksiyonunun birinci parametresinde kullanılan "*e", "H*", "*z" ölçütleri bizim benzeme kurallarımız oluyor. Kaçıncı fonksiyonu, B1 hücresinde ölçütün kaçıncı karakterde olduğunu bul...
Devamı

Macro'da For-Next ve If Kullanarak Koşullu Toplam

Resim
Bir For-Next döngüsü içinde If kullanarak, bir kolonda koşula uyanlara karşılık gelen satırlardan diğer kolondaki değerleri bir değişken üzerine toplamak üzere bir istek olduğunu varsayalım.  Bu amaçla hazırladığım programı, aşağıda gerekli açıklamalar ile birlikte bulabilirsiniz.  ------------------------------------------------------------------------------------------------------------------------- Sub KosulluToplam()   Olcut = Range("D13")    'Range("D13") hücresindeki bilgiyi Olcut değişkenine ata.   Min = 2   Max = Cells(Rows.Count, "A").End(xlUp).Row    'A kolonunun son satırını ilgili fonksiyonu kullanarak buldur.    Toplam = 0    'Toplam değişkeni, başlangıç değeri olarak sıfırlanıyor.     For i = Min To Max     'i indis değerini minimum değerden maksimum değere kadar artırarak Next satırına kadarki işlemleri yap.      If Range("A" & i) = Olcut Then     'Range("A" ...
Devamı