Hucreden sayfa adını atamak

[Eser Gökay]

arkadaslar gunaydın. Elimde 300 sayfalık bir calisma kitabi mevcut. Sayfa numaraları 1,2,3.... diye gidiyor. Her sayfanın C1:F1 aralıgı birlestirilmis ve musteri adı yazılmıstır. Butun sayfaların adını musteri adıyla degistirmek istiyorum. yardımcı olur musunuz?

 

[halilsoft]

Sub Makro1()
'
' Makro1 Makro
' Makro PC tarafından 29.08.2007 tarihinde kaydedildi.
'

a = 1
bas:
If Sayfa1.Cells(a, 1) = "" Then Exit Sub
On Error Resume Next
ad = Sayfa1.Cells(a, 3)
ActiveSheet.Name = ad
ActiveSheet.Next.Select
a = a + 1: GoTo bas:
End Sub

işini görebilir sanırım

 

[Haluk]

Alternatif:

Sub Test()
    For Each Sh In Worksheets
        Sh.Name = Sh.[C1]
    Next
End Sub

 

[Eser Gökay]

sn halilsoft sadece icinde bulundugum sayfanın adını degistirdi. bana hepsini bir defada degistirecek birşey lazım. tskler...

 

[Eser Gökay]

ozur dilerim haluk beyin cevabını görmeden yazmıstım. haluk bey'in kodu da ilk 6 sayfayı degistirdi. daha sonra sayfanın adı gecersiz gibi bir hata verdi.

macronun Sh.Name = Sh.[C1] kısmı

 

[kulomer46]

sorununuz çözüldü mü? Bilgi verin!

arkadaşlar, sorununuza verilen cevapların işinize yarayıp yaramadığını yazın. Bizde gerekirse farklı çözümler üretelim. İyi çalışmalar..

 

[Haluk]

...... daha sonra sayfanın adı gecersiz gibi bir hata verdi.

Müşteri ismi aynıdır veya geçersiz karakter vardır ...

 

[Eser Gökay]

arkadaşlar, sorununuza verilen cevapların işinize yarayıp yaramadığını yazın. Bizde gerekirse farklı çözümler üretelim. İyi çalışmalar..

Sn kulomer46 sorunun cozulmedigine dair zaten yazmıstım...

 

[Eser Gökay]

evet haluk bey haklısınız. onu gozden kacırmısım. musteri adında / ( gibi karakterler mevcut. tesekkur ediyorum.

 

[kulomer46]

benim bilgisayar son mesajları güncellemede sorunla karşılaştı galiba. mesajlarınızı geç farkettim. iyi çalışmalar..

 

[Eser Gökay]

farklı sayfalarda aynı etiketli hucrelerde bulunan veriyi...

arkadaslar yeni konu acmak istemedim

farklı sayfalarda aynı etiketli hucrelerde bulunan veriyi bir icmal sayfasına almakla ilgili macroya ihtiyacim var. tesekkur ediyorum.

 

[Necdet]

Merhaba,

Aşağıdaki Kodları bir modüle bağlayınız

Public Sub Icmal()
Set s1 = Sheets("00 Mizan")
s1.Select
Range("A4:F65536").ClearContents
SonSatır = 3
For i = 3 To Sheets.Count
         Set s2 = Sheets(i)
         SonSatır = SonSatır + 1
         Cells(SonSatır, "A") = Sheets(i).Name
         Cells(SonSatır, "B") = s2.[D255]
         Cells(SonSatır, "C") = s2.[E255]
         Cells(SonSatır, "D") = s2.[F255]
         Cells(SonSatır, "E") = s2.[G255]
         Cells(SonSatır, "F") = s2.[I255]
Next i
End Sub

 

[Eser Gökay]

sayın necdet hocam cok tesekkur ediyorum. mukemmel calisiyor....