Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

10 Mayıs 2009 Pazar

Insert Row Upstairs

'Module1
Option Explicit
Dim Hücre As Range

Sub ÜstüneSatırEkle() '[InserUpstairs]
     On Error Resume Next
     Set Hücre = ActiveCell
     Hücre.Rows("1:4").EntireRow.Insert Shift:=xlDown
     Hücre.Offset(-4, 0).Value = Date
     Hücre.Offset(-3, 0).Value = Date
     Hücre.Offset(-2, 0).Value = Date
     Hücre.Offset(-1, 0).Value = Date

End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul