Nöbet listesi oluşturma

[Sebahattinnn]

Bir nöbet listem var. Grup grup. Toplamda 16 grubum var. Ornek ) A1den / A10 listemde birinci nobeti olanlar var, B1den B10 a 2. Nobeti olan kişler, C1 den C10 , a da 3. Nöbeti olan arkadaslar var. Bu birinci grup, 2 grupta A15 den / A30 listemde birinci nobeti olanlar var, B15den B30 a 2. Nobeti olan kişler, C15 den C30 , a da 3. Nöbeti olan arkadaslar var. 1-31 gun arası. çakışan gun yok. her listede kendi icinde 1-31 rakami 1 defa geciyor. Bu liste toplamda 16 gruptan olusuyo. Benim baska bir sayfamda bir listem ve arama bolumum var, çıktı diye sayfama, F1'e mesela 3 yazdigimda 16 grupta 3 yazanlari (listem aylık oldugundan 3 yazmam, ekimin 3 u manasinda)(3 Ekim tarihi kastim) getirsin. Ben bunu duseyara ile yaptim ama olmadi. Formulumu grup grup attim, liste bolumu ekleme cikwrma yaomicamdan listem sabit. Dedimki duseyara($f$1;1.grubun olduğu bolumu sectim;7inci veriyi getir dedim;0) formül burada calisiyo getiriyor ancak bu kişinin 2. Yada 3.Nobeti varsa b sutunuda yada C sutunuda yazan bunlari getirmiyor. Duseyara ile baska bir formulmu kullanmaliyim, yiksa duseyara bu is icin degilmi? Simdiden yardinlariniz icin cok sağolun, 2 gundur formulu ariyorum

 

[Ömer]

Merhaba,

Sorunuzu destekleyen örnek dosya ekleyerek açıklar mısınız.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

.

 

[Sebahattinnn]

İndir NÖBET LİSTESİ

Dosyayı indir NÖBET LİSTESİ

dosya.co

 

[Sebahattinnn]

NÖBET LİSTESİ.xlsx - 44 KB

 

[Sebahattinnn]

<a href="https://dosya.co/0z2a6xmzguy5/NÖBET_LİSTESİ.xlsx.html" target=_blank>NÖBET LİSTESİ.xlsx - 44 KB</a>


Kusuruma bakmayın, listem tam bu, bilgilerim temsilidir.

 

[Ömer]

Dosyanızı anlayamadım, çıktı sayfasında olmasını istediğiniz tablonun tümünü 3 ekime göre formülle değilde elle yazarak yeni bir tablo ekleyip açıklar mısınız.

 

[Sebahattinnn]

İndir NÖBET LİSTESİ

Dosyayı indir NÖBET LİSTESİ

dosya.co

NÖBET LİSTESİ.xlsx - 49 KB



<a href="https://dosya.co/5amyrlgfc5ry/NÖBET_LİSTESİ.xlsx.html" target=_blank>NÖBET LİSTESİ.xlsx - 49 KB</a>




İLLGİNİZE ÇOK AMA ÇOK TEŞEKKÜR EDERİM... VAKİT AYIRMANIZ BİLE BENİM İÇİN UMUT IŞIĞI...

 

[Ömer]

Önemli değil, çözülmeyecek bir konu değil. Tam anlayıp çözüm vermek istiyorum.

F1 hücresine yazdığınız değer B:G aralığında aranacak hangi sütunda varsa tümünü listeleyecek.
İstediğiniz bu mu?

Ayrıca aynı listeyi 3 tablo halinde alt alta mı listeleyecek?

 

[Sebahattinnn]

Mükemmelsiniz, evet aynen dediğiniz gibi istiyorum. 6. nöbete kadar yazmıştımda 11. nöbete kadar yazsak, araya sütun eklesek, B:L arasında aratsak olurmu acaba. Sütun eklemeyi unutmuşum. çıktı sayfasında 3 liste halinde göstermesine gerek yok. kagıttan tasarruf için bir sayfaya 3 tane sığdırdım. 3 tablo yaparım derseniz, yapabilirseniz dahada mükemmel olur.

 

[Ömer]

Çıktı sayfasının kod bölüne geçerek yapıştırın.

F1 e veri girdiğinizde listeme 3 tablo olarak gelir.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Sn As Worksheet, sat As Long, c As Range, Adr As String

    If Intersect(Target, [F1]) Is Nothing Then Exit Sub

    Set Sn = Sheets("NÖBET LİSTESİ")

    Application.ScreenUpdating = False
    Range("A3:D" & Rows.Count).Clear
    If Target = "" Then Exit Sub

    sat = 3
    Set c = Sn.[B:L].Find(Target, , xlValues, xlWhole)
    If Not c Is Nothing Then
        Adr = c.Address
        Do
            Cells(sat, "A") = Sn.Cells(c.Row, "M")
            Cells(sat, "B") = Sn.Cells(c.Row, "N")
            Cells(sat, "C") = Sn.Cells(c.Row, "O")
            Cells(sat, "D") = Sn.Cells(c.Row, "P")
            sat = sat + 1
            Set c = Sn.[B:L].FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Adr
    End If
  
    Range("A3:D" & sat - 1).Borders.LineStyle = 1
  
    Range("A1:D" & sat - 1).Copy Range("A" & sat + 1)
    Range("A1:D" & sat - 1).Copy Range("A" & sat * 2 + 1)
  
    Application.ScreenUpdating = True
    MsgBox "Veriler Alındı.", vbInformation

End Sub

Linkten de ulaşabilirsiniz.

İndir NÖBET LİSTESİ Kopya

Dosyayı indir NÖBET LİSTESİ Kopya

dosya.co

 

[Sebahattinnn]

Sayın yönetici modarator omer bey, çok teşekkür ederim. Az öncede altın üyelik için kredi kartindan odeme yaptim. Uyeligimide aktif ederseniz sevinirim. Cok ugrastirdim sizi, değerli vaktinizi aldım, ,destekte olmak istedim. Sagolun

 

[Sebahattinnn]

Ya yemin ederim mukemmel olmuş. Yok böyle bir yetenek. Param, küçük bir mebla ama sonuna kadar helal hoş olsun. Teşekkür ederim Ömer bey. İnsallah bende sizin gjbi boyle makrolar , kodlar, programlar yazabilirim.

 

[Sebahattinnn]

Bu arada bu metni okuyanlar olursa diye, Ömer bey bunu ucretsiz hazirladi, ben destek icin altın uyelik satin aldım.

 

[Ömer]

Rica ederim, güle güle kullanın. Desteğiniz için biz teşekkür ederiz.
Altın üyelikleri @Hüseyin Bey ve @ElitNET aktif etmektedir, sistemden görünce aktif edilecektir.
İyi çalışmalar.

 

[ElitNET]

Bu arada bu metni okuyanlar olursa diye, Ömer bey bunu ucretsiz hazirladi, ben destek icin altın uyelik satin aldım.

Merhaba,
Aktivasyonunuz açıldı. Faydalı olmasını dileriz. Desteğiniz için teşekkürler...