UserForm/Combobox'tan seçilen verinin sıra no'sunu A1'e yazdırma

[EKREM1661]

Saygıdeğer Arkadaşlar..! Aşağıda eklediğim dosya örneğinde; sayfa sütunu üzerindeki verileri combobox kutusuna listeleyen userform mevcut..

Combobox'tan her seçim yapıldığında, seçime ait verinin sıra numarasını "A1" hücresine yazması gerekiyor.

 

[Orion1]

Dosyanız ekte.

Private Sub ComboBox1_Click()
Range("A1").Value = Cells(ComboBox1.ListIndex + 3, "A").Value
End Sub

 

[EKREM1661]

Çok saygıdeğer dostum sayın Evren bey..! Sizlerin; şahsımda, hususi ve seçkin olduğunuzu bildirmek isterim.. Teşekkürlerimi ifade ile iyi çalışmalar diliyorum..

 

[Orion1]

Çok saygıdeğer dostum sayın Evren bey..! Sizlerin; şahsımda, hususi ve seçkin olduğunuzu bildirmek isterim.. Teşekkürlerimi ifade ile iyi çalışmalar diliyorum..

Teşekkür ederim.
İyi çalışmalar.

 

[EKREM1661]

Evren Bey..! istemiyerek sizi tekrar rahatsız ediyorum..

Yukarıdaki örneğe göre; Sayfa1 deki kaynak veriler (A3:B12), şayet başka bir sayfada, mesela Sayfa2 de olmuş olsa;

Bu defa, mevcut kodu nasıl düzenlememiz gerekirdi..

 

[Orion1]

Evren Bey..! istemiyerek sizi tekrar rahatsız ediyorum..

Yukarıdaki örneğe göre; Sayfa1 deki kaynak veriler (A3:B12), şayet başka bir sayfada, mesela Sayfa2 de olmuş olsa;

Bu defa, mevcut kodu nasıl düzenlememiz gerekirdi..

Private Sub ComboBox1_Click()
Range("A1").Value = sheets("Sayfa2").Cells(ComboBox1.ListIndex + 3, "A").Value
End Sub

 

[EKREM1661]

Değerli hocam Evren bey'e tekrar canı gönülden teşekkür ediyorum.. Konu ile ilgili projemi tamamlamış oldum..

 

[Orion1]

Değerli hocam Evren bey'e tekrar canı gönülden teşekkür ediyorum.. Konu ile ilgili projemi tamamlamış oldum..

Hayırlı olsun.