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 SubNot: 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 SubNot: 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?
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin