Soru Girilen değerin silinmesi

[uurluyum]

Merhaba,

Küçük bir stok tablosu yaptım kendime ancak bir sorunu çözemiyorum. Stok girişi kısmına gelen stoğu girdiğim zaman istediğim sonuçları alıyorum. Ancak stok girdisi yaptığım hücre 1 tane ve her seferinde aynı hücreye giriş yapmam gerekiyor.

Tam olarak burada yapılmasını istediğim hücreye yeni stok girişi yaptıktan sonra bu sayının genel stok toplamına geçmesi ve daha sonra stok girişi yaptığım hücrenin tekrar boş gözükmesi bu sayede bir sonraki stok girişini de aynı hücreye yapabileyim.

Umarım anlatabilmişimdir.

 

[Zeki Gürsoy]

Sorunuzu örnek dosya ile açıklarsanız daha anlaşılır olacaktır.

 

[uurluyum]

Sorunuzu örnek dosya ile açıklarsanız daha anlaşılır olacaktır.

bunda örnek dosya ile açıklanacak birşey yok bir hücreye değer giricem stok girdisi için ben girdiğim anda girilen rakam güncel stoğa atıcak ama stoğu girdiğim hücre hep boş kalıcak ki yeni stok girdisini yine aynı hücreden yapabileyim bunun için bir örnek dosyaya gerek yok

 

[Seyit Tiken]

Kullandığınız programın kod bölümü açıksa(şifreli değilse), ve kodlamayı biliyorsanız; örnek kodu kendinize uyarlayarak kullandığınız kodun en altına yazın.

[Hücre Adresi]=""

 

[uurluyum]

Kullandığınız programın kod bölümü açıksa(şifreli değilse), ve kodlamayı biliyorsanız; örnek kodu kendinize uyarlayarak kullandığınız kodun en altına yazın.

[Hücre Adresi]=""

Merhabalar herhangi bir program kullanmıyorum excel de kendi yaptığım basit bir tablo da yapıyorum sadece.

 

[Seyit Tiken]

Sorunuzun yanıtı için DOSYA yüklemeniz gerek.

 

[uurluyum]

Sorunuzun yanıtı için DOSYA yüklemeniz gerek.

yani düz bir tablo diyorum ekstra birşey yok diyorum ancak ille de tablo istiyorsunuz.

Buyrun dosyanın linki siyah olan bölge stok girişi yapılacak olan yer her seferinde stok girdikten sonra mevcut stoğa girsin ancak o hücre hep boş görünsün ki yeni stok girebileyim.

Hadi bakalım dosyayı da ekledim görelim neler olacak.

https://s4.dosya.tc/server7/84ps24/Urun_Takip_2019.xlsx.html

 

[Zeki Gürsoy]

Hadi bakalım dosyayı da ekledim görelim neler olacak.

Nasıl bir üslup bu? Bir şey olmasın artık...

 

[Seyit Tiken]

Şu anda kullandığım bu bilgisayarda ilgili dosyaya erişim engeli var.

 

[uurluyum]

Şu anda kullandığım bu bilgisayarda ilgili dosyaya erişim engeli var.

peki bunu nasıl yapabiliriz başka bir öneriniz var mı

 

[Korhan Ayhan]

Sizin için basit gibi görünen sorular bazen detaylı işlem gerektirebiliyor. Forumumuzda ki bir çok kişi çözüm sunmak için fazlasıyla gayret gösteriyor.

Üyelerimizden de sorularını özenli ve detaylı bir şekilde açıklamalarını rica ediyoruz ve bekliyoruz. Buna kullanılan üslupta dahildir. Bu sebeple gereksiz yanlış anlamalara mahâl vermemek için mesajlarınızı yazarken kullandığınız kelimelere dikkat etmenizi rica ediyorum.

Sorunuzun cevabı;

Sayfa ismi üzerinde sağ klik yapın ve açılan menüden kod görüntüle seçeneğini seçin.
Karşınıza beyaz bir pencere gelecek. Bu bölüme aşağıdaki kodu uygulayın.

Sonra excel sayfasına dönün ve "C" sütununa değer girip sonucu gözlemleyin.

Not: Dosyanızı makro içeren dosya biçiminde kaydetmeyi unutmayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C2:C" & Rows.Count)) Is Nothing Then Exit Sub
    If IsNumeric(Target) Then
        Application.EnableEvents = False
        Target.Offset(0, -1) = Target.Offset(0, -1) + Target
        Target = Empty
        Application.EnableEvents = True
    End If
End Sub

 

[uurluyum]

Sizin için basit gibi görünen sorular bazen detaylı işlem gerektirebiliyor. Forumumuzda ki bir çok kişi çözüm sunmak için fazlasıyla gayret gösteriyor.

Üyelerimizden de sorularını özenli ve detaylı bir şekilde açıklamalarını rica ediyoruz ve bekliyoruz. Buna kullanılan üslupta dahildir. Bu sebeple gereksiz yanlış anlamalara mahâl vermemek için mesajlarınızı yazarken kullandığınız kelimelere dikkat etmenizi rica ediyorum.

Sorunuzun cevabı;

Sayfa ismi üzerinde sağ klik yapın ve açılan menüden kod görüntüle seçeneğini seçin.
Karşınıza beyaz bir pencere gelecek. Bu bölüme aşağıdaki kodu uygulayın.

Sonra excel sayfasına dönün ve "C" sütununa değer girip sonucu gözlemleyin.

Not: Dosyanızı makro içeren dosya biçiminde kaydetmeyi unutmayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C2:C" & Rows.Count)) Is Nothing Then Exit Sub
    If IsNumeric(Target) Then
        Application.EnableEvents = False
        Target.Offset(0, -1) = Target.Offset(0, -1) + Target
        Target = Empty
        Application.EnableEvents = True
    End If
End Sub

öncelikle bir yanlış anlaşılmaya sebep olacak kelimeler kullandıysam özür dilerim sizlerden. Ancak son bir sorum daha olacak sizlere bu bahsettiğiniz şekilde bir sistemi google e-tablolar da kullanma şansımız olur mu ?

 

[Korhan Ayhan]

Google E-Tablolar'ı hiç aktif şekilde kullanmadım. Bu sebeple bir yorum yapamayacağım. Bu konuda tecrübesi olan arkadaşlar belki yorum yapabilirler.

Ya da siz deneme-yanılma yöntemi ile kurcalayarak öğrenebilirsiniz.

 

[uurluyum]

Sizin için basit gibi görünen sorular bazen detaylı işlem gerektirebiliyor. Forumumuzda ki bir çok kişi çözüm sunmak için fazlasıyla gayret gösteriyor.

Üyelerimizden de sorularını özenli ve detaylı bir şekilde açıklamalarını rica ediyoruz ve bekliyoruz. Buna kullanılan üslupta dahildir. Bu sebeple gereksiz yanlış anlamalara mahâl vermemek için mesajlarınızı yazarken kullandığınız kelimelere dikkat etmenizi rica ediyorum.

Sorunuzun cevabı;

Sayfa ismi üzerinde sağ klik yapın ve açılan menüden kod görüntüle seçeneğini seçin.
Karşınıza beyaz bir pencere gelecek. Bu bölüme aşağıdaki kodu uygulayın.

Sonra excel sayfasına dönün ve "C" sütununa değer girip sonucu gözlemleyin.

Not: Dosyanızı makro içeren dosya biçiminde kaydetmeyi unutmayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C2:C" & Rows.Count)) Is Nothing Then Exit Sub
    If IsNumeric(Target) Then
        Application.EnableEvents = False
        Target.Offset(0, -1) = Target.Offset(0, -1) + Target
        Target = Empty
        Application.EnableEvents = True
    End If
End Sub

Tekrar merhabalar size sormak istediğim birşey daha var. Yazdığını bu kod çok güzel çalışıypr. Peki o hücreye daha önce girilen verileri görebileceğim bir yer var mı acaba?

 

[Korhan Ayhan]

Açıklama kutucuğuna eski değerler arşivlenebilir.

Forumda daha önce benzer bir konu vardı.

Comment ifadesi ile arama yapın ve çıkan konuları inceleyin.