Excel'de etkin hücreye Açılır Kutu değerini nasıl kopyalayabilirsiniz?

Bazı durumlarda, bir Açılır Kutudan seçilen değeri etkin hücreye kopyalamanız gerekebilir. Normalde, Açılır Kutuya girmeniz, değeri manuel olarak kopyalayıp etkin hücreye yapıştırmanız gerekir. Bu makale, bir Açılır Kutudan değer seçerken etkin hücreyi otomatik olarak güncellemenizi sağlayan kullanışlı bir yöntem tanıtmaktadır.

VBA kodu ile Açılır Kutu değerini etkin hücreye kopyalama

VBA 1: Komut ile açılır kutu değerini etkin hücreye kopyalama
VBA 2: Otomatik olarak açılır kutu değerini etkin hücreye kopyalama

VBA kodu ile Açılır Kutu değerini etkin hücreye kopyalama

Aşağıdaki VBA kodları, açılır kutu değerini otomatik olarak etkin hücreye kopyalamanıza yardımcı olabilir. Lütfen aşağıdaki adımları izleyin.

VBA 1: Komut Düğmesi ile açılır kutu değerini etkin hücreye kopyalama

1. İlk olarak, aşağıdaki ekran görüntüsünde gösterildiği gibi çalışma sayfasına bir Komut Düğmesi eklemeniz gerekir.

2. Komut düğmesine sağ tıklayın ve ardından sağ tıklama menüsünden Kodu Görüntüle'yi seçin. Ekran görüntüsüne bakın:

3. Açılan Microsoft Visual Basic for Applications penceresinde, Kod penceresindeki orijinal kodu aşağıdaki VBA kodu ile değiştirin.

VBA kodu: Açılır Kutu değerini etkin hücreye kopyalama

Private Sub CommandButton1_Click()
   ActiveCell.Value = Me.ComboBox1.Text
End Sub

Not: Kodda, CommandButton1 eklenen komut düğmesinin adıdır ve ComboBox1, değer kopyalanacak olan Açılır Kutunun adıdır. Gerektiğinde bunları değiştirebilirsiniz.

4. Microsoft Visual Basic for Applications penceresini kapatmak için Alt + Q tuşlarına basın.

Artık, açılır kutu değerini etkin hücreye kopyalamak istediğinizde, lütfen hücreyi seçin ve ardından bu işlemi tamamlamak için Komut Düğmesine tıklayın.

VBA 2: Otomatik olarak açılır kutu değerini etkin hücreye kopyalama

Aşağıdaki VBA kodu, bir Açılır Kutudan değer seçerken etkin hücreyi otomatik olarak güncellemenize yardımcı olabilir. Aşağıdaki adımları izleyebilirsiniz.

1. Geliştirici sekmesi altında Tasarım Modunun açık olduğundan emin olun.

2. Değer kopyalanacak olan Açılır Kutuya sağ tıklayın ve ardından sağ tıklama menüsünden Kodu Görüntüle'yi seçin. Ekran görüntüsüne bakın:

3. Açılan Microsoft Visual Basic for Applications penceresinde, Kod penceresindeki orijinal kodu aşağıdaki VBA kodu ile değiştirin.

VBA kodu: Açılır Kutu değerini etkin hücreye kopyalama

Private Sub ComboBox1_Change()
  ActiveCell.Value = Me.ComboBox1.Value
End Sub

Not: Kodda, ComboBox1, değer kopyalanacak olan Açılır Kutunun adıdır.

4. Microsoft Visual Basic for Applications penceresini kapatmak için Alt + Q tuşlarına basın ve Geliştirici sekmesi altındaki Tasarım Modunu kapatın.

Artık, bir Açılır Kutudan değer seçtiğinizde, seçilen kayıt otomatik olarak etkin hücreye görüntülenecektir.

İlgili makaleler:

• Excel'de açılır kutu çıktısında tarih formatını nasıl görüntüleyebilirsiniz?
• Excel'de belirli bir hücre değerine göre Komut Düğmesini nasıl gizleyebilir veya gösterebilirsiniz?
• Excel'de bir Açılır Kutunun seçilen değerine göre belirli bir çalışma sayfasını nasıl açabilirsiniz?
• Excel'de bir açılır kutuda yazmayı nasıl engelleyebilir veya devre dışı bırakabilirsiniz?
• Excel'de bir açılır kutudan çıkıp belirli bir hücreyi nasıl seçebilirsiniz?