Ay'a gore veriyi baska sayfada gostermek

[Eser Gökay]

arkadaslar herkese merhaba!

problemimi ekte anlattim. ilgilenenlere simdiden tesekkur ederim.

 

[Eser Gökay]

arkadaslar bu konuya yardımlarınızı hala beklemekteyim.

 

[Korhan Ayhan]

Selamlar,

Ekte örnek dosyanız üzerinde gerekli düzenlemeleri yaptım. İncelermisiniz.

 

[Eser Gökay]

sn COST_CONTROL ilgilendiginiz icin tesekkur ediyorum. islem istedigim sonucu veriyor. elinize saglik ancak istegimizi yazarken eksik yazmisim. hesapla butonuna tiklayinca verileri aktarip sonuc sayfasina gitmesini de saglayabilir misiniz?

 

[Korhan Ayhan]

Selamlar,

Örnek dosyadaki kodu aşağıdaki ile değiştirip denermisiniz.

Sub HESAPLA()
    Set SV = Sheets("VeriGiris")
    Set SF = Sheets("Formuller")
    Set SS = Sheets("Sonuc")
    If SV.[D3] <> "" Then
    AY = Month(SV.[D3])
    If AY = 1 Then SS.[D1:F15] = SF.[A1:C15].Value
    If AY = 2 Then SS.[D1:F15] = SF.[D1:F15].Value
    If AY = 3 Then SS.[D1:F15] = SF.[G1:I15].Value
    If AY = 4 Then SS.[D1:F15] = SF.[A16:C30].Value
    If AY = 5 Then SS.[D1:F15] = SF.[D16:F30].Value
    If AY = 6 Then SS.[D1:F15] = SF.[G16:I30].Value
    If AY = 7 Then SS.[D1:F15] = SF.[A31:C45].Value
    If AY = 8 Then SS.[D1:F15] = SF.[D31:F45].Value
    If AY = 9 Then SS.[D1:F15] = SF.[G31:I45].Value
    If AY = 10 Then SS.[D1:F15] = SF.[A46:C60].Value
    If AY = 11 Then SS.[D1:F15] = SF.[D46:F60].Value
    If AY = 12 Then SS.[D1:F15] = SF.[G46:I60].Value
    End If
    SS.Select
    Set SV = Nothing
    Set SF = Nothing
    Set SS = Nothing
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub

 

[Eser Gökay]

sn cost_control cok tesekkur ediyorum.