Hücre İçeriği Değişsin

[betsfat]

Arkadaşlar merhaba;mevcut bir tablom var ve A sütununda verilerim hep sabit kalmak kaydıyla,B sütunundaki verileri her ay başında döngü olacak şekilde değiştirmem gerekiyor.Çözüm öneriniz nedir?

 

[Erdem Akdemir]

Merhaba,

Öncelikle çalışma sayfasının adını ayları takip etmesi için ve kodun çalıştığını görmek için 2 yapın.
Dosya açılışında kod otomatik olarak çalışacaktır.

Option Base 1
Sub Auto_open()

If Month(Now) <> CLng(ActiveSheet.Name) Then
dizi = Array("A", "B", "C", "D", "E")

For i = 1 To 20

deg = Application.Match(Cells(i, 2), dizi, 0)
If deg = 5 Then deg = 0
Cells(i, 2) = dizi(deg + 1)
Next i

ActiveSheet.Name = Month(Now)
End If

End Sub

 

[betsfat]

.

 

[betsfat]

Erdem Bey elinize sağlık çok güzel çalışıyor.İyi çalışmalar