Userform üzerindeki Combobox'dan seçtiğim indeksin parametre sayfasındaki değerini başka bir sayfada kodda belirtilen hücreye aktarabildim. Bu şekliyle kullanabilirim fakat her sayfa da kullanacağım farklı comboboxlara değerleri getirebilmek için range başlangıç ve bitiş değerlerini her bir userform için ayrı ayrı girmem gerekecek. Örneğimi düzenledikten sonra yeni konu açıp kafamdaki modele göre bu çalışan kodu revize etmelimiyim yoksa bu şekilde de kullanabilirmiyim sizlere danışacağım. Bu konuyu kapatabilirsiniz.Çok teşekkürler.
Kod:
Private Sub UserForm_Initialize()
son = ThisWorkbook.Sheets("PARAMETRE").UsedRange.Columns.Count
'----------
For i = 1 To son
ComboBox1.AddItem ThisWorkbook.Sheets("PARAMETRE").Cells(1, i)
With ComboBox1
.ColumnWidths = "60 pt"
.ListIndex = 0
End With
Next i
End Sub
Private Sub CommandButton1_Click()
Dim j As Integer, y
y = ComboBox1.ListIndex
j = Application.WorksheetFunction.Match(ComboBox1.Column(0), ThisWorkbook.Sheets("PARAMETRE").Range("A1:Z1"), 0)
[Bioclimatic!E17] = ThisWorkbook.Sheets("PARAMETRE").Cells(2, j)
End Sub