Hücre silinmesin

[TayfunKaya]

C3 hücresine =a1+b1 yazdığımda toplamı alıyoruz ya hani ve a1 deki veya b1 deki değeri değişince c3 de değişiyor. O c3 in değişmemesi için ne yapmalıyım? Formul kullanarak 13 sayfa oluşturdum ama dolayısıyla ilk sayfadaki hesap silinince hepsi siliniyor. Silinmemesi lazım. Lütfen bir yolu var deyin..

PRA-LX1 cihazımdan Tapatalk kullanılarak gönderildi

 

[Necdet]

Merhaba,

C3 hücresindeki Formul =A1+B1 ise C1 hücresi bu değerleri bağlı olarak nasıl değişsin ki?

Lütfen sorunuzu açık olarak sorunuz, olası ise örnek dosya ile destekleyiniz.

 

[TayfunKaya]

Merhaba,

C3 hücresindeki Formul =A1+B1 ise C1 hücresi bu değerleri bağlı olarak nasıl değişsin ki?

Lütfen sorunuzu açık olarak sorunuz, olası ise örnek dosya ile destekleyiniz.

düzenledim hocam kusura bakmayın uygulamayı ilk defa kullandım kafam karışmış.

 

[TayfunKaya]

envanter alımı sayfasındaki , "ambara malzeme alımı(günlük) adlı tabloma girilen değer, ilgili ayların ilgili tarihlerine gidiyor. lakin fişi temizleyince oralardan da siliniyor. Bunu engellemeye çalışıyorum:
https://www.dosyaupload.com/6afc

 

[Cengiz Demir]

Söylediğiniz işlemi formülle yapamazsınız. Verileri, silinmemesi gereken alanlara, makro ile yazdırırsanız sorununuz çözülür.

 

[TayfunKaya]

Söylediğiniz işlemi formülle yapamazsınız. Verileri, silinmemesi gereken alanlara, makro ile yazdırırsanız sorununuz çözülür.

bunun için yardımcı olur musunuz ? veya ne başlıkta arama yapmam lazım, forumda veya internette ?

 

[Cengiz Demir]

Dosyanızda gerekli düzenlemeleri yaptım. Yanlış anlamadıysam tek tarih giriliyor ve altına bir kaç mal girişi yapılıyor. O yüzden makroları tek tarihe işlem yapacak şekilde ayarladım. Birden fazla tarih girerseniz sadece ilk tarih işlem görür. Bu durumu dikkate alın.

Modul1 de ilgili makroları görebilirsiniz.

Fişi temizle düğmesine bastığınızda, ilgili makrolar devrere girip; E13 (Giriş)/M13 (Çıkış) hücrelerindeki veriyi ilgili ayın, ilgili gününe ilave ediyor.
Aynı tarihe başka kayıt atılma olasılığına karşılık, eğer ilgili hücrede veri varsa onun üzerine toplayarak yazıyor.

Listenize satır sütün ilave etme, dosyanıza başka sayfa ilave etme vb gibi durumlarda, makroların yeni duruma göre düzenlenmesi gerekebilir.

Örnek Dosya


Kodları kısaca açıklıyayım.

If Range("A3") = "" Then MsgBox ("Tarih Alanı Boş"): Exit Sub
Tarih hücresi boşsa makro uyarı verir işlem yapmadan sonlanır..

Ay = Month(Range("A3")) + 2: Gun = Day(Range("A3")) + 2: Tutar = Range("E13")
Tarih yazılı hücreden Ay değişkenine ilgili ayın tarihi, Gun değişkenine ilgili ayın günü, Tutar değişkenine ilgili ayın tutarı atanır.
Ay değişkenine +2 ilave etmemizin sebebi. Dosyanızda Ay ile başlayanların önünde 2 tane sayfa olması.
Gün değişkenine +2 ilave etmemizin sebebi. İlgili ay sayfalarınızda günlerin üstünde 2 tane satır olması.

Sheets(Ay).Cells(Gun, 2).Value = Sheets(Ay).Cells(Gun, 2) + Tutar

Ay değişkeniyle belirlediğimiz ilgili sayfanın ilgili hücresinin değerinin üzerine, Tutar değişkenini ekleyerek yazar.

Örneğin 28.03.2019 için Ay değişkeni 5'dir (3+2), Gün değişkeni 30'dur (28+2)

Sheets(Ay) ile 5 sıradaki sayfayı (Mart) ı belirtiyoruz.

Cells(Gun, 2) ile de 30. satır 2. sütundaki hücreyi belirtiyoruz.

 

[TayfunKaya]

hocam ben sizin ne yaptığınızı anlamadım ? kodu nereye yazdınız göremiyorum, sil butonlarında değişiklik yapılmış evet, benim istediğim şey örneğin fiş bugünün tarihine göre dolunca ilgili sekme olan martın ilgili tarihi fişin toplam fiyatını alıyordu şu an orada formül yok elle mi giriş yaptınız ?
siz beni tamamen anlamışsınız yorumunuzu ben anlatsam beceremezdim çok iyi ama sizi ben anlamadım tam olarak. fişi temizle dediğimde aylar yazan sayfalardaki değerlerin silinmemesini istedim ben şimdi elle mi girmem gerekecek ? açıklamada yazdığınız kodları da göremiyorum, kodları görmek için sayfa kodu göster seçeneğini kullanıyorum. lütfen kusura bakmayın biraz yeniyim bu alanda.

 

[TayfunKaya]

hocam şimdi anladım ya siz varya beni çok büyük zahmetten kurtardınız eli pülecek adamsınız.fişi sil deyince aktif oluyo kod ben giriş yapınca kontrol ettim... elleriniz dert görmesin.

 

[Cengiz Demir]

Ben dosyanızdaki kodları görünce. Kodlamaları siz yaptınız sandım. oyüzden bilginiz vardır diye biraz detay yazdım. Sanırım bu dosyayı başka yerden aldınız ve uyarlama yapıyorsunuz. Sil düğmelerine bastığınız anda toplam miktarlar ilgili ay ve güne aktarılıyor. Diğer aylardaki formulleri de silmenizi tavsiye edeceğim. Makro önce formüldeki veriyi alıp daha sonra tutarı üzerine toplayarak yazabilir ve o güne fazladan giriş yapabilir.

Kodları görebilmek için Alt+F11 e basmanız gerekiyor. Daha sonra sağ taraftan Modul1 i seçerseniz kodları görebilirsiniz.

Ek :Rica ederim ben yazarken siz mesajı göndermişsiniz..

 

[TayfunKaya]

yok hocam bütün kodları ben yazdım sıfırdan exceli de ben oluşturdum, yalnız ben sayfa kodu deyince benim yazdığım kodlar çıktı ilk başa ve sizinkileri göremedim, listeyi de silmeden ayların olduğu sayfaya baktığım için haliyle veriler daha geçmemiş olarak gördüm. Bu yüzden bir anlaşmazlık oldu daha sonra kendi kodlarım olan sayfayı kapatınca sizinkileri gördüm olayı anladım. Tekrar teşekkürler ellerinize sağlık, ben diğer aylardaki "eğer" formüllerini kaldırdım, sil butonunu da kaydet ve temizle olarak ayarladım. İyi akşamlar

 

[Cengiz Demir]

İyi akşamlar

 

[TayfunKaya]

Dosyanızda gerekli düzenlemeleri yaptım. Yanlış anlamadıysam tek tarih giriliyor ve altına bir kaç mal girişi yapılıyor. O yüzden makroları tek tarihe işlem yapacak şekilde ayarladım. Birden fazla tarih girerseniz sadece ilk tarih işlem görür. Bu durumu dikkate alın.

Modul1 de ilgili makroları görebilirsiniz.

Fişi temizle düğmesine bastığınızda, ilgili makrolar devrere girip; E13 (Giriş)/M13 (Çıkış) hücrelerindeki veriyi ilgili ayın, ilgili gününe ilave ediyor.
Aynı tarihe başka kayıt atılma olasılığına karşılık, eğer ilgili hücrede veri varsa onun üzerine toplayarak yazıyor.

Listenize satır sütün ilave etme, dosyanıza başka sayfa ilave etme vb gibi durumlarda, makroların yeni duruma göre düzenlenmesi gerekebilir.

Örnek Dosya


Kodları kısaca açıklıyayım.

If Range("A3") = "" Then MsgBox ("Tarih Alanı Boş"): Exit Sub
Tarih hücresi boşsa makro uyarı verir işlem yapmadan sonlanır..

Ay = Month(Range("A3")) + 2: Gun = Day(Range("A3")) + 2: Tutar = Range("E13")
Tarih yazılı hücreden Ay değişkenine ilgili ayın tarihi, Gun değişkenine ilgili ayın günü, Tutar değişkenine ilgili ayın tutarı atanır.
Ay değişkenine +2 ilave etmemizin sebebi. Dosyanızda Ay ile başlayanların önünde 2 tane sayfa olması.
Gün değişkenine +2 ilave etmemizin sebebi. İlgili ay sayfalarınızda günlerin üstünde 2 tane satır olması.

Sheets(Ay).Cells(Gun, 2).Value = Sheets(Ay).Cells(Gun, 2) + Tutar

Ay değişkeniyle belirlediğimiz ilgili sayfanın ilgili hücresinin değerinin üzerine, Tutar değişkenini ekleyerek yazar.

Örneğin 28.03.2019 için Ay değişkeni 5'dir (3+2), Gün değişkeni 30'dur (28+2)

Sheets(Ay) ile 5 sıradaki sayfayı (Mart) ı belirtiyoruz.

Cells(Gun, 2) ile de 30. satır 2. sütundaki hücreyi belirtiyoruz.

https://www.dosyaupload.com/rasZ
hocam linkten dosyaya bakar mısınız dosya bozuldu aynen kodları yaptım baştan ama çalışmıyor herşey bıraktıınız gibi ama kayıt işlemi yapmıyor hocam ? Lütfen Bakar Mısınız ?

 

[Cengiz Demir]

Dosyayı kontrol ettim. İşlem yapacak makroları çağıran kodlar silinmiş.

Call ile başlayan kodları, ilgili yerlere eklerseniz sorun çözülür

Private Sub CommandButton2_Click()
    Call Topla_Cikis
    Range("H3:L11").ClearContents
End Sub

Private Sub SİL_Click()
    Call Topla_Giris
    Range("A3:D11").ClearContents
End Sub