Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Haziran 2006 Salı

Data Rate and Group Names and Group Opened a New Page.




'Module1

Option Explicit
Dim Sayfa As Worksheet
Dim Hücre As Range
Dim SonSayfa As Worksheet
Dim Alan As Range
Dim Satır As Variant

Sub VerileriKendiİsmindekiSayfalaraAktar()
On Error Resume Next
Application.DisplayAlerts = False
ActiveSheet.Move Before:=Sheets(1)
Application.DisplayAlerts = True
ActiveSheet.Copy After:=Sheets(Worksheets.Count)
Durak:
If [A2] = "" Then Exit Sub
Set Sayfa = ActiveSheet
Columns("A:D").EntireColumn.AutoFit
Sayfa.Name = [A2]
Set Hücre = [A2].CurrentRegion.Columns(1).ColumnDifferences([A2])
Set Hücre = Application.Intersect(Hücre.EntireRow, [A:D])
If Hücre.Address = "" Then Exit Sub
Worksheets.Add After:=Sheets(Worksheets.Count)
Set SonSayfa = Sheets(Worksheets.Count)
Sheets(SonSayfa.Name).Tab.ColorIndex = (Worksheets.Count - 1)
Sayfa.Select
For Each Alan In Hücre.Areas
Alan.Copy
Satır = SonSayfa.[a65536].End(3).Row + 1
SonSayfa.Cells(Satır, 1).Insert shift:=xlDown
Alan.Delete shift:=xlUp
Next
Set Hücre = Nothing
SonSayfa.Select
GoTo Durak
End Sub

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