Excel'de Kullanıcı Formu'ndaki birleşik kutudan yapılan seçime göre metin kutusunu nasıl doldurabilirsiniz?
Aşağıdaki ekran görüntüsünde gösterildiği gibi, içinde Ad ve Personel Numarası sütunları bulunan bir tablonuz olduğunu varsayalım. Şimdi, bu isimleri içeren birleşik kutuyu ve birleşik kutudan bir isim seçildiğinde ilgili personel numarasını otomatik olarak gösterecek bir metin kutusunu içeren bir Kullanıcı Formu oluşturmanız gerekiyor. Bu makaledeki yöntem, bunu başarıyla gerçekleştirmenize yardımcı olabilir.
Kullanıcı Formu'nda VBA ile birleşik kutu seçimine göre metin kutusunu doldurma
Kullanıcı Formu'nda VBA ile birleşik kutu seçimine göre metin kutusunu doldurma
Kullanıcı Formu'ndaki birleşik kutudan yapılan seçime göre metin kutusunu ilgili değerle doldurmak için aşağıdaki adımları izleyin.
1. Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Microsoft Visual Basic for Applications penceresinde, Ekle > Kullanıcı Formu seçeneğine tıklayın. Ekran görüntüsüne bakın:
3. Ardından, aşağıda gösterilen ekran görüntüsüne benzer şekilde oluşturulan Kullanıcı Formu’na bir Birleşik Kutu ve bir Metin Kutusu denetimi ekleyin.
4. Kullanıcı Formu'ndaki boş bir alana sağ tıklayın ve ardından bağlam menüsünden Kodu Görüntüle seçeneğine tıklayın. Ekran görüntüsüne bakın:
5. Açılan Kullanıcı Formu (Kod) penceresinde, orijinal kodu değiştirmek üzere aşağıdaki VBA kodunu kopyalayıp yapıştırın.
VBA kodu: Kullanıcı Formu'nda birleşik kutu seçimine göre metin kutusunu doldurma
Dim xRg As Range
'Updated by Extendoffice 2018/1/30
Private Sub UserForm_Initialize()
Set xRg = Worksheets("Sheet5").Range("A2:B8")
Me.ComboBox1.List = xRg.Columns(1).Value
End Sub
Private Sub ComboBox1_Change()
Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False)
End SubNot: Kodda A2:B2, hem Kullanıcı Formu’ndaki birleşik kutuya hem de metin kutusuna ayrı ayrı gireceğiniz değerleri içeren aralıktır. Sheet5 ise veri aralığını içeren çalışma sayfasının adıdır. Gerekirse bunları güncelleyin.
6. Alt+Q tuşlarına basarak Microsoft Visual Basic for Applications penceresinden çıkın.
7. Geliştirici > Ekle > Komut Düğmesi (ActiveX Denetimi) seçeneğine tıklayarak çalışma sayfasına bir komut düğmesi ekleyin.
8. Sayfa sekmesine sağ tıklayın ve açılan menüden Kodu Görüntüle seçeneğini seçin. Ardından VBA kodunu kod penceresine kopyalayıp yapıştırın.
VBA kodu: Kullanıcı formunu göster
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2018/1/30
UserForm1.Show
End Sub9. Çalışma kitabınızda Tasarım Modu'nu kapatın.
Belirtilen kullanıcı formunu açmak için komut düğmesine tıklayın. Ardından tüm isimlerin birleşik kutuda toplandığını göreceksiniz. Birleşik kutudan bir ismi seçtiğinizde, ilgili personel numarası aşağıdaki ekran görüntüsünde gösterildiği gibi otomatik olarak metin kutusuna doldurulacaktır.
İlgili makaleler:
- Çalışma Kitabı açıldığında, birleşik kutuyu belirtilen verilerle nasıl doldurabilirsiniz?
- Excel’de açılır liste kutusundan bir değer seçildiğinde diğer hücreler otomatik olarak nasıl doldurulur?
- Excel’de açılır liste kutusundan bir değer seçildiğinde diğer hücreler nasıl otomatik olarak doldurulabilir?
- Google arama sonuçlarını Excel'de çalışma sayfasına nasıl doldurabilirsiniz?
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