ComboBox'tan seçim yapınca belirli hücrelere kayıt

[rahmi06]

Elimde böyle bir excel sayfası var. Formumun üzerinde 1 adet ComboBox, 40 Adet TextBox ve 1 Adet de Command Button var.

Benim isteğim sizlerden ricam, Comboboxta F10, R10, AD10 ve AP10 hücrelerinin listelenmesi ve Hangisini seçtiysem altında bulunan tablodaki bilgilerin TextBoxlara çıkması. Başlangıcı yaparsanız devamını sanırım yaparım.
Şimdiden teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Private Sub ComboBox1_Click()
Dim carpan As Byte, a, sat As Byte, sut As Byte
Dim txtbx As Control
If ComboBox1.ListCount < 1 Then Exit Sub
carpan = ComboBox1.ListIndex * 12
For Each nesne In Me.Controls
    If TypeName(nesne) = "TextBox" Then
        If nesne.Tag <> "" Then
                a = Split(nesne.Tag, "-")
                sat = a(0)
                sut = a(1)
                sut = sut + carpan
                If IsNumeric(Cells(sat, sut).Value) Then
                    nesne.Text = Format(Cells(sat, sut).Value, "#,##0.00")
                    Else
                    nesne.Text = Cells(sat, sut).Value
                End If
        End If
    End If
Next
End Sub

Private Sub Kaydet_Click()
Dim carpan As Byte, a, sat As Byte, sut As Byte
Dim txtbx As Control
carpan = ComboBox1.ListIndex * 12
For Each nesne In Me.Controls
    If TypeName(nesne) = "TextBox" Then
        If nesne.Tag <> "" Then
                a = Split(nesne.Tag, "-")
                sat = a(0)
                sut = a(1)
                sut = sut + carpan
            If IsNumeric(nesne) Then
                Sheets("Sayfa1").Cells(sat, sut).Value = CDbl(nesne.Value)
                Else
                Sheets("Sayfa1").Cells(sat, sut).Value = nesne.Value
            End If
        End If
    End If
Next
'Call UserForm_Activate
End Sub

Private Sub UserForm_Initialize()
Dim i As Byte
For i = 6 To 42 Step 12
    ComboBox1.AddItem Sheets("Sayfa1").Cells(10, i).Value
Next
ComboBox1.ListIndex = 0

End Sub

 

[rahmi06]

Çok teşekkürler Evren Gizlen Bey. ComboBox'da seçim yaptığımda kayıt ettğim bilgileri nasıl getirebilirim? Kayıt edilen sayfa sadece Sayfa1 olmayacak. hangi sayfa açıksa o sayfaya yazmasını ve bilgilerin o sayfadan çekmesini istiyorum. Yardımcı olursanız çok memnun olurum. Tekrar Çok Teşekkürler.

 

[Orion1]

Çok teşekkürler Evren Gizlen Bey. ComboBox'da seçim yaptığımda kayıt ettğim bilgileri nasıl getirebilirim? Kayıt edilen sayfa sadece Sayfa1 olmayacak. hangi sayfa açıksa o sayfaya yazmasını ve bilgilerin o sayfadan çekmesini istiyorum. Yardımcı olursanız çok memnun olurum. Tekrar Çok Teşekkürler.

Dosyayı istediğiniz şekilde günceledim.
2 numaralı mesajdan inidrebilirsiniz.

 

[rahmi06]

Tekrar çok teşekkürler Evren Bey.

 

[Orion1]

Tekrar çok teşekkürler Evren Bey.

Rica ederim.
İyi çalışmalar.