formda verileri b sutunundan değil a sutunundan alsın

[jambow]

arkadaşlar basit bir şey belki ama formlarla çalışmaya yeni başladım açılan formdaki firma adını b sutunundan alıyor ben bunu a sutunundan almasını istiyorum bu değişikliği yapabilirmisiniz
dosya ekte

 

[leumruk]

Private Sub UserForm_Initialize()
    Dim say As Integer
    Sheets("Veri").Select
    txtsira.Locked = True
    If Range("A2") = "" Then
        say = WorksheetFunction.CountA(Range("A1:A65000"))
        cbAd.RowSource = "Veri!A2:A" & say + 1
    Else
        say = WorksheetFunction.CountA(Range("A1:A65000"))
        cbAd.RowSource = "Veri!A2:A" & say
    End If
    txtsira.Value = say
    cbAd.SetFocus
End Sub

B'leri A yapacaksınız. Düzeltilmiş şekliyle veriyorum. Bu kodu, eskisinin yerine kopyalayın.

 

[Orion1]

Ekli dosyayı inceleyiniz.