Listboxtan Seçtiğim veriyi 2 hücreye yazdırmak

[kamilcan]

Merhabalar.
Hazırlamış olduğum görev formunda bağlı müdürlüğe ait veriyi seçtiğimde aynı zamanda bir başka hücreye de yazdırmak( b12 de seçtiğimi a24e ) istiyorum.
Yardımlarınızı bekliyorum, teşekkürler...

 

[İhsan Tank]

Merhabalar.
Hazırlamış olduğum görev formunda bağlı müdürlüğe ait veriyi seçtiğimde aynı zamanda bir başka hücreye de yazdırmak( b12 de seçtiğimi a24e ) istiyorum.
Yardımlarınızı bekliyorum, teşekkürler...

Merhaba
Sayın Kamilcan bir önceki konuda size söylediklerimi yapmamışsınız ben size dedim ki kodları Userform'un kod bölümüne kopyalayın siz sayfanın kod bölümüne kopyalamışsınız orda uyardım teşekkür ettiniz ama hala aynı hatayı yapıyorsunuz.

 

[kamilcan]

İhsan Bey ;
Orada dediğiniz şeyi yaptım ve çalıştırmıştım ancak burada istediğim b12 deki veriyi a24e yazdırmak...
Verdiğiniz kodlarda tarihe tıkladığımda aktif oluyo ve orada aldığı veriyi 2 alt satırına yazdırıyordum...Bunu yaptım ve oldu da zaten.Ondan dolayı teşekkür ettim zaten.
Listboxtan seçerek b12 ye gireceğim verinin a24e yazdırmak istiyorum...Kusura bakmayın lütfen belki aynı soruyu soruyorum ama...

 

[İhsan Tank]

İhsan Bey ;
Orada dediğiniz şeyi yaptım ve çalıştırmıştım ancak burada istediğim b12 deki veriyi a24e yazdırmak...
Verdiğiniz kodlarda tarihe tıkladığımda aktif oluyo ve orada aldığı veriyi 2 alt satırına yazdırıyordum...Bunu yaptım ve oldu da zaten.Ondan dolayı teşekkür ettim zaten.
Listboxtan seçerek b12 ye gireceğim verinin a24e yazdırmak istiyorum...Kusura bakmayın lütfen belki aynı soruyu soruyorum ama...

Listbox nerede o zaman ben onu göremedim sanırım

 

[kamilcan]

Listboxlar burada üstat

Listbox(lar) hatta b12' yi a24 e de yazdırmak istiyorum...

 

[İhsan Tank]

Listbox(lar) hatta b12' yi a24 e de yazdırmak istiyorum...

Merhaba
Mevcut kodu bununla değiştirin

Private Sub ComboBox10_Change()
Range("b12") = ComboBox10
Range("A24") = ComboBox10
End Sub

 

[kamilcan]

Çok çok teşekkürler İhsan Bey...Birşey daha sormak isterim...Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
If Intersect(Target, Range("B15")) Is Nothing Then Exit Sub
UserForm1.Show
ElseIf Target.Column = 6 Then
If Intersect(Target, Range("F15")) Is Nothing Then Exit Sub
UserForm1.Show
End If
End Sub

kod yazımında kullandığımız 2 ve 6 neyi temsil ediyordu?

 

[İhsan Tank]

Çok çok teşekkürler İhsan Bey...

Rica ederim
:keyif: