Excel VBA ile raporlama

EXCEL VBA - kodlarıyla raporlama

Sub kredikartirapor()

' kredi rapor

Dim yazmasatir As Integer
yazmasatir = 10
Dim okumasatir As Integer
okumasatir = 4

Dim yakit As Double
Dim fiyat As Double
Dim tutar As Double
Dim saat As Double


     ' KREDİ kartı dolu, diğerleri boşsa

If Not (IsEmpty(Sheets("KREDİ_KART_GÜNLÜK").Range("b4").Value)) And _
IsEmpty(Sheets("KREDİ_KART_GÜNLÜK").Range("b5").Value) And _
IsEmpty(Sheets("KREDİ_KART_GÜNLÜK").Range("D4").Value) And IsEmpty(Sheets("KREDİ_KART_GÜNLÜK").Range("f4").Value) And _
IsEmpty(Sheets("KREDİ_KART_GÜNLÜK").Range("b6").Value) And IsEmpty(Sheets("KREDİ_KART_GÜNLÜK").Range("b7").Value) Then


Sheets("KREDİ_KART_GÜNLÜK").Range("A10:g500").Clear
 
 Do
    ' filtrele
   
    If Sheets("KASA_GİRİŞ").Cells(okumasatir, 9).Value = "KREDİ KARTI" And _
    Sheets("KASA_GİRİŞ").Cells(okumasatir, 10).Value = Sheets("KREDİ_KART_GÜNLÜK").Range("B4").Value Then
             
               Sheets("KREDİ_KART_GÜNLÜK").Cells(yazmasatir, 1).Value = Sheets("KASA_GİRİŞ").Cells(okumasatir, 2).Value


...

End sub


www.excelci.com

Makroları çalıştırmak

1. Makrolar (Macros) aracını kullanarak. GELİŞTİRİCİ (DEVELOPERS) şeridinden Makrolar (Macros) aracını tıklayın. Arından makroyu seçin ve Çalıştır (Run) düğmesini tıklayın.

2. Kısayol tuşlarına basarak.

3. Hızlı erişim araç çubuğundan.

4. Bir komut düğmesine ya da grafik şekline tıklayarak.

Göreceli makro kaydı / relative macro recording

“Göreceli makro kaydetme” seçeneği kullanılırsa; makronun erişeceği hücreleri makro çalıştırıldığı andaki konuma bağlı olarak yapar. Böylece başlatılan yere göre farklı verileri işlemesi sağlanır.

Göreceli (relative) makro kaydetmek için makroyu kaydetmeden önce GELİŞTİRİCİ (DEVELOPER) şerit sekmesindeki Göreceli Başvuruları Kullan (Use Relative Reference) düğmesi tıklanır. Bu araç “on” ya da “off” şeklinde iki durumlu çalışır. 

Örneğin bir hücreye tıklıyorsunuz ve makroyu çalıştırıyorsunuz. Makro bulunduğu hücrenin üstündeki değeri alıyor ve işliyor, sonucu bulunduğu yere yazıyor. 

Excel'de iki tarih arasındaki süreyi hesaplamak. Yıl olarak , ay olarak, gün olarak, hafta olarak. Saat olarak, dakika olarak ve saat biçiminde farklı şekillerde

Excel'de iki tarih arasındaki farkı hesaplamanın çok değişik seçenekleri ve uygulamaları vardır.

İnsan Kaynakları bakımından iki tarih arasındaki fark için ETARİHLİ ingilizce olarak DATEDIF fonksiyonu kullanılabilir:

ETARİHLİ(BAŞ TARİH;BİTİŞ TAR;format)

YIL olarak =DATEDIF(b4;c4;"Y")

AY olarak =DATEDIF(b4;c4;"M")

YILDAN KALAN AY: DATEDIF(b4;c4;"YM")

GÜN olarak =DATEDIF(b4;c4;"D")

AYDAN KALAN GÜN: DATEDIF(b4;c4;"MD")

faruk çubukçu

İngilizce sürümde: 

DATEDIF(BAŞ TARİH;BİTİŞ TAR;format)

Dİğer yandak iki tarih (tarih ve saatli) arasındaki farkı hesaplamak için işlem yapılır: 

Biçim olarak özel (custom) biçim kullanılır. Bu biçimler [ ] içinde geçen süreyi (elapsed) time için kullanılır. 

[s]:dd:nn Makine Başlama Zamanı Durma Zamanı Çalışma Süresi FC-ANA1 1.1.09 13:30 2.1.09 14:45 25:15:00    1  gün 01:15 FC-DEPO 2.1.09 13:30 2.1.09 15:30 2:00:00    0  gün 02:00

İçeriği Etkinleştir- Activate Content - Excel'de Etkin İçerikler Nelerdir

Etkin içerikler nelerdir?

Active contents:

When the following kinds of active content are in your files, the Message Bar appears:

(Mesaj verilenler)

• ActiveX controls
• Add-ins
• Data connections
• Macros
• Excel 4.0 macros
• Spreadsheet links

The following kinds of external content are linked externally to the file or embedded. Therefore, they're blocked: (Bloklananalar)

• Linked object linking and embedded (OLE) files
• Color-theme files
• Cascading style sheet (CSS) files
• XML expansion packs
• Links to external pictures
• Media files
• Real-time data servers 
• XML manifests (Faruk Çubukçu.xml) 
• Smart documents

Çok sayıda eşleşen veriyi getirmek?

Excel'de çok sayıda eşleşen verileri bulmak için ne yapmak gerekir? DÜŞEYARA - VLOOKUP ile bir tane eşleşen bulunabiliyor? Bu durumda İNDİS (INDEX) fonksiyonu başta olmak üzere değişik fonksiyonları bir arada kullanmak gerekiyor.