Toplanan değerleri otomatik formülden çıkarma

[extremetonic]

Merhaba. Yapmak istediğimi ekte verdiğim örneğe göre açıklayayım...

A-W kolonlarında verilen her bedende depoda bulunan adetler yazıyor. Tarihlerin altında ise tüm bedenlerin o günkü bulunan toplam adeti yazıyor. Bunu her güne uygulamak istiyorum, her günün altında otomatik toplam almak istiyorum. Ama şöyle bir sorun var. Depoda bulunan bedenleri A-W kolonlarında değiştirdiğim zaman her gündeki toplam da formülde olduğu için değişiyor. Bu yüzden 05.11.2012 tarihinde toplam alınınca gün sonunda bu formül kendini otomatik olarak sayıya çevirebilir mi? Böylece 06.11.2012 tarihinde Gömlekteki S bedenindeki 56 adeti 55 yaptığım zaman bu günkü adet de doğru alınmış olur. Bunu yapmak herhangi bir şekilde mümkün mü?

Umarım anlatabilmişimdir...

 

[Korhan Ayhan]

Merhaba,

Bu işlemi makro ile yapabilirsiniz. Aşağıdaki kodu boş bir modüle uygulayınız. Daha sonra sayfada tarih olan hücreyi seçip makroyu çalıştırınız. O sütundaki formüller otomatik olarak değere dönüşecektir.

Sub DEĞERE_ÇEVİR()
    Sütun = ActiveCell.Column
    Range(Cells(2, Sütun), Cells(5, Sütun)).Value = Range(Cells(2, Sütun), Cells(5, Sütun)).Value
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[corsan75]

Merhaba,

Bu işlemi makro ile yapabilirsiniz. Aşağıdaki kodu boş bir modüle uygulayınız. Daha sonra sayfada tarih olan hücreyi seçip makroyu çalıştırınız. O sütundaki formüller otomatik olarak değere dönüşecektir.

Sub DEĞERE_ÇEVİR()
    Sütun = ActiveCell.Column
    Range(Cells(2, Sütun), Cells(5, Sütun)).Value = Range(Cells(2, Sütun), Cells(5, Sütun)).Value
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Korhan hocam acil yardıma ihtiyacım var mümkünmü acaba

 

[extremetonic]

Merhaba,

Bu işlemi makro ile yapabilirsiniz. Aşağıdaki kodu boş bir modüle uygulayınız. Daha sonra sayfada tarih olan hücreyi seçip makroyu çalıştırınız. O sütundaki formüller otomatik olarak değere dönüşecektir.

Sub DEĞERE_ÇEVİR()
    Sütun = ActiveCell.Column
    Range(Cells(2, Sütun), Cells(5, Sütun)).Value = Range(Cells(2, Sütun), Cells(5, Sütun)).Value
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Çok teşekkürler Korhan Ayhan. Örnek olarak verdiğim dosyada oldu, eline sağlık. Ama başka bir dosyada tamamen uygulayamadım, nedenini anlayamadım bir türlü. Ekte yolladığım Book2 dosyasında neden olmuyor? Yaptığımda sadece ilk iki hücreye uyguluyor ama gerisi yok?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki şekilde deneyiniz.

Sub DEĞERE_ÇEVİR()
    Sütun = ActiveCell.Column
    Satir = Cells(Rows.Count, Sütun).End(3).Row
    Range(Cells(4, Sütun), Cells(Satir, Sütun)).Value = Range(Cells(4, Sütun), Cells(Satir, Sütun)).Value
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[extremetonic]

Merhaba,

Aşağıdaki şekilde deneyiniz.

Sub DEĞERE_ÇEVİR()
    Sütun = ActiveCell.Column
    Satir = Cells(Rows.Count, Sütun).End(3).Row
    Range(Cells(4, Sütun), Cells(Satir, Sütun)).Value = Range(Cells(4, Sütun), Cells(Satir, Sütun)).Value
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Gerçekten çok teşekkürler Korhan Ayhan, harika. Oldu hepsinde, çok teşekkürler...