kombinasyon

[gencoglu27]

merhaba arkadaşlar,
A Sütünunda 10 öğrenci var. B sütünuna da aynı 10 öğrenciyı yazmak ve bunları C sütünunda sıralamak istiyorum..10x10=100 fakat aynı öğrenci kendisiyle eşleşemeyeceği için 90 lık bir liste olusturmam lazım..Yardımcı olur musunuz .A ve B sutunları...
ali ali
oya oya
kaya kaya
onur onur
mert mert
cem cem
fatma fatma
ayse ayse
kemal kemal
hasan hasan

Tesekkürler.

 

[lark]

Merhaba

Bir modül açıp kodu yapıştırır mısınız.

Sub komb()
dizi1 = Application.InputBox(Prompt:="İlk Aralığı Seçiniz", Type:=8)
dizi2 = Application.InputBox(Prompt:="İkinci Aralığı Seçiniz", Type:=8)
Set startalan = Application.InputBox(Prompt:="bunu koymak istediğiniz yeri seçin", Type:=8)
startalan.Select
For i = 1 To UBound(dizi1)
For x = 1 To UBound(dizi2)
If dizi1(i, 1) = dizi2(x, 1) Then
GoTo devam:
Else
ActiveCell.Offset(Z, 0).Value = dizi1(i, 1)
ActiveCell.Offset(Z, 1).Value = dizi2(x, 1)
Z = Z + 1
End If
devam:
Next
Next
End Sub

 

[gencoglu27]

Çok teşekkür ediyorum...Eline sağlık..