Tarihe gun ekleme

[arkanonur]

herkese selamlar,

Benim gene tarihlerle ilgili sorunum var. Ilgilenebileceklere simdiden tesekkurler. BEn MEsela 24/10/2005 tarihinden 21 gun ileri gidersek hangi tarihe denk gelebilecegimizi makroda yazdirmak istiyorum.

"W" sutununda tarihlerim , "X" sutununda bu tarihlere eklenecek gunler var. "Y" sutununda ise bu gunler eklendikten sonra gelecegimiz tarihi listelemek istiyorum. Nasil yapabilirim?

Saygilarimla,

Onur

 

[zafer]

Merhaba

Sub tarih()
x = WorksheetFunction.CountA(Range("w:w"))
For i = 1 To x
Cells(i, "y") = Cells(i, "w").Value + Cells(i, "x").Value
Next
End Sub

 

[Ali]

Sn zafer,
x = WorksheetFunction.CountA(Range("W:w")) şeklinde olması gerekir sanırım.Çünkü tarihler orada

 

[zafer]

Merhaba

Evet, Sayın fructose değiştirdim.Teşekkürler.

 

[arkanonur]

Merhaba arkadaslar,

Oncelikle ilgilendiginiz icin sagolun. Kodlari denedim ama toplama isleminin oldugu bolumde hata verdi. Dosyayi mesaja ekliyorum. Bir cozum bulabilirseniz cok memnun olurum.

 

[zafer]

Merhaba

 

[arkanonur]

tarihe gun ekleme

Cok tesekkur ederim Zafer,

Ben de bu arada soyle birsey denedim o da calisiyor gibi gorunuyor.

Sheets("Model").Select
For i = 2 To rij
Range("Y" & i).Select
dag = Range("X" & i).Value
Range("Y" & i).Value = DateAdd("d", dag, Range("W" & i))
Next i

Ilgilendigin icin tekrar tesekkurler. Sizlerin bizlere yardim ettiginizi bilmek
makrolarla ugrasirken piskolojik olarak yalniz hissetmememi sagliyor. Arkadaslarimla birlikte calistigimi hissediyorum. Butun site sakinlerine ve moderatorlere saygilar,

Onur