combobox nesnesi hakk.

[ahmetozbey]

combobox nesnesinin özellikleriden ListFillRange kısmında Sayfa1!A1:A5000
(yani sayfa1 deki A1:A5000 arasındaki verileri kontrol ediyor.) kontrol etmesini istediğim Sayfa2 dede verilerim var aynı anda iki sayfadaki verileri nasıl kontrol ettirebilirim. yardımcı olursanız sevinirim.

 

[Recep İpek]

Combobox nesnesi sanırım sayfa üzerinde.

Sayfa2'deki verilerinizi combobox'ın 2.kolonundamı göstereceksiniz?.Yada sayfa1'deki verilerinizin altındamı olmasını istiyorsunuz?

 

[muhammethezer]

Private Sub ComboBox2_Change()
Set s1 = Sheets("sayfa1")
Set S2 = Sheets("sayfa2")
Kriter = ComboBox2.Value

Set ARA1 = S2.Cells.Find(What:=Kriter, After:=ActiveCell, LookIn:=xlValues)
If Not ARA1 Is Nothing Then
SAT1 = ARA1.Row

[H8] = S2.Cells(SAT1, "a")


Set ARA2 = S2.Cells.Find(What:=Kriter, After:=ActiveCell, LookIn:=xlValues)
If Not ARA2 Is Nothing Then
SAT2 = ARA2.Row

[B18] = S2.Cells(SAT2, "b")

End If: End If

End Sub

 

[ahmetozbey]

Çok TeŞekkÜr Ederİm Elİnİze SaĞlik

 

[muhammethezer]

Rica ederim yardımcı olabildim ise ne mutlu bende bu sayfadan öğrendiklerimi aktarıyorum.