grafik boş hücreleri almasın, combobox'la ilgili

[Erdem Akdemir]

arkadaşlar merhaba

ekteki dosya'da yapmış olduğum grafik'te boş olan hücrelerin çizgiye dahil olmamasını istiyorum ve eklemiş olduğum combobox'ın initalize özelliğini excel açılışında nasıl aktif yapabilirim

İyi çalışmalar...

 

[hamitcan]

userform'u başlangıçta nasıl aktif yapabilirm

Userform yok.

mükerrer kayıtları süzmesi için makrosunu yazdım ama açılışta çalışmıyor

Sayfa aktif olduğunda kod çalışır.

Private Sub Worksheet_Activate()
    For x = 2 To Cells(65536, 1).End(xlUp).Row
        If WorksheetFunction.CountIf(Range("a2:a" & x), Cells(x, 1)) = 1 Then
          ComboBox1.AddItem Cells(x, 1).Value
        End If
    Next
End Sub

 

[Erdem Akdemir]

Userform yok.


Sayfa aktif olduğunda kod çalışır.

Private Sub Worksheet_Activate()
    For x = 2 To Cells(65536, 1).End(xlUp).Row
        If WorksheetFunction.CountIf(Range("a2:a" & x), Cells(x, 1)) = 1 Then
          ComboBox1.AddItem Cells(x, 1).Value
        End If
    Next
End Sub

hamit bey userform diyerek yanlış söyledim

excel sayfasında combobox nesnesi var , onun açılışta çalışmasını istiyorum

yazmış olduğunuz kodu eklediğimde çalışmadı

grafik kısmı da çok önemli , onunla ilgili neler yapılabilir

 

[Erdem Akdemir]

grafiğin akfif alanını makro ile nasıl belirlerim

end'i kullandığım zaman formül olan boş hücreyi görüyor, sağdan en son dolu hücreyi bulamıyorum

 

[hamitcan]

Eki inceleyin.

Private Sub Worksheet_Activate()
    For x = 2 To Cells(65536, 1).End(xlUp).Row
        If WorksheetFunction.CountIf(Range("a2:a" & x), Cells(x, 1)) = 1 Then
          ComboBox1.AddItem Cells(x, 1).Value
        End If
    Next
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
    For i = 7 To [z1].End(xlToLeft).Column
        If Cells(1, i) = "" Then
            ActiveSheet.ChartObjects("2 Grafik").Activate
            ActiveChart.SetSourceData Source:=Range(Cells(1, 6), Cells(3, i - 1)): Exit Sub
        End If
    Next
End Sub

 

[Erdem Akdemir]

hamit bey combobox nesnesi çalışmadı

grafik'te ise boru yazınca aktif alanı doğru seçmedi

 

[hamitcan]

Combobox nesnesini nasıl kullanmak istediğinizi anlamadım.

 

[Erdem Akdemir]

Combobox nesnesini nasıl kullanmak istediğinizi anlamadım.

excel dosyası her açıldığında, sayfadaki combobox nesnesi "a" sütunundaki verileri mükerrer olmayacak şekilde listeleyecek,excel'i açtığımda liste oluşmuyor

grafik uygulaması doğru çalışmıyor

yardımlarınız için teşekkür ederim

 

[hamitcan]

Ek olarak aşağıdaki kodu da ThisWorkBook kısmına ekleyin. Ayrıca, Combo değiştiğinde ne olacak anlamadım.

Private Sub Workbook_Open()
    For x = 2 To Sayfa1.Cells(65536, 1).End(xlUp).Row
        If WorksheetFunction.CountIf(Range("a2:a" & x), Sayfa1.Cells(x, 1)) = 1 Then
          Sayfa1.ComboBox1.AddItem Sayfa1.Cells(x, 1).Value
        End If
    Next
End Sub

 

[Erdem Akdemir]

hamit bey ilginiz için teşekkür ederim, combobox istediğim gibi oldu

açılıştı listeyi düzgün şekilde yapıyor

grafikle ilgili yaptığınızda ise ufak bir sorun var gibi

onu çalıştıramadım

 

[Erdem Akdemir]

Private Sub Worksheet_Change(ByVal Target As Range)
sat = [z1].End(xlToLeft).Column
    For i = 7 To [z1].End(xlToLeft).Column
        If Cells(1, i) = "" Then
            ActiveSheet.ChartObjects("2 Grafik").Activate
            ActiveChart.SetSourceData Source:=Range(Cells(1, 6), Cells(3, i - 1)): Exit Sub
            Else
                        ActiveSheet.ChartObjects("2 Grafik").Activate
            ActiveChart.SetSourceData Source:=Range(Cells(1, 6), Cells(3, sat))
        End If
    Next
End Sub

Halit bey kodu yukarıdaki gibi değiştirince grafik uygulaması da düzgün çalıştı

Herşey için teşekkür ederim