Sekme isimleri

[mdellal]

Arkadaşlar merhaba elimde sekmelerden meydana gelmiş bir dosya var.

1. sorum : Toplam sekmesindeki firma isimlerini hızlı bir şekilde sekme ismi olarak nasıl atayabilirim?

2. sorum : Sekmeye atamış olduğum firma isimlerini o sekmenin A1 hücresine nasıl yazdırabilirim?

İlginize şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SAYFA_EKLE()
    Dim S1 As Worksheet, Hücre As Range
 
    Set S1 = Sheets("TOPLAM")
 
    For Each Hücre In S1.Range("B4:B" & S1.Cells(Rows.Count, "B").End(3).Row)
        If Sayfa_Kontrol(Hücre.Text) = False Then
            Sheets.Add , Sheets(Worksheets.Count)
            ActiveSheet.Name = Hücre.Value
            Range("A1") = Hücre.Value
        End If
    Next
    
    S1.Select
    
    Set S1 = Nothing
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 
Function Sayfa_Kontrol(Sayfa_Adı As String) As Boolean
    On Error Resume Next
    Sayfa_Kontrol = CBool(Len(Worksheets(Sayfa_Adı).Name) > 0)
End Function

 

[kemal turan]

korhan hocam merhaba
Kod çok güzel çalışıyor.Arşivime kaydettim
Selametle

 

[mdellal]

Korhan bey
Şimdi bakabildim hızlı cevap için çok teşekkürler.

Kod Sekmeleri açıyor fakat a1 hücresine sekme isimlerini yazmıyor (veyahut ben yapamadım).
Cevabınız için şimdiden teşekkürler.