- Katılım
- 6 Ekim 2006
- Mesajlar
- 149
- Excel Vers. ve Dili
- 2013
- Altın Üyelik Bitiş Tarihi
- 24/05/2022
Sub doldur()
Range("F8").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-1]C="""","""",IF(WEEKDAY(R[-1]C,2)=6,""1"",IF(WEEKDAY(R[-1]C,2)=7,"" "",""1"")))"
Range("F9").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-2]C="""","""",IF(WEEKDAY(R[-2]C,2)=6,"" "",IF(WEEKDAY(R[-2]C,2)=7,""1"",""1"")))"
Range("F10").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-3]C="""","""",IF(WEEKDAY(R[-3]C,2)=6,""1"",IF(WEEKDAY(R[-3]C,2)=7,"" "",""1"")))"
Range("F11").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-4]C="""","""",IF(WEEKDAY(R[-4]C,2)=6,"" "",IF(WEEKDAY(R[-4]C,2)=7,""1"",""1"")))"
Range("F8:F509").Select
Selection.AutoFill Destination:=Range("F8:AJ509"), Type:=xlFillDefault
Range("F8:AJ509").Select
Range("F8:AJ509").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B8").Select
Application.CutCopyMode = False
End Sub
Bu makroda B8:B509 doluysa uygulama nasıl yaptırırım selamlar.
Range("F8").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-1]C="""","""",IF(WEEKDAY(R[-1]C,2)=6,""1"",IF(WEEKDAY(R[-1]C,2)=7,"" "",""1"")))"
Range("F9").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-2]C="""","""",IF(WEEKDAY(R[-2]C,2)=6,"" "",IF(WEEKDAY(R[-2]C,2)=7,""1"",""1"")))"
Range("F10").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-3]C="""","""",IF(WEEKDAY(R[-3]C,2)=6,""1"",IF(WEEKDAY(R[-3]C,2)=7,"" "",""1"")))"
Range("F11").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-4]C="""","""",IF(WEEKDAY(R[-4]C,2)=6,"" "",IF(WEEKDAY(R[-4]C,2)=7,""1"",""1"")))"
Range("F8:F509").Select
Selection.AutoFill Destination:=Range("F8:AJ509"), Type:=xlFillDefault
Range("F8:AJ509").Select
Range("F8:AJ509").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B8").Select
Application.CutCopyMode = False
End Sub
Bu makroda B8:B509 doluysa uygulama nasıl yaptırırım selamlar.