autofill yardımı

kadir78

Altın Üye
Katılım
6 Nisan 2016
Mesajlar
227
Excel Vers. ve Dili
office 2019
Altın Üyelik Bitiş Tarihi
30-12-2026
İyi günler.

vba autofill ile 1 yıllık tarih değeri oluşturmaya çalışıyorum yıl değerlerini yükseltiyor fakat gün değerleri aynı kalıyor çözemedim yardım edermisiniz.

Kod:
Dim s1 As Worksheet, s2 As Worksheet
Dim trh As Range, trhs As Range, trhb As Range
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Set trh = s2.Range("A2")
Set trhs = s1.Range("B1:NC1")
Set trhb = s1.Range("B1")

trhb = "01.01." & trh
trhs.NumberFormat = "dd/mm/yyyy"
trhb.AutoFill Destination:=trhs
 
Üst