[belajar-excel] Digest Number 3018

Milis Belajar Microsoft Excel Group

5 Messages

Digest #3018

1

DOC IN  Bulanan PT CKS SMD juni-juli 2014.xlsx by "dwi"

2a

Re: [***SPAM*** Score/Req: 05.80/5.0] [belajar-excel] Menyembunyikan by ihyakulumudin77

2b

Re: [***SPAM*** Score/Req: 05.80/5.0] [belajar-excel] Menyembunyikan by "Nang Agus"

3a

Re: .Copy Data di Range tertentu by ihyakulumudin77

3b

Re: .Copy Data di Range tertentu [4 Attachments] by "Nang Agus"

Messages

1

DOC IN  Bulanan PT CKS SMD juni-juli 2014.xlsx

Fri Jul 25, 2014 6:18 am (PDT) . Posted by:

"dwi"

DEAR ALL

Mohon bantuannya di file terlampir ada sheet juli 2014 ada cell berwarna
kuning (actual doc in cell Q138 sd S141)
Mohon bisa dibuat otomatis selama ini saya membuat manual

Sekian dan terima kasih

Dwi wahyu erwinsyah

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

2a

Re: [***SPAM*** Score/Req: 05.80/5.0] [belajar-excel] Menyembunyikan

Fri Jul 25, 2014 8:55 pm (PDT) . Posted by:

ihyakulumudin77

Mr. Kid & para master sy udh coba buat tp hasilnya kok lucu ya? file terlampir

Reply to sender . Reply to group . Reply via Web Post . All Messages (8) . Top ^

2b

Re: [***SPAM*** Score/Req: 05.80/5.0] [belajar-excel] Menyembunyikan

Fri Jul 25, 2014 10:41 pm (PDT) . Posted by:

"Nang Agus"

Asalamualaikum pak Ihyak,

Saya bukan master coba membantu ya...

Coba scriptnya diganti seperti di bawah ini:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim no As Integer
Dim myCell As Long
Dim myCell2 As String
If Not Intersect(Target, Range("A1:A2")) Is Nothing Then
myCell = Range("a1").Value
myCell2 = Range("a2").Value
For no = 1 To 4
ActiveSheet.Shapes.Range(Array("Rectangle " & no - 0)).Visible =
msoFalse
Next no
For no = 5 To 6
ActiveSheet.Shapes.Range(Array("Rectangle " & no + 2)).Visible =
msoFalse
Next no

If myCell2 = "ganjil" Then
ActiveSheet.Shapes.Range(Array("Rectangle " & myCell - 6)).Visible = msoTrue
End If
If myCell2 = "genap" And myCell > 7 Then
ActiveSheet.Shapes.Range(Array("Rectangle " & myCell - 1)).Visible = msoTrue
End If
If myCell2 = "genap" And myCell = 7 Then
ActiveSheet.Shapes.Range(Array("Rectangle " & myCell - 3)).Visible = msoTrue
End If
End If
End Sub

Semoga sesuai keinginan.
Wasalamualaikum
NangAgus

2014-07-26 10:28 GMT+07:00 ihyakulumudin77@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Mr. Kid & para master sy udh coba buat tp hasilnya kok lucu ya? file
> terlampir
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (8) . Top ^

3a

Re: .Copy Data di Range tertentu

Fri Jul 25, 2014 8:56 pm (PDT) . Posted by:

ihyakulumudin77

Mr. Agunk saya coba make script yg dibuat untuk P. Fathian dan saya rubah sedikit agar copy datanya tdk ke bawah tp kesamping tp muncul error "type mismatch" knapa ya? Thanks.

Reply to sender . Reply to group . Reply via Web Post . All Messages (11) . Top ^

3b

Re: .Copy Data di Range tertentu [4 Attachments]

Fri Jul 25, 2014 10:05 pm (PDT) . Posted by:

"Nang Agus"

Dear pak Ihyak,

Coba baris script:
lBarisAkhir = BarisAkhir(dkn)

diubah menjadi peryataan yang benar, misalnya diganti dengan script dibawah
ini:
lBarisAkhir = WorksheetFunction.Max(Sheets("dkn").Range("A9:A53").Value)

semoga perkiraan saya benar.

Salam
NangAgus

2014-07-26 10:34 GMT+07:00 ihyakulumudin77@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Mr. Agunk saya coba make script yg dibuat untuk P. Fathian dan saya rubah
> sedikit agar copy datanya tdk ke bawah tp kesamping tp muncul error "type
> mismatch" knapa ya? Thanks.
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (11) . Top ^

=====================================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html

Posting lowongan kerja : ke link tersebut dan klik New Topic
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Visit Your Group

• New Members 6

• Privacy • Unsubscribe • Terms of Use