formülü macro ya çevirmek

[mersilen]

Merhabalar

Tablodaki hücrelerde tarih olup formatı "gggg" dir.
formül ile aldığım sonucu macro ile alamadım, yardımcı olabilir misiniz?

{=KAÇINCI(METNEÇEVİR(L5;"gggg");METNEÇEVİR(L8:L14;"gggg");0)}

Cells(22, 3) = WorksheetFunction.Match(Text(Cells(5, "L"), "gggg"), Text(Range(Cells(5, "L"), Cells(14, "L")), "gggg"), 0)

 

[İhsan Tank]

Merhabalar

Tablodaki hücrelerde tarih olup formatı "gggg" dir.
formül ile aldığım sonucu macro ile alamadım, yardımcı olabilir misiniz?

Merhaba
Boş bir module kopyalayın ve deneyin

Option Explicit
Sub formül_çevir_61()
Dim ts
For ts = 8 To 14
If Format(Cells(ts, "L"), "dddd") = Format(Range("L5"), "dddd") Then
Range("L19") = ts - 7
End If
Next
End Sub

 

[mersilen]

Merhaba
Boş bir module kopyalayın ve deneyin

Option Explicit
Sub formül_çevir_61()
Dim ts
For ts = 8 To 14
If Format(Cells(ts, "L"), "dddd") = Format(Range("L5"), "dddd") Then
Range("L19") = ts - 7
End If
Next
End Sub

İhsan bey çok teşekkür ederim.

 

[İhsan Tank]

İhsan bey çok teşekkür ederim.

Rica ederim
:keyif:

 

[mersilen]

Tekrar merhabalar

Macro da hata alıyorum, biçim benzemiyor gibi
değerlendirmeniz mümkün mü

Format(Cells(ts, "L"), "dddd") = Format(Cells(X, "Q"), "dddd")

 

[İhsan Tank]

Yapmak istediğiniz nedir onu anlatın. X değişkeni nedir sayısı kaçtır.

 

[mersilen]

Merhaba
x değeri 5 ten başlayıp 14 e kadar gidecek

yapmak istediğim ise

Tablo1 deki Q5:Q14 arasını (daha önce bazı hücreler önceden doldurulmuşta olabilir)
-Q5:Q14 boşsa aynı güne gelen tablo2 deki harfler esas alınarak doldurulacak

--Q5:Q14 de harfler arasında en az 3 gün fark olacak(WorksheetFunction.CountIf(Range(Cells(X - 3, Y), Cells(X + 3, Y)), Cells(a, b).Value)) < 1

---Harflerin toplamı tablo2 15. satır (tablo3 2.satırı geçmeyecek)


--1.mesajdaki dosyadaki macro dolduruyordu ama aynı güne gelecek şekilde dolduramıyordu