Tarihleri yazdırma

[FRADKLUF]

Merhaba Arkadaşlar.. Benim maruzatım şudur;

Eklediğim excellde gördüğünüz üzere belirli satırların rastgele bir yerinde tarihler var. Ben mesela "2011 Nov 04" ile "2011 Nov 05" tarihleri arasında kalan satırların yanındaki satırların tamamına "2011 Nov 04" tarihini yazdırmak istiyorum. "2011 Nov 05" ile "2011 Nov 06" arasındaki satırların yanındaki satırlara da "2011 Nov 05" tarihini.. Bu şekilde 2011 Nov 14 tarihine kadar data var elimde. Kodu tam olarak yazmasında yol gösterebilirseniz çok sevinirim..

 

[hımmmmmmmm]

slm

yıl bakılarak işlem yapılmaktadır... çalışma ekde... sayfadaki butonu tıkla...

Private Sub CommandButton1_Click()
Range("B:B").ClearContents
X = WorksheetFunction.CountA(Range("A:A")) + 2
TAR = "": YIL = Year(Date)
For I = 1 To X
  O = Cells(I, 1).Value
  If Trim(O) = "" Then GoTo DEVAM
  XX = InStr(O, YIL)
  Cells(I - 1, 2).Value = TAR
  If XX <> 0 Then TAR = Trim(Mid(O, XX, XX + 11))
DEVAM:
Next I
End Sub

 

[FRADKLUF]

Teşekkür ederim gönderdiğiniz dosya gayet güzel çalışıyor fakat read_only olduğu için içine asıl excel dosyamı kopyalayamadım. Kendim olşturdum buton ve macroyu ekledim fakat o da çalışmadı.

 

[FRADKLUF]

Çooook teşekkür ederim az önce hallettim bir şekilde, gayet güzel çalışıyor şu anda..