hücreye yazılan değerlerin listesini tutmak

[cnksz]

merhabalar,herhangi bir hücreye girdiğim değerlerin aynı ya da farklı çalışma sayfasında listesini tutmak istiyorum. mümkün müdür ?

 

[acar6783]

Her yazdığınız gücre mi belirli aralık var mı?

 

[YUSUF44]

Sayfa1'in kod bölümüne aşağıdaki kodları yapıştırırsanız, A1 hücresine yazdığınız her şeyi Sayfa2'nin A sütunundaki ilk boş hücreye ekler:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1")) Is Nothing Then Exit Sub
a = Sheets("sayfa2").Cells(Rows.Count, 1).End(xlUp).Row
If Sheets("sayfa2").Cells(a, 1) = "" Then
Sheets("sayfa2").Cells(a, 1) = Target
Else
Sheets("sayfa2").Cells(a + 1, 1) = Target
End If
Target.Select
End Sub

 

[acar6783]

Sayfanın kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [COLOR="red"]Range("A1:C65536")[/COLOR]) Is Nothing Then Exit Sub
son = [COLOR="Red"]Sheets("sayfa2")[/COLOR].Cells(Rows.Count, 1).End(xlUp).Row + 1
[COLOR="red"]Sheets("sayfa2")[/COLOR].Cells(son, 1) = Target.Value
Target.Select
End Sub

Sayfa isimlerini ve kodun çalışacağı alanı kendi sayfanıza göre düzenleyin.

 

[cnksz]

exel 2007 de kod bölümü nerededir ? eklemeyi bilmiyorum. çalışma sayfalarına sağ tıkladığımda kod görüntüle kısmı silik gözüküyor

 

[YUSUF44]

Tam olarak belirttiğiniz yerde. Sadece o dosyada mı böyle oluyor yoksa tüm (özellikle yeni boş) dosyalarda mı öyle oluyor?

 

[cnksz]

bütün dosylarda bu şekilde gözüküyor.

https://yadi.sk/i/VjLG2KvRaT9Xh

 

[YUSUF44]

http://www.excel.web.tr/f14/kod-goruntule-aktif-deoil-t78497/sayfa2.html

Şu soruyu bir inceler misiniz?

 

[cnksz]

arkadaşlar anladığım kadarıyla bende visual basic eklentisi yok. ofisteki diğer pclerde var ama bende yüklü değil ondan dolayı kod görüntülenmiyor.

o eklentiyi nereden indirebilirim. office cd yok maalesef

 

[Korhan Ayhan]

Şirketinizde bilgi işlem bölümü varsa oradan destek almalısınız. O bölümdeki kişiler mevcut sürümü kaldırıp "PRO" denilen sürümleri yüklerse sorununuz ortadan kalkacaktır.