2 dönem indirim kıyaslaması

[neromero]

sayın üstadlarım öncelikle hepinize kolay gelsin. benim bir tablo oluşturma isteğim vardı da ekte sunmuş bulunmaktayım. yardımcı olursanız memnun olacağım örnek ektedir. kolay gelsin.

 

[Murat OSMA]

2011-2012 dönemi sayfasında 05.05.2012 tarihli bir kayıt göremedim ama tablo sayfasında görünüyor... bunu anlamadım.. ?

 

[neromero]

üstadım 2011-2012 dönemi kayıt tarihleri farklı nasıl yani 2011 yılının mayıs ayında yapılmış kayıt.

 

[Murat OSMA]

Kusura bakmayın.. ben 2011-2012 dönemi sayfasında 05.05.2012 tarihli bir kayıt göremiyorum...

 

[Murat OSMA]

Dosyanızın kodlarını olması gerektiği gibi hazırlamıştım aslında ama sizden bir yanıt gelmesini bekliyorum...

 

[neromero]

sayın üstadım. problemde burda zaten, tarih süzmesini 2012 2013 dönemiden seçiyoruzda karşısına yazılacak 2011-2012 indirim değerlerini nasıl getireceğiz onu bilemiyorum. yardımlarınızı bekliyorum.

 

[Murat OSMA]

Maalesef anlaşamıyoruz...

Sayfa3'ü silin ve tablo sayfasının kod bölümüne bu kodları yazıp, tablo sayfasının B6 hücresine bir tarih girerek deneyin...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim syf As Worksheet
    Dim bul As Range
    If Target.Address(0, 0) = "B6" Then
    Range("A10:C100").ClearContents
    For Each syf In Worksheets
        If syf.Name <> "tablo" Then
            For Each bul In syf.Range("B2:B100")
                If Sayfa3.Range("B6").Value = bul.Value Then
                    Range("A65536").End(3)(2, 1) = bul.Offset(0, 1).Value & _
                    " " & bul.Offset(0, 2).Value
                        If Right(Sayfa3.Range("B6").Value, 4) = "2011" Then
                            Range("B5536").End(3)(2, 1) = bul.Offset(0, 8).Value
                                Else
                            ange("C5536").End(3)(2, 1) = bul.Offset(0, 8).Value
                        End If
                End If
            Next bul
        End If
    Next syf
    End If
    Set bul = Nothing: Set syf = Nothing
End Sub

 

[neromero]

üstadım ekteki dosya hatası veriyor.

 

[Murat OSMA]

O hataya tamam deyin ve ange den önce R yazın. Yani; Range olacak... Satırın sonuna eklemeyin, satırın başına yazın.
Else den sonraki end if ten önceki arada kalan ange yazan satırın başına yazacaksınız, arada boşluk bırakmayın. Hemen başına yazın, ange den hemen önce...

 

[neromero]

üstadım çok güzel dediğiniz gibi yaptım çalışıyor. ama bu öğrencinin 2011-2012 dönemindeki indirim tutarı gelmiyor. onu nasıl getiririz acaba

 

[Murat OSMA]

Neden öğrenci ismine göre değil de tarihe göre listeliyorsunuz ?

 

[neromero]

kayıtlara uygulanan indirim oranlarını günlük inceleyeceğiz.

 

[neromero]

üstadlarım yardımlarınızı bekliyorum.