Tarih Farkı Kadar Satır Ekleme

[imsorrydude]

Arkadaşlar merhaba,

Ekte size bir excel gönderiyorum. Burada iki tarih arasındaki fark kadar aynı sicili yazan ve her satırda gün sayısını bir artırıp son tarihte bırakan bir makroya ihtiyacım var.

Yardımlarınız için şimdiden teşekkürler.

 

[apocalyt]

Merhaba;
dosyanız ektedir..

 

[asi_kral]

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub satır()
Dim STR As Long, STR1 As Long
Range("F3:G" & Rows.Count).ClearContents
STR1 = 3
For STR = Range("B3") To Range("C3")
Cells(STR1, "F") = Range("A3")
STR1 = STR1 + 1
Next
Range("G3") = Range("B3")
Range("G3:G" & STR1 - 1).DataSeries rowcol:=xlColumns, _
Type:=xlChronological, Date:=xlDay, step:=1, Trend:=False
End Sub

 

[imsorrydude]

Çok teşekkürler arkadaşlar, süpersiniz. Ellerinize sağlık.

 

[asi_kral]

Çok teşekkürler arkadaşlar, süpersiniz. Ellerinize sağlık.

Kolay Gelsin.