sütun sırası belli olan sütunun harf değerini almak

[bulentgurses]

'Countif için gerekli olan Range'i girmeye çalışıyorum. Column değerini sayısal olarak elde ettiğim halde bunu harf değeri olarak alamadım. Cells tanımlayarak girmeye çalıştığımda da hata veriyor. Yardımcı olursanız sevinirim.





Private Sub ComboBox9_Change()
ComboBox10.Clear
son = Sayfa2.Cells(65536, 1).End(xlUp).Row

Set ara = Worksheets("personel").Range("a2:aw2").Find(ComboBox9.Text)
If Not ara Is Nothing Then
sutun = ara.Column

For u = 3 To son

If WorksheetFunction.CountIf(Worksheets("personel").Range(Sayfa2.Cells(3, sutun), _
Sayfa2.Cells(u, sutun)), Worksheets("personel").Range(Sayfa2.Cells(u, sutun)).Value) = 1 Then
ComboBox10.AddItem Sayfa2.Cells(u, sutun).Value
End If
Next


End If
End Sub

 

[halit3]

'Countif için gerekli olan Range'i girmeye çalışıyorum. Column değerini sayısal olarak elde ettiğim halde bunu harf değeri olarak alamadım. Cells tanımlayarak girmeye çalıştığımda da hata veriyor. Yardımcı olursanız sevinirim.





Private Sub ComboBox9_Change()
ComboBox10.Clear
son = Sayfa2.Cells(65536, 1).End(xlUp).Row

Set ara = Worksheets("personel").Range("a2:aw2").Find(ComboBox9.Text)
If Not ara Is Nothing Then
sutun = ara.Column

For u = 3 To son

If WorksheetFunction.CountIf(Worksheets("personel").Range(Sayfa2.Cells(3, sutun), _
Sayfa2.Cells(u, sutun)), Worksheets("personel").Range(Sayfa2.Cells(u, sutun)).Value) = 1 Then
ComboBox10.AddItem Sayfa2.Cells(u, sutun).Value
End If
Next


End If
End Sub

böyle denermisiniz.

Private Sub ComboBox9_Change()
ComboBox10.Clear
son = Sayfa2.Cells(65536, 1).End(xlUp).Row
Set ara = Worksheets("personel").Range("a2:aw2").Find(ComboBox9.Text)
If Not ara Is Nothing Then
sutun = ara.Column
For u = 3 To son
If WorksheetFunction.CountIf(Worksheets("personel").Range(Worksheets("personel").Cells(3, sutun), _
Worksheets("personel").Cells(u, sutun)), _
Worksheets("personel").Cells(u, sutun).Value) = 1 Then
ComboBox10.AddItem Sayfa2.Cells(u, sutun).Value
End If
Next
End If
End Sub

 

[bulentgurses]

Yanıtınız için çok teşekkür ederim. Düzeltmeniz başarılı oldu. Bende yanıt gelene kadar harf çevirme yolunu seçmiştim.
Yardımınız için teşekkürler.

Function HarfCevir(deger As Byte)
HarfCevir = Choose(deger, "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "AA", "AB", _
"AC", "AD")
End Function



Private Sub ComboBox9_Change()
Dim sutun As Integer
ComboBox10.Clear
son = Sayfa2.Cells(65536, 2).End(xlUp).Row
Set ara = Worksheets("personel").Range("a2:aw2").Find(ComboBox9.Text)

If Not ara Is Nothing Then

sutun = ara.Column

bas = HarfCevir(Str(sutun))

For u = 3 To son

If WorksheetFunction.CountIf(Worksheets("personel").Range(bas & 3 & ":" & bas & u), _
Worksheets("personel").Range(bas & u).Value) = 1 Then

ComboBox10.AddItem Sayfa2.Cells(u, sutun).Value

End If
Next
End If
End Sub

 

[bulentgurses]

Aslında merak ettiğim konu elde ettiğim column sayısal değerinin karşılığı olan sütun başlığını nasıl elde edebilirim. Gerçi sorunum çözldü ama merakım da gitmedi. Saygılar.

 

[halit3]

bunu denermisiniz.

Dim SütunAdı As String
sutun = Split(ara.Column, "$")(1)