Diskusi Macro VBA

  1. 4 bulan yang lalu

    Bagaimana caranya memilih sheet berdasarkan namanya yang ada dalam cell di sheet yang lain misalnya sheet("1") dimana nama sheet 1 bisa dirubah betdasarkan list nama di sheet ("2") .?

  2. Caton

    Agu 5 Terverifikasi Indonesia + 15.169 Poin
    Di sunting 4 bulan yang lalu oleh Caton

    Coba gunakan salah satu contoh script berikut, dengan mengacu langsung ke objek Worksheet yang dituju berdasarkan nama tab yang ditentukan:

    Sub SelectSheetA()
        Dim sName As String
        
        sName = Sheets("2").Range("A1")
        If Len(sName) Then
            On Error Resume Next
            Sheets(sName).Select
            If Err Then
                MsgBox "Nama sheet " & sName & " tidak ada!"
            End If
            On Error GoTo 0: Err.Clear
        End If
    End Sub

    ... atau dengan melakukan pengulangan untuk menemukan nama Worksheet sesuai dengan nama tab yang ditentukan:

    Sub SelectSheetB()
        Dim sName As String
        Dim xlSheet As Worksheet
        
        sName = Sheets("2").Range("A1")
        If Len(sName) Then
            For Each xlSheet In Worksheets
                If xlSheet.Name = sName Then
                    xlSheet.Select
                    Exit Sub
                End If
            Next
            MsgBox "Nama sheet " & sName & " tidak ada!"
        Else
            MsgBox "Nama sheet tidak boleh kosong"
        End If
    End Sub

    Demikian.

  3. Tetima kasih master sy akan coba

 

atau Mendaftar untuk ikut berdiskusi!