MÜŞterİ Lİstesİ İle İlgİlİ

[acebeci]

sayfa isimlerini müşteri listesine atmak istiyorumdetayı ekteki dosyada yardımcı olabilirseniz sevinirim kolay gelsin

 

[Necdet]

Sayfa İsimlerini Alma

Merhaba,

Aşağıdaki kodları bir butona bağlayabilirsiniz.

Public Sub Musteriler()
Sheets("MÜŞTERİ LİSTESİ").Select
Range("A:A").ClearContents
[A1] = "Müşteri İsimleri"
For i = 2 To Sheets.Count
    Cells(i, "A") = Sheets(i).Name
Next i
End Sub

 

[altanson]

peki bunun tam tersini yapabilir miyiz?

yani sayfada bulunan bir veri aralığı ile istenilen sayfadan başlayarak sayfa isimini değiştirebilir miyiz?

 

[acebeci]

hocam çok teşekkür ediyorum halladebildim sağolun

 

[Necdet]

Sayın altanson,

olur tabi, neden olmasın?

 

[altanson]

Sn.Necdet_Yesertener haklısınız yanlış sordum,

"nasıl yaparız?" diye sormam gerekiyordu.

peki o zaman sorayım:

"nasıl yaparız?"

fakat benim pek katkım olacağını zannetmiyorum bu yüzden "nasıl yapabilirsiniz?" ya da "nasıl yapılabilir?" diye sormam en doğrusu olacak sanırım.

 

[Necdet]

Merhaba,

Ekteki dosyada sayfa adları Sheet1, Sheet2... olarak gidiyor, bu adları türkçeleştiren yani Sayfa1, Sayfa2 .... yapan makroyu inceleyiniz.

Public Sub Sayfa_Adi_Degistir()
For i = 1 To Sheets.Count
    Sheets(i).Name = "Sayfa" & i
Next i
End Sub

 

[altanson]

Sn. Necdet_Yesertener,

İlginize teşekkürler fakat ben şöyle bir şey yapmak istiyorum.

Çalışma kitabında 30 sayfam var. Bu sayfaların isimlerini A1:A30 aralığındaki 01.01.2007 02.01.2007 ... 30.01.2007 şeklinde devam eden tarihlerle nasıl değiştirebilirim.

 

[Necdet]

Merhaba,

Dosyayı inceleyiniz. 31 adet Sayfa var kabul edilmiştir.
Hem A Sütununa göre sayfa adını değiştireyim, hemde Sayfa yoksa ekleyim istedim ama elim ayağım birbirine dolaştı, yapamadım.

Public Sub Sayfa_Adi_Degistir()
For i = 1 To [A65536].End(3).Row
    Sheets(i).Name = Cells(i, "A")
Next i
End Sub

 

[Necdet]

Tekrar Merhaba,

A sütunundaki veri sayısı ile Sayfa sayısını kontrol ederek işlemi gerçekleştirdim. Yani sayfa sayısı az ise önce fark kadar sayfa ekledim, sonra sayfa adlarını değiştirdim.

Public Sub Sayfa_Adi_Degistir()
Adet = [A65536].End(3).Row
Sayfa_Adedi = Sheets.Count
If Sayfa_Adedi < Adet Then      '// A Sütunundaki Satır sayısı ile Sayfa Sayısı tutmazsa, aradaki fark kadar sayfa ekler
    For i = 1 To Adet - Sayfa_Adedi
        Sheets.Add After:=Worksheets(Sheets.Count)
    Next i
End If
Sheets(1).Select
For i = 1 To [A65536].End(3).Row
    Sheets(i).Name = Cells(i, "A")
Next i
End Sub

 

[altanson]

sizin yaptığınızı görünce benim de elim ayağıma dolaştı,

ne diyeyim harikasınız.

bir de isim değiştirmeyi ikinci sayfadan nasıl başlatabiliriz?

parça parça soramayayım bir sorum daha var. değiştirdiğimiz sayfanın adı o sayfadaki bir hücreye nasıl bağlanır? örneğin sayfa adı 02.01.2007 olarak değiştiyse 02.01.2007 sayfasındaki "B1" hücresindede bu tarihin yazması gibi.

şimdiden çok teşekkürler.

 

[Necdet]

Sayın altanson,

Sayfa adı değiştirimi 2. sayfadan başlıyor, B1 hücrelerine de sayfa adı yazdırılıyor.

Public Sub Sayfa_Adi_Degistir()
Adet = [A65536].End(3).Row
Sayfa_Adedi = Sheets.Count
If Sayfa_Adedi < Adet Then      '// A Sütunundaki Satır sayısı ile Sayfa Sayısı tutmazsa, aradaki fark kadar sayfa ekler
    For i = 1 To Adet - Sayfa_Adedi + 1
        Sheets.Add After:=Worksheets(Sheets.Count)
    Next i
End If
Sheets(1).Select
For i = 1 To [A65536].End(3).Row
    Sheets(i + 1).Name = Cells(i, "A")          '// Sayfa Adını Değiştirir
    Sheets(i + 1).[B1] = Cells(i, "A")          '// İlgili Sayfanın B1 sütununa Sayfa Adını Yazar
    Sheets(i + 1).[B1].NumberFormat = "m/d/yyyy" '// Biçimini Tarih Yapar
Next i
End Sub

 

[altanson]

sayın Necdet_Yesertener,

bu haliyle bile harika oldu ama kod şu satırda hata veriyor,

Sheets(i + 1).Name = Cells(i, "A")          '// Sayfa Adını Değiştirir

fakat hata vermesine rağmen mevcut tüm sayfaların ismini sorunsuz değiştirdi.

bu kadarı yeterli olacak sanırım bana, sizi daha çok uğraştırmayalım.

ellerinize sağlık tekrar teşekkürler.

 

[Necdet]

Sayın altanson,

Ben defalarca denedim hata almadım. Dosyanızı incelemek gerekir.

Aynı değer varsa hata verebilir. Ona dikkat etmek gerek, Mükerrer kaydı kontrol etmedim çünkü.

 

[altanson]

tekrar teşekkürler elinize sağlık.

 

[altanson]

sayfa isimlerini "gg.aa.yy" biçiminde nasıl değiştirebilirim?

makrodaki Sheets(i + 1).[B1].NumberFormat = "m/d/yyyy" satırını Sheets(i + 1).[B1].NumberFormat = "m/d/yy" olarak değiştirdim ama yine tarihi "gg.aa.yyyy" şeklinde yazıyor.

 

[Necdet]

Merhaba

Sheets(i + 1).Name = Cells(i, "A") '// Sayfa Adını Değiştirir

Satırını aşağıdaki şekilde değiştiriniz.

Sheets(i + 1).Name = Format(Cells(i, "A"), "mm.dd.yy") '// Sayfa Adını Değiştirir

 

[Necdet]

pardon pardon yanlış anlamışım.

Sheets(i + 1).[B1].NumberFormat = "mm/dd/yy"

şeklinde değiştirin ilgili satırı

 

[altanson]

sn. Necdet_Yesertener

benim eksik anlatmamı siz tamamlayarak cevaplamışsız. hem sayfanın adını, hemde sayfa adı ile bağlantılı hücrenin formatını "gg.aa.yy" olarak değiştirmek istiyordum. iki mesajınızla birlikte tam isteğim oldu. tekrar tekrar teşekkürler...