Makro Kodlarında Güncelleştirme Yapmak

[ccuneyt13]

Elimde aşağıdaki gibi kodların olduğu bir makro var. Bu makro ilgili yılın ilgili dönemine denk gelen verileri sabit bi tabloda sayıp topluyor.

Bu kodlar 2011 yılı 1. ayından 2011 yılı 12. ayına kadar ekli ve çalışır durumda.

Fakat ben 2012 yılını 1. aydan 12. aya kadar ilave etmeliyim ama çok fazla yeri elle tek tek değiştirerek yapmaktan başka bir yol bilmiyorum. acaba bunun kısa yoldan yapmanın bir yolu var mı diye sizlerin değerli görüşlerinize ihtiyaç duymaktayım.
Örnek açısından kodun 2 aylık dönemini ekledim 12 ay devam edip gidiyor.

Tavsiye ve görüşlerinizi bekliyorum. Saygılarımla.

    If a = "2011/12" Or a = "2011/11" Or a = "2011/10" Or a = "2011/09" Or a = "2011/08" Or a = "2011/07" Or a = "2011/06" Or a = "2011/05" Or a = "2011/04" Or a = "2011/03" Or a = "2011/02" Or a = "2011/01" Then
        If a = "2011/01" Then
        o0111fb = o0111fb + b
        o0111ft = o0111ft + c
        o0111fbt = o0111fbt + d
        o0111g = o0111g + e
        o0111top = o0111top + f
        o0111fas = o0111fas + 1
        If d > 1000 Then
        o01111fbt = o01111fbt + d
        o01111fas = o01111fas + 1
        End If
        If d < 30 Then
        o01113fbt = o01113fbt + d
        o01113fas = o01113fas + 1
        End If
        Sheets("GENEL TABLO (2)").Select
        Range("F88").Value = o0111fb
        Range("F89").Value = o0111ft
        Range("F90").Value = o0111fbt
        Range("F91").Value = o0111g
        Range("F92").Value = o0111top
        Range("F93").Value = o01111fbt
        Range("F94").Value = o01113fbt
        Range("G88").Value = o0111fas
        Range("G89").Value = o0111fas
        Range("G90").Value = o0111fas
        Range("G91").Value = o0111fas
        Range("G92").Value = o0111fas
        Range("G93").Value = o01111fas
        Range("G94").Value = o01113fas
        End If
        If a = "2011/02" Then
        o0211fb = o0211fb + b
        o0211ft = o0211ft + c
        o0211fbt = o0211fbt + d
        o0211g = o0211g + e
        o0211top = o0211top + f
        o0211fas = o0211fas + 1
        If d > 1000 Then
        o02111fbt = o02111fbt + d
        o02111fas = o02111fas + 1
        End If
        If d < 30 Then
        o02113fbt = o02113fbt + d
        o02113fas = o02113fas + 1
        End If
        Sheets("GENEL TABLO (2)").Select
        Range("H88").Value = o0211fb
        Range("H89").Value = o0211ft
        Range("H90").Value = o0211fbt
        Range("H91").Value = o0211g
        Range("H92").Value = o0211top
        Range("H93").Value = o02111fbt
        Range("H94").Value = o02113fbt
        Range("I88").Value = o0211fas
        Range("I89").Value = o0211fas
        Range("I90").Value = o0211fas
        Range("I91").Value = o0211fas
        Range("I92").Value = o0211fas
        Range("I93").Value = o02111fas
        Range("I94").Value = o02113fas
        End If

 

[ccuneyt13]

Ek Dosyadaki tabloya işleniyor saydığı veriler.

 

[ccuneyt13]

Makrolar da artan kodlar için sormuş olduğum soruya bir yol öğrendim belki benim gibi acemi arkadaşların işine yarar diye paylaşmak istedim.

Örnek olarak şöyle bi makro yazmak için

Sheets(a).Range("H1").Sort Sheets
Sheets(a).Range("H2").Sort Sheets
Sheets(a).Range("H3").Sort Sheets
Sheets(a).Range("H4").Sort Sheets
Sheets(a).Range("H5").Sort Sheets
Sheets(a).Range("H6").Sort Sheets

Excel de değiştirmek istediğimiz yeri ayıracak şekilde kodu satırlara bölüyoruz;



sonra artacak değer için o hücrenin sağ alt köşesinden tutup çekiyoruz kaç tane istiyorsak,



daha sonra oluşan değerlerin tümünü seçip kopyalıyoruz,



ardından Not Defterini açıp içine yapıştırıyoruz ve resimdeki gibi yapıştırılmış oluyor,



daha sonra tab boşlukları diye adlandırılan boşlukları kaldırmak için kodlar arasında ki bir boşluğu şeçip kopyalıyoruz,



ardından CTRL + H tuşlarına basarak değiştir menüsü açıp Aranan değer kısmına kopyaladığımız boşluğu yapıştır diyoruz ve Tümünü Değiştir diyoruz,



Ve sonunda mutlu sona ulaşıyoruz



Ben çok uğraştım bu basit yöntemi bulmak için, umarım benim gibi acemi arkadaşlarımızın işine yarar.

Saygılar.