Kalabak.Net

Excel’de bir sütundaki değerleri, satırlarda yer alan bir ID değerine göre gruplandırmak için bir formül yok, varsa da ben bilmiyorum…

Aşağıdaki kod parçacığı, satırlardaki değerleri kontrol ederek, aynı ID’li satırlar için, bir sütundaki verileri yan yana birleştirerek, tek bir hücreye yazıyor…

Aşağıdaki tabloda örneğini görmek mümkün…

Sub Button1_Click()

Dim SearchValue, temp_SearchValue As String
Dim ValueArray, Value_1, Value_2 As String
Dim RowIndex, ValueColumnIndex, SearchColumnIndex, TargetColumnIndex As Integer
RowIndex = 3 ‘ Aramaya hangi satirdan baslayacak?
SearchValue = 0
temp_SearchValue = 0
ValueArray = “”
ValueColumnIndex = 8 ‘ Hangi sütundaki degerleri gruplandiracak
SearchColumnIndex = 1 ‘ Gruplandirmayi hangi sütundaki degerlere gore yapacak
TargetColumnIndex = 9 ‘ Gruplandirilmis sonuclari hangi sütuna yazacak

Value_2 = Cells(3, ValueColumnIndex)

Sheet1.Select

i = 3

Do While Cells(i, SearchColumnIndex) <> “”

SearchValue = Cells(i, SearchColumnIndex).Value
Value_1 = Cells(i, ValueColumnIndex).Value

If SearchValue <> temp_SearchValue Then
ValueArray = “”
RowIndex = i
temp_SearchValue = Cells(i, SearchColumnIndex).Value
If ValueArray = “” Then
ValueArray = Value_1
Else
ValueArray = ValueArray & “-” & Value_1
End If

Else
If Value_1 <> Value_2 Then
If ValueArray = “” Then
ValueArray = ValueArray
Else
ValueArray = ValueArray & “-” & Value_1
End If
End If

End If

‘Debug.Print “i : ” & i & ” - SearchValue : ” & SearchValue & ” - temp_SearchValue : ” & temp_SearchValue & ” - Value_1 : ” & Value_1 & ” - Value_2 : ” & Value_2
Value_2 = Cells(i, ValueColumnIndex)
Cells(RowIndex, TargetColumnIndex) = ValueArray

i = i + 1

Loop

End Sub

Microsoft yazmazsa sen yazarsın

Yorum yok

İş yerindeki Office İngilizce sürüm, evdeki Türkçe… Daha öncesinde evde excel formülleri ile çok fazla işim olmamıştı, bu sabah bir iki iş yapayım derken, takıldım kaldım… Haliyle, İngilizce isimleri kullanınca hata veriyor, listeden seçmeye açlışıyorum, çok değişik isimler var, orjinal isimlerle bağlantı kurmak zor… Uğraştığım formüller de öyle ağır abilerden değil…

CountA, Bağ_Değ_Dolu_Say, Count Bağ_Değ_Say olarak çevrilmiş, belki istatistikçiler için bir anlamı vardır ama ben hiçbir şekilde arada bağlantı kuramadım

Sonuç –> Google –> excel counta türkçe karşılık –> 1. sırada tanıdık bir isim

Muhtemelen Caner Cangül’de zamanında uğraşmış, elimin altında olsun diyerek bloguna eklemiş, teşekkürler… Buyrun, formüllerin Türkçe karşılıkları…

2 yorum