otomatik sıra no atamak hk.

[restep]

Sayın üyeler,
forumda yeterince dolaştım. Benzer konular var ama çalışmama uygun hale getiremedim. sizlerden ricam; ekteki çalışmam da sıra no kısmının ertesi gün tarih değiştiğinde otomatik olarak (tarihin değiştiği gibi) sıradan değişmesi
23.11.2013 1 - 24.11.2013 2 ... şeklinde yardımlarınızı bekler şimdiden teşekkür ederim.

 

[Murat OSMA]

HESAP sayfasının kod kısmına şu kodu yazıp deneyin;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "H3" Then [H2] = [H2] + 1
End Sub

 

[restep]

HESAP sayfasının kod kısmına şu kodu yazıp deneyin;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "H3" Then [H2] = [H2] + 1
End Sub

Sayın Murat OSMA
Kodu yazdım ancak herhangibir değişiklik yok tarihi değiştirdim olmadı...

 

[Murat OSMA]

Kodu sayfanın kod kısmına yazmalısınız Module yazdıysanız sonuç alamazsınız. Doğru yere yazdığınızdan emin olun.

 

[restep]

Kodu sayfanın kod kısmına yazmalısınız Module yazdıysanız sonuç alamazsınız. Doğru yere yazdığınızdan emin olun.

ekte kontrol edermisiniz doğru yere mi yazmışım.

 

[Murat OSMA]

Evet doğru yere yazmışsınız.

H3 hücresine bir tarih girdiğinizde H2 hücresindeki değere +1 ilave edilir.

 

[abazya]

Senin dosyanda ne var anlamadım ama bunda çalışıyor.

 

[restep]

ekte kontrol edermisiniz doğru yere mi yazmışım.

tamam ; sayfa üzerinde tarihi el ile değiştirdiğimde numara atıyor.
ancak bilgisayar tarihini bir gün sonraya değiştirdiğimde bir şey olmuyor.
kendiğiliğinden ertesi gün tarih otomatik olarak değiştiğinde numara atarmı?

 

[restep]

Evet doğru yere yazmışsınız.

H3 hücresine bir tarih girdiğinizde H2 hücresindeki değere +1 ilave edilir.

Üstadım, ilgin için teşekkür ederim benim istediğim ( tabii mümkünatı varsa )
hem tarih hem de numara elle müdahale etmeden kendiliğinden bir gün sonra değişsin. Şu anki çalışmamda tarih kısmını =BUGÜN() formülüyle hallediyorum.
sizin verdiğiniz kodda, formül yazdığım tarih kısmını bozup elle yazdığımda ancak numara atıyor.

 

[Murat OSMA]

Verdiğim kodun çalışmadığını anlamanız için 00:00 dan sonra denemeniz gerekirdi. Çalışmadı dediğinize göre sanırım zaman makinesini buldunuz, tebrikler.


İstediğinizin olması için bu kodları Thisworkbook (BuÇalışmaKitabı) kod kısmına yazın;

Private Sub Workbook_Open()
    If VBA.Date = [H3] Then [H2] = [H2] + 1
End Sub

Yalnız, dosyayı her açtığınızda H2 hücresindeki değere +1 ilave edilecektir.


Ya da bir başlangıç tarihi belirleyerek, eğer günün tarihi o tarihten büyükse H2 hücresine +1 ilave etsin derseniz bu kodları kullanabilirsiniz;

Private Sub Workbook_Open()
    Dim baslangıc As Date
    baslangıc = "23.11.2013"
    If VBA.Date = baslangıc Then
        [H2] = 1
            ElseIf VBA.Date > baslangıc Then
        [H2] = [H2] + 1
    End If
End Sub

 

[restep]

Verdiğim kodun çalışmadığını anlamanız için 00:00 dan sonra denemeniz gerekirdi. Çalışmadı dediğinize göre sanırım zaman makinesini buldunuz, tebrikler.


İstediğinizin olması için bu kodları Thisworkbook (BuÇalışmaKitabı) kod kısmına yazın;

Private Sub Workbook_Open()
    If VBA.Date = [H3] Then [H2] = [H2] + 1
End Sub

Yalnız, dosyayı her açtığınızda H2 hücresindeki değere +1 ilave edilecektir.


Ya da bir başlangıç tarihi belirleyerek, eğer günün tarihi o tarihten büyükse H2 hücresine +1 ilave etsin derseniz bu kodları kullanabilirsiniz;

Private Sub Workbook_Open()
    Dim baslangıc As Date
    baslangıc = "23.11.2013"
    If VBA.Date = baslangıc Then
        [H2] = 1
            ElseIf VBA.Date > baslangıc Then
        [H2] = [H2] + 1
    End If
End Sub

Teşekkür ederim.
Yordum sizi hakkınızı helal ediniz. belkide dediğiniz gibi ''bilgisayarın kendine bırakmayıp, tarihini manuel olarak değiştirdiğimden'' numara attığını göremiyorumdur.Verdiğiniz kodları 3 ayrı kopya sayfasına yazdım saat 00:00 da kontrol edicem . (Bildiğimden konuşmuyorum) yinede olmazsa ilginize tekrar teşekkür ederim.

 

[Murat OSMA]

Denediniz mi ? :dusun:

 

[restep]

denedim. Sizin verdiğiniz ilk formül üzerinden gidiyorum. bir sıkıntı yok ilginize çok teşekkür ediyorum. cevap için beklettiğim için kusuruma bakmayın günlerdir ofis ortamında değil dışarıdaydım.