• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

V

volsem84

Katılım
27 Şubat 2017
Mesajlar
23
Excel Vers. ve Dili
2016 türkçe
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
 
  • 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.
 
İlgili sayfanın kod penceresine bu kodları yapıştırıp deneyin.

PHP: 
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
 
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
 
Excel dosyasını kaydetmesini mi istiyorsunuz?
 
Murat OSMA' Alıntı:
Excel dosyasını kaydetmesini mi istiyorsunuz?
Genişletmek için tıkla ...
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
 
Ö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.
 
uyarma
Murat OSMA' Alıntı:
Ö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.
Genişletmek için tıkla ...
uyarı olmasına gerek yok daha önce ne yazdıysam onu göstersin yeter bana
 
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.

PHP: 
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
 
Murat OSMA' Alıntı:
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.

PHP: 
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
Genişletmek için tıkla ...
çok teşşekkür ederim ama kodu girdiğimde hiç birşey olmuyor
 
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
 
Murat OSMA' Alıntı:
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
Genişletmek için tıkla ...
ç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ı
 
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.
 
Son düzenleme:
arkadaşlar selamlar yardım edecek biri yok mu yardımcı olur musunuz lütfen.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst