Dear Mely,
Coba dengan ini :
Sub Hitung()
Dim rngKlir As Range
ActiveSheet.Unprotect 'ini yang ditambahkan
Set rngKlir = Sheets("Sheet1").Range("F4").CurrentRegion
Set rngKlir = rngKlir.Offset(1, 0).Resize(rngKlir.Rows.Count - 1)
Application.ScreenUpdating = False
rngKlir.ClearContents
Worksheets("Sheet1").Activate
Range("D4").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR((R[1]C[-2]-RC[-2])+1),"""",((R[1]C[-2]-RC[-2])+1))"
'hitung jumlah baris di kolom E mulai dari cell E4
Dim brs As Integer
brs = Range("D4").Value
Range("E4:E" & brs + 3).ClearContents
Range("E4:E" & brs + 3).FormulaR1C1 = "=N(R[-1]C)+1"
Cancel = True
Range("F4").Select
ActiveCell.FormulaR1C1 = "=RC[-4]"
Range("F5").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""","""",R[-1]C+1)"
Range("F5").Select
Selection.AutoFill Destination:=Range("F5:F10000"), Type:=xlFillDefault
Range("F5:F10000").Select
Range("G4").Select
ActiveCell.FormulaR1C1 =
"=IF(ISERROR(DEC2HEX(RC[-1])),"""",DEC2HEX(RC[-1]))"
Range("G4").Select
Selection.AutoFill Destination:=Range("G4:G10000"), Type:=xlFillDefault
Range("G4:G10000").Select
'Hilangkan formula di sheet1
Columns("D:G").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
'ini yang ditambahkan
Application.ScreenUpdating = True 'ini yang ditambahkan
End Sub
Salam,
DD
dede s
From: [email protected] [mailto:[email protected]]
Sent: 04 Januari 2017 15:38
To: [email protected]
Subject: Re: [belajar-excel] Membuat perintah macro untuk sheet yg areanya
terproteksi
Pak Hendrik,
Terima kasih atas responnya.
Sepertinya saya masih belum paham untuk menerapkan script yg bapak berikan.
Dalam contoh cuplikan script macro dibawah ini:
Sub Hitung()
Dim rngKlir As Range
Set rngKlir = Sheets("Sheet1").Range("F4").CurrentRegion
Set rngKlir = rngKlir.Offset(1, 0).Resize(rngKlir.Rows.Count - 1)
Application.ScreenUpdating = False
rngKlir.ClearContents
Worksheets("Sheet1").Activate
Range("D4").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR((R[1]C[-2]-RC[-2])+1),"""",((R[1]C[-2]-RC[-2])+1))"
'hitung jumlah baris di kolom E mulai dari cell E4
Dim brs As Integer
brs = Range("D4").Value
Range("E4:E" & brs + 3).ClearContents
Range("E4:E" & brs + 3).FormulaR1C1 = "=N(R[-1]C)+1"
Cancel = True
perintah diatas sudah langsung stop pada baris berwarna kuning.
ketika saya coba rubah range (F4) pada currentRegion dgn cell nomor yg bapak
berikan, hal ini tetap tidak berjalan.
Maklum, pak....masih belajar mengenal script macro, jadi masih perlu banyak
belajar.
Terima kasih sebelumnya.
Salam,
Mely
On Wed, Jan 4, 2017 at 2:13 PM, hendrik karnadi [email protected]
[belajar-excel] <[email protected]> wrote:
Hai Mely,
Untuk menghapus sel yang tidak terproteksi gunakan perintah:
Range("rangenya").ClearContents.
Contoh perintahnya:
Range("B2:B3,D4,E4:G1000").ClearContents
Salam,
HK
_____
From: "Melyana Silaban [email protected] [belajar-excel]"
<[email protected]>
To: [email protected]
Sent: Friday, 23 December 2016, 14:00
Subject: [belajar-excel] Membuat perintah macro untuk sheet yg areanya
terproteksi [1 Attachment]
Dear para master excel & macro,
Mohon pencerahan untuk membuat perintah macro yg berfungsi meng-remove data
dari cell tertentu seperti dalam file terlampir ini(warna hijau yg tidak
terproteksi)
Dalam file ini beberapa cell terproteksi agar tidak ada tambahan sesuatu apapun
di area tsb, sedangkan are yg tidak ter-proteksi adalah area yg akan selalu
perlu di-update. Di dalam scrip macro yg saya buat contohnya ini tidak mampu
untuk me-remove data di area yg TIDAK TER-PROTEKSI.
Hal ini dikarenakan keterbatasan pengetahuan saya tentang macro ini. Untuk
itulah mohon pencerahan dari para pakar macro untuk membantu memberikan
solusi terhadap permasalahan ini.
Sebelumnya saya sampaikan banyak terima kasih atas bantuan yg diberikan.
Salam,
Mely
