ComboBox'dan seçim yapılınca, hücreye belirlenen ibareyi yazdırma

[EKREM1661]

Değerli Arkadaşlar..! hayırlı çalışmalar..

Örneğin. UserForm üzerindeki ComboBox' kutusundan;
1.MADDE seçilirse, F11 hücresine : AA yazsın,
2.MADDE " " " : BB yazsın,
3.MADDE " " " : CC yazsın,
4.MADDE " " " : DD yazsın,
5.MADDE " " " : EE yazsın.

 

[BG]

Sayın EKREM1661

Değerli Arkadaşlar..! hayırlı çalışmalar..

Örneğin. UserForm üzerindeki ComboBox' kutusundan;
1.MADDE seçilirse, F11 hücresine : AA yazsın,
2.MADDE " " " : BB yazsın,
3.MADDE " " " : CC yazsın,
4.MADDE " " " : DD yazsın,
5.MADDE " " " : EE yazsın.

aşağıdaki gibi deneyiniz.

Private Sub ComboBox1_Change()
If ComboBox1.Value = "1.MADDE" Then
[F11].Value = "AA"
ElseIf ComboBox1.Value = "2.MADDE" Then
[F11].Value = "BB"
ElseIf ComboBox1.Value = "3.MADDE" Then
[F11].Value = "CC"
ElseIf ComboBox1.Value = "4.MADDE" Then
[F11].Value = "DD"
ElseIf ComboBox1.Value = "5.MADDE" Then
[F11].Value = "EE"
End If
End Sub

 

[EKREM1661]

Sayın Gökhan Bey..!

Çok teşekkür ediyorum istediğim gibi olmuş, elinize sağlık..
Konu açılmışken;

Yukarıda 1.Madde, 2.Madde...diye devam eden verilerin değişebileceğini düşünürsek,
combobox'daki veriyi esas almayıpta, hücrenin kendisini esas aldırabilirmiyiz..
örneğin.1.Madde, 2.Madde... değilde, Sayfa1!B1, Sayfa1!B2...gibi,,

 

[BG]

Sayın Gökhan Bey..!

Çok teşekkür ediyorum istediğim gibi olmuş, elinize sağlık..
Konu açılmışken;

Yukarıda 1.Madde, 2.Madde...diye devam eden verilerin değişebileceğini düşünürsek,
combobox'daki veriyi esas almayıpta, hücrenin kendisini esas aldırabilirmiyiz..
örneğin.1.Madde, 2.Madde... değilde, Sayfa1!B1, Sayfa1!B2...gibi,,

şöyle bir şey mi istiyorsunuz ?

Private Sub ComboBox1_Change()
    For x = 2 To 6
        If ComboBox1.Value = Cells(x, 2).Value Then
        [F11].Value = ComboBox1.Value
        End If
    Next
End Sub

 

[EKREM1661]

Gökhan Bey.. şunu demek istiyorum.. Yukarıdaki ilk örnekteki mantığı şu şekil uyarlarsak;

Eğer Combobox1'de seçilen(tıklanan) değer, B1 de yazılı değer ile eşit(aynı) ise;
[F11] in değeri AA yazılsın.
....
....

Bu şekilde yukarıdaki 2 nolu örneği bu şekilde düzenleyebilirmiyiz..

 

[Ayhan Ercan]

2 nolu mesajdaki kodları aşağıdakine göre uyarlayınız..

If ComboBox1.Value = [b1].Value Then
[F11].Value = "AA"
.......
.......

 

[EKREM1661]

Ayhan Bey..! teşekkür ediyorum..iyi geceler dileğiyle..