zaman aralığı belirleme

[onur3466]

H sütunundaki verilerde saatli kısım 10 saniye aralıkla hareket etmektedir. Ben sonuçların J sütunundaki gibi 1 dakika aralıkta olmasını istemekteyim. Bunu en kısa yoldan nasıl yapabilirim. Veya F sütununa 5 s yazdığımda 5 saniye aralıklı 10 s yazdığımda 10 s aralıklı 60 s Yazdığımda da yukarıdaki gibi olmasını istemekteyim.

 

[Korhan Ayhan]

Ekteki gibi olabilir.

Sarı ve Yeşil renkli hücelere değer girip deneyiniz.

Formülleri ihtiyacınız kadar alta sürüklersiniz.

 

[onur3466]

hocam yardımınız gerçekten çok teşekkür ederim

 

[onur3466]

bide bunu makro olarak yazabilirmiyiz peki basit bir şekilde

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Create_Time_Series()
    Dim Last_Row As Variant

    If Range("F8") = "" Or Not IsNumeric(Range("F8")) Then
        MsgBox "F8 hücresine uygun veri girişi yapınız!", vbCritical
        Range("F8").ClearContents
        Range("F8").Select
        Exit Sub
    End If
   
    On Error Resume Next
    If Range("H8") = "" Or IsDate(Range("H8")) = False Then
        MsgBox "H8 hücresine uygun veri girişi yapınız!", vbCritical
        Range("H8").ClearContents
        Range("H8").Select
        Exit Sub
    End If
    On Error GoTo 0   

    Last_Row = InputBox("Kaç satırlık zaman serisi üretmek istiyorsunuz?", , 50)
    If Last_Row = "" Or Last_Row = False Then
        MsgBox "İşleme devam edebilmek için satır sayısı girmelisiniz!", vbCritical
        Exit Sub
    End If
   
    Range("H9:H" & Rows.Count).ClearContents
   
    With Range("H9:H" & Last_Row + 7)
        .Formula = "=H8+TIME(,,$F$8)"
        .Value = .Value
    End With

    MsgBox "Zaman serisi oluşturulmuştur.", vbInformation
End Sub

 

[onur3466]

çok teşekkür ederim hocam tekrardan şuan bilgisayar başında değilim ama uygulayıp hemen dönücem