buat sheet baru

  1. 6 tahun lalu

    Bagaimana Macronya.
    Ketika saya double click di cell yang aktif, langsung buat sheet baru sesuai isi cell yang saya double click.
    mohon pencerahan.

    biar lebih memudahkannya, hanya pada kolom A saja.
    trims.

  2. @NOBO

    terlampir contohnya

  3. ada masalah lagi, ketika sudah ada bukan bug tp menuju sheet itu.
    mohon pencerahan.
    makasih

  4. @NOBO

    edit menjadi

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim myName As Variant
    Dim ws As Worksheet, wb As Workbook
    
    Set wb = ActiveWorkbook
    
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If UCase(Target.Value) = "" Then
        Exit Sub
        Else
            myName = ActiveCell.Value
            For Each Sheet In wb.Worksheets
                If Sheet.Name = myName Then
                    Set ws = Sheets(myName)
                    ws.Activate
                Exit Sub
                End If
            Next Sheet
            Sheets.Add(, Sheets(Sheets.Count)).Name = myName
            MsgBox myName
        End If
    End If
    End Sub

  5. ok makasih @manweljs_
    ada masalah lagi. cuman udah dibenerin
    pas sheet angka dia bug.

    Dim myName As Variant
    jadi
    Dim myName As String

    makasih mas.

  6. Di sunting 6 tahun lalu oleh manweljs_

    @NOBO

    ... ada masalah lagi. cuman udah dibenerin ...

    baguslah ;)

 

atau Mendaftar untuk ikut berdiskusi!