Combobox Nesnesine Göre Kayıt Yapma isimli içerikte, bir ComboBox nesnesi seçimine göre Excel hücrelerine veri kaydetmeyi sağlayan bir Hazır Makro Kodu yer almaktadır.
Hazır Kodlar
VBA:
Sub KayitYap()
Dim secim As String
Dim satir As Long
' ComboBox'taki seçimi al
secim = ComboBox1.Value
' İlk boş satırı bul
satir = Cells(Rows.Count, 1).End(xlUp).Row + 1
' Seçimi belirli bir sütuna kaydet
Cells(satir, 1).Value = secim
MsgBox "Kayıt başarılı: " & secim
End SubAçıklama
Bu kod, bir ComboBox nesnesinde seçilen değeri alır ve Excel'deki belirli bir sütuna kaydeder. Öncelikle, ComboBox'taki seçimi alır ve ardından veri kaydının yapılacağı ilk boş satırı belirler. Seçim, belirtilen sütuna kaydedilir ve işlem tamamlandığında kullanıcıya bir mesaj kutusu ile bilgilendirme yapılır.Kullanım
- Yukarıdaki kodu UserForm'un uygun bir olay prosedürüne yapıştırın (örneğin, bir buton tıklama olayı).
- UserForm'u çalıştırın ve ComboBox'tan bir değer seçip kayıt işlemini gerçekleştirin.
