UserForm'a, hücredeki değeri aldırmak

Bu dosya, bir hücredeki değerin UserForm açıldığı anda formdaki TextBox'a nasıl aktarılacağını gösteren makrolu bir örnektir. Sayfa1'deki A1 hücresinin değeri, form açılırken TextBox1 içine otomatik olarak yazılır.

Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Yalnızca A1 hücresi kullanılır. Hücrede örnek olarak bir web adresi metni bulunur; form bu hücreyi okur.
• UserForm1: İçinde TextBox1 bulunan form. Açılış olayında TextBox'ın değeri A1 hücresinden alınır.
• Module2: Sayfadaki iki düğmeye atanmış makroları içerir.

Makrolar​

• Düğme1_Tıklat: UserForm1.Show komutuyla formu açar. Form açılırken UserForm_Initialize olayı çalışır ve A1 hücresindeki değeri TextBox1 içine yazar.
• Düğme2_Tıklat: SendKeys ile Alt+F11 kısayolunu gönderir ve VBA düzenleyicisini açar. Böylece form ve kod doğrudan incelenebilir.
• UserForm_Initialize: Formun açılış olayıdır; tek satırlık kodu A1 değerini TextBox1'e atar.

Kodda dosya silme, dışarıya bağlantı kurma gibi zararlı bir işlem bulunmaz.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Sayfa1'deki A1 hücresine istediğiniz değeri yazın.
3. Birinci düğmeye tıklayın; UserForm açılır ve TextBox1 içinde A1'deki değer görünür.
4. Formu kapatıp A1'i değiştirdikten sonra düğmeye yeniden tıklayın; TextBox her açılışta güncel değeri alır.
5. Kodu incelemek için ikinci düğmeye tıklayın veya Alt+F11 tuşlarına basın.
6. Başka bir hücrenin değerini almak için UserForm1 kodundaki Range("A1") ifadesindeki adres değiştirilir.