SUM içinde IF

SUM içinde IF yazmak.

=SUM(IF(($C$2:$C$19=H2);$F$2:$F$19))

= SUM( IF((    kriter alanı = kriter ) ;    toplanacak alan)

= SUM ( IF ((    kriter alanı = kriter ) ;    toplanacak alan)

SUMIF bir diğer dosyadan değer alamıyor. Bu durumda SUM içinde IF kullanabilir. Aanlar ve kriter diğer dosyalarda gelebilir.

TOPLA içinde EĞER

TOPLA içinde EĞER yazmak.

=TOPLA(EĞER(($C$2:$C$19=H2);$F$2:$F$19))

= TOPLA ( EĞER ((    kriter alanı = kriter ) ;    toplanacak alan)

= SUM ( IF ((    kriter alanı = kriter ) ;    toplanacak alan)

ETOPLA bir diğer dosyadan değer alamıyor. Bu durumda TOPLA içinde EĞER kullanabilir. ALanlar ve kriter diğer dosyalarda gelebilir.

  kriter alanı = kriter ) ;    toplanacak alan)

Excel Power Query ve Dashboard eğitimlerine başlıyoruz.

Power Query Sorgu Türleri

Power Query Sorgu Türleri:

·         Sol dış birleşim (Left outer)

·         Sağ dış birleşim (Right outer)

·         Tam dış birleşim (Full outer)

·         İç (Inner)

·         Sol Ters (Inner anti)

·         Sağ Ters (Right anti)

Power Query veri kaynakları

Excel Power Query çok sayıda veri kaynağına bağlanabilir ve onlar üzerinde sorgular yapmayı sağlar. Ardından bir araya getirilen bu veriler üzerinde Pivot tablo hazırlanarak geniş raporlar oluşturulur.

Power Query Veri Kaynakları (Data Sources):

•          Web page

•          Excel file

•          CSV file

•          XML file

•          Text file

•          Folder

•          SQL Server database

•          Microsoft Azure SQL Database

•          Access database

•          Oracle database

•          IBM DB2 database

•          MySQL database

•          PostgreSQL Database

•          Sybase Database

•          Teradata Database

•          SharePoint List

•          OData feed

•          Microsoft Azure Marketplace

•          Hadoop File (HDFS)

•          Microsoft Azure HDInsight

•          Microsoft Azure Table Storage

•          Active Directory

•          Microsoft Exchange

•          Facebook

Kaynak: https://support.office.com/en-us/article/Import-data-from-external-data-sources-Power-Query-be4330b3-5356-486c-a168-b68e9e616f5a?ui=en-US&rs=en-US&ad=US, 2017.

NOT: Excel 2010 ve Excel 2013 ortamlarında Power Query bileşeni (add-in) indirilip Excel’e eklenmelidir. Excel 2016 ve Office 365 tüm sürümlerinde yerleşik olarak vardır.  

Excel Veri Modeli (Data Model) Nedir?

Veri Modeli (Data Model) Nedir?

Veri modeli (data model) farklı Excel Tabloları’ndan (table) gelen verilerin entegre edilmesini sağlayan yeni bir veri yapısıdır. Veri modeline eklenen veriler pivot tablo ve Power View raporlarından kullanılır.

• Bir Excel dosyasında (workbook) sadece bir tane veri modeli olabilir.
• Bütün Excel tabloları veri modeline eklenebilir.
• Ayrıca SQL veri tabanları ve diğer veri kaynakları da veri modeline eklenebilir.
• Veri modeli üzerindeki çok sayıda verinin bir araya getirilmesi için ilişkiler (relationships) kullanılır.
• Veri modeli üzerindeki veriler pivot tablo ve power view gibi araçlar erişerek raporları üretebilirler. 

Excel klavye kısayolları

Herkesin çok sevdiği Microsoft Excel (R) klavye kısayollarını (keyboard shortcuts) yeniden düzenledim. Pratik kullanımlar dileğiyle.

Excel Düzey Testleri

Microsoft Excel eğitiminden önce düzeyimiz ya da yapabildiklerimiz konusunda bir ön bilgi almak için bu testi yapıyoruz. Sonuç düşük ya da yüksek çıkabilir. Test içinde tipik dört işlemler, birkaç tane fonksiyon (eğer, erğersay, düşeyara gibi), filtreleme, pivot tablo ve grafik gibi temel konularda bilgileri soruyoruz. Bunları kullananlar bu testi yaparlar, kullanmayanlar yapamayabilir, ancak bu onların  Excel bilmediği anlamına gelmez. Başka fonksiyonları ve araçları kullanıyorlardır mutlaka.

Excel’de 400 civarında fonksiyon, çok sayıda grafik türü, çok sayıda veri aracı (pivot, filtre, alttoplam, birleştir, vb), çok sayıda biçimlendirme aracı vardır.. Bunların tümünü bilmek ve uygulayarak çözümler geliştirmenin sonu yoktur. Hani deniyor ha “Excel deryadır” diye.

Bu nedenle ne öğrenirsek - etkin kullanım adına, çözümler adına katkısı olacaktır. 

Testlerimizi elde etmek için farukcubukcu.com download bölümünde bulabilirsiniz. 

Ayrıca faruk@farukcubukcu.com adresine mail atabilirsiniz. 

Workbook, ActiveWorkBook ve ThisWorkbook Nesneleri

Workbook, ActiveWorkBook ve ThisWorkbook Nesneleri:

ActiveWorkbook: Aktif olan çalışma dosyası (görünen).

Workbooks(1): Açık olanlardan birincisi

ThisWorkbook: Kodlara ev sahipliği yapan çalışma dosyası

Sheets("FC"): FC adlı sheet

ActiveWorkSheet: Bulunulan/işlenen sheet

Sheets(1): Sağa doğru 1. Sıradaki sheet

BALL PACKAGING firmasında bilişim eğitimleri projemiz

Excel VBA - sütundaki verilerin tümünü işlemek

Her satır arasına boş bir satır ekleyen kodlama için aşağıda yer alan döngü türlerini inceleyiniz.

Sub dongu1()

 ' HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

For satir = 1 To Range("A" & Rows.Count).End(xlUp).Row

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

Next

End Sub

Sub Dongu2()

' FC sheet HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

satir = 1

For Each cell In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

satir = satir + 1

Next

End Sub

Sub dongu3()

' FC sheet HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

satir = 1

Do

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

satir = satir + 1

Loop Until Cells(satir, 1).Value = ""

End Sub

Sub Dongu4()

 ' FC sheet HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

For satir = 1 To Range("A1", Range("A1").End(xlDown)).Rows.Count

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

Next

End Sub

Sub Dongu5()

' FC sheet HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

For satir = 1 To Range("A1048576").End(xlUp).Row

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

Next

End Sub

Sub Dongu6()

' FC sheet HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

For satir = 1 To Range("A1").End(xlDown).Row

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

Next

End Sub

Excel VBA döngüler (loops)

Her satır arasına boş bir satır ekleyen kodlama için aşağıda yer alan döngü türlerini inceleyiniz.

Sub dongu1()

 ' HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

For satir = 1 To Range("A" & Rows.Count).End(xlUp).Row

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

Next

End Sub

Sub Dongu2()

' FC sheet HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

satir = 1

For Each cell In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

satir = satir + 1

Next

End Sub

Sub dongu3()

' FC sheet HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

satir = 1

Do

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

satir = satir + 1

Loop Until Cells(satir, 1).Value = ""

End Sub

Sub Dongu4()

 ' FC sheet HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

For satir = 1 To Range("A1", Range("A1").End(xlDown)).Rows.Count

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

Next

End Sub

Sub Dongu5()

' FC sheet HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

For satir = 1 To Range("A1048576").End(xlUp).Row

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

Next

End Sub

Sub Dongu6()

' FC sheet HER SATIRDAN SONRA bir satır boş satır ekelenecek.

Dim satir As Integer

For satir = 1 To Range("A1").End(xlDown).Row

If satir Mod 2 Then

' yeni satır ekle

Rows(satir).EntireRow.Insert

End If

Next

End Sub

Excel'i klavye kısayollarıyla kullanmak

Kurumsal Excel Eğitimleri

Faruk Çubukçu, otuz yıla yakın süredir kurumsal "bilişim eğitimleri" vermeye devam ediyor. 

Bugünlerde Microsoft Excel üzerinde eğitimler çok yaygın bir şekilde yapılmaktadır. Bunun nedeni de sanıyorum ERP sistemlerindeki verileri daha verimli bir şekilde işlemek ve raporlamak olsa gerek. 

Excel eğitimlerinde sadece Excel yetenekleri ve teknikleri değil, kurumsal gereksinimler temelinde hesaplama ve raporlama işlemleri binlerce örnek veri dosyaları üzerinde yapılmaktadır. Kullanıcıların verimli bir şekilde Excel'den yararlanması ve kendi gereksinimleri doğrultusunda hesaplama ve raporlama işlemlerini yapması sağlanmaktadır. 

Faruk Çubukçu Bilgi Teknolojileri

Tel: 0532 636 58 78

Mail: info@farukcubukcu.com

www.farukcubukcu.com
www.excelci.com

Excel Makrolarının Excel Personal Workbook’a Kaydedilmesi. PERSONAL.XLSB

Excel Makrolarının Excel Personal Workbook’a Kaydedilmesi.  PERSONAL.XLSB

Oluşturulan makroların diğer Excel dosyalarında da çalışması için makroların
oluşturma yeri PERSONAL.XLSB  (Excel Personal Workbook) olmalı.

PESONAL.XLSB nerede durur?

C:\Users\<username>\AppData\Roaming\Microsoft\Excel\XLSTART

Metin - Text Verileri Sayıya Çevirmek

Metin - Text Verileri Sayıya Çevirmek 
Özellikle sorunlu sayısal verileri (metin gibi görünen) sayıya çevirmek için uyguladığımız yöntemler: 

1. Veri Türlerini Değiştirerek (Hücre Biçimlendir/Format Cells)

2. KIRP (TRIM)

3. TEMİZ (CLEAN)

4. SAYIDEĞERİ (VALUE)

5. DATEVALUE (TARİHSAYISI)

6. Özel Yapıştır, Toplama (Paste Special, Add)

7. 1 ile çarparak

8. ALT 0160 Gİzli karakterleri çıkarma

9. Metni Sütunlara Çevirme (Text To Columns)

10. Word, Notepad, FC gibi programlardan yararlanarak

Excel VBA ile yararlı şeyler

Biraz VBA koduna ne dersiniz :)
Girilen verileri hemen büyük harfe çevirmek.

Excel VBA - Son satırı bulmak

Excel VBA'da bir veri sayfasında son satırı bulmak, son satıra kadar işlem yapmak vb işlemler için çok gerekli olan bir şey. Son dolu satırı bulmak için:

Örneğin B2 den başlayıp ( ya da başka bir hücreden) son satıra kadar olan satır sayısını bulmak için:

Sheets("FC").Range("b2").End(xlDown).Row

ya da 

Sheets(1).Range("b2").End(xlDown).Row

Örnek:

For satir = 2 To wb1.Sheets(1).Range("b2").End(xlDown).Row

ThisWorkbook.Sheets("Sayfa1").ComboBox1.AddItem wb1.Sheets(1).Cells(satir, 2).Value

Next