excelde farklı sayfalarda sınıflandırma

[embirli]

arkdaslar excelde meselela
isim okul
ahmet lise
mehmet ortaokul

arkadslar mesela ben ısım ve okulunu yazınca liselileri bi sayfaya ortaokulluları bı sayfaya nasıl sıralatabılırz lutfen cok onemlı ısımsatırına ısmı yazınca okulunu gıecegegım her sayfa bır okul olacak ona gore sıralama yapacak sımdıden tesekkur edıyorum.

 

[Ömer]

Merhaba,

Konu başlığını sorunun içeriğini ifade edecek şekilde değiştirmenizi rica ederim.

Açılan Konu Başlığını Düzeltmek

Forum Kurallarina Uymayan Basliklar Hakkinda

.

 

[sadesinan12345]

anlatmak istediğiniz şeye bir örnek dosya yollar mısınız?

 

[Mahir64]

arkdaslar excelde meselela
isim okul
ahmet lise
mehmet ortaokul

arkadslar mesela ben ısım ve okulunu yazınca liselileri bi sayfaya ortaokulluları bı sayfaya nasıl sıralatabılırz lutfen cok onemlı ısımsatırına ısmı yazınca okulunu gıecegegım her sayfa bır okul olacak ona gore sıralama yapacak sımdıden tesekkur edıyorum.

Merhaba,
Daha özenli bir Türkçe ile istediğinizi anlatırsanız ve başlığınızı, konunuzu özetleyecek şekilde değiştirirseniz yardım almanız kolay ve hızlı olacaktır.

 

[embirli]

anlatmak istediğiniz şeye bir örnek dosya yollar mısınız?

burda hocam

 

[numan şamil]

arkdaslar excelde meselela
isim okul
ahmet lise
mehmet ortaokul

arkadslar mesela ben ısım ve okulunu yazınca liselileri bi sayfaya ortaokulluları bı sayfaya nasıl sıralatabılırz lutfen cok onemlı ısımsatırına ısmı yazınca okulunu gıecegegım her sayfa bır okul olacak ona gore sıralama yapacak sımdıden tesekkur edıyorum.

Merhaba
Ekli dosyayı inceleyiniz

 

[numan şamil]

Buda butonsuz D sutunundaki hücrelere veri girilince işlem yapıyor

 

[embirli]

Buda butonsuz D sutunundaki hücrelere veri girilince işlem yapıyor

hocam bunun formulu lazım işte bana

 

[Huseyinkis]

hocam bunun formulu lazım işte bana

Sayın Numan şamil dosyasındaki kodlar aşağıda..

Sub Duruma_Göre_Aktar()

Dim U As Long, Satır As Long, SK As Worksheet, Satır2, s, s1
Dim SB As Worksheet, SD As Worksheet, Say As Double, Meslek_Say As Double

Set SK = Sheets("tablo")
Set SB = Sheets("ortaokul")
Set SD = Sheets("lise")

SB.Range("A2:C" & SB.Range("C65536").End(3).Row + 1).ClearContents
SD.Range("A2:C" & SD.Range("C65536").End(3).Row + 1).ClearContents
 Satır = SB.Range("A65536").End(3).Row + 1
 Satır2 = SD.Range("A65536").End(3).Row + 1
    For U = 1 To SK.Range("A65536").End(3).Row
        If SK.Cells(U, "C") = "ortaokul" Then
        
        Meslek_Say = WorksheetFunction.CountIf(SB.Range("B2:B65536"), SK.Cells(U, "B"))
        If Meslek_Say < 1 Then
        s1 = s1 + 1
         SB.Cells(Satır, "A") = s1   'SK.Cells(U, "A")
            SB.Cells(Satır, "B") = SK.Cells(U, "B")
           SB.Cells(Satır, "C") = SK.Cells(U, "C")
            Satır = SB.Range("A65536").End(3).Row + 1
        End If
        
        ElseIf SK.Cells(U, "C") = "lise" Then
    
            Meslek_Say = WorksheetFunction.CountIf(SD.Range("B2:B65536"), SK.Cells(U, "B"))
            If Meslek_Say < 1 Then
        s = s + 1
                SD.Cells(Satır2, "A") = s  'SK.Cells(U, "A")
                SD.Cells(Satır2, "B") = SK.Cells(U, "B")
                SD.Cells(Satır2, "C") = SK.Cells(U, "C")
                 Satır2 = SD.Range("A65536").End(3).Row + 1
            End If
        End If
    Next
    'MsgBox "İşleminiz tamamlanmıştır", vbInformation, "Sn : " & Application.UserName
End Sub

 

[embirli]

nasıl kullanılıyor bılmıyorumkı ben bunu bi yardımcı olsanız bende 6 bçlüme ayrılacak zaten

 

[numan şamil]

nasıl kullanılıyor bılmıyorumkı ben bunu bi yardımcı olsanız bende 6 bçlüme ayrılacak zaten

uygulamadaki dosyanızın birebir örneğini ekleyip (kaç sayfa sayfa isimleri v.s.) gönderirseniz umarım yardımcı olan arkadaşlar çıkacaktır
Not: benim biraz işim var bilgisayaraı kapatmak zorundayım

 

[embirli]

Yolladım hocam umarım bı sonuc cıkar

 

[embirli]

Yolladım hocam umarım bı sonuc cıkar

hocam bana bunu exel de yazılmıs halı lazım. makro olmuyor

 

[Ömer]

Yolladım hocam umarım bı sonuc cıkar

Dosyanızı tekrar eklermisiniz.

 

[embirli]

buyrun hocam

 

[Ömer]

Dosyanız ektedir.

Sayfa isimleri ile doğrulamadan girdiğiniz isimlerin aynı olmasına özen gösteriniz. Sayfalardaki K1, L1 ve B sütununda formüller mevcuttur.

 

[embirli]

Hocam cok teşekkür ederim allah razı olsun.