- Katılım
- 27 Mart 2006
- Mesajlar
- 43
- Excel Vers. ve Dili
- Microsoft Office Excel 365 64bit Türkçe
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
'ActiveSheet.Unprotect
If Intersect(Target, [A9:A53]) Is Nothing Then Exit Sub
Cells(Target.Row, "J") = ActiveCell.FormulaR1C1 = _
"=IF(WEEKDAY(RC[-9])=7,WEEKNUM(RC[-9])+1,WEEKNUM(RC[-9]))"
son:
'ActiveSheet.Protect
End Sub
Yukarıdaki sorguda yanlış sonucu alıyorum hata neresinde yardım edermisiniz?
Ayrıca farklı sayfalarda çalışan makrolarım var bu sayfalara select ile seçmeden başka bir sayfadan makroları çalıştırabilirmiyim.
Dosyam Ekte şimdiden yardım edenlere teşekkürler. Saygılar.
On Error GoTo son
'ActiveSheet.Unprotect
If Intersect(Target, [A9:A53]) Is Nothing Then Exit Sub
Cells(Target.Row, "J") = ActiveCell.FormulaR1C1 = _
"=IF(WEEKDAY(RC[-9])=7,WEEKNUM(RC[-9])+1,WEEKNUM(RC[-9]))"
son:
'ActiveSheet.Protect
End Sub
Yukarıdaki sorguda yanlış sonucu alıyorum hata neresinde yardım edermisiniz?
Ayrıca farklı sayfalarda çalışan makrolarım var bu sayfalara select ile seçmeden başka bir sayfadan makroları çalıştırabilirmiyim.
Dosyam Ekte şimdiden yardım edenlere teşekkürler. Saygılar.