Soru İstenilen sayıda zaman oluşturmak

[hlojan]

Merhaba;

Başlangıç "7.03.2019 11:00:36" olsun mesala

Artış 5 dakika olsun

Adet 100 olsun

100 tane başlangıça 5 dk ekleyerek A1 e den başlayarak yazmasını istiyorum

Redim özelliğini denedim ama beceremedm
Anlayamadımda


125685 civarında adet yazabilirim ondan redim denemek istedim


Yardımlarınızı bekliyorum

03/07 2019 11:00:36​

 

[ÖmerBey]

Merhaba,
A1'e başlangıç değerini yazıp kodu çalıştırınız.

Sub kod()
Dim kac As Long, a As Long
Dim bas As Double
Dim dz As Variant
kac = Application.InputBox("Kaç Tane", Type:=1)
If kac = False Then Exit Sub
bas = Range("A1").Value
dz = Range("A1:A" & kac)
For a = 2 To kac
    bas = bas + TimeValue("00:05:00")
    dz(a, 1) = bas
Next
With Range("A1:A" & kac)
    .Value = dz
    .NumberFormat = Range("A1").NumberFormat
End With
End Sub

 

[hlojan]

Çalıştı. Teşekkür ederim

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Sub Zaman_Uret()
    Dim Adet As Long, Zaman As Double, Artis As Double
    
    Adet = Application.InputBox("Lütfen üretmek istediğiniz zaman adedini giriniz.", , 100, , , , , 1)
    
    If Adet <= 0 Then
        MsgBox "Lütfen sıfırdan farklı pozitif bir değer giriniz.", vbExclamation
        Exit Sub
    End If
        
    Zaman = Range("A1").Value
    Artis = 5 / 1440
    
    With Range("A1:A" & Adet)
        .Formula = "=" & Replace(Zaman, ",", ".") & "+" & Replace(Artis, ",", ".") & "*Row()"
        .Value = .Value
        .NumberFormat = Range("A1").NumberFormat
    End With

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[hlojan]

Korhan Bey Denedim Teşekkürler. Çalışıyor. Ama Ömer beyinkini uygulamama entegre etmiştim. iyi çalışmalar

 

[Korhan Ayhan]

Sorun yok. Tabiki dilediğinizi kullanabilirsiniz.

Bizim alternatif paylaşımlarımız yeni öğrenen arkadaşlara konulara farklı bakış açısıyla bakmalarını sağlamaktır.