riptropin

Profosyonel Excel çözümleri ile A&R Yazılım artık hizmetinizde……

Şirket hayatında işlerinizi kolaylaştımak amacı ile Excel’de ;

  • VBA Programlama
  • Veri Yönetimi ve Analizi
  • Raporlama
  • Veri Madendiliği
  • konularında hizmet veren A&R Yazılım, hizmetinizde.

    Excelde üst kısmı sabit tutup alt tarafa kaydırma işlemi (Freeze Panel)

    Etiketler:

    Bu örnek sayfa üzerindeki button;

    Yeni bir sayfa tanımlar,
    İsmini bulunduğu sayfa isimini yedek olarak alır,
    Eğer aynı isimli benzer bir sayfa varsa siler
    Button’un bulunduğu sayfayı komple kopyalarak, yeni oluşturulan sayfaya, pastespecial/values olarak yapıştırır.

    Örnek excel bu linkten ulaşabilirsiniz. Link

    Etiketler:

    Selamlar,
    İş yoğunluğu nedeni ile uzun süredir ilgilenemiyordum site ile. Geçenlerde bir müdür yardımcı arkadaşımızın ricası üzerine personel devam-devamsızlıkları ile ilgili bir çalışma yaptım. Onu paylaşmak istedim. Umarım diğer öğretmen arkadaşlar içinde yararlı bir çalışma olmuştur.
    Exceli buradan indirebilirsiniz. İlk sayfada nasıl kullanması gerektiğine dair bir kaç kelam sarfettim.
    Devam-Devamsızlık Çizelgesi

    Excel’de tarih ile ilgili işlemler yapmadan önce tarih bilgisinin nasıl tutulduğunu anlamak gerekir. Excel’de tarih bilgisi; gün bazlı olarak 1900 yılının 1 Ocak gününden itibaren geçen gün olarak tutulur.
    Araçlar menüsü altındaki “Seçenekler”den bu referans tarihini isterseniz 1904 olarak değiştirebilirsiniz.

    Hemen bir ufak deneme ile tarih sistemimizin ne olduğunu öğrenelim. Bir hücre seçip içine “01.01.1900” yazalım sonrada [...]

    VBA kullanarak karışık tablolarınızda ağaç yapısı kullanarakaynı formlarda olduğu gibi güzel bir görsellik yakalayabilirsiniz. Bunun için WorkSheet özelliğinden Worksheet_FollowHyperlink Event’ını kullanacağız. Şöyleki ‘+’ ve ‘-’ olarak ağaç tuşlarımızı aynı sayfa içine birer link olarak atayacağız. Sonra Worksheet_FollowHyperlink Event’e ile hangi linke basıldığına bakarak istenen satırları gizleyerek yada göstererek amacımıza ulaşmış olacağız.

    ‘+’ linkine basılınca

    Burada iyi planlanması [...]

    Bar grafiklerinizde her veri için ayrı bir renk tanımlaması yapabilirsiniz. Ağaşıdaki örnekte,  grafiğin ilk serisi için her sutun için isme bağlı bir renk tanımı vardır. İsim ActiveChart.SeriesCollection(1).XValues()(i) kodu ile belirlenip, buna uygun rengi bulan findrenk gibi bir fonksiyona bağlanmıştır.

    For i = 1 To ActiveChart.SeriesCollection(1).Points.count
    ActiveChart.SeriesCollection(1).Points(i).Select
    With Selection
    .Border.Weight = xlThin
    .Border.LineStyle = xlNone
    .Shadow = False
    .InvertIfNegative = False
    .Interior.ColorIndex = findrenk(ActiveChart.SeriesCollection(1).XValues()(i))
    .Interior.Pattern [...]

    Şimdi Makro kullanarak Chart (grafik) oluşturmak düzenlemekle ilgili bir kaç örnek gösterelim
    Öncelikle bir graik oluşturarak onu isteğimiz sayfa içine koyalım.

    Dim chartd As Excel.Chart
    Dim WS As Worksheet
    Set WS = Sheets(”Tablolar”)
    Charts.Add
    Set chartd = ActiveChart
    chartd.Name = “Grafik”
    chartd.Location xlLocationAsObject, WS.Name
    Daha sonra grafik için veri kaynağı belirtelim;

    Dim alan as range
    Set alan =WS.Range(”A1:B13″)
    chartd.SetSourceData Source:=WS.Range(alan)
    Grafik türünü, verilerin satıra nı yoksa sütuna mı [...]

    Birkaç tip daha verelim.
    * Çok satırlı yada sütunlu pivotlarda alt toplamlar 12 öğeli bir dizi olarak ifade edilebilir. Örneğin bütün alttoplamları kaldırmak istediğimizde;
    PT.PivotFields(”Yıl”).Subtotals = _
    Array(False, False, False, False, False, False, False, False, False, False, False, False)
    * Satır ya da sütun değelerinden sadece istediğimiz değerin aktif olması için;
    Dim PI As PivotItem
    For Each PI In PT.PivotFields(”Yıl”).PivotItems
    If PI.Name [...]

    Öncelikle Pivot Cache tanımlayıp, onun üzerinden Pivot tablomuzu oluşturuyoruz.
    ActiveWorkbook.PivotCaches.Add _
    (SourceType:=xlDatabase, SourceData:=sayfa”!R1C1:R20C20″).CreatePivotTable TableDestination:= _”‘[" & ThisWorkbook.Name & "]Temp’!R10C15″, _
    TableName:=”Özet Tablo 1″, _
    DefaultVersion:=xlPivotTableVersion1
     
    Daha sonra isimlerdirme yaparak uzun kodları kısaltıyoruz
    Dim PT As PivotTable
    Set PT = Sheets(”Temp”).PivotTables(”Özet Tablo 1″) 
    Şimidi sırayla pivot tablomuza pagefield, rowfield ve columnfield atayalım.
    With PT.PivotFields(”Bolge”)
    .Orientation = xlPageField
    .Position = 1
    End With
    PT.PivotFields(”Bolge”).CurrentPage = “Ankara”
    With PT.PivotFields(“Yıl”)
    .Orientation = xlRowField
    .Position = [...]