10 New Messages
Digest #2160
Messages
Dear Be-Exceller,
Saya belajar membuat mencari nama unik dan di tempatkan ke cell tertentu.
Nama unik itu saya ambil dari kolom nama. Tapi setelah saya coba membuat
nama unik ke cell tertentu, kok isi cell
persis di bawah cell tujuan menghilang, kenapa yah ?
Ini file terlampir :
Terima kasih jawabannya.
Wassalam,
Tio
Saya belajar membuat mencari nama unik dan di tempatkan ke cell tertentu.
Nama unik itu saya ambil dari kolom nama. Tapi setelah saya coba membuat
nama unik ke cell tertentu, kok isi cell
persis di bawah cell tujuan menghilang, kenapa yah ?
Ini file terlampir :
Terima kasih jawabannya.
Wassalam,
Tio
Fri Mar 15, 2013 2:50 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Bagian yang diberi huruf tebal ini yang menyebabkan "bentrok" karena kolom 4 akan diisi dengan sel kosong hasil filter.
Private Sub NamaUnik_Click()
Range(Cells(16, 3), Cells(16, 3).End(xlDown)).Select
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4), Unique:=True
End Sub
Coba ganti warna merah dengan selain 3 atau 4
Salam,
HK
________________________________
From: "tio.adjie@ptssb.co.id tio.adjie@ptssb.co.id >
To: belajar-excel@yahoogroups.com
Sent: Friday, 15 March 2013, 16:35
Subject: [belajar-excel] Beri Nama Unik tapi cell di bawahnya hilang
Dear Be-Exceller,
Saya belajar membuat mencari nama unik dan di tempatkan ke cell tertentu. Nama unik itu saya ambil dari kolom nama. Tapi setelah saya coba membuat nama unik ke cell tertentu, kok isi cell
persis di bawah cell tujuan menghilang, kenapa yah ?
Ini file terlampir :
Terima kasih jawabannya.
Wassalam,
Tio
Private Sub NamaUnik_Click(
Range(Cells(
Selection.AdvancedF
End Sub
Coba ganti warna merah dengan selain 3 atau 4
Salam,
HK
____________
From: "tio.adjie@ptssb.
To: belajar-excel@
Sent: Friday, 15 March 2013, 16:35
Subject: [belajar-excel] Beri Nama Unik tapi cell di bawahnya hilang
Dear Be-Exceller,
Saya belajar membuat mencari nama unik dan di tempatkan ke cell tertentu. Nama unik itu saya ambil dari kolom nama. Tapi setelah saya coba membuat nama unik ke cell tertentu, kok isi cell
persis di bawah cell tujuan menghilang, kenapa yah ?
Ini file terlampir :
Terima kasih jawabannya.
Wassalam,
Tio
Fri Mar 15, 2013 3:23 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Dalam prosedur :
Private Sub NamaUnik_Click()
Range(Cells(16, 3), Cells(16, 3).End(xlDown)).Select
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4),
Unique:=True
End Sub
Bagian Cells(2, 4)
merujuk ke sejumlah baris yang kurang dari jumlah baris Range(Cells(16, 3),
Cells(16, 3).End(xlDown))
Dengan begitu, maka proses akan melakukan clearcontents pada kolom Cells(2,
4) mulai range pojok kiri atasnya sampai kolom terkanan dari Cells(2,
4)pada baris last cell
Pada kasus ini, Cells(2, 4) hanya merujuk pada sebuah cell yaitu D2 (1
baris). Andai worksheet tersebut memiliki last cell di AX123, maka akan ada
proses clear contents pada area range D2:D123
Coba ubah jadi :
Private Sub NamaUnik_Click()
Range(Cells(16, 3), Cells(16, 3).End(xlDown)).Select
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4)*.
resize(9)*, Unique:=True
End Sub
Bagian .resize(9) akan membuat area range sebanyak 9 baris x 1 kolom,
dengan asumsi bahwa 9 baris ini akan mencukupi jumlah baris hasil advanced
filter (termasuk header).
Karena tidak tahu hasil akhirnya kaan terdiri dari berapa baris, maka
biasanya di resize sebanyak jumlah baris sumber data yang di advanced
filter.
Dalam hal ini berarti sebanyak jumlah baris area Range(Cells(16, 3),
Cells(16, 3).End(xlDown))
Jika akan disusun lengkap, akan seperti ini :
Private Sub NamaUnik_Click()
Range(Cells(16, 3), Cells(16, 3).End(xlDown)).Select
Selection.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Cells(2,
4)*.resize(**Range(Cells(16,
3), Cells(16, 3).End(xlDown)).rows.count)*, _
Unique:=True
End Sub
fyi,
Methods Select dan Activate adalah method yang sebaiknya dihindari karena
membutuhkan waktu proses yang cukup lama. Waktu proses untuk select bisa
dimanfaatkan untuk proses lainnya yang lebih pokok.
kalau ndak salah duga, script : (misal dinamai Script A)
Private Sub NamaUnik_Click()
Range(Cells(16, 3), Cells(16, 3).End(xlDown)).Select
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4),
Unique:=True
End Sub
akan diproses jauh lebih lama dibanding script : (misal dinamai script B)
Private Sub NamaUnik_Click()
dim rng as range
set rng=Range(Cells(16, 3), Cells(16, 3).End(xlDown))
rng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4),
Unique:=True
End Sub
meskipun jumlah baris script A lebih sedikit dibanding script B.
Andai saja script A dikalkulasi 2 x waktu proses script B, maka jika
memakai script A untuk 1 proses bisa menyelesaikan 2 proses yang sama
dengan script B.
Kembali ke pokok masalah.
Jika akan menggunakan area data sumber yang di advanced sebagai area bagian
copytorange, maka script B bisa berbunyi :
Private Sub NamaUnik_Click()
dim rng as range
set rng=Range(Cells(16, 3), Cells(16, 3).End(xlDown))
rng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4)
.resize(rng.rows.count), Unique:=True
End Sub
mohon dikoreksi kalo salah.
Wassalam,
Kid.
2013/3/15 hendrik karnadi <hendrikkarnadi@yahoo.com >
> **
>
>
> Bagian yang diberi huruf tebal ini yang menyebabkan "bentrok" karena kolom
> 4 akan diisi dengan sel kosong hasil filter.
>
> Private Sub NamaUnik_Click()
> Range(Cells(16, 3), Cells(16, 3).End(xlDown)).Select
> Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4),
> Unique:=True
> End Sub
>
> Coba ganti warna merah dengan selain 3 atau 4
>
> Salam,
> HK
>
>
> ------------------------------
> *From:* "tio.adjie@ptssb.co.id tio.adjie@ptssb.co.id >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, 15 March 2013, 16:35
> *Subject:* [belajar-excel] Beri Nama Unik tapi cell di bawahnya hilang
>
>
>
> Dear Be-Exceller,
>
> Saya belajar membuat mencari nama unik dan di tempatkan ke cell tertentu.
> Nama unik itu saya ambil dari kolom nama. Tapi setelah saya coba membuat
> nama unik ke cell tertentu, kok isi cell
>
> persis di bawah cell tujuan menghilang, kenapa yah ?
>
>
> Ini file terlampir :
>
>
>
> Terima kasih jawabannya.
> Wassalam,
> Tio
>
>
>
>
Private Sub NamaUnik_Click(
Range(Cells(
Selection.AdvancedF
Unique:=True
End Sub
Bagian Cells(2, 4)
merujuk ke sejumlah baris yang kurang dari jumlah baris Range(Cells(
Cells(16, 3).End(xlDown)
Dengan begitu, maka proses akan melakukan clearcontents pada kolom Cells(2,
4) mulai range pojok kiri atasnya sampai kolom terkanan dari Cells(2,
4)pada baris last cell
Pada kasus ini, Cells(2, 4) hanya merujuk pada sebuah cell yaitu D2 (1
baris). Andai worksheet tersebut memiliki last cell di AX123, maka akan ada
proses clear contents pada area range D2:D123
Coba ubah jadi :
Private Sub NamaUnik_Click(
Range(Cells(
Selection.AdvancedF
resize(9)*, Unique:=True
End Sub
Bagian .resize(9) akan membuat area range sebanyak 9 baris x 1 kolom,
dengan asumsi bahwa 9 baris ini akan mencukupi jumlah baris hasil advanced
filter (termasuk header).
Karena tidak tahu hasil akhirnya kaan terdiri dari berapa baris, maka
biasanya di resize sebanyak jumlah baris sumber data yang di advanced
filter.
Dalam hal ini berarti sebanyak jumlah baris area Range(Cells(
Cells(16, 3).End(xlDown)
Jika akan disusun lengkap, akan seperti ini :
Private Sub NamaUnik_Click(
Range(Cells(
Selection.AdvancedF
CopyToRange:
4)*.resize(*
3), Cells(16, 3).End(xlDown)
Unique:=True
End Sub
fyi,
Methods Select dan Activate adalah method yang sebaiknya dihindari karena
membutuhkan waktu proses yang cukup lama. Waktu proses untuk select bisa
dimanfaatkan untuk proses lainnya yang lebih pokok.
kalau ndak salah duga, script : (misal dinamai Script A)
Private Sub NamaUnik_Click(
Range(Cells(
Selection.AdvancedF
Unique:=True
End Sub
akan diproses jauh lebih lama dibanding script : (misal dinamai script B)
Private Sub NamaUnik_Click(
dim rng as range
set rng=Range(Cells(
rng.AdvancedFilter Action:=xlFilterCop
Unique:=True
End Sub
meskipun jumlah baris script A lebih sedikit dibanding script B.
Andai saja script A dikalkulasi 2 x waktu proses script B, maka jika
memakai script A untuk 1 proses bisa menyelesaikan 2 proses yang sama
dengan script B.
Kembali ke pokok masalah.
Jika akan menggunakan area data sumber yang di advanced sebagai area bagian
copytorange, maka script B bisa berbunyi :
Private Sub NamaUnik_Click(
dim rng as range
set rng=Range(Cells(
rng.AdvancedFilter Action:=xlFilterCop
.resize(rng.
End Sub
mohon dikoreksi kalo salah.
Wassalam,
Kid.
2013/3/15 hendrik karnadi <hendrikkarnadi@
> **
>
>
> Bagian yang diberi huruf tebal ini yang menyebabkan "bentrok" karena kolom
> 4 akan diisi dengan sel kosong hasil filter.
>
> Private Sub NamaUnik_Click(
> Range(Cells(
> Selection.AdvancedF
> Unique:=True
> End Sub
>
> Coba ganti warna merah dengan selain 3 atau 4
>
> Salam,
> HK
>
>
> ------------
> *From:* "tio.adjie@ptssb.
> *To:* belajar-excel@
> *Sent:* Friday, 15 March 2013, 16:35
> *Subject:* [belajar-excel] Beri Nama Unik tapi cell di bawahnya hilang
>
>
>
> Dear Be-Exceller,
>
> Saya belajar membuat mencari nama unik dan di tempatkan ke cell tertentu.
> Nama unik itu saya ambil dari kolom nama. Tapi setelah saya coba membuat
> nama unik ke cell tertentu, kok isi cell
>
> persis di bawah cell tujuan menghilang, kenapa yah ?
>
>
> Ini file terlampir :
>
>
>
> Terima kasih jawabannya.
> Wassalam,
> Tio
>
>
>
>
Fri Mar 15, 2013 3:38 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
It is the real Master who can explained very completely like this.
Thanks Mr. Kid.
Salam,
HK
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Friday, 15 March 2013, 17:23
Subject: Re: [belajar-excel] Beri Nama Unik tapi cell di bawahnya hilang
Dalam prosedur :
Private Sub NamaUnik_Click()
Range(Cells(16, 3), Cells(16, 3).End(xlDown)).SelectSelection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4), Unique:=True
End Sub
Bagian Cells(2, 4)
merujuk ke sejumlah baris yang kurang dari jumlah baris Range(Cells(16, 3), Cells(16, 3).End(xlDown))
Dengan begitu, maka proses akan melakukan clearcontents pada kolom Cells(2, 4) mulai range pojok kiri atasnya sampai kolom terkanan dari Cells(2, 4) pada baris last cell
Pada kasus ini, Cells(2, 4) hanya merujuk pada sebuah cell yaitu D2 (1 baris). Andai worksheet tersebut memiliki last cell di AX123, maka akan ada proses clear contents pada area range D2:D123
Coba ubah jadi :
Private Sub NamaUnik_Click()
Range(Cells(16, 3), Cells(16, 3).End(xlDown)).Select
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4).resize(9), Unique:=True
End Sub
Bagian .resize(9) akan membuat area range sebanyak 9 baris x 1 kolom, dengan asumsi bahwa 9 baris ini akan mencukupi jumlah baris hasil advanced filter (termasuk header).
Karena tidak tahu hasil akhirnya kaan terdiri dari berapa baris, maka biasanya di resize sebanyak jumlah baris sumber data yang di advanced filter.
Dalam hal ini berarti sebanyak jumlah baris area Range(Cells(16, 3), Cells(16, 3).End(xlDown))
Jika akan disusun lengkap, akan seperti ini :
Private Sub NamaUnik_Click()
Range(Cells(16, 3), Cells(16, 3).End(xlDown)).Select
Selection.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Cells(2, 4).resize(Range(Cells(16, 3), Cells(16, 3).End(xlDown)).rows.count), _
Unique:=True
End Sub
fyi,
Methods Select dan Activate adalah method yang sebaiknya dihindari karena membutuhkan waktu proses yang cukup lama. Waktu proses untuk select bisa dimanfaatkan untuk proses lainnya yang lebih pokok.
kalau ndak salah duga, script : (misal dinamai Script A)
Private Sub NamaUnik_Click()
Range(Cells(16, 3), Cells(16, 3).End(xlDown)).Select
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4), Unique:=True
End Subakan diproses jauh lebih lama dibanding script : (misal dinamai script B)
Private Sub NamaUnik_Click()
dim rng as range
set rng=Range(Cells(16, 3), Cells(16, 3).End(xlDown))
rng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4), Unique:=True
End Submeskipun jumlah baris script A lebih sedikit dibanding script B.
Andai saja script A dikalkulasi 2 x waktu proses script B, maka jika memakai script A untuk 1 proses bisa menyelesaikan 2 proses yang sama dengan script B.
Kembali ke pokok masalah.
Jika akan menggunakan area data sumber yang di advanced sebagai area bagian copytorange, maka script B bisa berbunyi :
Private Sub NamaUnik_Click()
dim rng as range
set rng=Range(Cells(16, 3), Cells(16, 3).End(xlDown))
rng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4).resize(rng.rows.count), Unique:=True
End Sub
mohon dikoreksi kalo salah.
Wassalam,
Kid.
2013/3/15 hendrik karnadi <hendrikkarnadi@yahoo.com >
>
>Bagian yang diberi huruf tebal ini yang menyebabkan "bentrok" karena kolom 4 akan diisi dengan sel kosong hasil filter.
>
>
>Private Sub NamaUnik_Click()
>Range(Cells(16, 3), Cells(16, 3).End(xlDown)).Select
>Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4), Unique:=True
>End Sub
>
>
>
>Coba ganti warna merah dengan selain 3 atau 4
>
>
>Salam,
>HK
>
>
>
>
>
>________________________________
> From: "tio.adjie@ptssb.co.id tio.adjie@ptssb.co.id >
>To: belajar-excel@yahoogroups.com
>Sent: Friday, 15 March 2013, 16:35
>Subject: [belajar-excel] Beri Nama Unik tapi cell di bawahnya hilang
>
>
>
>
>
>Dear Be-Exceller,
>
>Saya belajar membuat mencari nama unik dan di tempatkan ke cell tertentu. Nama unik itu saya ambil dari kolom nama. Tapi setelah saya coba membuat nama unik ke cell tertentu, kok isi cell
>
>persis di bawah cell tujuan menghilang, kenapa yah ?
>
>
>Ini file terlampir :
>
>
>
>Terima kasih jawabannya.
>Wassalam,
>Tio
>
>
>
Thanks Mr. Kid.
Salam,
HK
____________
From: Mr. Kid <mr.nmkid@gmail.
To: belajar-excel@
Sent: Friday, 15 March 2013, 17:23
Subject: Re: [belajar-excel] Beri Nama Unik tapi cell di bawahnya hilang
Dalam prosedur :
Private Sub NamaUnik_Click(
Range(Cells(
End Sub
Bagian Cells(2, 4)
merujuk ke sejumlah baris yang kurang dari jumlah baris Range(Cells(
Dengan begitu, maka proses akan melakukan clearcontents pada kolom Cells(2, 4) mulai range pojok kiri atasnya sampai kolom terkanan dari Cells(2, 4) pada baris last cell
Pada kasus ini, Cells(2, 4) hanya merujuk pada sebuah cell yaitu D2 (1 baris). Andai worksheet tersebut memiliki last cell di AX123, maka akan ada proses clear contents pada area range D2:D123
Coba ubah jadi :
Private Sub NamaUnik_Click(
Range(Cells(
Selection.AdvancedF
End Sub
Bagian .resize(9) akan membuat area range sebanyak 9 baris x 1 kolom, dengan asumsi bahwa 9 baris ini akan mencukupi jumlah baris hasil advanced filter (termasuk header).
Karena tidak tahu hasil akhirnya kaan terdiri dari berapa baris, maka biasanya di resize sebanyak jumlah baris sumber data yang di advanced filter.
Dalam hal ini berarti sebanyak jumlah baris area Range(Cells(
Jika akan disusun lengkap, akan seperti ini :
Private Sub NamaUnik_Click(
Range(Cells(
Selection.AdvancedF
CopyToRange:
Unique:=True
End Sub
fyi,
Methods Select dan Activate adalah method yang sebaiknya dihindari karena membutuhkan waktu proses yang cukup lama. Waktu proses untuk select bisa dimanfaatkan untuk proses lainnya yang lebih pokok.
kalau ndak salah duga, script : (misal dinamai Script A)
Private Sub NamaUnik_Click(
Range(Cells(
Selection.AdvancedF
End Subakan diproses jauh lebih lama dibanding script : (misal dinamai script B)
Private Sub NamaUnik_Click(
dim rng as range
set rng=Range(Cells(
rng.AdvancedFilter Action:=xlFilterCop
End Submeskipun jumlah baris script A lebih sedikit dibanding script B.
Andai saja script A dikalkulasi 2 x waktu proses script B, maka jika memakai script A untuk 1 proses bisa menyelesaikan 2 proses yang sama dengan script B.
Kembali ke pokok masalah.
Jika akan menggunakan area data sumber yang di advanced sebagai area bagian copytorange, maka script B bisa berbunyi :
Private Sub NamaUnik_Click(
dim rng as range
set rng=Range(Cells(
rng.AdvancedFilter Action:=xlFilterCop
End Sub
mohon dikoreksi kalo salah.
Wassalam,
Kid.
2013/3/15 hendrik karnadi <hendrikkarnadi@
>
>Bagian yang diberi huruf tebal ini yang menyebabkan "bentrok" karena kolom 4 akan diisi dengan sel kosong hasil filter.
>
>
>Private Sub NamaUnik_Click(
>Range(Cells(
>Selection.
>End Sub
>
>
>
>Coba ganti warna merah dengan selain 3 atau 4
>
>
>Salam,
>HK
>
>
>
>
>
>________
> From: "tio.adjie@ptssb.
>To: belajar-excel@
>Sent: Friday, 15 March 2013, 16:35
>Subject: [belajar-excel] Beri Nama Unik tapi cell di bawahnya hilang
>
>
>
>
>
>Dear Be-Exceller,
>
>Saya belajar membuat mencari nama unik dan di tempatkan ke cell tertentu. Nama unik itu saya ambil dari kolom nama. Tapi setelah saya coba membuat nama unik ke cell tertentu, kok isi cell
>
>persis di bawah cell tujuan menghilang, kenapa yah ?
>
>
>Ini file terlampir :
>
>
>
>Terima kasih jawabannya.
>Wassalam,
>Tio
>
>
>
Fri Mar 15, 2013 4:10 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
wakakaka...
bisa aja Pak Hendrik ini.
Sebenarnya, hanya masalah waktu saja. Siapa yang lebih dulu mempelajari
suatu hal maka sebaiknya disebarlah yang dipelajarinya supaya semua yang
berminat akan menjadi bisa juga. Setelah semua bisa, berarti ndak ada
perbedaan lagi kan. Lalu bagaimana bisa ada sebutan yang terkesan memberi
tingkatan kalau semua sudah sama-sama bisa.
hehehe...
imho,
saya adalah orang yang diberi keberuntungan, karena bisa punya kesempatan
menyebarkan. pasti ada yang sudah mendahului keberuntungan saya, karena
dari sebaran si fulan saya mendapat modal untuk bisa menjadi beruntung.
Pertanyaannya,
siapa selanjutnya yang menjadi orang yang beruntung karena punya kesempatan
menyebarkan dan melakukan penyebaran modal yang dimiliki.
Kesimpulan,
tingkatannya hanya ada 2 saja,
orang yang mau menjadi dapat beruntung dan orang yang enggan menjadi
beruntung.
jadi ndak ada master dan ndak ada newbie. yang ada, yang mau menjadi dapat
beruntung dan yang enggan menjadi beruntung.
moga-moga tidak menyalahi fitrah.
Wassalam,
Kid.
2013/3/15 hendrik karnadi <hendrikkarnadi@yahoo.com >
> **
>
>
> It is the real Master who can explained very completely like this.
> Thanks Mr. Kid.
>
> Salam,
> HK
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, 15 March 2013, 17:23
> *Subject:* Re: [belajar-excel] Beri Nama Unik tapi cell di bawahnya hilang
>
>
> Dalam prosedur :
> Private Sub NamaUnik_Click()
> Range(Cells(16, 3), Cells(16, 3).End(xlDown)).Select
> Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4),
> Unique:=True
> End Sub
>
> Bagian Cells(2, 4)
> merujuk ke sejumlah baris yang kurang dari jumlah baris Range(Cells(16,
> 3), Cells(16, 3).End(xlDown))
> Dengan begitu, maka proses akan melakukan clearcontents pada kolom Cells(2,
> 4) mulai range pojok kiri atasnya sampai kolom terkanan dari Cells(2, 4)pada baris last cell
>
> Pada kasus ini, Cells(2, 4) hanya merujuk pada sebuah cell yaitu D2 (1
> baris). Andai worksheet tersebut memiliki last cell di AX123, maka akan
> ada proses clear contents pada area range D2:D123
>
> Coba ubah jadi :
> Private Sub NamaUnik_Click()
> Range(Cells(16, 3), Cells(16, 3).End(xlDown)).Select
> Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4)*.
> resize(9)*, Unique:=True
> End Sub
>
> Bagian .resize(9) akan membuat area range sebanyak 9 baris x 1 kolom,
> dengan asumsi bahwa 9 baris ini akan mencukupi jumlah baris hasil advanced
> filter (termasuk header).
> Karena tidak tahu hasil akhirnya kaan terdiri dari berapa baris, maka
> biasanya di resize sebanyak jumlah baris sumber data yang di advanced
> filter.
> Dalam hal ini berarti sebanyak jumlah baris area Range(Cells(16, 3),
> Cells(16, 3).End(xlDown))
>
> Jika akan disusun lengkap, akan seperti ini :
> Private Sub NamaUnik_Click()
> Range(Cells(16, 3), Cells(16, 3).End(xlDown)).Select
> Selection.AdvancedFilter Action:=xlFilterCopy, _
> CopyToRange:=Cells(2, 4)*.resize(**Range(Cells(16,
> 3), Cells(16, 3).End(xlDown)).rows.count)*, _
> Unique:=True
> End Sub
>
>
> fyi,
> Methods Select dan Activate adalah method yang sebaiknya dihindari karena
> membutuhkan waktu proses yang cukup lama. Waktu proses untuk select bisa
> dimanfaatkan untuk proses lainnya yang lebih pokok.
>
> kalau ndak salah duga, script : (misal dinamai Script A)
> Private Sub NamaUnik_Click()
> Range(Cells(16, 3), Cells(16, 3).End(xlDown)).Select
> Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4),
> Unique:=True
> End Sub
> akan diproses jauh lebih lama dibanding script : (misal dinamai script B)
> Private Sub NamaUnik_Click()
> dim rng as range
> set rng=Range(Cells(16, 3), Cells(16, 3).End(xlDown))
> rng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4),
> Unique:=True
> End Sub
> meskipun jumlah baris script A lebih sedikit dibanding script B.
>
> Andai saja script A dikalkulasi 2 x waktu proses script B, maka jika
> memakai script A untuk 1 proses bisa menyelesaikan 2 proses yang sama
> dengan script B.
>
> Kembali ke pokok masalah.
> Jika akan menggunakan area data sumber yang di advanced sebagai area
> bagian copytorange, maka script B bisa berbunyi :
> Private Sub NamaUnik_Click()
> dim rng as range
> set rng=Range(Cells(16, 3), Cells(16, 3).End(xlDown))
> rng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4)
> .resize(rng.rows.count), Unique:=True
> End Sub
>
> mohon dikoreksi kalo salah.
>
> Wassalam,
> Kid.
>
>
> 2013/3/15 hendrik karnadi <hendrikkarnadi@yahoo.com >
>
> **
>
> Bagian yang diberi huruf tebal ini yang menyebabkan "bentrok" karena
> kolom 4 akan diisi dengan sel kosong hasil filter.
>
> Private Sub NamaUnik_Click()
> Range(Cells(16, 3), Cells(16, 3).End(xlDown)).Select
> Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4),
> Unique:=True
> End Sub
>
> Coba ganti warna merah dengan selain 3 atau 4
>
> Salam,
> HK
>
>
> ------------------------------
> *From:* "tio.adjie@ptssb.co.id tio.adjie@ptssb.co.id >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, 15 March 2013, 16:35
> *Subject:* [belajar-excel] Beri Nama Unik tapi cell di bawahnya hilang
>
>
>
> Dear Be-Exceller,
>
> Saya belajar membuat mencari nama unik dan di tempatkan ke cell tertentu.
> Nama unik itu saya ambil dari kolom nama. Tapi setelah saya coba membuat
> nama unik ke cell tertentu, kok isi cell
>
> persis di bawah cell tujuan menghilang, kenapa yah ?
>
>
> Ini file terlampir :
>
>
>
> Terima kasih jawabannya.
> Wassalam,
> Tio
>
>
>
>
>
>
>
bisa aja Pak Hendrik ini.
Sebenarnya, hanya masalah waktu saja. Siapa yang lebih dulu mempelajari
suatu hal maka sebaiknya disebarlah yang dipelajarinya supaya semua yang
berminat akan menjadi bisa juga. Setelah semua bisa, berarti ndak ada
perbedaan lagi kan. Lalu bagaimana bisa ada sebutan yang terkesan memberi
tingkatan kalau semua sudah sama-sama bisa.
hehehe...
imho,
saya adalah orang yang diberi keberuntungan, karena bisa punya kesempatan
menyebarkan. pasti ada yang sudah mendahului keberuntungan saya, karena
dari sebaran si fulan saya mendapat modal untuk bisa menjadi beruntung.
Pertanyaannya,
siapa selanjutnya yang menjadi orang yang beruntung karena punya kesempatan
menyebarkan dan melakukan penyebaran modal yang dimiliki.
Kesimpulan,
tingkatannya hanya ada 2 saja,
orang yang mau menjadi dapat beruntung dan orang yang enggan menjadi
beruntung.
jadi ndak ada master dan ndak ada newbie. yang ada, yang mau menjadi dapat
beruntung dan yang enggan menjadi beruntung.
moga-moga tidak menyalahi fitrah.
Wassalam,
Kid.
2013/3/15 hendrik karnadi <hendrikkarnadi@
> **
>
>
> It is the real Master who can explained very completely like this.
> Thanks Mr. Kid.
>
> Salam,
> HK
>
> ------------
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Friday, 15 March 2013, 17:23
> *Subject:* Re: [belajar-excel] Beri Nama Unik tapi cell di bawahnya hilang
>
>
> Dalam prosedur :
> Private Sub NamaUnik_Click(
> Range(Cells(
> Selection.AdvancedF
> Unique:=True
> End Sub
>
> Bagian Cells(2, 4)
> merujuk ke sejumlah baris yang kurang dari jumlah baris Range(Cells(
> 3), Cells(16, 3).End(xlDown)
> Dengan begitu, maka proses akan melakukan clearcontents pada kolom Cells(2,
> 4) mulai range pojok kiri atasnya sampai kolom terkanan dari Cells(2, 4)pada baris last cell
>
> Pada kasus ini, Cells(2, 4) hanya merujuk pada sebuah cell yaitu D2 (1
> baris). Andai worksheet tersebut memiliki last cell di AX123, maka akan
> ada proses clear contents pada area range D2:D123
>
> Coba ubah jadi :
> Private Sub NamaUnik_Click(
> Range(Cells(
> Selection.AdvancedF
> resize(9)*, Unique:=True
> End Sub
>
> Bagian .resize(9) akan membuat area range sebanyak 9 baris x 1 kolom,
> dengan asumsi bahwa 9 baris ini akan mencukupi jumlah baris hasil advanced
> filter (termasuk header).
> Karena tidak tahu hasil akhirnya kaan terdiri dari berapa baris, maka
> biasanya di resize sebanyak jumlah baris sumber data yang di advanced
> filter.
> Dalam hal ini berarti sebanyak jumlah baris area Range(Cells(
> Cells(16, 3).End(xlDown)
>
> Jika akan disusun lengkap, akan seperti ini :
> Private Sub NamaUnik_Click(
> Range(Cells(
> Selection.AdvancedF
> CopyToRange:
> 3), Cells(16, 3).End(xlDown)
> Unique:=True
> End Sub
>
>
> fyi,
> Methods Select dan Activate adalah method yang sebaiknya dihindari karena
> membutuhkan waktu proses yang cukup lama. Waktu proses untuk select bisa
> dimanfaatkan untuk proses lainnya yang lebih pokok.
>
> kalau ndak salah duga, script : (misal dinamai Script A)
> Private Sub NamaUnik_Click(
> Range(Cells(
> Selection.AdvancedF
> Unique:=True
> End Sub
> akan diproses jauh lebih lama dibanding script : (misal dinamai script B)
> Private Sub NamaUnik_Click(
> dim rng as range
> set rng=Range(Cells(
> rng.AdvancedFilter Action:=xlFilterCop
> Unique:=True
> End Sub
> meskipun jumlah baris script A lebih sedikit dibanding script B.
>
> Andai saja script A dikalkulasi 2 x waktu proses script B, maka jika
> memakai script A untuk 1 proses bisa menyelesaikan 2 proses yang sama
> dengan script B.
>
> Kembali ke pokok masalah.
> Jika akan menggunakan area data sumber yang di advanced sebagai area
> bagian copytorange, maka script B bisa berbunyi :
> Private Sub NamaUnik_Click(
> dim rng as range
> set rng=Range(Cells(
> rng.AdvancedFilter Action:=xlFilterCop
> .resize(rng.
> End Sub
>
> mohon dikoreksi kalo salah.
>
> Wassalam,
> Kid.
>
>
> 2013/3/15 hendrik karnadi <hendrikkarnadi@
>
> **
>
> Bagian yang diberi huruf tebal ini yang menyebabkan "bentrok" karena
> kolom 4 akan diisi dengan sel kosong hasil filter.
>
> Private Sub NamaUnik_Click(
> Range(Cells(
> Selection.AdvancedF
> Unique:=True
> End Sub
>
> Coba ganti warna merah dengan selain 3 atau 4
>
> Salam,
> HK
>
>
> ------------
> *From:* "tio.adjie@ptssb.
> *To:* belajar-excel@
> *Sent:* Friday, 15 March 2013, 16:35
> *Subject:* [belajar-excel] Beri Nama Unik tapi cell di bawahnya hilang
>
>
>
> Dear Be-Exceller,
>
> Saya belajar membuat mencari nama unik dan di tempatkan ke cell tertentu.
> Nama unik itu saya ambil dari kolom nama. Tapi setelah saya coba membuat
> nama unik ke cell tertentu, kok isi cell
>
> persis di bawah cell tujuan menghilang, kenapa yah ?
>
>
> Ini file terlampir :
>
>
>
> Terima kasih jawabannya.
> Wassalam,
> Tio
>
>
>
>
>
>
>
Alhamdulillah ini benar2 bermanfaat bagi saya dan mungkin teman Exceller
lainnya. Saya tanya 1, jawabannya segambreng.
Semoga Allah SWT membalas kebaikan Mr. Kid.
Untuk contoh yang saya lampirkan, sukses lancar. Tapi anehnya, waktu saya
coba ke masalah yang sesungguhnya, kok masih bermasalah . Kenapa yah ?
Saya sudah otak atik berkali-kali, tetap saja bermasalah.
Ini file lampirannya :
Worksheetnya ada di worksheet over_time dan worksheet sumber di
Time_Sheet_Data
Mohon solusinya.
Terima kasih,
Wassalam,
Tio
"Mr. Kid" <mr.nmkid@gmail.com >
Sent by: belajar-excel@yahoogroups.com
03/15/2013 05:23 PM
Please respond to belajar-excel
To: belajar-excel@yahoogroups.com
cc:
Subject: Re: [belajar-excel] Beri Nama Unik tapi cell di bawahnya hilang
Dalam prosedur :
Private Sub NamaUnik_Click()
Range(Cells(16, 3), Cells(16, 3).End(xlDown)).Select
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4), Unique:=True
End Sub
Bagian Cells(2, 4)
merujuk ke sejumlah baris yang kurang dari jumlah baris Range(Cells(16,
3), Cells(16, 3).End(xlDown))
Dengan begitu, maka proses akan melakukan clearcontents pada kolom Cells(2, 4) mulai range pojok kiri atasnya sampai kolom terkanan dari Cells(2, 4) pada baris last cell
Pada kasus ini, Cells(2, 4) hanya merujuk pada sebuah cell yaitu D2 (1 baris). Andai worksheet
tersebut memiliki last cell di AX123, maka akan ada proses clear contents
pada area range D2:D123
Coba ubah jadi :
Private Sub NamaUnik_Click()
Range(Cells(16, 3), Cells(16, 3).End(xlDown)).Select
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4).resize(9), Unique:=True
End Sub
Bagian .resize(9) akan membuat area range sebanyak 9 baris x 1 kolom,
dengan asumsi bahwa 9 baris ini akan mencukupi jumlah baris hasil advanced
filter (termasuk header).
Karena tidak tahu hasil akhirnya kaan terdiri dari berapa baris, maka
biasanya di resize sebanyak jumlah baris sumber data yang di advanced
filter.
Dalam hal ini berarti sebanyak jumlah baris area Range(Cells(16, 3),
Cells(16, 3).End(xlDown))
Jika akan disusun lengkap, akan seperti ini :
Private Sub NamaUnik_Click()
Range(Cells(16, 3), Cells(16, 3).End(xlDown)).Select
Selection.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Cells(2, 4).resize(Range(Cells(16, 3), Cells(16, 3).End(xlDown)).rows.count), _
Unique:=True
End Sub
fyi,
Methods Select dan Activate adalah method yang sebaiknya dihindari karena
membutuhkan waktu proses yang cukup lama. Waktu proses untuk select bisa
dimanfaatkan untuk proses lainnya yang lebih pokok.
kalau ndak salah duga, script : (misal dinamai Script A)
Private Sub NamaUnik_Click()
Range(Cells(16, 3), Cells(16, 3).End(xlDown)).Select
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4), Unique:=True
End Sub
akan diproses jauh lebih lama dibanding script : (misal dinamai script B)
Private Sub NamaUnik_Click()
dim rng as range
set rng=Range(Cells(16, 3), Cells(16, 3).End(xlDown))
rng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4), Unique:=True
End Sub
meskipun jumlah baris script A lebih sedikit dibanding script B.
Andai saja script A dikalkulasi 2 x waktu proses script B, maka jika
memakai script A untuk 1 proses bisa menyelesaikan 2 proses yang sama
dengan script B.
Kembali ke pokok masalah.
Jika akan menggunakan area data sumber yang di advanced sebagai area
bagian copytorange, maka script B bisa berbunyi :
Private Sub NamaUnik_Click()
dim rng as range
set rng=Range(Cells(16, 3), Cells(16, 3).End(xlDown))
rng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4).resize(rng.rows.count), Unique:=True
End Sub
mohon dikoreksi kalo salah.
Wassalam,
Kid.
2013/3/15 hendrik karnadi <hendrikkarnadi@yahoo.com >
Bagian yang diberi huruf tebal ini yang menyebabkan "bentrok" karena kolom
4 akan diisi dengan sel kosong hasil filter.
Private Sub NamaUnik_Click()
Range(Cells(16, 3), Cells(16, 3).End(xlDown)).Select
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(2, 4), Unique:=True
End Sub
Coba ganti warna merah dengan selain 3 atau 4
Salam,
HK
From: "tio.adjie@ptssb.co.id tio.adjie@ptssb.co.id >
To: belajar-excel@yahoogroups.com
Sent: Friday, 15 March 2013, 16:35
Subject: [belajar-excel] Beri Nama Unik tapi cell di bawahnya hilang
Dear Be-Exceller,
Saya belajar membuat mencari nama unik dan di tempatkan ke cell tertentu.
Nama unik itu saya ambil dari kolom nama. Tapi setelah saya coba membuat
nama unik ke cell tertentu, kok isi cell
persis di bawah cell tujuan menghilang, kenapa yah ?
Ini file terlampir :
Terima kasih jawabannya.
Wassalam,
Tio
lainnya. Saya tanya 1, jawabannya segambreng.
Semoga Allah SWT membalas kebaikan Mr. Kid.
Untuk contoh yang saya lampirkan, sukses lancar. Tapi anehnya, waktu saya
coba ke masalah yang sesungguhnya, kok masih bermasalah . Kenapa yah ?
Saya sudah otak atik berkali-kali, tetap saja bermasalah.
Ini file lampirannya :
Worksheetnya ada di worksheet over_time dan worksheet sumber di
Time_Sheet_Data
Mohon solusinya.
Terima kasih,
Wassalam,
Tio
"Mr. Kid" <mr.nmkid@gmail.
Sent by: belajar-excel@
03/15/2013 05:23 PM
Please respond to belajar-excel
To: belajar-excel@
cc:
Subject: Re: [belajar-excel] Beri Nama Unik tapi cell di bawahnya hilang
Dalam prosedur :
Private Sub NamaUnik_Click(
Range(Cells(
Selection.AdvancedF
End Sub
Bagian Cells(2, 4)
merujuk ke sejumlah baris yang kurang dari jumlah baris Range(Cells(
3), Cells(16, 3).End(xlDown)
Dengan begitu, maka proses akan melakukan clearcontents pada kolom Cells(2, 4) mulai range pojok kiri atasnya sampai kolom terkanan dari Cells(2, 4) pada baris last cell
Pada kasus ini, Cells(2, 4) hanya merujuk pada sebuah cell yaitu D2 (1 baris). Andai worksheet
tersebut memiliki last cell di AX123, maka akan ada proses clear contents
pada area range D2:D123
Coba ubah jadi :
Private Sub NamaUnik_Click(
Range(Cells(
Selection.AdvancedF
End Sub
Bagian .resize(9) akan membuat area range sebanyak 9 baris x 1 kolom,
dengan asumsi bahwa 9 baris ini akan mencukupi jumlah baris hasil advanced
filter (termasuk header).
Karena tidak tahu hasil akhirnya kaan terdiri dari berapa baris, maka
biasanya di resize sebanyak jumlah baris sumber data yang di advanced
filter.
Dalam hal ini berarti sebanyak jumlah baris area Range(Cells(
Cells(16, 3).End(xlDown)
Jika akan disusun lengkap, akan seperti ini :
Private Sub NamaUnik_Click(
Range(Cells(
Selection.AdvancedF
CopyToRange:
Unique:=True
End Sub
fyi,
Methods Select dan Activate adalah method yang sebaiknya dihindari karena
membutuhkan waktu proses yang cukup lama. Waktu proses untuk select bisa
dimanfaatkan untuk proses lainnya yang lebih pokok.
kalau ndak salah duga, script : (misal dinamai Script A)
Private Sub NamaUnik_Click(
Range(Cells(
Selection.AdvancedF
End Sub
akan diproses jauh lebih lama dibanding script : (misal dinamai script B)
Private Sub NamaUnik_Click(
dim rng as range
set rng=Range(Cells(
rng.AdvancedFilter Action:=xlFilterCop
End Sub
meskipun jumlah baris script A lebih sedikit dibanding script B.
Andai saja script A dikalkulasi 2 x waktu proses script B, maka jika
memakai script A untuk 1 proses bisa menyelesaikan 2 proses yang sama
dengan script B.
Kembali ke pokok masalah.
Jika akan menggunakan area data sumber yang di advanced sebagai area
bagian copytorange, maka script B bisa berbunyi :
Private Sub NamaUnik_Click(
dim rng as range
set rng=Range(Cells(
rng.AdvancedFilter Action:=xlFilterCop
End Sub
mohon dikoreksi kalo salah.
Wassalam,
Kid.
2013/3/15 hendrik karnadi <hendrikkarnadi@
Bagian yang diberi huruf tebal ini yang menyebabkan "bentrok" karena kolom
4 akan diisi dengan sel kosong hasil filter.
Private Sub NamaUnik_Click(
Range(Cells(
Selection.AdvancedF
End Sub
Coba ganti warna merah dengan selain 3 atau 4
Salam,
HK
From: "tio.adjie@ptssb.
To: belajar-excel@
Sent: Friday, 15 March 2013, 16:35
Subject: [belajar-excel] Beri Nama Unik tapi cell di bawahnya hilang
Dear Be-Exceller,
Saya belajar membuat mencari nama unik dan di tempatkan ke cell tertentu.
Nama unik itu saya ambil dari kolom nama. Tapi setelah saya coba membuat
nama unik ke cell tertentu, kok isi cell
persis di bawah cell tujuan menghilang, kenapa yah ?
Ini file terlampir :
Terima kasih jawabannya.
Wassalam,
Tio
Fri Mar 15, 2013 4:00 am (PDT) . Posted by:
"Indra" indra_gustian
Dear All,
Tolong bantu menyempurnakan macro di bwh ini:
1. Sebagian ada yg saya Record, bagaimana apabila di ringkas??
2. Bagian yg berbunyi "If ActiveWorkbook Is Nothing Then Exit Sub "
disini tidak jalan.ada perintah save/no...tolong dibantu penyempurnaannya??
3. Apabila WorkBook di Password bagaimana kode untuk membukanya??
(alurnya spt ini : isi password>>read only)
Private Sub CommandButton2_Click()
Workbooks.Open FileName:=Lb_Path & "\" & Label3, UpdateLinks:=0
Sheets("Sheet1").Select
Cells.Select
Selection.Copy
Windows("OpenBudget.xlsm").Activate
Sheets.Add After:=Sheets(Sheets.Count)
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme,
Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
ActiveWindow.Zoom = 70
If ActiveWorkbook Is Nothing Then Exit Sub
End Sub
Salam,
ChordJR
Tolong bantu menyempurnakan macro di bwh ini:
1. Sebagian ada yg saya Record, bagaimana apabila di ringkas??
2. Bagian yg berbunyi "If ActiveWorkbook Is Nothing Then Exit Sub "
disini tidak jalan.ada perintah save/no...tolong dibantu penyempurnaannya?
3. Apabila WorkBook di Password bagaimana kode untuk membukanya??
(alurnya spt ini : isi password>
Private Sub CommandButton2_
Workbooks.Open FileName:=Lb_
Sheets("
Cells.Select
Selection.Copy
Windows("
Sheets.Add After:=Sheets(
Selection.PasteSpec
Operation:=xlNone _
, SkipBlanks:=
ActiveWindow.
If ActiveWorkbook Is Nothing Then Exit Sub
End Sub
Salam,
ChordJR
Fri Mar 15, 2013 5:14 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai ChordJR
Tentang VBA untuk berinteraksi dengan workbook yang di password.
Coba ubek-ubek file iface.xlsm dalam zip file hasil unduhan di
https://www.box.com/s/3r4n63p8cjfmbl4wntk4
Wassalam,
Kid.
2013/3/15 Indra <vendeta_06@yahoo.co.id >
> **
>
>
> Dear All,****
>
> ** **
>
> Tolong bantu menyempurnakan macro di bwh ini:****
>
> **1. **Sebagian ada yg saya Record, bagaimana apabila di ringkas??**
> **
>
> **2. **Bagian yg berbunyi �If ActiveWorkbook Is Nothing Then Exit
> Sub � disini tidak jalan�ada perintah save/no...tolong dibantu
> penyempurnaannya??****
>
> **3. **Apabila WorkBook di Password bagaimana kode untuk
> membukanya?? (alurnya spt ini : *isi password>>read only*)****
>
> ** **
>
> ** **
>
> ** **
>
> Private Sub CommandButton2_Click()****
>
> Workbooks.Open FileName:=Lb_Path & "\" & Label3, UpdateLinks:=0****
>
> Sheets("Sheet1").Select****
>
> Cells.Select****
>
> Selection.Copy****
>
> Windows("OpenBudget.xlsm").Activate****
>
> Sheets.Add After:=Sheets(Sheets.Count)****
>
> Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme,
> Operation:=xlNone _****
>
> , SkipBlanks:=False, Transpose:=False****
>
> ActiveWindow.Zoom = 70****
>
> If ActiveWorkbook Is Nothing Then Exit Sub ****
>
> End Sub****
>
> ** **
>
> Salam,****
>
> ** **
>
> ChordJR****
>
>
>
Tentang VBA untuk berinteraksi dengan workbook yang di password.
Coba ubek-ubek file iface.xlsm dalam zip file hasil unduhan di
https://www.
Wassalam,
Kid.
2013/3/15 Indra <vendeta_06@yahoo.
> **
>
>
> Dear All,****
>
> ** **
>
> Tolong bantu menyempurnakan macro di bwh ini:****
>
> **1. **Sebagian ada yg saya Record, bagaimana apabila di ringkas??**
> **
>
> **2. **Bagian yg berbunyi �If ActiveWorkbook Is Nothing Then Exit
> Sub � disini tidak jalan�ada perintah save/no...tolong dibantu
> penyempurnaannya?
>
> **3. **Apabila WorkBook di Password bagaimana kode untuk
> membukanya?? (alurnya spt ini : *isi password>
>
> ** **
>
> ** **
>
> ** **
>
> Private Sub CommandButton2_
>
> Workbooks.Open FileName:=Lb_
>
> Sheets("
>
> Cells.Select*
>
> Selection.Copy*
>
> Windows("
>
> Sheets.Add After:=Sheets(
>
> Selection.PasteSpec
> Operation:=xlNone _****
>
> , SkipBlanks:=
>
> ActiveWindow.
>
> If ActiveWorkbook Is Nothing Then Exit Sub ****
>
> End Sub****
>
> ** **
>
> Salam,****
>
> ** **
>
> ChordJR****
>
>
>
Fri Mar 15, 2013 4:23 am (PDT) . Posted by:
"paulroth" iq_bal76id
Dear mr kid,
Sorry lambat sekali saya merespon nya.
Tapi terima kasih atas inputannya. And it's work.
Terima kasih
Regard
Muhammad Iqbal
--- In belajar-excel@yahoogroups.com , "Mr. Kid" <mr.nmkid@...> wrote:
>
> ops... sudah lama sekali belum ada yang respon.
>
> Mungkin perlu penjelasan lebih detil.
> File lampiran jika dibuka di komputer saya, baris 33 dst tidak bisa di klik
> karena sheet terproteksi. Jadi, karena tidak bisa diklik, maka formula
> tidak bisa dilihat.
> Jika ingin bisa diklik tapi tidak bisa terlihat formulanya, coba :
> 1. unprotect sheet
> 2. select cell yang berformula dengan ctrl A kemudian tekan ctrl G
> dilanjutkan tekan tombol special dan pilih opsi formulas tekan OK
> 3. membuat hidden dengan cara klik kanan cell yang ter-select oleh langkah
> 2, format cells, tab protection, centang hidden, tekan OK
> 4. protect worksheet dengan memastikan bahwa item select locked cells
> tercentang. Isi password bila perlu dan tekan OK
> 5. save workbook
>
> Wassalam,
> Kid.
>
>
>
> 2013/3/7 Muhammad Iqbal <iq_bal76id@...>
>
> > **
> >
> >
> > Dear Exceller,
> > Mau Tanya bagaimana cara memproteksi cell seperti contoh, sehingga baris
> > ke 33 tidak bisa di klik, maupun di lihat rumusnya.
> > Saya mencoba dengan proteksi sheet dari menu review, namun tetap bisa di
> > klik dan dilihat rumusnya.
> >
> > Thanks
> > Regard
> > Muhammad Iqbal
> >
> >
> >
>
Sorry lambat sekali saya merespon nya.
Tapi terima kasih atas inputannya. And it's work.
Terima kasih
Regard
Muhammad Iqbal
--- In belajar-excel@
>
> ops... sudah lama sekali belum ada yang respon.
>
> Mungkin perlu penjelasan lebih detil.
> File lampiran jika dibuka di komputer saya, baris 33 dst tidak bisa di klik
> karena sheet terproteksi. Jadi, karena tidak bisa diklik, maka formula
> tidak bisa dilihat.
> Jika ingin bisa diklik tapi tidak bisa terlihat formulanya, coba :
> 1. unprotect sheet
> 2. select cell yang berformula dengan ctrl A kemudian tekan ctrl G
> dilanjutkan tekan tombol special dan pilih opsi formulas tekan OK
> 3. membuat hidden dengan cara klik kanan cell yang ter-select oleh langkah
> 2, format cells, tab protection, centang hidden, tekan OK
> 4. protect worksheet dengan memastikan bahwa item select locked cells
> tercentang. Isi password bila perlu dan tekan OK
> 5. save workbook
>
> Wassalam,
> Kid.
>
>
>
> 2013/3/7 Muhammad Iqbal <iq_bal76id@
>
> > **
> >
> >
> > Dear Exceller,
> > Mau Tanya bagaimana cara memproteksi cell seperti contoh, sehingga baris
> > ke 33 tidak bisa di klik, maupun di lihat rumusnya.
> > Saya mencoba dengan proteksi sheet dari menu review, namun tetap bisa di
> > klik dan dilihat rumusnya.
> >
> > Thanks
> > Regard
> > Muhammad Iqbal
> >
> >
> >
>
Fri Mar 15, 2013 6:01 am (PDT) . Posted by:
"Kind man" dinanfu
Mas bagus dan mas Heru terima kasih, perfect formulanya, punya mas heru
kayanya ada dikit salah perhitungan titik intersectionnya.
Mas Bagus gimana sih cara buat formula gitu? sekali lagi terima kasih
Ferdinan
kayanya ada dikit salah perhitungan titik intersectionnya.
Mas Bagus gimana sih cara buat formula gitu? sekali lagi terima kasih
Ferdinan
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar