Makro ile Hedef Ara Kullanma

Bu dosya, Excel'deki Hedef Ara (Goal Seek) özelliğini makro ile otomatikleştirir. Ayarlanacak hücre, beklenen değer hücresi ve değişecek hücre fare ile seçilir; makro seçilen aralıktaki her hücre çifti için Hedef Ara işlemini sırayla uygular. Böylece birden fazla hesap, diyalog kutusu tekrar tekrar açılmadan çözülür.

Dosyanın içeriği​

• Sheet1: A1:E6 aralığında örnek bir kredi hesabı bulunur. Loan amount (C1 hücresinde 23456), Number of repayments, Interest rate ve Repayment amount etiketleri hazır olarak gelir.
• Module1: goalSeek adlı makroyu içeren VBA modülüdür.

Sayfada formül bulunmaz; hesaplanacak formüller ve hedef değerler kullanıcının kendi çalışmasına göre girilir.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem yoktur.
goalSeek makrosu sırasıyla üç InputBox açar:

1. AYARLANACAK HÜCRE: Formülün bulunduğu hücre veya aralık. Varsayılan öneri C11:E11'dir.
2. SONUÇ HÜCRE: Ulaşılmak istenen değerlerin bulunduğu hücre veya aralık. Varsayılan öneri C12:E12'dir.
3. DEĞİŞECEK HÜCRE: Excel'in değiştireceği hücre veya aralık. Varsayılan öneri G8:G10'dur.

Ardından değişecek hücrelerin boş veya sabit değer içerip içermediği kontrol edilir. Seçilen aralıklardaki hücre sayıları birbirine eşit değilse veya değişecek hücreler uygun değilse "DİKKAT! HATALI GİRİŞ..." uyarısı verilir. Hücre sayıları eşleşiyorsa makro, ayarlanacak aralıktaki her hücre için ilgili sonuç değerini hedef alıp değişecek hücreyi bu hedefe ulaşacak şekilde günceller. Aralık seçimi sırasında hata oluşursa makro sessizce sonlanır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 ile goalSeek makrosunu çalıştırın.
3. Açılan üç kutuda sırasıyla ayarlanacak, sonuç ve değişecek hücreleri seçin; üç aralıktaki hücre sayısı aynı olmalıdır.
4. Her kutuda Tamam'a basın; değişecek hücrelerde hedefe ulaşan değerler otomatik yazılır.