Tek tek sayfaların isimlerini mesaj kutusunda gösterir

Private Sub Worksheet_SelectionChange(ByVal Target As Range) '========================================== ' Sayfa isimlerini mesaj kutusunda gösterir '========================================== Dim isayfasayisi As Integer Dim isayfa As Integer isayfasayisi = ActiveWorkbook.Worksheets.Count For isayfa = 1 To isayfasayisi Worksheets(isayfa).Activate MsgBox Worksheets(isayfa).Name Next isayfa End Sub '========================================== 'Microsoft Visual Basic Makro Kodu: 'Excel Çalışma Kitabındaki Sayfa İsimlerini A Sütununda Listeleme ve Köprü Oluşturma: '========================================== Sub ExcelceSayfaKoprule() Rem Excelce - Öykü Karaman For Each sayfa In ThisWorkbook.Worksheets Range("A1048576").End(xlUp).Offset(1, 0).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=sayfa.Name & "!A1", TextToDisplay:=sayfa.Name Next sayfa End Sub

Soru Arkadaşlar iyi çalışmalar sitenizi yeni buldum ve incelediğim kadarıyla epey faydalı bilgi edinebileceğim bir site benim sorunum ise Sayfaya Eklediğimiz CheckBox ı hücre ile ilişkilendirme yaparak CheckBox a işaret koyduğumuzda ilişkilendirdiğimiz hücrenin içini renklendirmesi bunun gibi yada buna benzer bir makro kodu varmı varsa yardımcı olursanız memnun olurum şimdiden yardımlarınız için teşekkür ederim.

Örnek A:1 hücresinie ilişkilendireceğimiz bir CheckBox’ı işaretlediğim zaman A:1 hücresi kırmızı olacak.

Matematik Fonksiyonları

Avarage(Ortalama)

Tablonuzda seçmiş olduğunuz toplu değerlerin ortalamasını hesaplattırabilirsiniz. Şimdi Mousu sonucun hesaplanacağı hücreye tıklayın. Yukarıdaki adımları izleyeren aşağıdaki pencelerin açılmasını izleyin.

Not: Daha sonraki adımlarda fonsiyonlara sürekli bu adımlarla erişebilirsiniz.

Tamam butonuna tıkladıktan sonra karşınıza aşağıdaki ekran açılacaktır. Buradan gerekli olan değerleri seçin

Bu örnekteki tablomuzda ?Ortalama Not? değerini ?A5? hücresine yazmış olduğumuz

Oluşturacağınız makrolar içerisinde excel hücre değerelerini kullanacak, veya bulmuş olduğunuz bilgileri Excel hücrelerine göndereceksiniz. Şimdi bu işlemleri nasıl gerçekleştireceğinizi örneklerle açıklayalım.

A1 hücresine www.kod.gen.tr yazalım ve Tıkla isimli buton ekleyip aşağıdaki ?okuyucu? isimli makromuzu, oluşturduğumuz butona atayıp, hücre değerini mesaj kutusunda kullanıcıya iletelim.

Aşağıdaki kodu Alt + F11 ile vba yı açalım Insert > Module ile müdül ekleyelim ve aşağıdaki kodu yazalım.

Aşağıdaki ifade, aktif hücreden, aktif hücrenin 2 satır aşağısını ve 5 sütun sağındaki hücreleri seçecektir. Sub aralik()

Dim Aralığım AsRange

Set Aralığım =Range(“A1”)

Aralığım = “www.kod.gen.tr”

Aralığım.Font.Bold = True

Aralığım.Font.Color = vbGreen

Set Aralığım =Nothing

End Sub

Sub withkullan()

Sub sayfalarıkoru() 'Sadece Sayfa1 i koruyan kodlar Dim Sayfam As Worksheet Set Sayfam = Worksheets(1) Sayfam.Select Sayfam.Protect "kabatashaber", True, True, True 'Parolayı kabatashaber olarak yazdık End Sub Sub sayfalarıkoru1() 'tüm Sayfaları şifreleme FOR EACH döngüsünü kullanmak Dim Sayfam As Worksheet For Each Sayfam In Worksheets ' Set yerine FOR Each yazdık _ 'eşitti imi yerine de in yazdık parantezi ve içindeki sayıyı kaldırdık Sayfam.Select 'Bu bildiriyi yazmaya gerek yoktur sadece yapılan işmelrin gözükmesi için yazdık Sayfam.Protect "kabatashaber", True, True, True Next Sayfam End Sub Sub Sayfakorumalarını_kaldır() Dim Sayfam As Worksheet For Each Sayfam In Worksheets Sayfam.Select 'Bu bildiriyi yazmaya gerek yoktur sadece yapılan işmelrin gözükmesi için yazdık Sayfam.Unprotect "kabatashaber" Next Sayfam End Sub ‘NOT FOR EACH DÖNGÜSÜ YANLIZCA BİR KOLEKSÖYONDA DÖNER İKİ PARALEL KLEKSİYONU (ÖRNEĞİN İKİ ARALIĞI ) KARŞILTIRAMAZ ‘BUNUN İÇİN (İKİ ARALIĞI KARŞILAŞTIRMA İÇİN İSE FOR NEXT DÖNGÜSÜNÜ KULLANMALIYIZ

Soru:Arkadaşlar Merhaba,

Bir soruna takıldım. Excelin kendi fonksiyonlarıyla uğraştım yapamadım.

Soru şu : A1 hücresine doğum yeri ve tarihi yazılacak. Örneğin; A1 hücresine “Bursa 01011970” yazılacak. (dikkat edilirse tarihler arasına nokta koymadım) Entere basıldığı an; “Bursa 01.01.1970” şeklinde olması gerekir. Yani noktayı kendiliğinden koyacak. Acaba bunu makroyla yapmak mümkün müdür?

NOT : Doğrudan hücre içerisine yazılacağı için excelin kendi formülü çözüm teşkil etmiyor.

Hepinize saygılarımı sunuyorum…

Cevap:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True ActiveCell.Replace What:=".", Replacement:="" ActiveCell.Value = Mid(ActiveCell, 1, Len(ActiveCell) - 9) & " " & Left(Right(Right(ActiveCell.Value, 8), 8), 2) & "." & Left(Right(Right(ActiveCell.Value, 8), 6), 2) & "." & Right(Right(ActiveCell.Value, 8), 4) End Sub Kodlar: Bülent Öztürk

VBA With ifadeleri, aynı nesne veya koleksiyonla ilgili karmaşık kodları basitleştirmenizi sağlar. Sürekli olarak aynı nesneye gönderme yapmak yerine, bu nesneyi belirleyerek üzerinde bir dizi eylem gerçekleştirmek için bir With… End With ifadesi kullanabilirsiniz. Ortaya çıkan kodun okunması daha kolay olduğu gibi, aynı zamamanda daha da hızlı çalışır. Bir with ifadesinin söz dizimi aşağıdaki gibidir: