Otomatik köprü eklemek ve sıralama yapmak

[SeSi]

Merhaba,

Ekli örnek dosyada görüleceği gibi;

1. Çalışma kitabında "MENU" adlı sayfasında B10 hücresinden başlayarak varolan ve eklenen yeni sayfaların sayfa isimleriyle (ya da eklenen sayfada ki bir hücredeki isimle de olabilir) listelenmesini ve otomatik olarak köprü oluşturulmasını,

2. Ayrıca listelenen sayfa isminin yanındaki C sütununa ilgili sayfanın C1 hücresindeki bilgiyi, D sütununa D1 hücresindeki bilgileri almasını,

3. Yeni sayfa eklenince alfabetik sıralama yapılmasını,

4. Silinen sayfaların "MENU" sayfasından silinmesini istiyorum.

Saygı ve teşekkürlerimi sunarım.

 

[kenangulal]

Sayın sesi merhaba,daha evvel forum dan çektiğim değerli arkadaşların iki çalışması vardı, bu ikisini birleştirerek istediğiniz dosyayı oluşturabilirsiniz sanırım.syg.

 

[unreal_avci]

Merhaba,

Ekli örnek dosyada görüleceği gibi;

1. Çalışma kitabında "MENU" adlı sayfasında B10 hücresinden başlayarak varolan ve eklenen yeni sayfaların sayfa isimleriyle (ya da eklenen sayfada ki bir hücredeki isimle de olabilir) listelenmesini ve otomatik olarak köprü oluşturulmasını,

2. Ayrıca listelenen sayfa isminin yanındaki C sütununa ilgili sayfanın C1 hücresindeki bilgiyi, D sütununa D1 hücresindeki bilgileri almasını,

3. Yeni sayfa eklenince alfabetik sıralama yapılmasını,

4. Silinen sayfaların "MENU" sayfasından silinmesini istiyorum.

Saygı ve teşekkürlerimi sunarım.

aynı sorun bendede var
forumda ve nette aramama ragmen bulamadım.
yardımlarınız için tesekkur eder iyi çalışmlar dilerim.

 

[N.Ziya Hiçdurmaz]

Yanıt

Bir örnek hazırladım inceleyiniz.

Sub SEKLE()
Dim AD As String
Dim I As Long
Dim S1 As Worksheet
Dim S2 As Worksheet
AD = InputBox("Sayfa ismini giriniz.")
If AD = "" Then
MsgBox " Önce sayfa ismi giriniz.", vbInformation
Exit Sub
End If
For I = 1 To Sheets.Count
If Sheets(I).Name = AD Then
MsgBox "Bu isimden daha önce verilmiş Başka bir isim deneyiniz.", vbInformation
Exit Sub
End If
Next
Sheets.Add AFTER:=Sheets(Sheets.Count)
ActiveSheet.Name = AD
For Each S1 In Worksheets
For Each S2 In Worksheets
If S1.Name <> "MENU" Then
If S1.Name > S2.Name Then S1.Move AFTER:=S2
Sheets("MENU").Select
End If
Next
Next
For I = 2 To Sheets.Count
S = S + 1
Sheets("MENU").Cells(10 + S, "B") = Sheets(I).Name
Sheets("MENU").Cells(10 + S, "C") = Sheets(I).[C1].Value
Sheets("MENU").Cells(10 + S, "D") = Sheets(I).[D1].Value
Next
End Sub

 

[unreal_avci]

Tesekkur eder başarılarınızın devamını dilerim.

 

[N.Ziya Hiçdurmaz]

Bişey değil.