listele

[excel]

merhaba,
ekli dosyada belirttiğim gibi bir sıralama yapmak istiyorum.
tşk.

 

[Ali]

C1 hücreniz aramak istediğiniz adı yazınız.ALP gibi..

C2 hücrenize

=EĞERSAY($B$1:$B$19;$C$1)

yazın.

D2 hücrenize

=EĞER(SATIRSAY($E$2:E2)<=$C$2;İNDİS($B$1:$B$20;KÜÇÜK(EĞER($B$1:$B$20=$C$1;SATIR($B$1:$B$20)-SATIR($B$1)+1);SATIRSAY($E$2:E2)));"")

yazıp direk entere basmadan CTRL+SHIFT+ENTER tuşlarına birlikte basarak dizi formülü oluşturup aşağı doğru çekiniz.

E2 hücrenize

=EĞER(SATIRSAY($E$2:E2)<=$C$2;İNDİS($A$1:$A$20;KÜÇÜK(EĞER($B$1:$B$20=$C$1;SATIR($B$1:$B$20)-SATIR($B$1)+1);SATIRSAY($E$2:E2)));"")

yazıp yine direk entere basmadan CTRL+SHIFT+ENTER tuşlarına birlikte basarak dizi formülü oluşturup aşağı doğru çekiniz.

Örnek dosya ektedir.

 

[bedersu]

Merhaba,
Bu da makrolu çözüm.

sub dağıt()
satır = 1
satır2 = WorksheetFunction.CountA(Range("A:A"))
For i = 1 To satır2
If Cells(i, 2) = "ALP" Then
satır = satır + 1
Cells(satır, 4) = "ALP"
Cells(satır, 5) = Cells(i, 2).Offset(0, -1)
End If
Next
end sub

 

[Necdet]

Merhaba,

Makrolu ve alternatif çözüm, tek bir sözcüğe ve küçük harf/büyük harfe bağlı değilsiniz

Public Sub Aktar()
j = 1
Aranan = InputBox("Aktarılacak Değeri Giriniz :")
If Aranan = "" Or False Then Exit Sub
Aranan = UCase(Aranan)
Range("D2:E65536").ClearContents
For i = 1 To [A65536].End(3).Row
    If UCase(Cells(i, "B")) = Aranan Then
       j = j + 1
       Cells(j, "D") = Aranan
       Cells(j, "E") = Cells(i, "A")
    End If
Next i
End Sub