Excel'de açılır kutudaki değeri etkin hücreye nasıl kopyalarsınız?
Bazı durumlarda, bir açılır kutudan seçtiğiniz değeri aktif hücreye kopyalamanız gerekebilir. Normalde bunu yapmak için açılır kutuya girip değeri elle kopyalayıp aktif hücreye yapıştırmanız gerekir. Bu makale, açılır kutudan bir değer seçildiğinde aktif hücrenin otomatik olarak güncellenmesini sağlayan pratik bir yöntemi açıklar.
Açılır Kutu değerini VBA koduyla aktif hücreye kopyalama
VBA 1: Komut Düğmesi aracılığıyla açılır kutu değerini aktif hücreye kopyalama
VBA 2: Açılır kutu değerini aktif hücreye otomatik kopyalama
Açılır Kutu değerini VBA koduyla aktif hücreye kopyalama
Aşağıdaki VBA kodları, açılır kutudaki değeri aktif hücreye otomatik olarak kopyalamanıza olanak tanır. Lütfen aşağıdaki adımları uygulayın.
VBA 1: Komut Düğmesi aracılığıyla açılır kutu değerini aktif hücreye kopyalama
1. İlk olarak, aşağıda ekran görüntüsünde gösterildiği gibi bir Komut Düğmesi’ni çalışma sayfanıza eklemeniz gerekir.
2. Komut düğmesine sağ tıklayın ve ardından sağ tıklama menüsünden Kodu Görüntüle seçeneğine tıklayın. 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 koduyla değiştirin.
VBA kodu: Açılır Kutu değerini aktif hücreye kopyalama
Private Sub CommandButton1_Click()
ActiveCell.Value = Me.ComboBox1.Text
End SubNot: Kodda yer alan CommandButton1, eklenen komut düğmesinin adı; ComboBox1 ise değerini kopyalayacağınız açılır kutunun adıdır. Gerektiğinde bunları değiştirmeyi unutmayın.
4. Alt+Q tuşlarına basarak Microsoft Visual Basic for Applications penceresini kapatın.
Artık açılır kutudaki değeri aktif hücreye kopyalamanız gerektiğinde, ilgili hücreyi seçip işlemi tamamlamak için Komut Düğmesine tıklamanız yeterlidir.
VBA 2: Açılır kutu değerini aktif hücreye otomatik kopyalama
Aşağıdaki VBA kodu, açılır kutudan bir değer seçerken aktif hücrenin otomatik olarak güncellenmesini sağlar. Bu işlemi gerçekleştirmek için aşağıdaki adımları izleyebilirsiniz.
1. Tasarım Modu özelliğinin Geliştirici sekmesi altında açık olduğundan emin olun.
2. Değerini kopyalayacağınız açılır kutuya sağ tıklayın ve ardından sağ tıklama menüsünden Kodu Görüntüle seçeneğine tıklayın. Ekran görüntüsüne bakın:
3. Açılan Microsoft Visual Basic for Applicationspenceresinde,Kodpenceresindeki orijinal kodu aşağıdaki VBA koduyla değiştirin.
VBA kodu: Açılır Kutu değerini aktif hücreye kopyalama
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1.Value
End SubNot: Kodda ComboBox1, değerini kopyalayacağınız açılır kutunun adıdır.
4. Alt+Q tuşlarına basarak Microsoft Visual Basic for Applications penceresini kapatın ve Geliştirici sekmesinden Tasarım Modu’nu devre dışı bırakın.
Artık açılır kutudan bir değer seçtiğinizde, bu seçim otomatik olarak aktif hücrede görüntülenir.
İlgili makaleler:
- Excel'de açılır kutu çıktısında tarih formatı nasıl görüntülenir?
- Excel'de belirtilen hücre değerine göre Komut Düğmesi nasıl gizlenir veya görünür yapılır?
- Excel'de bir açılır kutudaki seçili değere göre belirli bir çalışma sayfası nasıl açılır?
- Excel'de bir açılır kutuya yazmayı nasıl engelleyebilir veya devre dışı bırakabilirsiniz?
- Excel'de aktif hücreyi seçmek için açılır kutudan sekme tuşuyla nasıl çıkılır?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar