Hatırlatma programı foruma eklenmiştir.
http://www.excelce.net/forum/index.php?topic=1661.0

Gönderen Konu: [Çözüldü] Onaya Bağlı Artırımlı Sayı  (Okunma sayısı 7238 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı yesilyurtlu

  • Excelce Çavuş
  • ***
  • İleti: 168
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İlhan YÜKSEL
  • İşletim Sisteminiz: Windows 7 32 Bit
  • Mesleğiniz: Muhasebe Şefi
  • Office Versiyonunuz: Office 2013 TR
[Çözüldü] Onaya Bağlı Artırımlı Sayı
« : 24 Mayıs 2010, 18:41:35 »
Üstadım Selamün Aleyküm;
Yine başınızın belası olarak mazur görün bir istirhamım olacak üstadlarımdan.
Excelde sayfayı açtığım zaman "ÖDEME YAPACAK MISINIZ ?"  Evet dersem AA1 hücresine 1 verecek. Hayır dersem rakam vermeyecek. Her açtığımda evet onayı verilirse AA1 hücresi devamlı artacak.1,2,3,4 diye

Yardımcı olabilir misiniz?
« Son Düzenleme: 25 Mayıs 2010, 11:46:10 Gönderen: Bülent Öztürk »

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Onaya Bağlı Artırımlı Sayı
« Yanıtla #1 : 24 Mayıs 2010, 20:41:06 »
İlgili sayfanın kod modülüne aşağıdaki kodları yapıştırınız. 8)
Kod: [Seç]
Private Sub Worksheet_Activate()
If MsgBox("ÖDEME YAPACAK MISINIZ ?", vbYesNo + vbQuestion, "ÖDEME") = vbNo Then Exit Sub
Range("AA1").Value = Range("AA1").Value + 1
End Sub

Çevrimdışı yesilyurtlu

  • Excelce Çavuş
  • ***
  • İleti: 168
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İlhan YÜKSEL
  • İşletim Sisteminiz: Windows 7 32 Bit
  • Mesleğiniz: Muhasebe Şefi
  • Office Versiyonunuz: Office 2013 TR
Ynt: Onaya Bağlı Artırımlı Sayı
« Yanıtla #2 : 25 Mayıs 2010, 07:34:55 »
Evren Abi ;
Teşekkür Ederim. Sağolasın.

"ÇÖZÜLDÜ"

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Onaya Bağlı Artırımlı Sayı
« Yanıtla #3 : 25 Mayıs 2010, 16:58:22 »
Evren Abi ;
Teşekkür Ederim. Sağolasın.

"ÇÖZÜLDÜ"
Rica ederim.
İyi çalışmalar. 8)