Soru Bilgi Eksikliği

[Quented]

Beyler Bayanlar hepinize öncelikle iyi günler dilerim bana iş yerimden bir görev verdiler benden istedikleri şu idi visual basic üzerinden git 2019 yılında alınan bir ürünü 3 yıl sonra geçtiğinde fontunu kırmızı renk yap sizlere göre çok basit geliyor olabilir ama ben hiç yardım almadım hayatımda ilk kez yazıyorum visual basic biraz zor geldi açıkçası

 

[catalinastrap]

Merhaba,
örnek bir dosya yükler misiniz ?

 

[u.L.a.s]

Merhaba

Örnek olarak sheet1 sayfanda D sütununda tarih verileri olsun. D sütununda 3 yıl sonraki tarihi kırmızı fontlu hale getirebileceğin makro kod düzeneği aşağıdaki gibi olur. bu kod düzeneğini bir modül içerisine yerleştir ve çalıştır.

Sub üçyıl()
Dim cell As Range
    For Each cell In Sheet1.Range("D2:D" & Sheet1.Range("D" & Rows.Count).End(xlUp).Row)
    If Not IsDate(cell.Value) Then GoTo X:
    If IsEmpty(cell.Value) Then GoTo X:
              
        If cell.Value = DateAdd("yyyy", 3, Date) Then
                            
            cell.Font.ColorIndex = 3
        
        Else
X:
        cell.Interior.ColorIndex = 0
        
        End If
 
Next cell
End Sub

 

[Quented]

Merhaba

Örnek olarak sheet1 sayfanda D sütununda tarih verileri olsun. D sütununda 3 yıl sonraki tarihi kırmızı fontlu hale getirebileceğin makro kod düzeneği aşağıdaki gibi olur. bu kod düzeneğini bir modül içerisine yerleştir ve çalıştır.

Sub üçyıl()
Dim cell As Range
    For Each cell In Sheet1.Range("D2:D" & Sheet1.Range("D" & Rows.Count).End(xlUp).Row)
    If Not IsDate(cell.Value) Then GoTo X:
    If IsEmpty(cell.Value) Then GoTo X:
             
        If cell.Value = DateAdd("yyyy", 3, Date) Then
                           
            cell.Font.ColorIndex = 3
       
        Else
X:
        cell.Interior.ColorIndex = 0
       
        End If

Next cell
End Sub

bunun üzerine ileride lazım olursa zaman dilimi ile nasıl oynayabilirim yani benden örnekleme olarak 5 dakika sonraya ayarlanmasını istersem nasıl yapabilirim

 

[Quented]

bunun üzerine ileride lazım olursa zaman dilimi ile nasıl oynayabilirim yani benden örnekleme olarak 5 dakika sonraya ayarlanmasını istersem nasıl yapabilirim

tamam jeton yeni düştü kusura bakmayın şimdi anladım mantığını

 

[Quented]

Merhaba,
örnek bir dosya yükler misiniz ?

benim yazdığım kodlama buydu
Sub Deneme()
Dim i As Integer
i = 1

Do While Cells(i, 1).Value <> ""
Cells(i, 2).Value = Cells(i, 1).Value + 10
i = i + 1
n = Now()
Year > Year(d) - 3




Loop
End Sub

 

[Quented]

benim yazdığım kodlama buydu
Sub Deneme()
Dim i As Integer
i = 1

Do While Cells(i, 1).Value <> ""
Cells(i, 2).Value = Cells(i, 1).Value + 10
i = i + 1
n = Now()
Year > Year(d) - 3




Loop
End Sub

cells(i,2) kısmı disabled

 

[u.L.a.s]

Şöyleki

kod düzeneğinde
If cell.Value = DateAdd("yyyy", 3, Date) Then yazılan yerde 3 yazan yeri değiştirirsen orası kaç yıl sonrasını istiyorsan onu işaretler. yyyy ise yıl olduğunu temsil eder


eğer kodu
If cell.Value = DateAdd("m", 3, Date) Then olarak değiştirirsen bugünden itibaren 3 ay sonrasını renklendirir.

eğer kodu
If cell.Value = DateAdd("d", 3, Date) Then değiştitrirsen bugünden itibaren 3 gün sonrasını renklendirir

ama işin içine zaman girerse o biraz sıkıntı olmaz mı? yani sen 5 dk sonrasını işaretlerken o anda saat 15:45 iken 15:46 olacak ve 1 dk farkla farklı verileri renklendirmiş olacaksın

 

[Quented]

Şöyleki

kod düzeneğinde
If cell.Value = DateAdd("yyyy", 3, Date) Then yazılan yerde 3 yazan yeri değiştirirsen orası kaç yıl sonrasını istiyorsan onu işaretler. yyyy ise yıl olduğunu temsil eder


eğer kodu
If cell.Value = DateAdd("m", 3, Date) Then olarak değiştirirsen bugünden itibaren 3 ay sonrasını renklendirir.

eğer kodu
If cell.Value = DateAdd("d", 3, Date) Then değiştitrirsen bugünden itibaren 3 gün sonrasını renklendirir

ama işin içine zaman girerse o biraz sıkıntı olmaz mı? yani sen 5 dk sonrasını işaretlerken o anda saat 15:45 iken 15:46 olacak ve 1 dk farkla farklı verileri renklendirmiş olacaksın

İlginiz için öncelikle teşekkür ederim ben sadece misal olarak söylemiştim teşekkür ederim tekrardan