Çözüldü PERMÜTASYON YAPMA HK.

[FurkanS0001]

Merhaba,

A sütununa tek basamaklı değerler girilmek isteniyor. Sayı veya harf fark etmez.
B Sütununda ise A sütunundaki değerlerin, örneğin 3 basamaklı birbirinden farklı şekilde sıralanmış hali isteniyor.
Bu durumla ilgili bir formül ve işlem var mı ?

Çözüm için desteklerinizi rica ediyorum.

Örnek olarak:

A​	B​
1​	12C​
2​	1C2​
C​	21C​
​	2C1​
​	C12​
​	C21​

 

[muhasebeciyiz]

Sub Olustur()

Dim i As Long
Dim j As Long
Dim k As Long
Dim counter As Long

counter = 1

For i = 1 To 3
For j = 1 To 3
For k = 1 To 3
If i <> j And i <> k And j <> k Then
Cells(counter, 2).Value = Cells(i, 1).Value & Cells(j, 1).Value & Cells(k, 1).Value
counter = counter + 1
End If
Next k
Next j
Next i

End Sub

A sutununa 3 değer girerseniz makro istenileni vermektedir.

 

[Necdet]

Merhaba
Sizin verdiğiniz örnek Kombinasyon değil, permütusyon.

Linkteki dosyayı inceleyiniz

 

[muhasebeciyiz]

Sub Olustur()

Dim i As Long
Dim j As Long
Dim k As Long
Dim l As Long
Dim m As Long
Dim counter As Long

counter = 1

For i = 1 To 5
For j = 1 To 5
If j <> i Then
For k = 1 To 5
If k <> i And k <> j Then
For l = 1 To 5
If l <> i And l <> j And l <> k Then
For m = 1 To 5
If m <> i And m <> j And m <> k And m <> l Then
Cells(counter, 2).Value = Cells(i, 1).Value & Cells(j, 1).Value & Cells(k, 1).Value & Cells(l, 1).Value & Cells(m, 1).Value
counter = counter + 1
End If
Next m
End If
Next l
End If
Next k
End If
Next j
Next i

End Sub

Bu kod, A1'den A5'e kadar olan değerlerin tüm permütasyonlarını oluşturur ve B sütununa yazdırır.

 

[FurkanS0001]

Desteğiniz için teşekküller,
A sütünü komplesi için geçerliydi ama sorun yok makrolara bakarak yapabilirim sanırım.