Excel Dili ingilizce veya başka bir dill isede kodlar çalışsın

[hsayar]

AÇIKLAMALAR

[B][color="green"] Yeni kitap oluşturuyoruz [/color][/B]
Set yeni = Workbooks.Add
su = yeni.Name
    For syf = 1 To son
    If syf > Workbooks(bu).Worksheets.Count Then GoTo gec
    Set s1 = Workbooks(bu).Sheets(syf)
    ssyf = Workbooks(su).Worksheets.Count
    If s1.Name = "koru01" Or s1.Name = "koru02" Or s1.Name = "koru03" Or s1.Name = "koru04" Or s1.Name = "koru05" Then GoTo atla
[B][color="green"] Eski kitaptaki dizi harici sayfaları yeni kitaba taşıyoruz[/color][/B]
    s1.Move After:=Workbooks(su).Sheets(ssyf)
    syf = syf - 1
atla:
    Next
gec:
[B][color="green"] Yeni Kitaptan standart olan ilk üç çalılşma kitabını siliyoruz.[/color][/B]
[B][color="red"] 
isteklere bakınız sf. altı
[/color][/B]
    Application.DisplayAlerts = False
    Workbooks(su).Sheets("Sayfa1").Delete
    Workbooks(su).Sheets("Sayfa2").Delete
    Workbooks(su).Sheets("Sayfa3").Delete
    Application.DisplayAlerts = True

İSTEKLER

bilindiği üzere bir excel dosyası bütün bilgisayarlarda çalışıabilmelidir.
ancak yukarıdaki kod yazımı ile genellik ilkesi kaldırılıp sadece türkçe excel ve yeni çalışma kitabındaki sayfa sayısı 3 endekslenmiştir.
kullanıcı tek çalışma sf. sile çalışıyorsa kodlar hata verecektir. Çözümüm mümkünmü
istediğim "Genel/Yeni çalışma kitabındaki sayfa sayısı daha fazla belirlenmiş olabilir" bilindiği üzere maksimum 255 tir.

Workbooks(su).Sheets("Sayfa1").Delete
mavi değerin yeni çalışma kitabındaki sayfa sayısı kadar for next içinde silinmesi
beyaz değer ingilizce sürümde Sheet olabilir sarı değeride excelin default sayfaadı ne ise o yapmak

 

[Ferhat Pazarçevirdi]

Merhabalar

Sheet Name özelliği ile bir sayfayı belirtebileceğiniz gibi, Sheet Index ile de aynı işi yapabilirsiniz.

Örneğin

Workbooks(su).Sheets(1).Delete

kodunu kullanabilirsiniz.

ÖNEMLİ NOT : Her zaman; Sayfa1 demek, 1 nolu index'e sahip Sayfa demek olmayabilir. Eğer sayfa sıraları değişmişse, sayfanın taşıdığı index değeri de değişmiştir.

 

[hsayar]

Anladım hocam peki Yeni kitapta oluşturlmuş çalışma sayfas sayısını nasıl öğreneceğiz

 

[Ferhat Pazarçevirdi]

İlk mesajınızdaki kodlarda zaten sheets sayısını veren komutu yazmışsınız.

If syf > [COLOR=red]Workbooks(bu).Worksheets.[B]Count[/B][/COLOR] Then GoTo gec

Bir Kitaptaki sheet sayısını; Sheets.Count veya Worksheets.Count ile alabilirsiniz.

 

[hsayar]

odeğil hocam Menüden
Araçlar/Seçenekler genel sekmesindeki yeni çalışma sayfa sayısı adedi

 

[Levent Menteşoğlu]

odeğil hocam Menüden
Araçlar/Seçenekler genel sekmesindeki yeni çalışma sayfa sayısı adedi

Aşağıdaki kodu deneyin.

msgbox Application.SheetsInNewWorkbook

 

[Ferhat Pazarçevirdi]

odeğil hocam Menüden
Araçlar/Seçenekler genel sekmesindeki yeni çalışma sayfa sayısı adedi

Bu sorunuz için; Excel'in Makro Kaydedicisini kullanmayı düşünür müsünüz?

 

[hsayar]

Bu sorunuz için; Excel'in Makro Kaydedicisini kullanmayı düşünür müsünüz?

Application.SheetsInNewWorkbook = 5 miş
sıra indeks değerine göre varsayılan sayfa adını öğrenmeye geldi
sayfa1 de sayfa gibi
xxxx1 de xxxx gibi

 

[Ferhat Pazarçevirdi]

Sn. hsayar,

Bu konuyu kaç başlık altında yürüttüğünüz farkında mısınız? Başlattığınız bütün konular, bu varsayılan isim olayına çıkmaya başladı.

Ben kaç tanesinde cevap verdiğimi hatırlamıyorum artık

 

[hsayar]

hocam baştan bunu sordum karışık geldi kimse cevap merneyecek diyed parça parça sordum
Sayfa adı ve Yenikitaptakibaşlngıç çalışma sayfası diye ayrı sordum....

 

[Ferhat Pazarçevirdi]

Peki, hem Levent hocam hem de ben, Uzaylıların dilinde bile geçerli olacak bir yöntem söyledik size ... İndex kullanın diye ... Bu sizin için yeterli değil mi ?

 

[hsayar]

Türkçe ise Sayfa
İngilizce İse Sheet
Rusça ise Лист

Sub dfsgfdad()
MsgBox Application.SheetsInNewWorkbook
 ilksf = Sheets(1).Name
 dFdil = Left(ilksf, (Len(ilksf) - 1))
 MsgBox dFdil
Range("a1").Value = dFdil
End Sub

hocam hallettim gibi ama kril alfabesinde soru işareti dönüyor, yani Rusça ise Лист yerine ????

 

[Ferhat Pazarçevirdi]

Hala mı? Alman, İtalyan, Japon ve Malezyalılar için nasıl olacak?

 

[hsayar]

hocam msgboxta Лист neden yazmıyo idyorum şimdi farklı

 

[hsayar]

Hala mı? Alman, İtalyan, Japon ve Malezyalılar için nasıl olacak?

bende onu genellştirmeye çalışıyorum ya hocam

 

[Orion1]

Sayfa adları hangi dilde yazılmışsa string değer olup o dilde kalıyor.
Yani ingilizce bir excelde yeni oluşturulmuş bir sayfa sheetx diye oluyorsa ayni dosya ,türkçe excel kullanılıp sayfa oluşturulduğunda sayfax olacaktır diye tahmin ediyorum.Yani sizin yazdıklarınıza gerek kalmıyor.

 

[Levent Menteşoğlu]

hocam msgboxta Лист neden yazmıyo idyorum şimdi farklı

Bunun sebebi gayet açık pcnizde kiril alfabesini destekleyen bir font bulunmuyor.

 

[hsayar]

Hücrelerde yazıyor, sayfa sekmesinde yazıyor msgboxta soru işareti dönüyor... nasıl bir font yüklmeliki?