Combobox hk

[chakistes]

merhaba arkadaşlar 25 adet combobox var bunlarda her combobox içinde
Faaliyeti seçince exceldeki sayfa3 içine f yazsın
İzinli seçinde İ
Sevkli seçince S yazsın komutlar bu şekilde devam ediyor. bu konuda yardıma ihtiyacım var.
Ayrıca combobox1 deki komutlar 30 adet her birine tek tek yazdım döngü ile yapma imkanı varmıdır.

Me.ComboBox1.AddItem "Faaliyet"
Me.ComboBox1.AddItem "Raporlu"
Me.ComboBox1.AddItem "Sevk"
Me.ComboBox1.AddItem "İzinli"
Me.ComboBox1.AddItem "Geç"
Me.ComboBox2.AddItem "Faaliyet"
Me.ComboBox2.AddItem "Raporlu"
Me.ComboBox2.AddItem "Sevk"
Me.ComboBox2.AddItem "İzinli"
Me.ComboBox2.AddItem "Geç"

 

[turist]

Sayın @chakistes ,
ComboBox'ların bulunduğu yer (Sayfa mı, UserForm mu) ve eklenecek bilgilerin yeri bilinmeden, Sayfa yapısı(Sayfa koruması, kilitli hücre vb.), seçilenlerin yazılacak yerleri(Hangi sütun,satır) bilinmeden ve ayrıca çalışma kitabında, dosyada, sayfada veya Userform'da başka kodlar var mı, yok mu bilinmeden;
"teorik" bir cevap mı istiyorsunuz?

Eğer kendi dosyanızla ilgili bir soru soruyorsanız;
Sorunuzu kendi hazırladığınız bir "örnek" excel dosyanızı ekleyerek sorarsanız, daha hızlı ve doğru cevaplar bulabilirsiniz.
Örnek excel dosyası ekleme hakkında bilgi edinmek isterseniz:
https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/
bakınız.

 

[chakistes]

Comboboxlar userformda ama örnek combobox1 de faaliyet seçtiğimde excel a1 satırına f yazsın yada comboboxta İzinli seçtiğinde yine excelde a1 satırına İ yazacak bunun gibi userformds 25 adet combobox var

 

[turist]

Teorik cevap:
Private Sub ComboBox1_Change()
Sheets("Sayfanın ADI").Range("A1").Value = Left(Me.ComboBox1.Text, 1)
End Sub

 

[chakistes]

teşekkür ederim