Combobox ta hücre bağlantısı

[mehmet25]

Merhaba değerli arkadaşlar.Bir userfom üzerinde 100 adet combobox var.Bunların içindeki verilerin hepsi excel sayfasında hücrelere aktarılacak.Ben bir yol biliyorum ama çok uzun .Benim bildiğim Combobox un properties kısmında "ControlSource" bölümüne ilgili sayfa ve hüre adını yazıyorsun girilen veri o hücreye aktarılıyor.100 tane combobox kullanacağım .Acaba 100 combobox a ayrı ayrı hücre beliertmek yerine daha kolay bir yol var mı?
2. sorum comboboxtaki veriyi 2 ayrı saydada veya daha fazla sayfada bulunan hücrelere nasıl aktarırım.Nasıl bir kod gerekir?
Teşekkür eder saygılarımı sunarım.

 

[Orion1]

Merhaba.
Aşağıdaki kod cobobox1 den combobox100 e kadar olan verileri Sayfa1'de A1 :A100 ve Sayfa2'deki A1:A100 aralığına yazar.

Private Sub CommandButton1_Click()
Dim i As Byte
For i = 1 To 100
    Sheets("Sayfa1").Cells(i, "A").Value = Controls("ComboBox" & i)
    Sheets("Sayfa2").Cells(i, "A").Value = Controls("ComboBox" & i)
Next
End Sub

 

[mehmet25]

TeŞekkÜrler

Sn:Sezar çok teşekkür ederim, saygılar.

 

[Orion1]

Rica ederim.
İyi çalışmalar.