başka bir sayfadaki verilerle iş takvimi oluşturma

[aarunflux11]

Arkadaşlar merhabalar,
başka bir sayfadaki verilerle iş takvimi oluşturmaya çalıştım ama yapamadım.
Eğersay,düşeyara ,indis vesaire ile.

veri sayfasındaki verileri tarihine göre ilk olandan başlayarak alt alta o tarihin altına sıralayacak şekilde yapmaya çalışıyorum.
Örnekte anlatmaya çalıştım.

Şimdiden yardımlarınız için teşekkür ederim.

 

[Ömer BARAN]

Merhaba.
Konuyu fonksiyonlar bölümüne açmışsınız ama
makro ile çözüm isterseniz aşağıdaki kod'u kullanabilirsiniz.

Sub LİSTELE_BARAN()
Dim v As Worksheet: Set v = Sheets("veri")
Dim t As Worksheet: Set t = Sheets("takvim")[SIZE="1"]

[/SIZE]    Range("B2:H49").ClearContents
        Range("B2:H49").Select
    Selection.Copy
        Range("K2").Select
    ActiveSheet.Paste
        Range("T2").Select
    ActiveSheet.Paste
    Range("B2").Select
    Application.CutCopyMode = False[SIZE="1"]

[/SIZE]For a = 2 To 25
    For b = 2 To v.[A65536].End(3).Row
        If v.Cells(b, 3) = "-" Then GoTo 10
        If t.Cells(1, a) = v.Cells(b, 3) Then
            t.Cells(t.Cells(65536, a).End(3).Row + 1, a) = v.Cells(b, 1) & "-" & v.Cells(b, 4)
        End If
10:    Next
Next[SIZE="1"]

[/SIZE]End Sub

Kod güncellendi.

 

[aarunflux11]

Ömer bey ilginize teşekkürler fakat makrolu kullanamıyoruz.
makrosuz nasıl halledebiliriz acaba???

 

[Ömer BARAN]

Merhaba. Formül kullanılarak çözüm için aşağıdaki adımları izleyiniz.
Veri sayfası E1 hücresine aşağıdaki formülü uygulayıp aşağı doğru kopyalayın
(bu sütun yardımcı sütun olarak kullanılıyor, formül uyguladıktan sonra gizleyebilirsiniz) .

=EĞER(EHATALIYSA(KAÇINCI($C2;takvim!$A$1:$Z$1;0));"";EĞERSAY($C$2:$C2;$C2)&" "&C2)

Takvim sayfası B2 hücresine aşağıdaki formülü uygulayıp aşağı ve sağa doğru kopyalayın.

=EĞER(EHATALIYSA(KAÇINCI(SATIR()-1&" "&B$1;veri!$E$1:$E$29;0));"";İNDİS(veri!$A$1:$A$29;KAÇINCI(SATIR()-1&" "&B$1;veri!$E$1:$E$29;0);1)&" - "&İNDİS(veri!$D$1:$D$29;KAÇINCI(SATIR()-1&" "&B$1;veri!$E$1:$E$29;0);1))

 

[aarunflux11]

Ömer bey ancak bakabildim. çok teşekkür ederim.elinize sağlık.

Not: Üstteki formülü E1 e değilde E2 ye uygulayınca doğru sonuç veriyor.Kullanacak olan diğer arkadaşların bilgisine.

 

[Ömer BARAN]

Ömer bey ancak bakabildim. çok teşekkür ederim.elinize sağlık.

Not: Üstteki formülü E1 e değilde E2 ye uygulayınca doğru sonuç veriyor.Kullanacak olan diğer arkadaşların bilgisine.

Yanlış yazmış olmalıyım, birinci satırınız zaten başlık satırı imiş.
İyi günler dilerim.

 

[aarunflux11]

Ömer Bey tekrar merhabalar.
Bu yeterli ama acaba diyorum yapılan işleri no larından bağımsız, benzer yani aynı işleri alt alta sıralayabilir miyiz?? Yani;
111-b
444-b
777-b
111-e
444-c gibi.
Dediğim gibi mevcut halide yeter bana.
Şimdiden teşekkürler.