Forum

excel hucredeki tar...
 
Bildirimler
Hepsini Temizle

excel hucredeki tarih uyarısı

4 Yazılar
2 Üyeler
0 Likes
1,819 Görüntüleme
(@ferhatcoban)
Gönderiler: 33
Trusted Member
Konu başlatıcı
 

merhaba 

 

excelde hücreye yazdıgım tarih (örn.  26.11.2013 ) zamanı geldiğinde bana uyarı verebilir mi? veya outlook daki ajandayla excele yazdıgım tarih hücresini senkronize edebilir miyim?

 

saygılarımla.  

 
Gönderildi : 26/11/2013 02:13

(@Anonim)
Gönderiler: 0
 

Her ikisi de yapılabilir. Farklı alternatifler de üretilebilir.

 Outlook takvime ekleme ile ilgili bu konuya bakabilirsiniz;   http://www.cozumpark.com/forums/post/405697.aspx

 

Uyarı vermesi için ThisWorkbook(BuCalismaKitabi) kod sayfasına şu kodları yapıştırıp A1 hucresine bir tarih girerek test edebilirsiniz. 

 

Private Sub workbook_open() 

If vba.date = range("a1").value then

Msgbox "Zamani geldi" 

End if 

End sub 

A1 hucresine yazılan tarih geldiğinde, dosyayi açtiginizda zamani geldi uyarisi alacaksınız.

Isterseniz beğendiğiniz bir müzik de caldirabiliriz, ya da cep telefonunuza mesaj olarak gönderebiliriz.

Siz nasıl olmasini isterseniz o şekilde ayarlarim, her zaman geniş düşünün büyük hayâl edin. 

 

Hoşça kalın !  

 

Not: Cepten yazdığım için yazım yanlışlari olabilir kusura bakmayın.  

 
Gönderildi : 26/11/2013 04:27

(@ferhatcoban)
Gönderiler: 33
Trusted Member
Konu başlatıcı
 

teşekkür ederim yardımınızla istedigimi yaptım.

 

kodda bir kaç değşiklik yaparak istediğimi çözdüm, c sutunundaki tüm tarih aralıgını alarak istediğimi yaptım ;

Private Sub workbook_open()

Dim i As Integer

Dim j As String

Dim hucre As String

For i = 1660 To 4000 Step 1

hucre = "c" + CStr(i)

If VBA.Date = Range(hucre).Value Then

MsgBox "Zamani geldi"

End If

Next

End Sub

 

 
Gönderildi : 26/11/2013 18:32

(@Anonim)
Gönderiler: 0
 

Rica ederim. 

 Kullanmadiginiz değişken tanımlamalarıni ve step 1'i silebilirsiniz. 

Ayrica cells(i, "c") ya da cells(i, 3) te yapabilirdiniz. 

 

Iyi gunler.  

 
Gönderildi : 26/11/2013 19:04

Paylaş: