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 uygulamal...
Bu mesajın devamını görebilmek için kayıt olun ya da giriş yapın

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