Soru İstenilen sayıda zaman oluşturmak

Katılım
15 Mayıs 2015
Mesajlar
518
Excel Vers. ve Dili
Microsoft Office 2019
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,091
Excel Vers. ve Dili
2007 Türkçe
Merhaba,
A1'e başlangıç değerini yazıp kodu çalıştırınız.
Kod:
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
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,091
Excel Vers. ve Dili
2007 Türkçe
Rica ederim,
İyi çalışmalar...
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Alternatif;

C++:
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
 
Katılım
15 Mayıs 2015
Mesajlar
518
Excel Vers. ve Dili
Microsoft Office 2019
Korhan Bey Denedim Teşekkürler. Çalışıyor. Ama Ömer beyinkini uygulamama entegre etmiştim. iyi çalışmalar
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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.
 
Üst