Tıklanan Butonun Başlığını Alma:  Me.ActiveControl.Caption Seçilen Hücrenin Formatını Değiştirme: Ondalıklı Sayı : Selection.NumberFormat = “#,#.00” Tam Sayı:  Selection.NumberFormat = “#,#” TextBox1’de yazanı alma:  Selection.NumberFormat = “#,###0″” ” & TextBox1.Text & “””” Formu Kapatma: Unload Me Enter’a basılınca işleme alma If KeyCode = 13 Then Selection.NumberFormat = “#,###0.00″” ” & TextBox2.Text & “””” Unload Me End

Aşağıdaki kod işinize yarar. Çalışması için bir kural oluşturmanız gerekiyor. Bunun nasıl yapılacağını burada açıklamıştık.  Bu kuralı oluşturduğunuzda outlook gelen her mailin bilgisayarınızda belirlediğiniz dosyaya kaydedecektir.   Option Explicit Private Const xlUp As Long = -4162 Sub Mail2Excel(olItem As Outlook.MailItem) Dim xlApp As Object Dim xlWB As Object Dim xlSheet As Object Dim sText As

Outlook’tan Excel’e bazı verileri aktarmak için buradaki Maillerden Excel’e Veri Alma dosyasını kullanabilirsiniz. Kimden Kime Bilgi Konu Alınma Tarihi Mailin İçeriği    

Excel’deki formül sayesinde Merkez Bankası döviz kurunun güncel değeri üzerinden işlem yapabilirsiniz. Burada bulunan Döviz Hesapla doyasını tıklayarak, Excel’e eklenti olarak ekledikten sonra Excel’de DOVIZ diye formül çıkıyor. Bu formülü kullanarak güncel döviz değerini alabilirsiniz. Kullanım paramatreleri şu şekilde =DOVIZ(miktar;Döviz_Türü,Çevrim_Türü) miktar: Döviz’in miktarı. Örneğin, 100 dolar için 100 Döviz Türü: Dolar için USD, Euro için EUR gibi

Hücre içindeki değerleri belli bir aralıktaki değerlere göre değiştirmek için aşağıdaki kullanıcı tanımlı fonksiyon kullanılabilir. Örneğin elinizde 800 satırlık bir liste var. Buradaki 800 kelimeyi yeni 800 kelimeyle değiştirmek istiyorsunuz. İhtiyacınız olan fonksiyon tam bu fonksiyondur. Kelime ve karakter düzeyinde çalışmaktadır. Eklenti ve kullanıcı tanımlı fonksiyon nasıl yapılır burada ve burada.     Function Metin_Değiştir(Metin