]] XL-mania [[ Masih copy mengcopy sheet lagi

Yth para suhu XL-nania,

 

Mohon pencerahan atas problem sebagai berikut:

Saya mau meng copy sheet, dengan mengisi cell tertentu dalam sheet copy dengan  rumus =’nama sheet copy -1’! SUM(N40:N43)-SUM(K40:K43)+K42

Gambaran yang sudah saya lakukan adalah:

 

Sheet Asli

Sheet Copy

 

Cell M45:N45 saya merge, kemudian mau saya isi dengan “=’050110’! SUM(N40:N43)-SUM(K40:K43)+K42”

“050110” adalah nama sheet sebelum sheet copy (berubah-ubah)

 

VBA yang sudah saya modifikasi adalah (dari mbak Siti Vi) :

 

Sub Button_Click()

   '==Copy Sheet==

   Dim sNewSheet As String

   Dim sht As Worksheet

   Dim sht_1 As String

  

   On Error Resume Next

  

   sNewSheet = InputBox(Prompt:="Masukkan Nama Sheet Baru dengan Format 'ddmmyy' (tanggal 2 digit; bulan dua digit angka; tahun dua digit terakhir)", _

               Title:="Membuat Sheet Baru")

   If Len(sNewSheet) = 0 Then

      Exit Sub

   Else

      For Each sht In Worksheets

         If sht.Name = sNewSheet Then

            MsgBox "Untuk Nama tsb sudah ada sheet-nya", 48, "Oops !!"

            Exit Sub

         End If

      Next

 

      sht_1 = .Sheets(Sheets.Count).Name

      ActiveSheet.Copy After:=Sheets(Sheets.Count)

     

      '--hasil copy atau insert sheet baru : selalu menjadi ActiveSheet,

 

      With ActiveSheet

        .Name = sNewSheet

        .Unprotect

        .Shapes("Right Arrow 1").Delete

        .Range("A5:K38, M5:M38, P5:P38, N41, A43:L43, M45:N45").ClearContents

        .Range("M45:N45") = "='" + sht_1 + "'!" + "SUM(N40:N43)-SUM(K40:K43)+K42"

        .EnableSelection = xlUnlockedCells

        .Protect

      End With

   End If

End Sub

 

Hasilnya Range “M45:N45” tetap kosong.

 

Terima kasih sebelumnya.

 

Salam

Herry Sutjipto