Excel Ödevi

[Wobey]

Merhaba arkadaşlar benim bi skntım var. Üniversite okuyorum bilgisayar programcılığı bölümündeyim hocamız excel ödevi verdi finali çok etkileyecek düzeyde bir excel ödevi verdi ben hiç bir şekilde yapamıyorum.Yardımcı olabilecek arkadaşlardan yardım istiyorum. Bunu yapamazsam dersten kalacam ödevimi 17.12.2017 saat 08.00' kadar vermeliyim

ödev dosyası linktedir.
http://s8.dosya.tc/server5/i4dd2i/Excell_O_dev.rar.html

 

[TanerSaydam]

Ekteki 1. Ödev için zaten bir arkadaş sordu ve ona cevap yazmıştık. 2. İçinde yarın sabah yazıp atayım kodları.

Ödev 1 için aşağıdaki konuya bakın
http://www.excel.web.tr/f14/excel-vba-makro-yardym-edin-lutfen-t168979.html

 

[Wobey]

teşekkür ederim hocam peki siz yapıp gönderebilirmisiniz bu ödevi hocam kodları falan eklemeyi bilmiyorum

 

[TanerSaydam]

Ödevin bunu öğrenin diye var. Ekleyip göndermek size yarardan çok zarar olacağı kanaatindeyim. O yüzden maalesef yapamam. İsterseniz kodları nasıl uygulayacağınızı ayrıntılı tarih ederim ve siz yaparsınız. Ayrıca sıralama ve toplama kodunu da aşağıya yazıyorum. Ortalama kodunu bende bilmiyorum.

Dim son As Integer

son = Range("B" & Rows.Count).End(xlUp).Row
Range("B1:B501").Select
    ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add Key:=Range("B1:B501"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sayfa1").Sort
        .SetRange Range("B1:B501")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Range("B" & son + 1) = WorksheetFunction.Sum(Range("B1", "B" & son))