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

Popularity: 3% [?]

Yorum yok