Süzüp aktarma!!!

[feridunsah]

Arkadaşlar kolay gelsin ben beceremedim tabloyu oluşturdum size zahmet yardımcı olabilirseniz sevinirim.tabloda çizelge bölümünde C sütunu F sütunu ve E sütunu süzüp ön olura atmasını istiyorum mümkünmüdür. yani kişinin adı soyadını görünce fiilen yaptığı iş yanınada çalıştığı yeri atması gibi!

Yardımlarınız için şimdiden teşekkürler

 

[Orion1]

Dosyanzı ektedir.

Option Base 1
Sub calisilan_yer_59()
Dim sh As Worksheet, sat As Long, liste(), myarr(), i As Long, a As Long
Application.ScreenUpdating = False
Sheets("ön olur").Range("A20:D65536").ClearContents
Sheets("çizelge").Select
sat = Cells(65536, "F").End(xlUp).Row
If sat < 6 Then Exit Sub
Set sh = Sheets("ön olur")
ReDim myarr(1 To 4, 1 To sat)
liste = Range("C6:F" & sat).Value
For i = LBound(liste) To UBound(liste)
    If liste(i, 4) <> "" Then
        a = a + 1
        myarr(1, a) = a
        myarr(2, a) = liste(i, 1)
        myarr(3, a) = liste(i, 4)
        myarr(4, a) = liste(i, 3)
    End If
Next i
Erase liste
Sheets("ön olur").Select
Range("A20:D65536").ClearContents
Range("A20").Resize(a, 4) = Application.Transpose(myarr)
Erase myarr
Range("B20:D65536").Sort Range("C20")
Application.ScreenUpdating = True
MsgBox "İşlem tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[feridunsah]

evren kardeş harf sırasına göre grup grup sıralanması gerekir mümkünse yapabilirmisin acaba

 

[Orion1]

evren kardeş harf sırasına göre grup grup sıralanması gerekir mümkünse yapabilirmisin acaba

ad soyada göremi sıralnacak
a dan z yemi sıralanacak?

 

[feridunsah]

sana zahmet olmazsa A dan Z ye sıralanacak değişik satırlardaki a lar bir grup b ler bir grup c ler ayrı bu şekilde bu arada elin kolun dert görmesin ustam teşekkürler

 

[feridunsah]

ustam ! harfler arasına başka harf girdiği zaman gurup gurup olmuyor yani yerköyleri alt alta bşka şefatli olursa onları alt alta o şekilde alma mümkünatı yokmu bunun

 

[feridunsah]

acaba bizi unuttularmı

 

[Orion1]

acaba bizi unuttularmı

Unutmadık ama
bensorum ayanıt alamdım.
ad soayada göremi sıralanacak dedim sizde evet dediniz. sonraki mesajınızda ise yer köy falan dediniz.Onlar ad soyad da değiller ,çalıştırğı yerlerde ait sütundalar.

 

[feridunsah]

Ustam çalıştığı yerler grup halinde alt alta alacak ayrıca ilgi alaka çok teşekkür ederim.

 

[feridunsah]

üstad çalıştığımız yere göre olanlar alt alta sıralanacak yerköy aynı olanlar alt alta başka isimse onlarda kendiyle aynı olanla alt alta olacak
teşekkürler

 

[Orion1]

Dosyayı güncelledim.
2 nolu mesajdan indirebilirsiniz.

 

[feridunsah]

hocam ellerine kollarına sağlık teşekkürler hakkını helal et senide bayğı uğraştırdık çok çok teşekkürler

 

[Orion1]

hocam ellerine kollarına sağlık teşekkürler hakkını helal et senide bayğı uğraştırdık çok çok teşekkürler

Rica ederim.
İyi çalışmalar.