kik tebliğine göre analiz ve maliyet

[okavut]

analiz ve maliyet tablolarınsa sıralama konusunda yardımcı olursanız sevinirim.Saygılarınla

 

[İhsan Tank]

analiz ve maliyet tablolarınsa sıralama konusunda yardımcı olursanız sevinirim.Saygılarınla

merhaba
dosyayı inceler misiniz bunun dışında nasıl bir işlem istediğinizi anlatırsanız onuda yapmaya çalışayım

 

[uzmanamele]

analiz ve maliyet tablolarınsa sıralama konusunda yardımcı olursanız sevinirim.Saygılarınla

merhaba

syn okavut, aşağıdaki linkteki soru sizin sorunuzun aynısı, sadece sayfa düzeni farklı.
ilgili konuda 14. mesajda verilen cevabın sizin işinizi hallettiğini söylemiştiniz?
kik tebliğine göre yaklaşık maliyet ve analiz örneği

 

[okavut]

sayın süleyman bey haklısınız ama idaremiz illa bu düzen diyince işler karıştı

 

[okavut]

sayın ihsan bey dosya bende çlışmadı ama

 

[İhsan Tank]

sayın ihsan bey dosya bende çlışmadı ama

ben maliyet sayfasında işlem yapmışım
diğer sayfada herhangi bir işlem yapmadım üstte anlattıklarınızı formül ile yapmaya çalıştım

 

[uzmanamele]

merhaba

maliyet sayfası için kod aşağıda. analiz sayfası için benzer kod kullanılacak, siz düzenlersiniz umuyorum, yapamazsanız analiz sayfası için kodu yazarız.

Sub kopyala_aktar()
ss = Range("a65536").End(3).Row
Range("G4" & ":I" & ss - 1).ClearContents
    Range("A4:B" & ss - 1).Copy
    Range("G4").PasteSpecial Paste:=xlPasteValues
    
    Range("F4:F" & ss - 1).Copy
    Range("I4").PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
Call tutara_göre_sirala
End Sub

Sub tutara_göre_sirala()
    Application.ScreenUpdating = False
    ss = Range("A65536").End(3).Row
    Range("G4" & ":I" & ss - 1).Select
    Selection.Sort Key1:=Range("I4"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Range("H3").Select
End Sub

 

[okavut]

sayın süleymanbey; önce sizin şahsınızda tüm arkadaşların ve ulusumuzun bayramını kutlar hayırlara vesile olmasını temenni ederim.
Süleymanbey elinize sağlık analiz sayfası için biraz uğraşayım olmazsa tekrar rahatsız ederim.
Saygılarımla.