Soru Seçili Hücredeki İsimlerle Sekme isimleri verme/oluşturma

Katılım
9 Aralık 2009
Mesajlar
159
Excel Vers. ve Dili
Office 2016 TR 64 Bit
sayfa 1 deki hücreleri seçildiğinde oradaki yazılı olanlarla sekmeler oluşup o isimde olabilir mi.
örnek elma armut muz kavun karpuz yazılı hücreleri seçtim kodu çalıştırdım bana yazılı olanlarla sekme açılsın istiyorum.
 
Katılım
29 Haziran 2018
Mesajlar
297
Excel Vers. ve Dili
2016 TÜRKÇE
Son düzenleme:
Katılım
9 Aralık 2009
Mesajlar
159
Excel Vers. ve Dili
Office 2016 TR 64 Bit
şuanda bakamıyorum bakıp size döneceğim. ilginiz için şimdiden çok teşekkür ederim
 
Katılım
9 Ocak 2013
Mesajlar
3
Excel Vers. ve Dili
2019-TÜRKÇE
Katılım
29 Haziran 2018
Mesajlar
297
Excel Vers. ve Dili
2016 TÜRKÇE
Rica ederim. Sorununuzun çözülmesine sevindim.
 

yyhy

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
911
Excel Vers. ve Dili
Microsoft Office 2021 TR
Microsoft 365 TR
Arkadaşlar 1. linki indirdim. Ama 2. Link dosya kaldırılmış gözüküyor.
1. Dosyayı indirdim ekleyen arkadaşa ve emeği geçenlere teşekkür ederim. Güzel bir çalışma olmuş.
 
Katılım
29 Haziran 2018
Mesajlar
297
Excel Vers. ve Dili
2016 TÜRKÇE
Merhaba maalesef sizden bir ses çıkmayınca sizin için hazırladığım ve bana lazım olmayan dosyaları silmişim. Birinci dosya işinizi görüyorsa onunla idare edin. Ben o dosyaların içeriklerini bile hatırlamıyorum. Üzgünüm. Saygılar sunuyorum.
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,615
Excel Vers. ve Dili
Microsoft 365 Tr-64
Aşağıdaki kodu bir deneyin.
C++:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hcr As Range, Sh As Worksheet, Sayfam As String
    If Intersect(Target, Range("B2:B5")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Sayfam = ActiveSheet.Name
    On Error GoTo Hata
        For Each hcr In Selection
            If hcr <> "" Then
                For Each Sh In Worksheets
                    If Sh.Name = hcr.Value Then GoTo Devam
                Next Sh
                Sheets.Add After:=Worksheets(Worksheets.Count)
                HatalıAd = ActiveSheet.Name
                ActiveSheet.Name = hcr.Value
            End If
    GoTo Devam
Hata:
        Worksheets(ActiveSheet.Name).Delete
Devam:
        Next hcr
        Worksheets(Sayfam).Activate
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub
 

yyhy

Altın Üye
Katılım
3 Aralık 2005
Mesajlar
911
Excel Vers. ve Dili
Microsoft Office 2021 TR
Microsoft 365 TR
Teşekkürler Sayın @ÖmerFaruk ve @vurkan bey. Teşekkür ederim.
 
Üst