Üst üste girilen verileri korumak

[akdir]

Arkadaşlar ekteki dosyamda da anlattığım gibi ben aynı hücreye farklı zamanda birçok veri gireceğim ancak doğal olarak ben aynı hücreye yeni veri girdiğimde eski verim kaybolmaktadır. İşte benim gün içinde aynı hücreye girdiğim verilerin hepsinin korunmasını istiyorum. teşekkürler

 

[teos_777]

benimde benzer bir problemim ver, ama forumdan yapan çıkmadı henüz... beklicez yapan biri olur belki...

 

[korucu16]

ekteki dosyayı
nejdet yeşertener arkadaşımızını bir yazını değiştirerek elde ettim
işinize yarar bence
b3 teki değer değişince sırayla değerleri b4 - b5 e kaydediyor

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki koduda kullanabilirsiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim X As Byte
    If Intersect(Target, [D3]) Is Nothing Then Exit Sub
    If Not IsEmpty(Target) Then
    For X = 3 To 8
    If Sheets("İstatistik").Cells(4, X) = "" Then
    Sheets("İstatistik").Cells(4, X) = Target
    Exit For
    End If
    Next
    End If
End Sub

 

[akdir]

korucu 16 arkadaşım teşekkürler istediğim tam anlamı ile bu ancak bu siteye benim hazırladığım program uzun olduğu için örnek bir dosya ekledim. bu nedenle bunu nasıl yaptığını izah edersen bende programıma uygulayabileyim.

 

[korucu16]

Dim sayac

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [b3]) Is Nothing Then Exit Sub
sayac = sayac + 1
Target.Offset(0, sayac) = Range("b3").Value
Son:
End Sub

komutlarını kullanarak yaptım

 

[akdir]

Arkadaşlar bu işlev güzel ama işime yaramadı

ekteki proğramı incelerseniz çok sevinirim. orada daha güzel açıkladım.

 

[teos_777]

tesekkur , elinize sağlık...

 

[teos_777]

veriyi biz girdiğimizde veriler depolanıyor yukardaki makroya göre fakat biz dokunmadan hücre kendini güncellediğinde veri depolaması olmuyor...

 

[Korhan Ayhan]

Selamlar,

Bu durumda veri güncelleme esnasında sayfanızda veri alan hücreler değişeceğinden aşağıdaki Change olayına uygularsak sanırım sorununuz çözülebilir. Örnek dosyanıza göre aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim X As Byte
    If Not Intersect(Target, [O17:S17]) Is Nothing Then Exit Sub
    For X = 15 To 19
    If Cells(17, X) = Empty And WorksheetFunction.CountIf(Range("O17:S17"), [D27]) = 0 Then
    Application.EnableEvents = False
    Cells(17, X) = [D27]
    Application.EnableEvents = True
    Exit For
    End If
    Next
End Sub

 

[akdir]

korhan ayhan kardeş ben bu formülü ekledim ama bir işe yaramadı veya ben yapamadım. hesaplama modu falan demişsiniz ben tam anlayamadım. biraz açıklama yaparmısınız konu hakkında teşekkürler.

 

[teos_777]

Selamlar,

Bu durumda veri güncelleme esnasında sayfanız hesaplama moduna geçecektir. Bu olaya aşağıdaki kodu uygularsak sanırım sorununuz çözülebilir. Örnek dosyanıza göre aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub Worksheet_Calculate()
    Dim X As Byte
    For X = 15 To 20
    If Cells(17, X) = "" And WorksheetFunction.CountIf(Range("O" & X & ":S" & X), [D27]) = 0 Then
    Cells(17, X) = [D27]
    Exit For
    End If
    Next
End Sub

Bu makroyu altına ekleyıp calıstırdığımızda hata msjı veriyor.. Korhan Ayhan bey birde siz deneyip gönderebilirmisiniz?

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[akdir]

ya arkadaşlar konuyu ben açtım ama ben fransız kaldım. şu konuyu biraz açarmısınız. hangi makroyu hangi dosyaya ekledik. çünkü burada 2-3 tane dosya oldu. mümkünse dosyanın tamamlanmış halini eklerseniz çok sevinirim. teşekkürler

 

[teos_777]

Korhan Bey son yaptığınız değişiklikle link problemi çözüldü elinize sağlık... ( en kısa zamanda VBA yı daha kapsamlı öğrenmeyi düşünüyorum,ona zaman kalırsa tabi)

 

[akdir]

teos kardeş şu tamam olan dosyanın bir örneğini buraya ekleyebilirmisin.

 

[basarcel]

Yemek Lİstelerİ Hazirliyorum 2, 3 GÜnde Ayni Şeylerİ Yaziyorum ÖrnekİrİnÇ Pİlavi Muhtevİyat Lİstesİ Ve Gramajlarini Her Seferİnde Yenİden Yaziyorum PİrİnÇ Pİlavinin İsmİnİ YazdiĞimda Muhtevİyat Lİstesİ Gramajlar Otomatİk Gelebİlİrmİ TeŞekkÜrler

 

[Korhan Ayhan]

Selamlar,

Sn. akdir,

7. mesajınıza eklediğiniz dosyayı açın.
"veri" isimli sayfayı açın.
Sayfa isminin üzerinde sağ klik yapın.
Açılan menüden "Kod Görüntüle" seçeneğini seçin.
Karşınıza beyaz bir pencere gelecektir.
10 nolu mesajımda önerdiğim kodu bu pencereye uygulayın.
Veriler güncellendikçe (ve oranlar değiştikçe) belirttiğiniz alana veriler yazdırılacaktır.

 

[akdir]

Korhan Bey

Dediğiniz gibi ayarları yaptım. Ben bunları daha önceden de yapmıştım. Ancak herhangi bir değişme olmadı. ben örnek dosyayı benim yaptığım ayarlarla birlikte yeniden gönderiyorum nerede yanlış yaptığı anlayamadım eğer incelerseniz sevinirim. bu arada türkiye ligindeki maçlar bittiği için ingiltere ligi olarak değiştirdim. teşekkürler

 

[Korhan Ayhan]

Selamlar,

Örnek dosyadaki "O17:S17" aralığındaki verileri silin. Daha sonra D27 hücresi üzerinde iken sağ klik yapın ve "Verileri Yenile" deyin.