Hücredeki değerleri sayfa adı olarak ataması.

[Mussenel]

Merhaba arkadaşlar;

A Sutunundaki değerleri safya adı olarak yanyana nasıl acabiliriz, birde A sutununda 1 değerden aynı olanları var yani 1 değerden bir sayfa acmak istiyorum aynı olanları filtreleyim öyle sıralamasını istiyorum sayfa adlarını böyle birsey yapabilir mi? Teşekkürler.

 

[Necdet]

Merhaba,
A sütunundaki değerlere bakarak sayfa mı açmak istiyorsunuz?

Eğer isteğiniz öyle ise aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayın ve ilgili sayfada herhangi bir hücrede çift tıklayınız.

A sütunundaki değerleri (2. satırdan başlayarak) okuyacak ve ilgili sayfayı açacaktır.

1. satırdan itibaren çalışmasını istiyorsanız For döngüsünü 1 den başlatınız.

Function SayfaVarMi(SayfaAdi As String) As Boolean
    On Error Resume Next
    SayfaVarMi = CBool(Len(Worksheets(SayfaAdi).Name) > 0)
End Function

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim i   As Integer, _
        c   As String, _
        Syf As String
        
    Syf = ActiveSheet.Name
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        c = Cells(i, "A")
        If Not SayfaVarMi(c) Then
            Sheets.Add After:=Worksheets(Worksheets.Count)
            ActiveSheet.Name = c
            Sheets(Syf).Select
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

 

[Mussenel]

cok tesekkur ederim emegınıze saglık tam istediğim buydu ilk maasımla direk uye olacagım buraya tekrar tesekkurler

 

[Necdet]

Güle güle kullanınız