Combobox'a göre Sütuna değer yazma

[DeliBalta58]

Herkese merhabalar.
Arkadaşlar

sayfa1 A sütununda sıra no var
B sütununda Birimler var

UserForm daki Combobox1 RowSource özelliğini

Private Sub UserForm_Activate()
    Sheets("sayfa1").Select
    If Range("B2") = "" Then
        say = WorksheetFunction.CountA(Range("B1:B65000"))
        ComboBox1.RowSource = "sayfa1!B2:B" & say + 1
    Else
        say = WorksheetFunction.CountA(Range("A1:A65000"))
        ComboBox1.RowSource = "sayfa1!B2:B" & say
    End If
End Sub

bu kodlarla sagladım.

Combobox1'den seçilen değere göre;
Eğer seçilen değen B sütununda 2. sırada ise ( B2 de yazılı veri ile eşitse )
H2ye 1 yazacak eğilse 0 yazacak
H2 den başlayarak ( 2 Satır sabit kalacak )

Seçim B3 değerine eşikse I2 ye 1 değilse 0
diye devam edecek


dosya ekte .

 

[Seyit Tiken]

Aşağıdaki kodu kendinize uyarlayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = "" Then
UserForm1.ComboBox1.RowSource = "Y1:Y" & [sayfa1!Y65000].End(3).Row
Else
UserForm1.ComboBox1.RowSource = "Z1:Z" & [sayfa1!Z65000].End(3).Row
End If
End Sub

 

[DeliBalta58]

Kusura bakmayın ben yanlış anlattım.
Rowsource özelliği demedim.
Combobox'a gelen veri ile satırdaki veri karşılaştırılıp
A sütununda kaçıncı sırada ise H sütunu başlangıç olmak üzere aynı veriyi bulup 1 altına 1 yazacak

 

[DeliBalta58]

arkadaşlar yardımcı olabilecek yokmu acaba

 

[DeliBalta58]

Derdimize çare olacak kimse yokmu arkadaşlar?