ComboBox da birleştir.

[ofbalki]

Sevgili uzman arkadaşlar,

Gönderdiğim Personel Kayıt formundaki "Soyadı Adı" kutusunun kilitlenip,
"Soyadı" kutusu ile "Adı" kutusundaki değerlerin,
"Soyadı Adı" kutusunda birleşmesini istiyorum.

Görünen Liste önceden hazırlamıştır.

Nedeni: Okulda değişik şekillerde tablolara ihtiyaç oluyor,
bu tabloları daha kolay yoldan elde etmek için.

İlgilenen arkadaşlarıma şimdiden teşekkür ederim.

 

[hamitcan]

Şu anda, "Soyadı adı" alanı, Listbox içinden bir seçim yapıldığında istediğiniz gibi çalışıyor. Alanı kilitlemek için ise, UserForm_Initialize olayı içine aşağıdaki kodu ekleyin.

B.Locked = True

 

[ofbalki]

Sayın Hamitcan,

Şu anda, "Soyadı adı" alanı, Listbox içinden bir seçim yapıldığında istediğiniz gibi çalışıyor. Alanı kilitlemek için ise, UserForm_Initialize olayı içine aşağıdaki kodu ekleyin.

B.Locked = True

Buradaki esas maksat kilitleme değil, birleştirme idi.

Önerinize teşekkür ederim, birleştirme konusunda bir öneriniz var mı acaba?

 

[hamitcan]

Tam olarak istediğinizi anlamadım. Zaten ilgili alana gelen bilgiler birleşik geliyor. Yani excel sayfasında birleştirilmiş.

 

[ofbalki]

Sayın Hamitcan,

Tam olarak istediğinizi anlamadım. Zaten ilgili alana gelen bilgiler birleşik geliyor. Yani excel sayfasında birleştirilmiş.

Görünen liste önceden hazırlanmıştı. Hali hazırda birleştirme makrosu yok. Soyadı ve Adı kutuları elle yazılıyor.

Tekrar bakarmısınız.

 

[Korhan Ayhan]

Selamlar,

ALT+F11 tuşları ile VBA editörünü açıp "Personel" isimli formunuzun üzerindeki "Soyadı-Adı" ComboBox kontrolünü seçip özellikler penceresinden "Locked" özelliğini "True" yapın ve aşağıdaki kodu formunuzun kod bölümüne uygulayın.

Private Sub C_Change()
    If C <> "" Or D <> "" Then
    B = D & " " & C
    Else
    B = ""
    End If
End Sub

Private Sub D_Change()
    If C <> "" Or D <> "" Then
    B = D & " " & C
    Else
    B = ""
    End If
End Sub

 

[ofbalki]

Usta diye ben buna derim işte.

Sayın COST_CONTROL ellerinize sağlık, beni çok mutlu ettiniz.

Sizden öğreneceğimiz daha çok şey var.