excel de macro işlemleri

merhaba,

firmanın sahip olduğu yazılımdan belli dönemlerde gerekli işlemleri yapabilmek için rapor almaktayım. ancak aldığım raporlardan birinin veri hanesinde kodlarında eksiklik var. bir diğer rapor da ise kodlar düzgün çıkmakta ancak burada da toplam veri baz alınmaktadır. Belli dönemlerde ihtiyacım olduğundan macrolamak istiyorum ancak rapor kriterleri uymaduğından ilerleyemedim. Yardımlarınızı rica ediyorum tşkler...

 Merhaba Mehtap Hanım;

EXCEL'de giriş niteliğinde bir makro yapalım. Bu makroda amaç; sayfadaki belirli hücrelerden bilgileri okumak, işlemek ve yine sayfadaki belirli bir hücreye yazmak olsun. Örneğimizde iki adet sayıyı okuyup bunlara dört işlem uygulayacak ve sayfada ilgili hücrelere yazacağız. Bununla ilgili olarak aşağıdaki gibi basit bir sayfa hazırlayalım.

Aşağıdaki şekilde iki adet buton bulunmakta. Bu butonları koymak icin "Gorunum" menusunden "Arac Cubukları" kısmına girilir ve "Denetim Ara Kutusu" secilir. Buradan iki adet buton nesnesini sayfaya ekleyin. Butonu ekledikten sonra uzerinde sağ tıklayarak ozellikler penceresini acın ve buradan "Caption" ozelliğine butonun uzerine gelecek yazıyı yazın.

Ustteki resimde "Tamam" olarak belirtilmiş butona sağ tıklayın ve "Kod Goruntule" seeneğini secin. Bu butona ait Click yordamına gelmiş oluruz. Eğer excel'de Sayfa1 uzerinde isek aşağıdaki kodları yazın.

x = Sayfa1.Cells(3, 2)

y = Sayfa1.Cells(3, 3)

Sayfa1.Cells(3, 4) = x + y

Hemen kodları acıklayalım. Sayfa1 ifadesi Excelin hangi sayfasında olduğumuzu belirtir. İşlemi Sayfa1 uzerinde yaptığımızı varsaydık. İstenirse başka bir excel sayfasının adı belirtilerek de oraya ait işlemler yapılabilir. Daha sonra Sayfa1 icin Sayfa1.Cells(3, 2) ifadesini oluşturduk. Bunun anlamı sayfa1 uzerindeki 3,2 hucresinin değeri demektir. Bunu da x değişkenine attık. Yani sayfa1 uzerindeki 3,2 hucresindeki bilgiyi x değişkenine attık. Aynı şekilde de 3,3 hucresindeki değeri y değişkenine attık. Sonra da bunların toplamını 3,4 hucresi uzerine yazdırdık. Aynı mantıkla hemen altına diğer işlemler ve okunacak hucreler belirtilerek tum işlemler yaptırılmış olur.

x = Sayfa1.Cells(3, 2)

y = Sayfa1.Cells(3, 3)

Sayfa1.Cells(3, 4) = x + y

x = Sayfa1.Cells(4, 2)

y = Sayfa1.Cells(4, 3)

Sayfa1.Cells(4, 4) = x - y
x = Sayfa1.Cells(5, 2)

y = Sayfa1.Cells(5, 3)

Sayfa1.Cells(5, 4) = x * y
x = Sayfa1.Cells(6, 2)

y = Sayfa1.Cells(6, 3)

Sayfa1.Cells(6, 4) = x / y

"Temizle" adlı butonun icine girerek Sayfa1.Cells(3, 1) = "" yazarsanız o hucrenin iceriği silinmiş olursunuz. Bu şekilde basılınca silinmesini istediginiz hucreleri tek tek belirterek "Temizle" butonuna ait kodları da bitirmis olursunuz.


Umarım İşinizi Gorurur..

Alıntıdır..