Excel VBA(Makro) Kısa Kodlar 1

29.986 defa okundu

Bu yazıda size bazı makrolardan bahsedeceğim. Öncelikle makrolardan herşey beklenmemelidir. Excel VBA ile masaüstü yazılımlar bile yapılabilir ancak Excel bir yazılım platformu değildir. Birçok kişi userformlarla ile kafayı bozmuş durumdadır. Userform çok kullanışlıdır ancak Excel ile Excel’in ötesinde bir yazılım hayal etmek sizi hem çok yorar hem de isteğinizi karşılamaz. Büyük programlar yazmak için C#.Net kullanmanızı tavsiye ederim. C#.Net öğrenmek içinse, C’den başlayıp gelin. Uzun bir yol sizi bekliyor 🙂

Excel Makro kodları’nın temel amacı devamlı olarak yapılan işlerin otomatikleştirilmesidir. Bu kod serisinin 1. parçası aşağıdaki kodlardan oluşmaktadır. Devamı gelecek…

1) Butona Tıklayarak Alan Seçmek

 2) Butona Tıklayarak Aralık Seçmek

 3) Butona Tıklayarak Tüm Satırı Seçmek

 4) Butona Tıklayarak Tüm Sütunu Seçmek

 5) Seçilen Hücreye Değer Atamak

 6) Yeni Bir Sekme Eklemek

 7) Bir Hücrede Yer Alan Değeri MSGBOX ile Göstermek

 8) Şart’a Bağlı MSGBOX

 9) Bir Alanda Yer Alan MİN/MAX Değerleri Bulmak

 10) Bir Aralıkta Yinelenen Verileri Kaldırmak

 Faydalı olması dileğiyle…

Bunlar da ilginizi çekebilir

  1. Onur dedi ki:

    çok faydalı oldu bu kodlar. çok sağolun.. benim bir sorunum var. istiyorumki butona bastığımda belirlediğim yere belirttiğim isim yazsın.. böyle bir şey mümkünmüdür? teşekkürler.

    • MİSAFİR dedi ki:

      SUB MAKRO1()

      ‘ MAKRO1 MAKRO


      ActiveCell.FormulaR1C1 = “BYMMB” (BYMMB YAZDIĞIN YERE DİLEDİĞİNİ YAZDIR)
      END SUB

  2. Sefa elmas dedi ki:

    Hocam benim bi sorum olacak ben istiyorum ki kaydet düğmesine bastığımda o sayfadaki tabloyu farklı kaydet değerleri yaparak başka bir sayfadaki boş tabloya yapıştırsın

  3. Murat dedi ki:

    Elinize sağlık hocam. Peki yeni kayıt eklerken (userform ile) örnek olarak a sütunundaki değerleri kontrol edip varsa kayıt edilecek veri ile aynıysa uyarı versin. Bunu nasıl yapabilirim.?

  4. Devrim dedi ki:

    Merhabalar bymmb,
    Konu ne zaman paylaşıldı bilmiyorum ama umarım sorumun çözümü vardır ve cevap verirsiniz. Uzunca bir süredir bir sorunun araştırmasını yapıyorum, sorun yada sorum şu; UserForm üzerinde bulunan TextBox’a girdiğim verinin sürekli olarak kayıtlı kalmasını sağlamak. Koşula bağlı bir değer, koşullarını tamamladım fakat kayıtlı kalma sorununu çözemedim. Girdiğim değerin kaydet dendikten sonra çalışma dosyası her açılışında kayıtlı kalmasını istiyorum.
    Sorunun net bir şekilde çözülmesi adına: TextBox = “Değer” şeklinde bir kod hatalı olacaktır. Çünkü bu Textboxa gireceğim değer eğer çalışma dosyası farklı bir bilgisayarda açılacaksa hata verecektir. Yani Textboxa değer atanmayacak, userform üzerinden giriş yapılıp kayıtlı kalacaktır.

  5. ecem dedi ki:

    arkadaşlar yardım edebilirmisiniz? kod un son kısmında çıkış yapamıyor yanlış bir şey mi var?
    Dim i As Integer
    i = 3

    Dim SubTotal As Single
    Dim JobSubMax As Integer
    Dim ManMax As Integer
    Dim JobMax As Integer

    Do While Worksheets(“Sheet1”).Range(“K” & i).Value “”

    SubTotal = SubTotal + Worksheets(“Sheet1”).Range(“K” & i).Value

    If SubTotal >= 1.2 Then
    ManMax = ManMax + 1
    If JobSubMax > JobMax Then JobMax = JobSubMax
    Worksheets(“zehra”).Range(“C” & i).Value = ManMax
    Worksheets(“zehra”).Range(“D” & i).Value = JobSubMax
    Worksheets(“zehra”).Range(“E” & i).Value = i
    JobSubMax = 0
    SubTotal = 0
    Else
    JobSubMax = JobSubMax + 1
    i = i + 1
    End If

    Loop

    Worksheets(“zehra”).Range(“D” & 3).Value = ManMax
    Worksheets(“zehra”).Range(“D” & 4).Value = JobMax
    End Sub

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

This site uses Akismet to reduce spam. Learn how your comment data is processed.