Sayfa her açıldığında 1 sayı artsın

[desk]

Selam
Benim sorum şu sayfayı her açtığımda hücredeki sayı bir artsın.
Nasıl yapabilirim.

Kolay gelsin.

 

[uzmanamele]

merhaba
böyle birşey işinizi görür mü

Private Sub Worksheet_Activate()
[a1] = [a1] + 1
End Sub

 

[desk]

nasıl ekleyeceğim yeniyim

 

[uzmanamele]

merhaba
sayfa ismi yazan yeri sağ tıklayın, kodu görüntüleyi tıklayın.
görüntülenen kod penceresine ilgili kodu yazın.

 

[desk]

güvenlik düzeyi yüksek olarak ayarlandığı ve dijital olarak imzalanmış bir güvenlik sertifika makrolara eklenmediğinden


böyle bir yazı çıkıyor çalışmıyor.

 

[uzmanamele]

merhaba
araçlar / makro / güvenlik / orta. onay kutusunu işaretleyin.
dosya açılışında makroları etkinleştirin.

 

[uzmanamele]

merhaba
ek dosya işinizi görür mü

 

[desk]

artmıyor açıyorum sayfayı 1 ise 1 çıkıyor 1 açtığımda 2 olmuyor.

 

[desk]

her açtığımda hücre 1320 1321 1322 artsın istiyorum her açtığımda bir artacak

 

[uzmanamele]

merhaba
sayfa1 A1 de dosyanın açılış sayısını görürsünüz
sayfa2 A1 de ise sayfanın görüntülenme sayısını.
sayfa2 de 1320 görmek için 1320 kez sayfa2 ile başka sayfa arasında dolaşmanız lazım
varsayılan ilk değer 0 dır.

 

[desk]

verdiğiniz dosyadan kodu göremiyorum başka sayffaya alamıyorum

 

[uzmanamele]

verdiğiniz dosyadan kodu göremiyorum başka sayffaya alamıyorum

merhaba
4. mesajı okuyun

 

[desk]

4 mesajdaki gibi kodu ekledikten sonra mesela g2 = g2 + 1 gibi başka hücreye yaptıktan sonra kayıt edip başka birsey yapmadan açtığımda olması gerekli değilmi ama olmuyor kodu sayfa1 kısmına ekliyorum başka eklemem gereken yapmam gereken birsey varmı?

 

[uzmanamele]

4 mesajdaki gibi kodu ekledikten sonra mesela g2 = g2 + 1 gibi başka hücreye yaptıktan sonra kayıt edip başka birsey yapmadan açtığımda olması gerekli değilmi ama olmuyor kodu sayfa1 kısmına ekliyorum başka eklemem gereken yapmam gereken birsey varmı?

merhaba
Private Sub Worksheet_Activate()
[a1] = [a1] + 1
End Sub

örnek dosyada sayfa2 deki kodu kendi dosyanıza yazarak istediğiniz hücre adresi olarak değiştirin.
hangi sayfanın kod bölümüne yazarsanız o sayfa için işlem yapar.

 

[desk]

Dosya açılış sayısı çıkmasın istiyorum sadece sayı çıksın

 

[uzmanamele]

Dosya açılış sayısı çıkmasın istiyorum sadece sayı çıksın

merhaba
dosya açılış sayısını alternatif örnek olsun diye ilave ettim, siz kullanmayabilirsiniz.
ThisWorkbook kod sayfasındaki kodu silin.

 

[desk]

zaten çalışan thisworkbook daki kod öteki kod çalışmıyor.

 

[desk]

Bu sayıya hiç bir şekilde müdahale edemiyorum bu benim istediğim değil sayıyı 10 geriye çekmek istesem çekemiyorum.

 

[uzmanamele]

merhaba
syn desk,
A1 hücre yada siz hangi hücreyi yazmışsanız, sayfa her görüntülendiğinde A1=A1+1 diye eskisinin üzerine +1 ilave eder.
varsayalım şuanki hali 50 ve siz 40 dan devam etsin diyorsunuz, a1'e 40 yazın, başka sayfayı görüntüleyip tekrar aynı sayfaya gelirseniz 40+1=41 olacaktır.
başka nasıl müdahale istiyorsunuz ki?
örnek dosya ekleyin, üzerinde değerlendirelim.