Tarih değişikliginde devir hesaplaması

[northcyprus]

tarih degiştiği zaman devir hesaplaması yapmam gerekiyor ve ben beeremedim
istediğim şey "O" kolonundaki O4 de 90 yazıyorsa ben bunu tarih değiştiği zaman J4 kolonuna atmak istiyorum.. ama bi türlü beceremedim aceba bana nasıl yardımcı olabilirsiniz.

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[northcyprus]

sayin leventm dosya ekliyemiyorum dosyayı nasıl ekleyebilirim ?

 

[Levent Menteşoğlu]

"Cevap yaz" butonuna tıkladıktan sonra açılan pencerenin altında "Dosya ekle veya sil" butonu ile dosyanızı ekleyebilirsiniz.

 

[northcyprus]

benim yapmak istediğim şey sheet2 deki tarih değiştiğinde genel toplamdaki miktarları oda numaralarına göre devir kolonuna aktarılması bi de sheet1 deki tarih G6 ayini ise C6 da ki ismi sheet3!B5 e atmasını istiyorum...
ben yapamadım yardımınız için şimdiden teşekür ederim...

 

[Orion1]

Merhaba.
Ekli dosyayayı inceleyin.İstediğiniz böyle bir şeymi?
Sayfa aktif olduğunda tarihi sorguluyor.Tarih değişmişse istediklerinizi yapıyor.
İyi çalışmalar.
dosayayı güncelledim.

 

[northcyprus]

Sayın SEZAR istediğim buyudu harika olmuş ama sheet2 de bi sorun var birincisi M1 kolonuna tarih eklenmiş bu defa iki tane tarih oluyor ve O kolonundaki genel toplamdaki sayıların tarih değiştiğinde J kolonuna geçmesini istiyordum olmamış galiba orda bi sorun var..
ama yine de ilginiz için teşekür ederim

 

[Orion1]

Tarihin değiştiğini eski tarihi yeni tarihi nereden anlayacağız.Elbette M1 Hücresine Eski tarihi kayıt edeceğiz ki karşılaştırma yapalım.Ama Siz M1 hücresinde bir şey görmek istemiyorsanızBiçimlendirmeden karakter rengini beyaz yapabilirsiniz.
Ayrıca Program Tarih değiştiğinde(Değişiklik Sayfa aktif Olduğu zaman)Genel toplamdaki verileri J sütununa atıyor.
Tarihi değiştirin ve başka bir sayfa yı açın sonra yine sheet2'yi açın programın çalıştığını göreceksiniz.

 

[northcyprus]

sayın sezar anlıyorum program çalışıyor fakat devir 90 olması gerekirken 180 olmuş ayrıca sadece 180 olarak kalıyor mesela tarihi gün gün iki defa değiştirdiğimizde ilk 90 atması lazım sonra 180 sonra 270 vs. olması lazım fakat öyle olmuyor. tarih değiştiğinde onları atmak için hangi komutu kullanmıştınız?

 

[northcyprus]

sayın sezar bir de sheet1 de olanları sildiğimiz zaman devirde sadece 180 kalıyor onun kalmaması gerekiyor.
yine de teşekür ederim sayın SEZAR

 

[Orion1]

Programı denedim.
Aynen sizin dediğiniz gibi oluyor.
Tarihi değiştirdiğinizde başka bir sayfa açın sonra tekrardan Sheet2'yi açın.Değiştiğini göreceksiniz.Tarih değişikliği yaptığınızda başka bir sayfayı Sonra sheet2'yi açmayı unutmayın..Çünkü kodlar Sheet2'nin activite olayına yazıldı.Kodları aşağıda veriyorum.
Dosyayı güncelledim.

Private Sub Worksheet_Activate()
Dim i As Byte
If Sheets("Sheet2").Range("O1").Value = Sheets("Sheet2").Range("M1").Value Then Exit Sub
Sheets("Sheet2").Range("M1").Value = Sheets("Sheet2").Range("O1").Value
Sheets("Sheet2").Range("M1").NumberFormat = "dd.mm.yyyy"
For i = 4 To 35
    If Sheets("Sheet2").Cells(i, "O").Value <> "" Then
        Sheets("Sheet2").Cells(i, "J").Value = Sheets("Sheet2").Cells(i, "O").Value
    End If
Next
End Sub

Sub Auto_Open()
Dim i As Byte
If Sheets("Sheet2").Range("O1").Value = Sheets("Sheet2").Range("M1").Value Then Exit Sub
Sheets("Sheet2").Range("M1").Value = Sheets("Sheet2").Range("O1").Value
Sheets("Sheet2").Range("M1").NumberFormat = "dd.mm.yyyy"
For i = 4 To 35
    If Sheets("Sheet2").Cells(i, "O").Value <> "" Then
        Sheets("Sheet2").Cells(i, "J").Value = Sheets("Sheet2").Cells(i, "O").Value
    End If
Next
End Sub

 

[Orion1]

Merhaba.
Dosyaya, Autpen Presedürünede kodları ekledim.
6ncı mesajımdan indirip deneyiniz.

 

[northcyprus]

şimdi farkettim çalışıyor ama yine bi sorunum var sayın SEZAR çünü eğer sheet1 deki tarih ile sheet1 G kolonundaki tarih ayni ise Sheet2 F kolonun daki oda fiyatı sıfır olması gerekiyor onu yapabilirmiyiz peki....

 

[Orion1]

Merhaba.
Dosyayı güncelledim.İstediğiniz formülüde koydum.
Tekrardan indirip deneyiniz.