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.
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.
terlampir contohnya
ada masalah lagi, ketika sudah ada bukan bug tp menuju sheet itu.
mohon pencerahan.
makasih
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
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.