Excel hücre içine birden çok veri ekleme

[volsem84]

selamlar arkadaşlar başlıkta belirttiğim gibi herhangi bir hücreye örneğin volkan yazıp entere bastığımda aynı hücreye gelip tekrar başka isim yazdığında kaydetmesini istiyorum lütfen yardımcı olurmusunuz inşallah anlatabilmişimdir şimdiden çok teşşekkür ederim

 

[turist]

• Eski yazılan hücrede kalacak aynı hücrede yeni yazdığınız yanına ilave mi olacak?
• Eski yazdığınız başka bir yere kaydedilecek mi?
• Bu kayıtlar her değişiklikte devam edecek mi?
  
  Daha açıklayıcı olursanız, kolay ve hızlı cevap alabilirsiniz.

 

[Murat OSMA]

İlgili sayfanın kod penceresine bu kodları yapıştırıp deneyin.

Dim eski
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Target.Value = eski & " " & Target.Value
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    eski = Target.Value
End Sub

 

[volsem84]

cevaplarınız için teşşekkür ederim nasıl deyim mesala örnek a1 hücresine araba yazdım tekrar a1 hücresi motor yazdım tekrar a1 hücresine araba yazdığımda otomatik hatırlamasını istiyorum yani a1 hücresine ne yazarsam kaydetmesini istiyorum

 

[Murat OSMA]

Verdiğim kodu denediniz mi?

 

[volsem84]

Verdiğim kodu denediniz mi?

Verdiğiniz kodu yaptım değişen birşey olmadı

 

[Murat OSMA]

İstediğiniz bu değil mi?

 

[volsem84]

İstediğiniz bu değil mi?

Ekli dosyayı görüntüle 196408

benim istediğim herhangi bir hücreye bir şey yazdığımda kaydetmesi

 

[Murat OSMA]

Excel dosyasını kaydetmesini mi istiyorsunuz?

 

[volsem84]

Excel dosyasını kaydetmesini mi istiyorsunuz?

ben anlatamıyorum kusura bakmayın ilgilendiğiniz sabrınız içinde teşşekkür ederim nasıl anlatsam örnek a1 hücresine 1 den fazla veri girip hatırlamasını istiyorum mesala a1 hücresine limon yazdım tekrar a1 hücresine portakal yazdın tekrar a1 hücresine limon yazdığımda hatırlamasını istiyorum yani kısacası a1 hücresine bütün yazdıklarımı hatırlamasını istiyorum acaba veri tabanı olmasımı gerikiyor diye düşünüyorum

 

[Murat OSMA]

Öncelikle Excel'in hatırlaması diye bir ifadeyi unutun. O bir şeyi hatırlamaz.
Hatırlasın deseniz bile onun hatırlaması bir şey ifade etmez. Sizin istediğiniz önemlidir.
Siz yap dersiniz yapar, hesapla dersiniz hesaplar, istersiniz getirir vs.
Diyelim ki hatırladı. Size bu hatırlamayı nasıl yansıtsın?
Örneğin, veri girişi yaptığınızda yanında bir açıklama penceresi çıksın, orada o hücreye neler yazılmış onu bana göstersin mi istersiniz, yoksa daha önce yazılan veri aynı ise size; "Bunu daha önce yazdınız" şeklinde bir pencere ile mi uyarsın, yoksa pencere yerine sesli olarak mı uyarsın?

Not: Dediğiniz gibi bir işlem yapabilmesi için, her bir hücreye girilen değerlerin kayıtlarının (log) tutulması gerekir.

 

[volsem84]

uyarma

Öncelikle Excel'in hatırlaması diye bir ifadeyi unutun. O bir şeyi hatırlamaz.
Hatırlasın deseniz bile onun hatırlaması bir şey ifade etmez. Sizin istediğiniz önemlidir.
Siz yap dersiniz yapar, hesapla dersiniz hesaplar, istersiniz getirir vs.
Diyelim ki hatırladı. Size bu hatırlamayı nasıl yansıtsın?
Örneğin, veri girişi yaptığınızda yanında bir açıklama penceresi çıksın, orada o hücreye neler yazılmış onu bana göstersin mi istersiniz, yoksa daha önce yazılan veri aynı ise size; "Bunu daha önce yazdınız" şeklinde bir pencere ile mi uyarsın, yoksa pencere yerine sesli olarak mı uyarsın?

Not: Dediğiniz gibi bir işlem yapabilmesi için, her bir hücreye girilen değerlerin kayıtlarının (log) tutulması gerekir.

uyarı olmasına gerek yok daha önce ne yazdıysam onu göstersin yeter bana

 

[Murat OSMA]

Bu kodları ilgili sayfanın kod penceresine yapıştırıp deneyin..
Eğer A1 hücresine yazılan veri daha önce 1'den fazla yazılmışsa, şimdiye kadar o hücreye neler yazılmışsa ortaya döker, eğer ilk kez yazılıyorsa bir şey yapmaz. İsteğe göre çalışma şekli değiştirilebilir.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo hata
    If Target.Value <> "" And Target.Address(0, 0) = "A1" Then
        Application.EnableEvents = False
        With Sayfa2
            .Cells(Rows.Count, "A").End(3)(2, 1).Value = Target.Address(0, 0)
            .Cells(Rows.Count, "B").End(3)(2, 1).Value = Target.Value
            For i = 2 To .Cells(Rows.Count, "A").End(3).Row
                If .Cells(i, 1).Value = Target.Address(0, 0) Then
                    If WorksheetFunction.CountIf(.Range("B:B"), Target.Value) > 1 Then
                        s = s + 1
                        yaz = yaz & s & ". " & .Cells(i, 2).Value & Chr(10)
                    End If
                End If
            Next i
        End With
        If s <> Empty Then MsgBox yaz
        Application.EnableEvents = True
    End If
hata:    Application.EnableEvents = True
End Sub

 

[volsem84]

Bu kodları ilgili sayfanın kod penceresine yapıştırıp deneyin..
Eğer A1 hücresine yazılan veri daha önce 1'den fazla yazılmışsa, şimdiye kadar o hücreye neler yazılmışsa ortaya döker, eğer ilk kez yazılıyorsa bir şey yapmaz. İsteğe göre çalışma şekli değiştirilebilir.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo hata
    If Target.Value <> "" And Target.Address(0, 0) = "A1" Then
        Application.EnableEvents = False
        With Sayfa2
            .Cells(Rows.Count, "A").End(3)(2, 1).Value = Target.Address(0, 0)
            .Cells(Rows.Count, "B").End(3)(2, 1).Value = Target.Value
            For i = 2 To .Cells(Rows.Count, "A").End(3).Row
                If .Cells(i, 1).Value = Target.Address(0, 0) Then
                    If WorksheetFunction.CountIf(.Range("B:B"), Target.Value) > 1 Then
                        s = s + 1
                        yaz = yaz & s & ". " & .Cells(i, 2).Value & Chr(10)
                    End If
                End If
            Next i
        End With
        If s <> Empty Then MsgBox yaz
        Application.EnableEvents = True
    End If
hata:    Application.EnableEvents = True
End Sub

çok teşşekkür ederim ama kodu girdiğimde hiç birşey olmuyor

 

[Murat OSMA]

Ek'teki dosyayı inceleyiniz.

 

[volsem84]

Ek'teki dosyayı inceleyiniz.

neden ben indiremiyorum hata veriyor acaba indirmem için ücretmi ödemem lazım anlamadım

 

[Murat OSMA]

Forumda dosya eklemek ve dosya eklerini indirebilmek için Altın Üye olmanız gerekir. Bu doğru.
Fakat böyle bir zorunluluğunuz yok. İsterseniz dosyalarınızı herhangi bir dosya yükleme sitesine yükleyebilir ve linkini paylaşarak destek talep edebilirsiniz ve size destek olan kişilerden de yine aynı şekilde dosya yükleme sitelerine yükleyip oradan link göndermelerini isteyebilirsiniz.

Dosyayı buradan indirebilirsiniz: http://s7.dosya.tc/server7/3x3v9o/Kayit_Tutmak.xls.html

 

[volsem84]

Forumda dosya eklemek ve dosya eklerini indirebilmek için Altın Üye olmanız gerekir. Bu doğru.
Fakat böyle bir zorunluluğunuz yok. İsterseniz dosyalarınızı herhangi bir dosya yükleme sitesine yükleyebilir ve linkini paylaşarak destek talep edebilirsiniz ve size destek olan kişilerden de yine aynı şekilde dosya yükleme sitelerine yükleyip oradan link göndermelerini isteyebilirsiniz.

Dosyayı buradan indirebilirsiniz: http://s7.dosya.tc/server7/3x3v9o/Kayit_Tutmak.xls.html

çok teşekkür ederim istediğim gibi oldu yalnız daha önce yazdıklarımı seçme şansın var mı geç cevapladım kusura bakmayın işten dolayı

 

[kayacan92]

Merhabalar,

Bende bu programa benzer bir program oluşturmak istiyorum, fakat yapamadım. Depo programı olarak kullanacağım. F hücresinde stok miktarlarını giriyorum bu girdiğim değerlere karşılık K hücresinde otomatik olarak tarih ve saat yazdırılmasını ayarladım, fakat benim yapmak istediğim stok miktarı diyelim ki 3'ten 2 ye indiği tarihi ve zamanı kayıt edip istediğim zaman bu verilere ulaşmaktır. Şuan ki durumda sadece stok miktarındaki yaptığım değişikliklerin tarihi ve saati yazıyor. Geçmiş verileri kaydedip erişmek istiyorum. Yani hangi tarihte stok miktarı 3'ten 2 ye indi, hangi tarihte 2'den 1'e indi, hangi tarihte dışarıdan malzeme girişi yapıldı ve 1'den 3'e çıktı.
Not: Depoda 1000'den fazla malzeme var.

Tarihi bu programla yazdırabiliyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [F10:F10000]) Is Nothing Then Cells(Target.Row, "K") = Format(Now, "dd.mm.yyyy hh:mm")
End Sub

Yardımlarınız için şimdiden teşekkürler.

 

[volsem84]

arkadaşlar selamlar yardım edecek biri yok mu yardımcı olur musunuz lütfen.