Makro ile Bilgileri Kaydırma işlemi

[misnet]

Arkadaşlar ben makro ile bazı hücredeki bilgileri aynı sayfada başka bir hücreye kaydırmak istiyorum.
Tam istediğim şeyi ekli dosyamda açıkladım. yardımcı olacak arkadaşlara ve sayın uzmanlarıma şimdiden teşekkürü bir borç bilirim.

Saygılar.....

 

[Murat OSMA]

Renkli sütunların yanındaki renksiz Kalan sütunları (E:H:K:N) ne olacak ?

 

[Murat OSMA]

■ Sayfa1'in kod penceresine;

[SIZE="2"][FONT="Trebuchet MS"]Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
        Application.EnableEvents = False
        If Not Intersect(Target, Range("C3:N18")) Is Nothing Then Call Emre
        Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub[/FONT][/SIZE]

■ Module içerisine;

[SIZE="2"][FONT="Trebuchet MS"]Sub Emre()
Dim i As Integer
    For i = 3 To 18
        Cells(i, 5) = Cells(i, 3) - Cells(i, 4)
        Cells(i, 8) = Cells(i, 6) - Cells(i, 7)
        Cells(i, 11) = Cells(i, 9) - Cells(i, 10)
        Cells(i, 14) = Cells(i, 12) - Cells(i, 13)
        Cells(i, 15) = Cells(i, 3) + Cells(i, 6) + Cells(i, 9) + Cells(i, 12)
        Cells(i, 16) = Cells(i, 4) + Cells(i, 7) + Cells(i, 10) + Cells(i, 13)
        Cells(i, 17) = Cells(i, 15) - Cells(i, 16)
    Next i
i = Empty
End Sub[/FONT][/SIZE]

■ Thiworkbook kod sayfasına;

[SIZE="2"][FONT="Trebuchet MS"]Private Sub Workbook_Open()
    If VBA.Date = "01.01.2013" Then
        Columns("C:E").Select
        Selection.Delete Shift:=xlToLeft
        Columns("L:L").Select
        Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        Columns("I:K").Select
        Selection.Copy
        Columns("L:L").Select
        ActiveSheet.Paste
        Range("L1").Select
        End If
    Range("R3:T18").ClearContents
    Application.CutCopyMode = False
End Sub[/FONT][/SIZE]

Dosyanızı da yolluyorum. İnceleyiniz...

 

[misnet]

Sayın Murat Bey emeğinize sağlık ama ben heralde yanlış anlattım. bir eksiklik var
oradaki 01.01.2013 tarihi sabit olmayacak, 2014 te de değişecek, 2015 tede değişecek, yani her yıl otomatik olarak değişecek. ve L ve M sütunlarıda yeni yıl veri girişi için boşaltılacak.

Bunda bir düzeltme yapabilirseniz sevinirim teşekkürler.

 

[Murat OSMA]

Yılda bir kere değiştirirsiniz... Olmaz mı ?

L ve M sütunlarını neden boşaltıyorsunuz ? İzin miktarı 30 gün sabit değil mi ?
Değilse; workbook_open kodlarına range("l3:m28").clearcontents yazınız...

 

[misnet]

neden olmasın olur tabi ama imkanı varsa demiştim, izin miktarı da sabit değil, 1-5 yıl=18gün 6-10 yıl=26gün 10yıldan sonra 30 gün o yüzden boşaltmak istemiştim.

Yardımınız için teşekkür eder saygılarımı sunarım. Hayırlı cumalar.

 

[Murat OSMA]

Peki.

Teşekkür ederim, size de hayırlı Cumâ'lar...