Combobox özelliği

[M.ACAR]

İyi geceler;Forumda bulunan herkese
Sütundaki verileri Combobox'a alıyorum,Fakat sütunda formüllü fakat sıfır boş olan hücreler var,Combobox'ta bunların görünmesini istemiyorum,bunu nasıl yapabilirim.

 

[Orion1]

Buyurun.

Dim hcr As Range
On Error GoTo atla
Range("A1:A10").SpecialCells(xlCellTypeConstants).Select
For Each hcr In Selection
    ComboBox1.AddItem hcr.Value
Next
atla:

 

[M.ACAR]

Sayın : Orion1
Verdiğiniz kod için teşekkür ederim,aynı dosya içinde fakat başka sayfadan veri alıyorsam,nasıl değişiklik yaparım.

 

[M.ACAR]

Sayfa6 C77:C110 sütunlarındaki verileri Safya3'de bulunan Combobox'a alıyorum Combobox'ta seçmiş olduğum isimi Sayfa3 G10 Hücresine yazdırıyorum.

 

[Orion1]

Sayın : Orion1
Verdiğiniz kod için teşekkür ederim,aynı dosya içinde fakat başka sayfadan veri alıyorsam,nasıl değişiklik yaparım.

Kırmızı yere siz kendi sayfa ismini yazınız.
Not : bu kod, formül olmayan hücreleri ve sadece değerleri alır.
Combobox1 sayfa1 de ve veriler ise sayfa2 dedir. alan ise C77:C100 dur.

Dim hcr As Range, sh As Worksheet, alan As Range
Set sh = Sheets("Sayfa2")
Sheets("Sayfa1").ComboBox1.Clear
On Error GoTo atla
Set alan = sh.Range("C77:C110").SpecialCells(xlCellTypeConstants)
For Each hcr In alan
    Sheets("Sayfa1").ComboBox1.AddItem hcr.Value
Next
atla:

 

[M.ACAR]

.
Not : bu kod, formül olmayan hücreleri ve sadece değerleri alır.

Dim hcr As Range, sh As Worksheet, alan As Range
Set sh = Sheets("Sayfa2")
Sheets("Sayfa1").ComboBox1.Clear
On Error GoTo atla
Set alan = sh.Range("C77:C110").SpecialCells(xlCellTypeConstants)
For Each hcr In alan
    Sheets("Sayfa1").ComboBox1.AddItem hcr.Value
Next
atla:

Sayın : Orion1 Verileri almış olduğum alandaki veriler formüllü vermiş olduğunuz kodu uyguladım değişiklik olmadı,Formüllü alanda nasıl kullanılır.

 

[Orion1]

Sayın : Orion1 Verileri almış olduğum alandaki veriler formüllü vermiş olduğunuz kodu uyguladım değişiklik olmadı,Formüllü alanda nasıl kullanılır.

Ben nedediğinizi anlamadım.
Örnek dosyayı ekte yolladım.

 

[M.ACAR]

Sayın : Orion1 Sizin verdiğiniz örnek dosya üzerinde olması gerekeni anlattım,Veri almış olduğum alan formüllü,başka sayfadan veri alıyor;Benim istediğim ise alanda sıfır ve boş olan (Boş derken formül sonucu boş) hücreleri combobox'a almayacak,bunun için koda ihtiyacım var.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodları denermisiniz.

Private Sub ComboBox1_Change()
    Sheets("Sayfa3").Range("G10") = ComboBox1.Value
End Sub
 
Private Sub ComboBox1_DropButtonClick()
    Dim Veri As Range
    
    ReDim Dizi(1 To 1)
    
    For Each Veri In Sheets("Sayfa2").Range("C77:C110")
        If Veri.Value <> "" And Veri.Value <> 0 Then
            X = X + 1
            ReDim Preserve Dizi(1 To X)
            Dizi(X) = Veri.Value
        End If
    Next
 
    ComboBox1.List = Dizi
End Sub

 

[M.ACAR]

Sayın : Korhan bey verdiğiniz yanıt için teşekkür ederim,fakat Combobox'un üzerine tıkladığımda ekli hataları veriyor.

 

[Excelmy]

Sayın M.ACAR

For Each Veri In Sheets("[B][COLOR="Red"]Sayfa 6[/COLOR][/B]").Range("C77:C110")

Yukarıda kırmızı puntolor ile gördüğünüz sayfa adında boşluğu kaldırınız.

Sayfa 6 değil Sayfa6 şeklinde olmalı.

 

[Orion1]

Sayın : Orion1 Sizin verdiğiniz örnek dosya üzerinde olması gerekeni anlattım,Veri almış olduğum alan formüllü,başka sayfadan veri alıyor;Benim istediğim ise alanda sıfır ve boş olan (Boş derken formül sonucu boş) hücreleri combobox'a almayacak,bunun için koda ihtiyacım var.

dosyanız ektedir.

Sub deger59()
Dim hcr As Range, sh As Worksheet, alan As Range
Set sh = Sheets("Sayfa2")
Sheets("Sayfa1").ComboBox1.Clear
Set alan = sh.Range("C77:C110")
For Each hcr In alan
    If hcr.Value <> "" And hcr.Value <> 0 Then _
    Sheets("Sayfa1").ComboBox1.AddItem hcr.Value
Next
End Sub