VBA (Visual Basic for Applications), yıllar boyunca Microsoft Office uygulamaları ile kullanılacak programlama dili oldu. VBA programcıların (ve güçlü kullanıcıların) aşağıdakileri yapmasını sağlayan basit bir programlama dilidir:
- Office uygulamalarını genişletmek ve otomatize etmek
- Office uygulamalarını ve verilerini, başka uygulamalar ile entegre etmek
Temel fikir gerçekten basittir: insanların uygulamaları özgünleştirebilmeleri ve kendi ortamlarına uygun beceriler ekleyebilmeleri için, birkaç uygulama için ortak bir dil ve programlama ortamı oluşturmak. Bu yüzden VBA'in basit olması gerekiyordu. VBA'i gereksiniminiz olan veya üşenebileceğimiz herhangi bir tür uygulamayı geliştirmek için kullanmazsınız. VBA sadece temel denetim yapılarını, matematik ve karakter katarı fonksiyonlarını ve değişken kullanım becerilerini sunar. VBA'in asıl gücü, onu destekleyen uygulamaların nesnelerinden kaynaklanır.
Microsoft, VBA 5'in piyasaya sürülmesiyle birlikte bu dili ürünlerine programlanabilir özellikler eklemek isteyen üreticilere lisanslamaya başladı: Örneğin Autodesk AutoCAD. AutoCAD yıllardır programlanabilen bir ortamdı ama, programlama dili özgündü ve başka uygulamalar ile paylaşılamıyordu. Başka pek çok üretici de yazılımlarına programlama dilleri veya başka otomizasyon yöntemleri eklediler. Ancak bu çok sayıda uygulamadan oluşan parçaları bir araya getirmede tutkal işlevi görecek olan global bir dilin gerekliliği açıktı. Sonunda Microsoft VBA'in diğer üreticilerin bu gereksinimlerini karşılayan bir sürümüyle ortaya çıktı, Üstelik VBA Windows altında uygulamaları otomatize etmek için kullanılan evrensel bir dil olma yolunda.
Günümüzde çoğu şirket rafta satılan yazılımları kullanır ve onları özgünleştirme gereksinimleri vardır. Amerika'daki işletmelerin yarısından çoğu Microsoft Office ürünlerini kullanır. Üstelik bu işletmelerin pek çoğu da bu uygulamaları kendi işletme gereksinimlerine uyarlamak için VBA kullanır. Bu eğilim gelecekte sürecek ve güçlenecek. Uygulamaları sadece özgünleştirme gereksinimi değil, aynı zamanda onları iletişim kuracak şekilde birbirine bağlama gereksinimi var. VBA bunu da yapar, üstelik bunun bir sonucu olarak, VBA programcılarına olan gereksinim de önümüzdeki birkaç yıl içerisinde artacak.
Günümüz uygulamaları o kadar güçlü ve o kadar çok özelliğe sahip ki, özgün uygulamalar geliştirmek artık mantıklı değil. Bunun yerine mevcut uygulamaları özgünleştirerek bir arada çalışmalarını sağlamak daha mantıklı. Office 97 uygulamaları bile tipik bir şirketin günlük bilgisayar işlemlerini karşılamaya yeterlidir. VBA desteği veren çok sayıda üçüncü parti uygulamayı da düşünürseniz, onun şirket ortamlarındaki önemini kolayca tahmin edebilirsiniz.
Açılımı, "Visual Basic For Application" Vba Excel Ortamında Visual Basic programla diliyle uygulamalar geliştirmek manasına gelir. (Konumuz Excel olduğu için Excel ortamı diyoruz. Bu MSAccess veya MSWord' de olabilir vs...) Sybex grubunun açıklamalarına biz de aynı şekilde katılıyoruz.
Bu sayfada Excel'in Visual Basic kodlama penceresinde yazılabilen ve Excel tablosuna hükmedecek kodları ve kısa açıklamalarını bulacaksınız. Bu kodlardan bazıları tamamen bir program ve veya programcık olabileceği gibi bazıları da sadece programdan bir parçadır. Bu parçayı uygun kullandığınızda işinizi kolaylaştıracaktır.
Program parçasını her ne olursa olsun Vba kod sayfasında
Sub...End Sub deyimi arasına yazmalısınız. Daha sonra Excel tablosuna da Formlar Araç Çubuğu'nda bulunan düğme ikonuna tıklayarak, Excel çalışma sayfasına çizin.Düğme üzerinde sağ tuşa tıklayın ve açılan menüden Makro Ata komutunu seçin. Çıkan pencereden makro adını tıklayın ve Tamam düğmesine basın. Artık kod sayfasındaki programınızı düğmeye atamış oldunuz. Programı çalıştırmak için Düğmeye tıklamanız yeterli.

Ben bir örnek yazayım belki biri bakar.

Sub duzenle()
'
' Makro1 Makro
'

'
   Set hes = Sheets("KOMP HES")
   Set kr = Sheets("KROKİ")
   
   kr.Select
   
    kr.Columns("I:N").EntireColumn.Hidden = False
    hes.Rows("41:77").EntireRow.Hidden = False
    If hes.Range("H18") = 0 Then
    kr.Columns("N:N").EntireColumn.Hidden = True
    hes.Rows("72:77").EntireRow.Hidden = True
    End If
    If hes.Range("H17") = 0 Then
    kr.Columns("M:M").EntireColumn.Hidden = True
    hes.Rows("66:71").EntireRow.Hidden = True
    End If
    If hes.Range("H16") = 0 Then
    kr.Columns("L:L").EntireColumn.Hidden = True
    hes.Rows("60:65").EntireRow.Hidden = True
    End If
    If hes.Range("H15") = 0 Then
    kr.Columns("K:K").EntireColumn.Hidden = True
    hes.Rows("54:59").EntireRow.Hidden = True
    End If
    If hes.Range("H14") = 0 Then
    kr.Columns("J:J").EntireColumn.Hidden = True
    hes.Rows("48:53").EntireRow.Hidden = True
    End If
    If hes.Range("H13") = 0 Then
    kr.Columns("I:I").EntireColumn.Hidden = True
    hes.Rows("41:47").EntireRow.Hidden = True
    End If
End Sub

Baktım ama ne işe yaradığınıda anlatmanı isterdim.

Excelde bir hesaplamadır.  Baktım dosya ekleme bulamadım sitede. Eger dosya ekmeyi tarif ederseniz o excel heasplamasını excel dosyası olarak gönderirdim.
Elektrik mühendisliğinde mesela kompanzasyon hesabı kablo seçimi için örnek dosyalarım var.

Gerçi bu kotları excelin VBA safasına kopyalarsanız satır satır çalıştırma ile ne yaptıklarını görebilirsiniz. "

Ben yinede biraz tarif edeyim


Sub duzenle()
'
' Makro1 Makro
'

'
   Set hes = Sheets("KOMP HES") " excelde KOM HES isimli sayfa adını hes olarrak ata kobul et"

   Set kr = Sheets("KROKİ") " Yine KROKİ adlı sayfayı da kr oalarak ata"
   
   kr.Select  "Kr KROKİ sayfasını seç"
   
    kr.Columns("I:N").EntireColumn.Hidden = False  "kr sayfası I: N arası kolonları gizle"
    hes.Rows("41:77").EntireRow.Hidden = False  "hes sayfasının 41:47 arasındaki satırları gizle"
    If hes.Range("H18") = 0 Then  " Eğer hes sayfası H18 sayılı hüçrwesi sıfırsa "
    kr.Columns("N:N").EntireColumn.Hidden = True "kr sayfasının N:N kolonunu göster"
    hes.Rows("72:77").EntireRow.Hidden = True "  hes sayfasuının 72:77 satırlarını göster"

    End If  " eğer şartı bitti "    İŞTE BU ŞEKİLDE DEVAM EDİYOR "
    If hes.Range("H17") = 0 Then
    kr.Columns("M:M").EntireColumn.Hidden = True
    hes.Rows("66:71").EntireRow.Hidden = True
    End If
    If hes.Range("H16") = 0 Then
    kr.Columns("L:L").EntireColumn.Hidden = True
    hes.Rows("60:65").EntireRow.Hidden = True
    End If
    If hes.Range("H15") = 0 Then
    kr.Columns("K:K").EntireColumn.Hidden = True
    hes.Rows("54:59").EntireRow.Hidden = True
    End If
    If hes.Range("H14") = 0 Then
    kr.Columns("J:J").EntireColumn.Hidden = True
    hes.Rows("48:53").EntireRow.Hidden = True
    End If
    If hes.Range("H13") = 0 Then
    kr.Columns("I:I").EntireColumn.Hidden = True
    hes.Rows("41:47").EntireRow.Hidden = True
    End If
End Sub

ali.can sağol katkıların için 

işte ben bunu seviyorum herkez bildiginiz azda olsa paylassa herkez birsuru sey ogrenicek tesekkurler ali.can   

paylaşım için teşekkür 

tşk )