Kod:
Sub Makro1()
'
' Makro1 Makro
'
'
' Rows("8:8").Select
' Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
' Range("A8").Select
' ActiveCell.FormulaR1C1 = "a"
' Range("A8").Select
' Selection.ClearContents
Rows(ActiveCell.Row + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
Sub YuvarlatılmışDikdörtgen1_Tıklat()
aylar = Array("", "OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
'For i = 1 To 12
'If Month(ActiveSheet.Range("E2")) = i Then
sat = ActiveSheet.Columns("D:D").Find(What:=aylar(Month(ActiveSheet.Range("E2"))), LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
Rows(sat + 3).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveSheet.Range("A2:H2").Copy ActiveSheet.Range("A" & sat + 3)
'End If
'Next i
End Sub
Sub Makro2()
'
' Makro2 Makro
'
'
Range("D4").Select
Range("D8").Select
ActiveWindow.SmallScroll Down:=-15
Columns("D:D").Select
Selection.Find(What:="OCak", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range("F6").Select
End Sub
Sub Makro3()
'
' Makro3 Makro
'
'
Range("A6:H6").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
bu kodlarla oldu gibi ama tarihe göre aralara açma yapamadım. her ayın ilk sırasından itibaren ekleme yapıyor bu şekilde. tarih sıra takip etmiyor. yani 10una ekliyorsam 9 undan sonra 11 inden öncesine eklemiyor. hep ilk satıra ekliyor. nasıl bir düzenleme yapmak lazım?