ComboBox ile ilgili bir sorun

[ahm11]

form üzerinde iki adet ComboBox var ve aşağıdaki kod yazılı.

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "işlemkod!a3:a32"
ComboBox2.RowSource = "işlemkod!c3:c32"
End Sub
Burada yapmak istediğim ComboBox1 de mesela 5.satırı seçtiğim zaman, ComboBox2 de de 5.satırın kendiliğinden seçili duruma gelmesi.yani ComboBox1 de hangi satırı seçersem ComboBox2 de de aynı satırın seçili olması.(a ve c sutunlarındaki veriler farklıdır.)

 

[Levent Menteşoğlu]

Combobox1'e aşağıdaki kodu yazarak deneyin.

[vb:1:1af3e962e2]Private Sub ComboBox1_Click()
ComboBox2.ListIndex = ComboBox1.ListIndex
End Sub
[/vb:1:1af3e962e2]

 

[ahm11]

leventm bey teşekkür ederim.verdiğiniz kod işimi gördü.

sizden bir isteğim daha olacak.sayfa1 den; sayfa2 deki a sutununda dolu olan en son hücreden sonraki, satırdan başlamak üzere veri kaydetmek istiyorum.

 

[Levent Menteşoğlu]

sayfa2deki enson satırdan bir sonrakini tanımlamak için aşağıdaki kodu kullanabilirsiniz. Burada sat değişkenine sayfa2 deki en son satırdan bir sonraki satırın satır nosu atanmıştır. Bu satır nosunu makronuzda kullanmalısınız.

sat=Sheets("Sayfa2").cells(65536,1).end(xlup).Row

 

[ahm11]

leventm bey:
kusura bakmayın ama bu kodu çözemedim.
bir örnek verebilirmisiniz.

 

[Levent Menteşoğlu]

Bunu izah etmek zor örnek dosya eklerseniz onun üzerinden gidelim,bu durumda çalışma prensibini rahatlıkla anlayabilirsiniz.

 

[danersin]

Basit bir örnek ;

 

[ahm11]

bir örnek

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyiniz.

http://www.excel.web.tr/viewtopic.php?t=1435&highlight=*cells+65536

 

[ahm11]

sayın leventm,
sayın danersin,

verdiğiniz örnekler için teşekkürler.konuyu daha iyi anladım.