“Bir sürü ekran görüntüsü almıştım acaba hangisinde şu an aradığım şey? Ne kadar geçmişe bakmalıyım? Aceleden yanına açıklama da yazamadım, nasıl bulacağım ki? Sayfa da gözümün önünde sanki..” Hepimizin aklından bir sefer bile geçmiştir bu özellik olmalı diye! Özellikle görüntüleri arşivlemek, yeni görüntüler geldiğinde eski düzene uygun şekilde yerleştirmek hayatın hızlı akışında gittikçe zorlaşıyor. Böyle bir durum için çözüm: OneNote.
Peki OneNote bunu nasıl başarıyor? Bir başka yazımızda OneNote’daki resimlerden metni almayı anlatmıştık. Orada da bahsettiğimiz üzere, OneNote’da Optik Karakter Tanıma (OCR) adlı bir özellik kullanılıyor. OCR teknolojisi; PDF, dijital ortamda bulunan taranmış evraklar veya dijital görüntü gibi belge türlerini aranabilir ve düzenlenebilir verilere dönüştürülmesine olanak sağlayan bir teknolojidir. Artık günümüzde de çoğu bilginin yazmak yerine mümkünse PDF’i, ekran görüntüsünün alınması, fotoğrafının çekilmesi gibi durumlar mevcut olduğu ileriki safhalarda bilgi yoğunluğunun artmasından doğan bir arşivleme problemi ortaya çıkıyor. OneNote da sistemine OCR teknolojisini entegre ederek bu durumdan kullanıcılarını koruma altına alıyor. Gelin birlikte deneyelim.
Bir sayfanın ekran görüntüsünü alıp OneNote’a yapıştıralım.
Aşağıdaki kırmızı çerçeveye aldığım “dijital” yazısını aratalım. Başlığa göre daha küçük ve OneNote’da çıplak gözle okumaya kalktığımızda okunması oldukça zor olduğu için bunu tercih ettim.
CTRL+E veya sağ tarafta sayfaları gösteren alanın hemen üstündeki alana görüntü üzerindeki herhangi bir alanı yazalım.
Bakın, demiyorum ki şu şu özellik. Yalnızca görüntüyü alıp OneNote’unuza yapıştırıyorsunuz. Bu kadar kullanıcı dostu bir çözüm. OneNote’un bu özelliğinden fiş, fatura vs. kullanmak için de yararlanabilirsiniz yani aslında aklınıza gelebilecek ve fotoğraflanabilecek her türlü görüntüde. Yalnız burada bir küçük handikaptan bahsedebiliriz. Alınan görüntünün kalitesi, netliği, keskinliği OneNote tarafında çözümlenmesini etkileyecektir. Buna dikkat etmenizde fayda olacaktır.
Başka bir makalede görüşmek dileğiyle, hoşçakalın.
Şirket içinde göndermiş olduğunuz bir iletiyi karşı taraf henüz açmamış ise Mail Geri Çekme özelliği ile mailler alıcıların posta kutularından kaldırılabilir.
Bu iletinin içeriğinin değiştirilerek son güncel halinin paylaşılması gerektiği durumlarda ya da bu mail içeriği değiştirilerek gönderilmek istendiği durumlarda, bu özellik kullanılabilir. Örneğin eki iliştirmeyi unuttuysanız, mail geri çekme işlemini deneyebilir ve sonra eki olan yeni bir ileti gönderebilirsiniz. Tamamen yanlış gönderilmiş bir mail de bu sevdaya dahil…
Mail Geri Çekme özelliği siz Gönder’e tıkladıktan sonra mail iletildiği andan itibaren kullanılabilir ve bu özelliğin kullanılabilmesi için alıcının aynı kuruluş içinde bir Exchange hesabının olması gerekir.
*Mailinizi okundu bilgisi alarak gönderirseniz İletiyi geri çekme özelliğini daha etkin kullanabilirsiniz.
Mail içeriğinizi yazarak gönderdikten sonra değiştirmeyi ya da geri çekme işlemini yapmak için gönderilmiş öğeler kutusuna gideriz. İlgili mail içeriğini açarız ve Dosya sekmesinden Bilgi’ye tıklarız bu ekranda İletiyi Yeniden Gönder ve Geri Çek seçeneğini seçeriz. Açılan listeden Bu İletiyi Geri Çek… seçeneğini seçeriz.
Bu seçimle birlikte karşımıza yeni bir pencere gelir. Gönderdiğimiz maili kalıcı olarak karşı taraftan çekmek için birinci seçeneği seçeriz. İkinci seçenek ile gönderilen iletiyi geri çekerek yerine bir başka mailin gönderilmesini sağlayabiliriz. Üçüncü seçenek ise yapılan geri çekme işlemleri için taraflara mail bildirimi gönderilmesini sağlar. İlgili seçimler yapıldıktan sonra işlem tamamlanacaktır.
Bu dökümanda Outlook 2013 ve Outlook 2016 ADMX yönetim araçlarını kullanarak GPO üzerinden kullanıcıların Outlook Cache zamanlarının ayarlanması hedeflenmiştir.
1-Aşağıdaki linkte bulunan Office 2016 Group Policy ADMX dosyasını Domain Controller sunucusunda indiriniz.
2-Sunucu üzerinde masaüstüne indirdiğimiz Setup’ı çalıştırıyoruz.
3-Dosyaların çıkacağı location olarak masaüstünü belirtip OK’a basıyoruz.
4-Masaüstünde açılan dosyaların içine girdikten sonra aşağıdaki işaretlenmiş olan .admx uzantılı dosyaların hepsni kopyalıyoruz.
5-Kopyaladığımız dosyaları C:WindowsPolicyDefinitions altındaki bölüme yapıştırıyoruz.
6-Masaüste tekrar geri dönerek çıkarmış olduğumuz klasör içerisindeki en-us klasörüne giriyoruz ve içerisindeki tüm dosyaları kopyalıyoruz.
7- Kopyaladığımız dosyaları bu sefer C:WindowsPolicyDefinitionsen-us klasörü içerisine yapıştırıyoruz.
Not : Mevcut yapınızda Office 2013 yönetimi için gerekli olan ADMX’ler daha önce yüklendiği için Office 2013 için yukarıdaki adımları uygulamanıza gerek bulunmamaktadır.
8-Domain Controller üzerinde Group Policy’imizi açıyoruz ve Outlook Cache gününü hangi OU üzerinde uygulayacaksak ilgili OU’ya geldikten sonra “Create a GPO in this domain , and Link it here…” seçeneğini seçiyoruz.
9- Policy’imize isim tanımlıyoruz.
10-Policy’imizde ayarları gerçekleştirmek için sağ tıklayıp “Edit” seçeneğini seçiyoruz.
11- Outlook 2016’lar için : User ConfigurationAdministrative Templates Policy DefinitionMicrosoft Outlook 2016ExchangeCached Exchange Mode bölümüne geldikten sonra sağ tarafta bulunan “Cache Exchange Mode Sync Settings” seçeneğine çift tıklıyoruz ve Policy’imizi etkin hale getiriyoruz. Policy içerisinde Outlook OST dosyalarının son kaç ayı download edeceğini kendi yapınıza göre ayarlayınız.
12- Outlook 2013’ler için : User ConfigurationAdministrative Templates Policy DefinitionMicrosoft Outlook 2016ExchangeCached Exchange Mode bölümüne geldikten sonra sağ tarafta bulunan “Cache Exchange Mode Sync Settings” seçeneğine çift tıklıyoruz ve Policy’imizi etkin hale getiriyoruz. Policy içerisinde Outlook OST dosyalarının son kaç ayı download edeceğini kendi yapınıza göre ayarlayınız.
13-Policy sonrası örnek yeni bir Outlook kurulum ekranı aşağıdaki gibidir.
Not :
1-Policy uygulanması sonrası bilgisayarlar’da oturum açılıp kapatıldığında mevcut profil ayarları yukarıda belirlediğimiz Policy’deki ayarlar olarak güncellenecektir.
2-Her departman için Outlook Cache zamanını istediğiniz gibi belirleyebilirsiniz. Yeni bir Policy daha yaratarak içerisindeki tarih ayarını değiştirdikten sonra ilgili OU’ya uygulamanız yeterlidir.
Koruma, ilk olarak kullanıcı kimliğiyle başlar ve tüm Microsoft 365 kullanıcı kimlikleri Azure Active Directory (Azure AD) temel alınarak Azure Active Directory Identity Protection tarafında korunur. Azure AD Identity Protection, kimlik gelişimlerine karşı otomatik olarak koruma sağlamak ve çeşitli gelişen risklere karşı kullanıcı bilgilerini güvence altına almak için dinamik zeka ve makine öğrenim dilini desteklemektedir. Bu nedenle Office 365 kullanıcı kimlikleri bir adım daha güvence altındadır. Microsoft 365 threat protection, e-posta yoluyla gönderileni bilinmeyen gelişmiş tehdit ve saldırıları durdurmaya yardımcı olan Office 365 ATP ile maillerinizi korur. Office 365 ATP sayesinde, tüm e-posta üzerindeki linkleri ve eklentileri kontrol ederek zararlı olup olmadığını belirleyip, zararlı olduğu fark ettiğinde taktirde maili farklı bir kullanıcıya daha göndermeden direk o maili siler. Saldırılar geniş çaplı olduğundan dolayı, bazı saldırılar direk cihazlara da yapılır. Fidye yazılımı içeren bir siteyi ziyaret eden bir kullanıcı yanlışla fidye yazılımını windows 10 bilgisayarına indirdiğini varsayalım. Böyle bir durumda Microsoft Edge, bu sitenin kötü amaçlı olup olmadığını belirleyen, erişimi engelleyebilen ve fidye yazılımların ilk adımında güvenliği ele alan Windows Defender ATP’nin tarayıcı koruma özelliğini kullanır. Windows Defender ATP, Windows Defender Antivirus, AppLocker ve Windows Defender Device Guard gibi makinelerde varolan Windows güvenlik teknolojileriyle çalışır. Fidye (Ransomware) saldırıları aynı zamanda bulutta çalışan iş yüklerini hedef alır. Bu tarafta ise Azure Security Center, Azure ve On-prem iş yüklerinizin güvenlik durumuna yönelik hızlı bir görünüm sağlayarak iş süreçlerinizin güvenliğini keşfedip değerlendirmenize ve riski belirleyip azaltmanıza yardımcı olur. Güvenlik çözümlerine yeni ve ek olarak sunulan Azure Advanced Threat Protection (ATP)’de, ağlarınızdaki güvenlik olaylarını tespit etmenize ve araştırmanıza yardımcı olan, bulut tabanlı bir güvenlik çözümüdür. Aynı zamanda siber saldırılarına ve içeriden dışarıya bilgi sızdırma gibi tehditlere karşı koruma sağlamanıza yardımcı olur.
Microsoft’un Office 365 ATP, Azure ATP ve Windows Defender ATP’den oluşan Advance Threat Protection Güvenlik çözümleri bulunmaktadır. Bu Güvenlik çözümleri güvenlik sırasına göre aşağıda sunulmaktadır.
1.Office 365 ATP:E-postanızı bilinmeyen ve gelişmiş saldırılara karşı gerçek zamanlı koruma sağlayan bir güvenlik çözümüdür. Güvenli olmayan eklere karşı koruma sağlayarak ve korumayı kötü amaçlı bağlantıları da içerecek şekilde genişleterek, Exchange Online Protection’ın güvenlik özelliklerini tamamlar ve daha iyi bir koruma sağlar. Güvenli Eklerle, imzaları biliniyor olsa bile kötü amaçlı eklerin ileti ortamınızı etkilemesini önleyebilirsiniz. Tüm şüpheli içerik, makine öğrenme tekniklerini kullanan ve içeriği etkinlik açısından değerlendiren; gerçek zamanlı, davranışsal bir kötü amaçlı yazılım çözümlemesinden geçirilir. Güvenli olmayan ekler, alıcıya gönderilmeden önce detonasyon odasında korumalı alana yerleştirilir. Bunun avantajı, kötü amaçlı yazılım içermeyen ve daha temiz bir posta kutusu elde etmektir.
Bilinmeyen kötü amaçlı yazılım ve virüslere karşı Güvenli Ekler özelliğini kullanarak dayanıklı koruma sağlama
Güvenli Linkler özelliğini kullanarak kullanıcıları zararlı linklerden koruyan, kötü amaçlı sayfalara karşı gerçek zamanlı, tam koruma.
Yöneticileri organizasyonlarındaki olası tehlikelere karşı uyaran zengin bildirim ve URL takip özellikleri.
Herhangi bir tehlike anında veya sonrasında mesajlarınıza erişme imkanı
2.Windows Defender ATP: Gelişmiş kötü amaçlı yazılımları tespit edilen ve cihazlarda cihaz seviyesinde koruma sağlan bir güvenlik çözümüdür. Aynı zamanda Akıllı koruma, tespit, araştırma ve yanıt için güvenlik platformu sağlar. Windows Defender ATP, gelişmiş saldırıları ve veri ihlallerini algılar, güvenlik olaylarını otomatikleştirerek cihazın güvenliğini arttırır.
Endpoint behavioral sensors: Windows 10 içersinde yer alan sensorler sayesinde, işletim sisteminden davranış sinyalleri toplarak Windows Defender ATP yönetimi portalına işler. İşlenen veriler ise iş süreçleri, kayıt defteri, dosya ve ağ iletişimleri gibidir.
Cloud security analytics: Windows ekosistemindeki güvenliği ön planda tutup, davranış sinyalleri üzerinde belirli analizler yapılmasını sağlar.
Threat intelligence: Windows Defender ATP’nin saldırgan araçlarını, tekniklerini, prosedürlerini tanımlamasını ve toplanan sensör verilerindeki bilgilere göre uyarılar üretir
Not: Windows bilgisayarlarındaki yaygın kötü amaçlı yazılımlardan korunmak için Malicious Software Removal Tool yazılımını kullanabilirsiniz. MSRT tehditleri bulur ve kaldırır ve bu tehditler tarafından yapılan değişiklikleri tersine çevirir 3.Azure ATP: BT Yöneticilerinin bir ağ içindeki (kötü amaçlı olmayan) saldırganları, ne yaptıklarını ve gerçekleştirecekleri eylemleri izlemesini sağlar.
Şüpheli kullanıcı ve cihaz etkinliğini öğrenme akabinde analiz etme
Bulut ve kurum içi ortamlardaki tehditleri algılama
Active Directory’de depolanan kullanıcı kimlik bilgilerini koruma ve analiz etme
Windows Defender Advanced Threat Protection ile entegrasyon sağlayarak araştırma ve analiz seviyesini arttırma
Kötü amaçlı yazılım saldırılarının çoğu e-postadan geldiğinden, Office 365 ATP güvenlik katmanın ilk halkasını oluşturur
Office 365 ATP, kötü amaçlı yazılımı tanımlamakta başarısız olursa, Aygıtlar tarafında Windows Defender ATP, cihazdaki anormal ve garip davranışı tanımlayarak kötü amaçlı yazılımları yakalamaya çalışır.
Kimlik hırsızlığı başarılı olursa, saldırganın Azure ATP aracılığıyla makineden diğerine geçmek için bu kimliği nasıl kullandığını izleyebilirsiniz.
Excel belgelerinde eğer çok fazla sayfa var ise ve bu sayfaları silmek bir noktadan sonra zorlaşıyor ise bu makromuz, bu iş için tam biçilmiş kaftan…
Bu makalemizde bir veya daha çok sayfayı hızlıca silebileceğimiz bir makro uygulamasını form ara yüzü kullanarak nasıl silebileceğimizi göstereceğim. Uygulamanın çalışan son hali aşağıdaki gibidir. Silmek istediğimiz sayfaları seçerek, tarayarak, arama yaparak veya tümünü seç gibi işlemleri yaparak seçebilir ve silebiliriz. Çoklu seçim için Ctrl tuşuna basarak seçim yapmak oldukça kolay ve pratiktir.
Uygulamamız için ilk etapta yukarda görülen form’u tasarlıyoruz.
Daha sonra Tümünü Seç, Tümünü Kaldır ve Sil düğmeleri için kodlar yazıyoruz. Form arayüzünü açmak için Crtl+j kısayolu ile formu çağırabiliriz.
Form yüklendiğinde yani aktif olduğunda o Excel belgesinde normalde kaç tane sayfa var ise otomatik olarak listeye eklenmesini istiyoruz.
Bunun için aşağıdaki kod bloğunu kullanırız:
Private Sub UserForm_Activate()
‘Form önyükleme
For Each k In Sheets
ListBox1.AddItem k.Name
Next k
End Sub
Form açıldıktan sonra istediğimiz sayfaları tek tek seçerek, taratarak veya arama yaparak seçip Sil düğmesine tıkladığımızda otomatik olarak silebiliriz.
Tümünü seçmek için aşağıdaki kodu kullanırız. Bu kod çalıştığında form içinde kaç tane sayfa var ise hepsinin onay düğmesi seçili hale gelecektir.
Private Sub CommandButton2_Click()
‘Tümünü seç
For i = 0 To ListBox1.ListCount – 1
ListBox1.Selected(i) = True
Next i
End Sub
Seçili olan tüm sayfalarda Tümünü Kaldır düğmesine tıkladığımızda ne kadar seçili sayfa var ise hepsininde seçimleri iptal olur bunun için aşağıdaki kod bloğunu kullanırız.
Private Sub CommandButton3_Click()
‘Tümünü Kaldır
For i = 0 To ListBox1.ListCount – 1
ListBox1.Selected(i) = False
Next i
End Sub
Eğer arama kutucuğunu kullanarak silme yapmak istersek istediğimiz sayfa adını yazarak listbox içinden arama işlemini yaptırıp seçili olan sayfa veya sayfaları silebiliriz. Bu işlem için aşağıdaki kod bloğunu kullanırız.
Private Sub TextBox1_Change()
‘Arama
Dim i As Integer
Dim j As Integer
With ListBox1
.MultiSelect = fmMultiSelectSingle
.ListIndex = -1
.MultiSelect = fmMultiSelectMulti
For i = 0 To .ListCount – 1
For j = 0 To .ColumnCount – 1
If LCase(InStr(1, .Column(j, i), TextBox1.Text, vbTextCompare)) Then
.ListIndex = i
.Selected(i) = True
End If
Next j
Next i
End With
End Sub
Ve son olarak silmek istediğimiz sayfaları seçtikten sonra Sil düğmesine tıklayarak seçili sayfaları kolaylıkla silebiliriz. Bunun için Sil düğmesinin çift tıkladıktan sonra açılan sayfaya aşağıdaki kodu yazmamız yeterlidir. Böylece ne kadar seçili sayfa var ise silinecektir.
Private Sub CommandButton1_Click()
‘Sayfa veya Sayfaları Silme
On Error Resume Next
Application.DisplayAlerts = False
For k = ListBox1.ListCount – 1 To 0 Step -1
If ListBox1.Selected(k) Then
Worksheets(ListBox1.List(k, 0)).Delete
ListBox1.RemoveItem (k)
End If
Next k
Application.DisplayAlerts = False
End Sub
Yukardaki makro kodları ile işlemimizi çok kolaylaştıracağız. Tabi bu formu çağırmak içinde bir kısayol atamamız gerekir. Diğer türlü sayfa içinden bir düğme koyup onu tıklayarak çağırmak çok mantıklı olmayacaktır. Ama kendimize özel bir makro sekmesi yapıp bu makroyu oraya bir ikon aracılığı ile yerleştirip kullanabiliriz. Tüm bunların yanı sıra kısayol işlemi oldukça basit ve daha kullanışlıdır. Formları çağırmak için modül ekleyim ilgili formu çağırmamız gerekmektedir. Bunun için makromuza bir modül ekliyor ve içerisine aşağıdaki kodu yazıyoruz.
Kodda Forma verdiğimiz ismi Show ederek görüntüleyebiliyoruz.
Aynı şekilde Hide ederek de gizleyebiliriz. Ama bunun için formdaki varsayılan çıkış düğmesinden kapatmayı daha uygun gördüm.
Bu makalemizde Excel’de işinize yaracak en temel 10 Makro kodunun ne işe yaradıklarını ele alacağız.
Excel de makro kullanarak çok zor ve zaman işlemlerinizi çok kısa sürelerde yapabilirsiniz. Bu süreler o kadar kısadır ki bir örnek vermek gerekirse 3-5 günlük bir iş 3-5 dk’ya kadar düşebilir diyebiliriz. Hal böyle olunca makroların önemi daha da artıyor. Karmaşık, düzensiz verilerinizi normalleştirirken ya da farklı tablo yapıları oluştururken makrolar olmazsa olmazımızdır.
Makrolar geliştirilirken bazen benzer mantıkta işlemler çok fazla karşımıza çıkar her defasında bu kodları yazmak yerine bu kodları arşivleyerek gerektiği yerlerde birkaç ufak değişiklikle kolaylıkla uygulayabilirsiniz.
Bu makalemizde 1o Temel makro kodunu sizlere ne iş yaptıklarını açıklayarak sunuyoruz. Çalışmanızda daha üretken olmanıza yardımcı olacak bu örnekler oldukça basit ve kullanışlıdırlar. Bu hayat kurtaran temel kodları uygulamak da oldukça basittir. Bundan önce VBA kullanmamış olsanız bile bu kodları kullanabilirsiniz. Tek yapmanız gereken bu kodları VBA editörünüze yapıştırmak.
Bu kodları kullanmadan önce, VB editörüne erişmek için Excel şeridinizde geliştirici sekmenize sahip olmamız gerekiyor veya tüm Office paketlerinde Alt+F11 kısayol tuşu ile (Excel, Word, PowerPoint vb.) ulaşabilirsiniz.
Geliştirici sekmenize gidin ve “Visual Basic” üzerine tıklayın.
“Proje Penceresi” n de sol tarafta, çalışma kitabınızın adını sağ tıklayın ve yeni bir modül ekleyin.
Sadece kodlarınızı modüle yapıştırın ve kapatın. Dilerseniz F5 kısa yolu ile de kodlarınızı çalıştırabilirsiniz.
Şimdi geliştirici sekmenize gidin ve makro düğmesine tıklayın.
Dosyanızda bulunan makroların listesini içeren bir pencere gösterecektir ve bu listeden seçtiğiniz bir makroyu çalıştırabilirsiniz.
Şimdi kodlarımızı inceleyelim.
Seçtiğiniz hücreden itibaren istediğiniz kadar sayıda sağa doğru boş sütun ekler ve diğer sütunları da öteler.
Sub CokluSutunEkle()
Dim i As Integer
Dim j As Integer
ActiveCell.EntireColumn.Select
On Error GoTo Son
i = InputBox(“Eklemek istediğiniz sütun sayısını giriniz”, “Sütun Ekle”)
Seçtiğiniz hücreden itibaren girdiğimiz sayı kadar otomatik doldurma yapar. Örneğin F7 hücresi seçili iken çalıştırdığımızda açılan giriş kutusuna 5 yazarsak F7 hücresinden aşağı doğru 1’den 5’e kadar sayı birer artan sayıları yazdırır.
Sub OtomatikSeriDoldurma()
Dim i As Integer
On Error GoTo Son
i = InputBox(“Değer giriniz”)
For i = 1 To i
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Activate
Next i
Son: Exit Sub
End Sub
Seçtiğiniz hücrelerin sütun genişliklerini sütunun içindeki en uzun metne göre otomatik olarak ayarlar.
Sub SutunlariOtomatikAyarla()
Cells.Select
Cells.EntireColumn.AutoFit
End Sub
Seçtiğiniz hücrelerin satır genişliklerini satırın içindeki metne göre otomatik olarak ayarlar.
Sub AutoFitRows()
Cells.Select
Cells.EntireRow.AutoFit
End Sub
Excel’in tüm hücrelerini çözdükten sonra metni kaydır özelliğini çözer ve satır, sütun genişliklerini otomatik olarak ayarlar.
Sub MetniKaydirTemizle()
Cells.Select
Selection.WrapText = False
Cells.EntireRow.AutoFit
Cells.EntireColumn.AutoFit
End Sub
Birleştirilmiş seçili hücreleri eski haline geri döndürür.
Sub UnmergeCells ()
Selection.UnMerge
End Sub
Durum çubuğunda makro kodunun işlenmesi sırasındaki ilerlemenin yüzdesini görmek için aşağıdaki kodu kullanabiliriz.
İlgili sayfanın sağ üst köşesine o günün tarihini yazdırır. Üst ortada Satış Raporu ve üst solda ise ABC şirketi yazar.
Sub UstBilgiyeTarihEkleme()
With ActiveSheet.PageSetup
.LeftHeader = “ABC Şirketi”
.CenterHeader = “Satış Raporu”
.RightHeader = “&D”
.LeftFooter = “”
.CenterFooter = “”
.RightFooter = “”
End With
ActiveWindow.View = xlNormalView
End Sub
Makro ile Excel dosyasında çalışırken PowerPoint programını açmak için aşağıdaki kodu kullanabiliriz. Index değerini 0 yazarsak Hesap Makinası, 1 yazarsak Word, 3 yazarsak Outlook açılır.
Sub PowerPointAc()
Application.ActivateMicrosoftApp Index:=2
End Sub
Yukardaki kod blokları tek başlarına doğrudan bir anlam ifade etmeyebilir. Bizler yazdığımız kodlarda bu pratik kod bloklarını kullanarak daha hızlı uygulama geliştirebiliyoruz. En azından bir kere çalıştırıp sonucunu gördüğünüz zaman kafanızda yer edecek ve böyle bir durum ile karşılaşırsanız uygulamanız kolay olacaktır.
Bu makalemizde VBA eğitimlerimizde de çok üstünde durduğumuz bir konu olan Makrolar (VBA) ile Excel’de Fonksiyon Yazmak konusunu inceleyeceğiz.
Makrolar (VBA) ile Excel’de Fonksiyon Yazmaya Giriş
Excel’de yerleşik olarak birçok farklı kategoride toplamda 467 tane hazır fonksiyon bulunuyor. Bu fonksiyonlar ile mevcut işlemlerimizi yapmak istediğimizde formülleri kullanıyoruz.
Fakat bazı durumlarda bu fonksiyonlar doğrudan ihtiyaçlarımızı görmeyebilir veya çok fazla sayıda fonksiyonu bir arada kullanarak uzun ve karmaşık bir formül bizim için gerek kurgulanması bakımından gerekse yazılışı bakımından zor olabilir. Örneğin 40 tane eğer fonksiyonunu içiçe yazmak can sıkıcı olabilir.
Böyle durumlarda Excel’de VBA’i yani makroları kullanarak kendimize özel fonksiyonlar yazabiliyoruz.
Makrolar (VBA) ile Excel’de Fonksiyon Yazarak istediğimiz işlevleri rahatlıkla kodlaya biliriz. Üstelik bu fonksiyonları sonra değiştirebiliyor veya istediğimiz kişiler ile kolaylıkla paylaşabiliyoruz.
VBA ile ilgili daha çok bilgiye buradan erişebilirsiniz.
Modül Ekleme ve Kaydetme
Bir fonksiyon yazmak istediğimizde Excel’de kod editörüne geçip Insert sekmesinden bir Modül eklememiz gerekiyor.
Vba Editör
Fonksiyonlar sayfalara yazılabilir ve kullanılırlar fakat Excel ara yüzünde eşittir (=) işaretini koyup fonksiyonun adını yazdığımızda fonksiyonun diğer yerleşik fonksiyonlar gibi çıkmasını istiyorsak kesinlikle fonksiyonumuzu bir modül’e yazmamız gerekiyor. Bir modüle birden fazla fonksiyon yazılabilir.
İçindeki modüllerde fonksiyon bulunan Excel belgelerini .xlsm (Makro İçerebilen Excel Çalışma Kitabı) uzantısı ile kaydedip bu belgeleri gönderdiğiniz herkes kullanabilir.
Fakat fonksiyon modülde olduğu sürece sadece o Excel çalışma kitabında çalışır başka bir Excel belgesinde = (eşittir) dediğinizde çıkmaz o yüzden fonksiyonlarımızı modül’e yazdıktan sonra belgede Farklı Kaydet diyerek fonksiyonu .xlam (Excel Eklentisi) olarak Excel’in varsayılan “C:UsersCihanAppDataRoamingMicrosoftAddIns” fonksiyon klasörüne kaydederiz.
Addins Klasörü
Farklı bir adrese de kaydedebilirsiniz fakat o fonksiyonu her defasında göstermek zorunda kalabilirsiniz örneğin Excel’i açtığınızda ilk bakacağı yer AddIns klasörü olduğu için buraya kaydetmenizi tavsiye ederim.
Excel’deki fonksiyonlar aşağıdaki şekilde görünür. Bu tarz Excel dosyaları çift tıklanarak açılmazlar, bunlar bir klasöre yüklenir ve kullanılırlar.
Fonksiyon dosyasının adı ile fonksiyonun adı aynı olmak zorunda da değildir. Bir fonksiyon dosyasında birden fazla farklı isimde fonksiyonlar da bulunabilir.
.xlam dosyalarını Excel’den Çağırmak
Fonksiyon Dosyası
Eğer başka bir konuma kaydeder iseniz Excel ara yüzünde =(eşittir) dediğinizde çıkmayacaktır böyle bir durumda da Geliştirici sekmesindeki Excel Eklentilerinden eklemeniz gerekecektir.
Geliştirici Sekmesi
Geliştirici sekmesinden Excel eklentilerine tıkladığınızda açılan pencereden ilgili fonksiyonun onay kutusunu işaretleyip tamam dedikten sonra Excel’de kullanılabilir.
Eklenti aktif etmekFonksiyon Çağırmak
Evet şimdi gelelim fonksiyonumuzu yazmayaJ
Fonksiyon yazmak için modül’ümüze gidiyoruz ve Function kelimesi ile yazmaya başlıyoruz. Fonksiyon yazarken sayı ve karakter ile başlamıyoruz, boşluk koymuyoruz ve 255 karakterden uzun bir isim vermiyoruz.
Fonksiyon Yazımı
Function TCkontrol()
‘
‘ VBA Kodları
‘
End Function
Fonksiyonu yazdığımızda fonksiyon adının yanındaki parantez içine bir şey yazmaz iseniz fonksiyon parametre almayan fonksiyondur. Örneğin Excel’in yerleşik fonksiyonları olan Bugün, Şimdi, Pi gibi fonksiyonlar parametre almazlar.
Eğer bir parametre gönderecek isek parantez içinde aralarında virgüllerle ayırarak bu parametreleri tipleri ile belirleyebiliriz. Biz örneğimizde T.C. kimlik numarasını göndereceğiz ve bu T.C. kimlik numarasının doğru olup olmadığını arka planda yapacağı bir hesaplama ile bize doğru veya yanlış şeklide döndürecek bir fonksiyon yazacağız.
Fonksiyona göndereceğimiz TC numarasını fonksiyona metin gibi gönderip sonra her bir karakterini sırayla parçalarına ayıracağız. Daha sonra bu parçalardan bir matematiksel hesap ile 10 haneyi biz bulacağız akabinde 11 haneyi de yine ilk 10 haneden kendimiz elde edeceğiz.
Ve Excel’den gelen TC numarasının 10. ve 11. Hanelerinin benim bulduğum 10 ve 11. Hanelere aynı anda eşit olması durumda TC kimlik numarasının doğru olduğunu saptamış olacağız ve sonuç olarak doğru göndereceğiz aksi durumda yanlış bilgisini göndereceğiz.
Örnek bir fonksiyon: TCKontrol
Function TCKontrol(ByVal tc As String) As Boolean Dim tc1 As Integer Dim tc2 As Integer Dim tc3 As Integer Dim tc4 As Integer Dim tc5 As Integer Dim tc6 As Integer Dim tc7 As Integer Dim tc8 As Integer Dim tc9 As Integer Dim tc10 As Integer Dim tc11 As Integer Dim tc10x As Integer Dim tc11x As Integer tc1 = Mid(tc, 1, 1) tc2 = Mid(tc, 2, 1) tc3 = Mid(tc, 3, 1) tc4 = Mid(tc, 4, 1) tc5 = Mid(tc, 5, 1) tc6 = Mid(tc, 6, 1) tc7 = Mid(tc, 7, 1) tc8 = Mid(tc, 8, 1) tc9 = Mid(tc, 9, 1) tc10 = Mid(tc, 10, 1) tc11 = Mid(tc, 11, 1) tc10x = ((tc1 + tc3 + tc5 + tc7 + tc9) * 7 – (tc2 + tc4 + tc6 + tc8)) Mod 10 tc11x = (tc1 + tc2 + tc3 + tc4 + tc5 + tc6 + tc7 + tc8 + tc9 + tc10x) Mod 10 If tc10 = tc10x And tc11 = tc11x Then TCKontrol = True Else TCKontrol = False End If End Function
Yukarda bulunan fonksiyona Excel ara yüzünden TC numaralarını göndereceğiz ve bu ilgili işlemleri yaptıktan sonra bizlere TC’nin doğru olup olmadığını gönderecektir.
Peki başka neler biliyoruz?
Örneğin TC numaraları 11 hane olmak zorundadır.
ilk 9 hane elimizde ise 10 ve 11. Haneleri bulabiliriz.
TC numaraları kesinlikle çift sayı ile biter. (0,2,4,6,8)
11 hanenin hepsi de rakam olmak zorundadır.
O zaman bu kodu geliştirebiliriz. Örneğin karakter uzunluğu 11 haneden farklı ise hata yazdırabiliriz veya sadece rakamlardan oluşmuyorsa ya da son hanesi çift değilse hiç kontrole girmeden doğrudan hata sonucunu ekrana yazabiliriz.
Fonksiyonumuzu yazdık ve ülkemizde herkesin kullanacağı bir fonksiyon olduğu için istediğimiz kişilerle paylaşabiliriz. Dilerseniz kod kısmına geçip yeni kod ilaveleri yapabilir ve yine aynı isimle aynı şekilde kullanabiliriz. Makrolar (VBA) ile Excel’de Fonksiyon yazmanın güçlü yanlarını gördükçe sürekli yeni fonksiyonlar üreteceksiniz.
Yazdığımız fonksiyonları diğer Excel fonksiyonları içinde kullanabiliriz vb. birçok işlemi kolaylıkla yapabiliriz. Fonksiyonların en büyük avantajlarından biride hızlarıdır. Oldukça verimli ve hızlı çalışmaları sayesinde işlemleri kısa sürelerde halledebiliriz.
Excel’de tanımlı fonksiyon kullanmak
Yukardaki fonksiyon örneğinde görüldüğü üzere Makrolar (VBA) ile Excel’de Fonksiyon kullanarak istediğimiz gibi esnetip şekillendirebiliyoruz. Bu esneklik bizlere daha fazla ve doğru iş yapma olanağı sağlıyor.
İşlem Ekle ile fonksiyon çağırmak
Excel’de F(x) işaretine tıkladığınızda açılan pencerede Kategori seçerken Kullanıcı Tanımlı dediğinizde kendi yazmış olduğunuz fonksiyonları da görmeniz mümkündür.
İşlev Ekle
Görüldüğü gibi Makrolar (VBA) ile Excel’de Fonksiyon yazmak oldukça kolay ve kullanışlıdır. Özellikle Makrolar (VBA) ile Excel’de Fonksiyon yazmayı tüm Excel kullanıcılarına öneriyorum.
Ürün ile ilgili gerekli network ortamını sağladıktan sonra (Sensor), Azure ATP workspace portalına bağlanabiliriz. Erişim sağlayan kullanıcının global administrator veya security administrator yetkilerine sahip olması gerekir. Yetkili kullanıcı https://portal.atp.azure.com/ adresine tıkladığı taktirde doğrudan Azure ATP workspace alanına erişim sağlayabilir.
Create Workspace butonuna tıklayarak, yeni bir çalışma alanı oluşturabilirsiniz.
Çalışma alanının ismini ve lokasyon bilgilerini güncelledikten sonra, Create butonu ile çalışma alanı oluşturulur. Oluşturalan çalışma alanı primary olarak düzenlendiğinde, Windows Defender ATP ile doğrudan entegrasyon yapılabilir. Primary olarak ayarlanmadığında Azure ATP ile Windows Defender ATP entegrasyonu yapılamamaktadır.
Not: Primary olarak ayarlanmamış bir çalışma alanına Windows Defender ATP entegrasyonu yapılmak istenildiğinde tüm yapıyı silip, yeniden primary olarak ayarlanması gerekir.
Çalışma alanını ilk kez açtığınızda sizi yukaridaki gibi bir pencereye karşılayacaktır. Burada kullanıcı erişim bilgileri Active Directory’unuzdeki bir kullanıcı hesabı olması gerekir.
Not: Bu kullanıcıya read-only user yetkisi verilir.
Directory Services bölümünden gerekli domain ayarlarını yaptıktan sonra, Azure ATP kurulumu paketini ister özel bir sunucuya, isterseniz AD sunucusuna indirebilirsiniz.
Sensors bölümünde Azure ATP sensor yazılımı indirebilirsiniz. Ayrıca yazılımın Azure ATP portalı ile iletişim kurabilmesi için Access key gereklidir.
Access key; kimlik doğrulama ve TLS şifreleme işleminden sonra bir kerelik kullanıma sunulan paroladır.
Çalışma alanından indirmiş olduğumuz Azure ATP Sensor yazılımını çalıştıyoruz.
Yüklenen sunucuda .Net Framework 4.7 yüklü değil ise Azure ATP Sensor paketi ile birlikte .Net kurulumu gerçekleştirilir.
.Net Framework 4.7 kurulumu tamamlandıktan sonra, Azure ATP kurulumu ekranı gelmektedir. Dil ayarını yapıp ilerliyoruz.
Azure ATP Sensor yazılımı, kurulum yapılacak sunucuyu denetleyerek Sensor veya Standalone Sensor mu? olması gerektiğini karar verir. Kurulumu AD üzerindeki bir sunucuya yapıldığından dolayı Sensor butonu aktif olarak gelmektedir.
Bir sonraki kurulumu ekranına geçtiğimizde bu pencerede kurulum lokasyonu ve Access key bilgileri bulunmaktadır. Lokasyonu değiştirmeden Azure ATP çalışma alanındaki Access key girilerek ilerlenir.
Bu şekilde Azure ATP Sensor kurulumu tamamlanır.
Azure ATP yönetimi portalında Sensors bölümüne geldiğimizde Service Status kısmından sunucu(DC01) ile iletişim halinde olduğunu görebilirsiniz.
Azure ATP’nın bağlı olduğu sunucu ismine tıkladığımızda Description – Domain Controllers (FQDN) – Capture Network adapters – Domain synchronizer candidate başlıklarını bulunmaktadır. Bu tarafta FQDN bölümü otomatik olarak ilk yapılandırmayla birlikte gelmektedir. Capture Netwprk Adapters ise Azure ATP sensorunun bağlı olduğu bilgisayarlardaki network’u simgeler. Domain synchronizer candidate Azure ATP ve Active Directory arasındaki senkronizasyondan sorumlu bölümdür.
Azure ATP Mimarisini aşağıdaki resimde inceleyebilirsiniz.
Azure ATP standalone sensoru, fiziksel veya sanal switch’ler kullanarak (Port Mirroring) domain ortamınızdaki ağ trafiğini izlemektedir. Yada Domain controller sunucusuna Azure ATP sensorünü kurduğunuzda doğrudan event log’lara erişim sağlayabilirsiniz. Bu sebeple network ağınızda herhangi configurasyon yapmanıza gerek kalmayacaktır. Bu iki seceneği de ortamınızda konumlandırabilirsiniz. Bununlarla birlikte toplanan logs ve event’larınızı Windows Event Forwarding (WEF) veya SIEM entegrasyonu üzerinden Azure ATA ye gönderebilirsiniz.
Not: Default olarak, en fazla 100 Azure ATP sensorü desteklemektedir.
Azure ATP’i oluşturan bileşenler aşağıdaki gibidir.
Azure ATP workspace management portal
Azure ATP workspace portal
Azure ATP sensor
Azure ATP standalone sensor
Azure ATP Yönetim Portalı ve Çalışma Alanı Portalı gereksinimleri Azure ATP yönetimi ve çalışma portalına erişim aşağıdaki tarayıcıları ve ayarları desteklemektedir.
Güvenlik duvarı/proxy Azure ATP bulut hizmetiyle iletişim kurmak için açık olması gerekir: *. güvenlik duvarı/proxy’de atp.azure.com bağlantı noktası 443‘tür.
Azure ATP standalone sensor gereksinimleri Azure ATP standalone sensor Windows Server 2012 R2 veya Windows Server 2016 çalışan sunuculara yüklemeyi desteklemektedir. Standalone sensor domain veya workgroup olan bir sunuculara da yüklenebilir. Azure ATP sensor gereksinimleri Azure ATP sensor Windows Server 2008 R2 SP1, Windows Server 2012, Windows Server 2012 R2, Windows Server 2016 çalıştıran domain üzerine yüklemeyi desteklemektedir. Domain Controller read-only domain controller (RODC) olabilir. Yükleme sırasında .net Framework 4.7 yüklenir ve yükleme sonrasında sunucuyu yeniden başlatmak gerekir. Azure ATP sensor en az 2 CPU ve 6 GB RAM gerektirir. AZURE ATP CAPACITY PLANNING AZURE ATP korumasını ortamınıza dahil etmeden önce, Azure ATP kapasite planlaması yapılması gerekir. Azure ATP kapasitesini belirlemenin en basit ve önerilen yolu, Azure ATP Sizing Tool ‘unu kullanmaktadır. Bu tool’u çalıştırdığınızda size bir excel raporu sunmaktadır. Bu rapor içinde sunucunun CPU ve RAM degerleri belirlenmektedir. Bu degerlere göre Azure ATP sensorünü kullanmanız önerilir.
Her iki üründe verilerini şirket için (Active Directory) domain ortamında alırken, Microsoft ATA tamamen şirket için çalışan bir servis olup, Azure ATP ise Azure tarafında barındırılan ve verileri bulut ortamında analiz eden bir bulut servisidir.
Aşağıdaki tabloda arasındaki genel farklar bulunmaktadır.
