- Katılım
- 4 Ocak 2006
- Mesajlar
- 12,073
- Excel Vers. ve Dili
-
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Benim kodlarımı aşağıdakiyle değiştirip deneyin:
Kod:
Rows(2).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
[B2] = "Ayın 1-5'inin taksitleri"
For i = Cells(Rows.Count, "A").End(3).Row To 1 Step -1
If Cells(i, "A") <> "" Then
If IsDate(Cells(i, "A")) = True Then
If Day(Cells(i, "A")) = 5 Then
Range("A" & i + 1 & ":K" & i + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(i + 1, "B") = "Ayın 6-10'unun taksitleri"
i = 1
End If
End If
End If
Next
For i = Cells(Rows.Count, "A").End(3).Row To 1 Step -1
If Cells(i, "A") <> "" Then
If IsDate(Cells(i, "A")) = True Then
If Day(Cells(i, "A")) = 10 Then
Range("A" & i + 1 & ":K" & i + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(i + 1, "B") = "Ayın 11-15'inin taksitleri"
i = 1
End If
End If
End If
Next
For i = Cells(Rows.Count, "A").End(3).Row To 1 Step -1
If Cells(i, "A") <> "" Then
If IsDate(Cells(i, "A")) = True Then
If Day(Cells(i, "A")) = 15 Then
Range("A" & i + 1 & ":K" & i + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(i + 1, "B") = "Ayın 16-20'sinin taksitleri"
i = 1
End If
End If
End If
Next
For i = Cells(Rows.Count, "A").End(3).Row To 1 Step -1
If Cells(i, "A") <> "" Then
If IsDate(Cells(i, "A")) = True Then
If Day(Cells(i, "A")) = 20 Then
Range("A" & i + 1 & ":K" & i + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(i + 1, "B") = "Ayın 21-25'inin taksitleri"
i = 1
End If
End If
End If
Next
For i = Cells(Rows.Count, "A").End(3).Row To 1 Step -1
If Cells(i, "A") <> "" Then
If IsDate(Cells(i, "A")) = True Then
If Day(Cells(i, "A")) = 25 Then
Range("A" & i + 1 & ":K" & i + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(i + 1, "B") = "Ayın 26-30'unun taksitleri"
i = 1
End If
End If
End If
Next
For i = Cells(Rows.Count, "A").End(3).Row To 1 Step -1
If Cells(i, "A") <> "" Then
If IsDate(Cells(i, "A")) = True Then
If Day(Cells(i, "A")) = 30 Then
Range("A" & i + 1 & ":K" & i + 1).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(i + 1, "B") = "Ayın 30'unun taksitleri"
i = 1
End If
End If
End If
Next