Kamis, 06 April 2017

[belajar-excel] Digest Number 4151

15 Messages

Digest #4151
1a
2a
Re: Menemukan cell yang kosong [2 Attachments] by "Heru Safrudin" heru.safrudin
3a
Re: Menemukan cell yang kosong by "Heru Safrudin" heru.safrudin
3b
Re: Menemukan cell yang kosong by "hendrik karnadi" hendrikkarnadi
3c
Re: Menemukan cell yang kosong by "Mr. Kid" nmkid.family@ymail.com
3d
Re: Menemukan cell yang kosong [3 Attachments] by "Heru Safrudin" heru.safrudin
4a
Re: Mau Belajar VB by "hendrik karnadi" hendrikkarnadi
4b
Re: Mau Belajar VB by "Muhammad Riza Perdana Kusuma" rizaekaryuga
6a
Filter data dengan Droplist by "KESI VIZZIANTI"

Messages

Wed Apr 5, 2017 6:58 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Kusnadi,

Mungkin hal berikut ini bisa menjadi wacana yang patut dipertimbangkan.

Penulisan alamat idealnya memiliki format tertentu yang tetap.
Jika format penulisannya adalah tetap, makan akan mudah.

Misal :
Format tetap 4 field ditetapkan sebagai 'Dukuh, Desa, Kecamatan, Kabupaten'
dan untuk data yang TIDAK mencantumkan :
a. 'dukuh' menjadi ', Desa, Kecamatan, Kabupaten'
b. 'desa' menjadi 'Dukuh,, Desa, Kecamatan, Kabupaten'
c. 'kecamatan' menjadi 'Dukuh, Desa,, Kabupaten'
d. 'kabupaten' menjadi 'Dukug, Desa, Kecamatan,'
bisa dengan formula :
=trim(mid( substitute( datanya , "," , rept( " " , Len(datanya) ) ) ,
(no_field - 1)*Len(datanya)+1 , Len(datanya) ) )
*** no_field adalah 1 untuk field ke-1, 2 untuk field ke-2, dst

Jika format penulisannya tidak tetap, maka Anda harus mampu menentukan
kriteria kesesuaiannya.

Misal :
Format idealnya adalah 4 field 'Dukuh, Desa, Kecamatan, Kabupaten'
Diputuskan bahwa :
1. 'dukuh' selalu paling kiri
> artinya, kalau ada data seperti 'Kecamatan, Kabupaten' maka nilai
Kecamatan akan menjadi nilai untuk field Dukuh.
> artinya, kalau ada data seperti 'Desa, Kecamatan' maka nilai Desa
akan menjadi nilai untuk field Dukuh.
2. 'kabupaten' selalu paling kanan
> artinya, kalau ada data seperti 'Dukuh, Desa' maka nilai Desa akan
menjadi nilai untuk field Kabupaten
3. dst dst

btw,
Untuk data Desa, kecamatan, dan kabupaten, biasanya sudah ada daftarnya
(minta ke depdagri kalau gak punya). Mestinya tabel referensi seperti ini
disertakan dan menjadi salah satu acuan untuk menentukan field desa, field
kecamatan, field kabupaten. Field dukuh bisa di dapat sebagai sisanya.

Regards,
Kid

2017-04-05 19:39 GMT+07:00 Kusnadi Bin zain kbinzain@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Maaf mungkin kasus seperti ini sudah pernah dibahas.
> mohon pencerahan untuk mengambil data Desa, Kecamatan dan kabupaten dalam
> sebuah data text yang dibatasi dengan tanda koma
>
>
> terima kasih
>
>
>

Wed Apr 5, 2017 7:21 pm (PDT) . Posted by:

"Ryan Sacth" ryan_sacth

Hai Kusnadi.
Ada 3 cara untuk melakukan hal tersebut.
1. Menggunakan rumus.

2. Menggunakan fitur Text to Column
3. Bikin manual (alias copy 1 per satu)

Tentunya cara ketiga tidak mungkin dilakukan jika datanya ada ribuan. hehehee...

Disini saya coba bantu dengan cara kedua yaitu menggunakan fitur Text to Column yang ada di Excel.

Pertama pastikan sumber data yang ingin di pisahkan bukan link dari rumus tetapi data asli. Blok semua kolom yang ingin dipisahkan (dalam file excelmu adalah E). Setelah diblok klik Tab DATA kemudian pilih Text to Column > Pilih delimited kemudian next > Pada bagian delimiter centang Comma > Next > Finish.

Cara lengkap bisa dilihat pada attachment.
Semoga membantu.

Terima Kasih.

--------------------------------------------
On Wed, 4/5/17, Kusnadi Bin zain kbinzain@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

Subject: [belajar-excel] Mengambil Desa, Kecamatan & Kabupaten [1 Attachment]
To: belajar-excel@yahoogroups.com
Date: Wednesday, April 5, 2017, 5:39 AM


 









Maaf
mungkin kasus seperti ini sudah pernah dibahas.mohon
pencerahan untuk mengambil data Desa, Kecamatan dan
kabupaten dalam sebuah data text yang dibatasi dengan tanda
koma

terima
kasih










#yiv8509335597 #yiv8509335597 --
#yiv8509335597ygrp-mkp {
border:1px solid #d8d8d8;font-family:Arial;margin:10px
0;padding:0 10px;}

#yiv8509335597 #yiv8509335597ygrp-mkp hr {
border:1px solid #d8d8d8;}

#yiv8509335597 #yiv8509335597ygrp-mkp #yiv8509335597hd {
color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}

#yiv8509335597 #yiv8509335597ygrp-mkp #yiv8509335597ads {
margin-bottom:10px;}

#yiv8509335597 #yiv8509335597ygrp-mkp .yiv8509335597ad {
padding:0 0;}

#yiv8509335597 #yiv8509335597ygrp-mkp .yiv8509335597ad p {
margin:0;}

#yiv8509335597 #yiv8509335597ygrp-mkp .yiv8509335597ad a {
color:#0000ff;text-decoration:none;}
#yiv8509335597 #yiv8509335597ygrp-sponsor
#yiv8509335597ygrp-lc {
font-family:Arial;}

#yiv8509335597 #yiv8509335597ygrp-sponsor
#yiv8509335597ygrp-lc #yiv8509335597hd {
margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}

#yiv8509335597 #yiv8509335597ygrp-sponsor
#yiv8509335597ygrp-lc .yiv8509335597ad {
margin-bottom:10px;padding:0 0;}

#yiv8509335597 #yiv8509335597actions {
font-family:Verdana;font-size:11px;padding:10px 0;}

#yiv8509335597 #yiv8509335597activity {
background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}

#yiv8509335597 #yiv8509335597activity span {
font-weight:700;}

#yiv8509335597 #yiv8509335597activity span:first-child {
text-transform:uppercase;}

#yiv8509335597 #yiv8509335597activity span a {
color:#5085b6;text-decoration:none;}

#yiv8509335597 #yiv8509335597activity span span {
color:#ff7900;}

#yiv8509335597 #yiv8509335597activity span
.yiv8509335597underline {
text-decoration:underline;}

#yiv8509335597 .yiv8509335597attach {
clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}

#yiv8509335597 .yiv8509335597attach div a {
text-decoration:none;}

#yiv8509335597 .yiv8509335597attach img {
border:none;padding-right:5px;}

#yiv8509335597 .yiv8509335597attach label {
display:block;margin-bottom:5px;}

#yiv8509335597 .yiv8509335597attach label a {
text-decoration:none;}

#yiv8509335597 blockquote {
margin:0 0 0 4px;}

#yiv8509335597 .yiv8509335597bold {
font-family:Arial;font-size:13px;font-weight:700;}

#yiv8509335597 .yiv8509335597bold a {
text-decoration:none;}

#yiv8509335597 dd.yiv8509335597last p a {
font-family:Verdana;font-weight:700;}

#yiv8509335597 dd.yiv8509335597last p span {
margin-right:10px;font-family:Verdana;font-weight:700;}

#yiv8509335597 dd.yiv8509335597last p
span.yiv8509335597yshortcuts {
margin-right:0;}

#yiv8509335597 div.yiv8509335597attach-table div div a {
text-decoration:none;}

#yiv8509335597 div.yiv8509335597attach-table {
width:400px;}

#yiv8509335597 div.yiv8509335597file-title a, #yiv8509335597
div.yiv8509335597file-title a:active, #yiv8509335597
div.yiv8509335597file-title a:hover, #yiv8509335597
div.yiv8509335597file-title a:visited {
text-decoration:none;}

#yiv8509335597 div.yiv8509335597photo-title a,
#yiv8509335597 div.yiv8509335597photo-title a:active,
#yiv8509335597 div.yiv8509335597photo-title a:hover,
#yiv8509335597 div.yiv8509335597photo-title a:visited {
text-decoration:none;}

#yiv8509335597 div#yiv8509335597ygrp-mlmsg
#yiv8509335597ygrp-msg p a span.yiv8509335597yshortcuts {
font-family:Verdana;font-size:10px;font-weight:normal;}

#yiv8509335597 .yiv8509335597green {
color:#628c2a;}

#yiv8509335597 .yiv8509335597MsoNormal {
margin:0 0 0 0;}

#yiv8509335597 o {
font-size:0;}

#yiv8509335597 #yiv8509335597photos div {
float:left;width:72px;}

#yiv8509335597 #yiv8509335597photos div div {
border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}

#yiv8509335597 #yiv8509335597photos div label {
color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}

#yiv8509335597 #yiv8509335597reco-category {
font-size:77%;}

#yiv8509335597 #yiv8509335597reco-desc {
font-size:77%;}

#yiv8509335597 .yiv8509335597replbq {
margin:4px;}

#yiv8509335597 #yiv8509335597ygrp-actbar div a:first-child {
margin-right:2px;padding-right:5px;}

#yiv8509335597 #yiv8509335597ygrp-mlmsg {
font-size:13px;font-family:Arial, helvetica, clean,
sans-serif;}

#yiv8509335597 #yiv8509335597ygrp-mlmsg table {
font-size:inherit;font:100%;}

#yiv8509335597 #yiv8509335597ygrp-mlmsg select,
#yiv8509335597 input, #yiv8509335597 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}

#yiv8509335597 #yiv8509335597ygrp-mlmsg pre, #yiv8509335597
code {
font:115% monospace;}

#yiv8509335597 #yiv8509335597ygrp-mlmsg * {
line-height:1.22em;}

#yiv8509335597 #yiv8509335597ygrp-mlmsg #yiv8509335597logo {
padding-bottom:10px;}


#yiv8509335597 #yiv8509335597ygrp-msg p a {
font-family:Verdana;}

#yiv8509335597 #yiv8509335597ygrp-msg
p#yiv8509335597attach-count span {
color:#1E66AE;font-weight:700;}

#yiv8509335597 #yiv8509335597ygrp-reco
#yiv8509335597reco-head {
color:#ff7900;font-weight:700;}

#yiv8509335597 #yiv8509335597ygrp-reco {
margin-bottom:20px;padding:0px;}

#yiv8509335597 #yiv8509335597ygrp-sponsor #yiv8509335597ov
li a {
font-size:130%;text-decoration:none;}

#yiv8509335597 #yiv8509335597ygrp-sponsor #yiv8509335597ov
li {
font-size:77%;list-style-type:square;padding:6px 0;}

#yiv8509335597 #yiv8509335597ygrp-sponsor #yiv8509335597ov
ul {
margin:0;padding:0 0 0 8px;}

#yiv8509335597 #yiv8509335597ygrp-text {
font-family:Georgia;}

#yiv8509335597 #yiv8509335597ygrp-text p {
margin:0 0 1em 0;}

#yiv8509335597 #yiv8509335597ygrp-text tt {
font-size:120%;}

#yiv8509335597 #yiv8509335597ygrp-vital ul li:last-child {
border-right:none !important;
}
#yiv8509335597

Wed Apr 5, 2017 7:00 pm (PDT) . Posted by:

"Heru Safrudin" heru.safrudin

Terima kasih Pak Nang Agus

<ymsgr:sendIM?heru.safrudin> Heru SafrudinBISI,Heru Safrudin,YM online

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 05 April 2017 13:48
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Menemukan cell yang kosong [2 Attachments]

coba pelajari: link ini <http://www.cpearson.com/excel/errorhandling.htm> atau ini <http://www.excel-easy.com/vba/examples/error-handling.html> atau dari mas Kid di <http://www.mail-archive.com/belajar-excel@yahoogroups.com/msg15044.html> sini

On 05/04/2017 11:52, 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel] wrote:

Dear All,

Untuk menemukan cell yang kosong dalam range saya tentukan dengan kode vba sebagai berikut :

Range("A1").Resize(Range("A1").CurrentRegion.Rows.Count,Range("A1").CurrentRegion.Columns.Count).SpecialCells(xlCellTypeBlanks).select

Dengan prosedur diatas cell yg kosong akan ter-select, tapi jika tidak ada cell yang kosong maka akan muncul pesan Error

Pertanyaan saya bagaimana cara men-trap error prosedur diatas jika tidak ditemukan cell yang kosong ?

Mohon pengetahuannya

Terima kasih

Heru Safrudin

<ymsgr:sendIM?heru.safrudin>; Heru SafrudinBISI,HeruSafrudin,YM online

Wed Apr 5, 2017 7:00 pm (PDT) . Posted by:

"Heru Safrudin" heru.safrudin

Yth. Mr. Kid yang baik,

Terima kasih atas ilmunya yang sangat bermanfaat.

Pernjelasan tambahan:

Maaf Mr. Kid kalau pertanyaan saya salah, sebenarnya saya ingin membuat form di lembar kerja excel, dimana range yang saya tentukan yaitu

Range("A1").Resize(Range("A1").CurrentRegion… (sebenarnya bukan range A1 yang berarti keseluruhan/full currentregion)

Tidak boleh kosong atau kata lain semua cell harus terisi

Saya maksudkan sebelum menekan tombol Submit akan ada cek apakah range yang saya tentukan sudah terisi semua

Demikian Terima kasih

Heru Safrudin

<ymsgr:sendIM?heru.safrudin> Heru SafrudinBISI,Heru Safrudin,YM online

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 05 April 2017 13:06
To: BeExcel
Subject: Re: [belajar-excel] Menemukan cell yang kosong

Hai Heru,

Baris kode :

Range("A1").Resize(Range("A1").CurrentRegion.Rows.Count,Range("A1").CurrentRegion.Columns.Count).SpecialCells(xlCellTypeBlanks).select

tugasnya untuk select yang blank (kalau ada).

Bagian :

Range("A1").CurrentRegion untuk select all yang berjejeran ada isinya

.Rows.Count untuk mendapatkan jumlah baris

.Columns.Count untuk mendapatkan jumlah kolom

Bagian :
Range("A1").Resize(Range("A1").CurrentRegion.Rows.Count,Range("A1").CurrentRegion.Columns.Count)

sebenarnya adalah :
Range("A1").CurrentRegion

*** sampai disini ***

baris kode tersebut bisa diganti menjadi :
Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).select

**********************

Bagian :

.select untuk memblok range

Andai sudah tahu akan diapakan si cells blank itu, maka bisa jadi .select tidak diperlukan

Contoh :

yang blank akan diisi angka 0
Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).value=0

Bagian :

.value untuk menggunakan properti bernama Value yang bertugas sebagai wadah suatu nilai

.value=0 berarti menyimpan nilai 0 ke properti value dari objects yang terdefinisi sebagai

Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks)

Variabel sangatlah berguna.

dim rng as range

set rng=Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks)

Bahasa manusia :

"cel, atur supaya si rng berisi range yang blank [.SpecialCells(xlCellTypeBlanks)] dari semua range yang bersambungan [.CurrentRegion] dengan range A1 [Range("A1")]"

Karena si variabel rng sudah berisi yang blank saja, maka yang blank bisa diproses bermacam-macam

rng.value=0 'isi dengan angka 0

rng.font.bold=true 'font nya di bold

dan sebagainya hanya merujuk ke rng

Selain dengan variabel, beberapa proses juga bisa dilakukan dengan menggunakan blok with ... end with

with Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks)

.value=0

.font.bold=true

end with

--------------------------------

dah... sekarang kembali ke kasus pokoknya
--------------------------------

trap error biasanya dengan klausa On Error

contoh :

1. Kalau terjadi error, abaikan saja dan proseslah baris kode berikutnya.

on error resume next

'baris kode yang kemungkinan bisa memicu error

'baris kode proses lainnya

2. Kalau terjadi error, langsung menuju baris label bernama ADA_ERROR

on error goto ADA_ERROR

'baris kode yang kemungkinan bisa memicu error

'baris kode proses lainnya

ADA_ERROR: 'label untuk tujuan melompati baris kode tertentu

'baris kode selanjutnya

3. mengembalikan trap error ke set default VB/VBA dengan :

on error goto 0 'kalau ada error yang balik ke baris error itu lagi

menghapus informasi error yang pernah terjadi dengan :

err.clear

> Contoh :

kalau memilih suatu range yang blank di suatu area range, bisa muncul error kalau ternyata tidak ada yang blank.

kalau tidak ada yang blank, prosesnya akan menampilkan print preview

kalau ada yang blank, prosesnya menampilkan pesan bahwa masih ada cells yang belum diisi

dim rng as range

on error resume next

set rng=Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks)

if rng is nothing then 'kalau variabel bernama rng gak ada isinya object rang tertentu, berarti gak ada yang blank

'lakukan print preview

rng.printpreview

else 'berarti ada yang blank, karena variabel rng ada isinya object range tertentu

msgbox "Masih ada cells yang belum diisi.",vbexclamation,"Ada blank"

endif

err.clear

on error goto 0

Baris kode berbunyi :
if rng is nothing then

bisa juga diganti dengan :

if err.number<>0 then

Regards,

Kid

2017-04-05 11:52 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

Dear All,

Untuk menemukan cell yang kosong dalam range saya tentukan dengan kode vba sebagai berikut :

Range("A1").Resize(Range("A1").CurrentRegion.Rows.Count,Range("A1").CurrentRegion.Columns.Count).SpecialCells(xlCellTypeBlanks).select

Dengan prosedur diatas cell yg kosong akan ter-select, tapi jika tidak ada cell yang kosong maka akan muncul pesan Error

Pertanyaan saya bagaimana cara men-trap error prosedur diatas jika tidak ditemukan cell yang kosong ?

Mohon pengetahuannya

Terima kasih

Heru Safrudin

Heru SafrudinBISI,Heru Safrudin,YM online

Wed Apr 5, 2017 8:09 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hai Heru,
Coba gunakan code ini untuk memastikan semua "sel_rujukan" dari Form (di Worksheet) terisi:If WorksheetFunction.CountA(Range("sel_rujukan")) < jumlah_cacah_sel_rujukan Then        MsgBox "Data belum diisi dengan lengkap !!!", vbExclamation, "ERROR MESSAGE"        Exit SubEnd If
Salam,HK

From: "'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 6 April 2017, 9:00
Subject: RE: [belajar-excel] Menemukan cell yang kosong

  Yth. Mr. Kid yang baik,   Terima kasih atas ilmunya yangsangat bermanfaat.   Pernjelasan tambahan: Maaf Mr. Kid kalau pertanyaan sayasalah, sebenarnya saya ingin membuat form di lembar kerja excel, dimana rangeyang saya tentukan yaitu Range("A1").Resize(Range("A1").CurrentRegion…(sebenarnya bukan range A1 yangberarti keseluruhan/full currentregion) Tidak boleh kosong atau kata lain semuacell harus terisi Saya maksudkan sebelum menekantombol Submit akan ada cek apakah range yang saya tentukan sudah terisi semua   Demikian Terima kasih   Heru Safrudin                
From: belajar-excel@yahoogroups.com[mailto:belajar-excel@yahoogroups.com]
Sent: 05 April 2017 13:06
To: BeExcel
Subject: Re: [belajar-excel] Menemukan cell yang kosong     HaiHeru, Baris kode : Range("A1").Resize(Range("A1").CurrentRegion.Rows.Count,Range("A1").CurrentRegion.Columns.Count).SpecialCells(xlCellTypeBlanks).select tugasnya untuk selectyang blank (kalau ada).   Bagian : Range("A1").CurrentRegion untukselect all yang berjejeran ada isinya .Rows.Count untuk mendapatkan jumlah baris .Columns.Count untuk mendapatkan jumlahkolom   Bagian :
Range("A1").Resize(Range("A1").CurrentRegion.Rows.Count,Range("A1").CurrentRegion.Columns.Count) sebenarnya adalah :
Range("A1").CurrentRegion   *** sampai disini *** baris kode tersebut bisadiganti menjadi :
Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).select ********************** Bagian : .select untuk memblok range Andai sudah tahu akandiapakan si cells blank itu, maka bisa jadi .select tidak diperlukan   Contoh : yang blank akan diisiangka 0
Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).value=0   Bagian : .value untuk menggunakan properti bernamaValue yang bertugas sebagai wadah suatu nilai .value=0 berarti menyimpan nilai 0 keproperti value dari objects yang terdefinisi sebagai Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks)   Variabel sangatlahberguna. dim rng as range set rng=Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks) Bahasa manusia : "cel, atur supaya sirng berisi range yang blank [.SpecialCells(xlCellTypeBlanks)]dari semua range yang bersambungan [.CurrentRegion] dengan range A1 [Range("A1")]"   Karena si variabel rng sudahberisi yang blank saja, maka yang blank bisa diproses bermacam-macam rng.value=0   'isi dengan angka 0 rng.font.bold=true   'font nya di bold dan sebagainya hanyamerujuk ke rng   Selain dengan variabel,beberapa proses juga bisa dilakukan dengan menggunakan blok with ... end with with Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks)       .value=0       .font.bold=true end with
-------------------------------- dah...sekarang kembali ke kasus pokoknya
-------------------------------- trap error biasanyadengan klausa On Error contoh : 1. Kalau terjadi error,abaikan saja dan proseslah baris kode berikutnya. on error resume next 'baris kode yangkemungkinan bisa memicu error 'bariskode proses lainnya 2. Kalau terjadi error,langsung menuju baris label bernama ADA_ERROR on error goto ADA_ERROR 'baris kode yangkemungkinan bisa memicu error 'baris kode proseslainnya ADA_ERROR:    'label untuk tujuan melompati baris kode tertentu 'bariskode selanjutnya 3. mengembalikan traperror ke set default VB/VBA dengan : onerror goto 0     'kalau ada error yang balik ke baris erroritu lagi menghapus informasi erroryang pernah terjadi dengan : err.clear > Contoh : kalau memilih suatu rangeyang blank di suatu area range, bisa muncul error kalau ternyata tidak ada yangblank. kalau tidak ada yangblank, prosesnya akan menampilkan print preview kalauada yang blank, prosesnya menampilkan pesan bahwa masih ada cells yang belumdiisi dim rng as range on error resume next set rng=Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks) if rng is nothingthen     'kalau variabel bernama rng gak ada isinya objectrang tertentu, berarti gak ada yang blank      'lakukan print preview      rng.printpreview else   'berartiada yang blank, karena variabel rng ada isinya object range tertentu      msgbox "Masih ada cells yang belum diisi.",vbexclamation,"Adablank" endif err.clear onerror goto 0 Baris kode berbunyi :
              if rng is nothing then bisa juga diganti dengan:               if err.number<>0 then Regards, Kid     2017-04-05 11:52GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id[belajar-excel] <belajar-excel@yahoogroups.com>:   Dear All,   Untuk menemukan cell yang kosongdalam range saya tentukan dengan kode vba sebagai berikut :   Range("A1").Resize(Range("A1").CurrentRegion.Rows.Count,Range("A1").CurrentRegion.Columns.Count).SpecialCells(xlCellTypeBlanks).select   Dengan prosedur diatas cell ygkosong akan ter-select, tapi jika tidak ada cell yang kosong maka akan munculpesan Error Pertanyaan saya bagaimana caramen-trap error prosedur diatas jika tidak ditemukan cell yang kosong ? Mohon pengetahuannya   Terima kasih Heru Safrudin                   #yiv0774196715 #yiv0774196715 -- #yiv0774196715ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0774196715 #yiv0774196715ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0774196715 #yiv0774196715ygrp-mkp #yiv0774196715hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv0774196715 #yiv0774196715ygrp-mkp #yiv0774196715ads {margin-bottom:10px;}#yiv0774196715 #yiv0774196715ygrp-mkp .yiv0774196715ad {padding:0 0;}#yiv0774196715 #yiv0774196715ygrp-mkp .yiv0774196715ad p {margin:0;}#yiv0774196715 #yiv0774196715ygrp-mkp .yiv0774196715ad a {color:#0000ff;text-decoration:none;}#yiv0774196715 #yiv0774196715ygrp-sponsor #yiv0774196715ygrp-lc {font-family:Arial;}#yiv0774196715 #yiv0774196715ygrp-sponsor #yiv0774196715ygrp-lc #yiv0774196715hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0774196715 #yiv0774196715ygrp-sponsor #yiv0774196715ygrp-lc .yiv0774196715ad {margin-bottom:10px;padding:0 0;}#yiv0774196715 #yiv0774196715actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0774196715 #yiv0774196715activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0774196715 #yiv0774196715activity span {font-weight:700;}#yiv0774196715 #yiv0774196715activity span:first-child {text-transform:uppercase;}#yiv0774196715 #yiv0774196715activity span a {color:#5085b6;text-decoration:none;}#yiv0774196715 #yiv0774196715activity span span {color:#ff7900;}#yiv0774196715 #yiv0774196715activity span .yiv0774196715underline {text-decoration:underline;}#yiv0774196715 .yiv0774196715attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv0774196715 .yiv0774196715attach div a {text-decoration:none;}#yiv0774196715 .yiv0774196715attach img {border:none;padding-right:5px;}#yiv0774196715 .yiv0774196715attach label {display:block;margin-bottom:5px;}#yiv0774196715 .yiv0774196715attach label a {text-decoration:none;}#yiv0774196715 blockquote {margin:0 0 0 4px;}#yiv0774196715 .yiv0774196715bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv0774196715 .yiv0774196715bold a {text-decoration:none;}#yiv0774196715 dd.yiv0774196715last p a {font-family:Verdana;font-weight:700;}#yiv0774196715 dd.yiv0774196715last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0774196715 dd.yiv0774196715last p span.yiv0774196715yshortcuts {margin-right:0;}#yiv0774196715 div.yiv0774196715attach-table div div a {text-decoration:none;}#yiv0774196715 div.yiv0774196715attach-table {width:400px;}#yiv0774196715 div.yiv0774196715file-title a, #yiv0774196715 div.yiv0774196715file-title a:active, #yiv0774196715 div.yiv0774196715file-title a:hover, #yiv0774196715 div.yiv0774196715file-title a:visited {text-decoration:none;}#yiv0774196715 div.yiv0774196715photo-title a, #yiv0774196715 div.yiv0774196715photo-title a:active, #yiv0774196715 div.yiv0774196715photo-title a:hover, #yiv0774196715 div.yiv0774196715photo-title a:visited {text-decoration:none;}#yiv0774196715 div#yiv0774196715ygrp-mlmsg #yiv0774196715ygrp-msg p a span.yiv0774196715yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0774196715 .yiv0774196715green {color:#628c2a;}#yiv0774196715 .yiv0774196715MsoNormal {margin:0 0 0 0;}#yiv0774196715 o {font-size:0;}#yiv0774196715 #yiv0774196715photos div {float:left;width:72px;}#yiv0774196715 #yiv0774196715photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv0774196715 #yiv0774196715photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0774196715 #yiv0774196715reco-category {font-size:77%;}#yiv0774196715 #yiv0774196715reco-desc {font-size:77%;}#yiv0774196715 .yiv0774196715replbq {margin:4px;}#yiv0774196715 #yiv0774196715ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv0774196715 #yiv0774196715ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv0774196715 #yiv0774196715ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv0774196715 #yiv0774196715ygrp-mlmsg select, #yiv0774196715 input, #yiv0774196715 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv0774196715 #yiv0774196715ygrp-mlmsg pre, #yiv0774196715 code {font:115% monospace;}#yiv0774196715 #yiv0774196715ygrp-mlmsg * {line-height:1.22em;}#yiv0774196715 #yiv0774196715ygrp-mlmsg #yiv0774196715logo {padding-bottom:10px;}#yiv0774196715 #yiv0774196715ygrp-msg p a {font-family:Verdana;}#yiv0774196715 #yiv0774196715ygrp-msg p#yiv0774196715attach-count span {color:#1E66AE;font-weight:700;}#yiv0774196715 #yiv0774196715ygrp-reco #yiv0774196715reco-head {color:#ff7900;font-weight:700;}#yiv0774196715 #yiv0774196715ygrp-reco {margin-bottom:20px;padding:0px;}#yiv0774196715 #yiv0774196715ygrp-sponsor #yiv0774196715ov li a {font-size:130%;text-decoration:none;}#yiv0774196715 #yiv0774196715ygrp-sponsor #yiv0774196715ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv0774196715 #yiv0774196715ygrp-sponsor #yiv0774196715ov ul {margin:0;padding:0 0 0 8px;}#yiv0774196715 #yiv0774196715ygrp-text {font-family:Georgia;}#yiv0774196715 #yiv0774196715ygrp-text p {margin:0 0 1em 0;}#yiv0774196715 #yiv0774196715ygrp-text tt {font-size:120%;}#yiv0774196715 #yiv0774196715ygrp-vital ul li:last-child {border-right:none !important;}#yiv0774196715

Wed Apr 5, 2017 8:28 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

hehehe...

gitu ya..
baiklah...

Boleh tahu gak, kalau mencoba 2 baris ini pada lembar kerja Anda, hasilnya
apa saja :
1. baris berbunyi :
Range("A1").Resize(Range("A1").CurrentRegion.Rows.Count,Rang
e("A1").CurrentRegion.Columns.Count).address

2. dan baris berbunyi :
Range("A1").CurrentRegion.address

Posting dimari hasilnya ya..
Terimakasih sebelumnya.

btw,
untuk obrolan pagi hari...

Beberapa kali tempo lalu-lalu banget (sampai lupa kapan), disarankan agar
menyusun dataset menggunakan kaidah tabel database.
Tapi kan terkadang tidak seluruh proses akan memproses tabel data pokok.
Seringnya, proses dilakukan terhadap dataset yang ditampilkan kepada user.
Untuk dataset yang bukan tabel data pokok, disarankan agar membatasi area
dataset dengan suatu cells kosong. Contohnya adalah seperti digambar
berikut ini :

​
> Fokus pada tabel yang ada di kolom A:C (karena tabel di kolom G:i
sebenarnya memiliki layout yang sama dengan tabel di kolom A:C)
Ada 4 contoh dataset. Semua area yang berwarna kuning adalah cells kosong
beneran (blanks)

Pada gambar yang bawah, ada baris total. Kadang tampilan kepada user
membutuhkan baris total tersebut.
Pada baris total tersebut, teks 'Total' tampak ditengah 2 buah cells, yaitu
range A6:B6.
Hal ini bisa jadi karena :
a. di-merge
atau
b. di atur agar kedua cells tersebut memiliki alignment horizontal berupa
center accross selection

> Menghindari error saat pencarian cells kosong (blanks) sejatinya bisa
dihindari jika area pencarian sudah dipastikan memiliki cells kosong yang
tetap.
Misalnya, pada datasets yang ada di kolom A:C tersebut, sudah pasti ada
cells kosong di baris ke-5, sebanyak jumlah kolom dataset.
Nah...
baris kode :
Range("a1").currentregion 'akan menghasilkan range A1:C4
Range("g3").currentregion 'akan menghasilkan range G3:i6

berhubung dibutuhkan cells kosong yang pasti tetap jumlahnya dan baris
pertama adalah header, maka area pencarian sebaiknya A2:C5 atau G4:i7 yang
pasti memiliki cells kosong sebanyak jumlah kolom area pencarian. Area
tersebut didapat dari hasil currentregion yang kemudian di-offset +1 baris.
baris kodenya :
Range("a1").currentregion.offset(1)
Range("g3").currentregion.offset(1)

Jumlah cells kosong yang sudah pasti adalah sebanyak jumlah kolom dari area
pencarian.
baris kodenya :
Range("a1").currentregion.columns.count
Range("g3").currentregion.columns.count

Jumlah cells kosong di area pencarian (termasuk cells kosong yang sudah
pasti sebanyak jumlah kolom area pencarian) adalah :
Range("a1").currentregion.offset(1).specialcells(xlCellTypeBlanks).count
'tidak akan pernah menghasilkan error karena pasti ada, minimal baris
terbawah
Range("g3").currentregion.offset(1).specialcells(xlCellTypeBlanks).count
'tidak akan pernah menghasilkan error karena pasti ada, minimal baris
terbawah

Jadi, kalau mau cek ada cells kosong atau tidak, lalu jika ada cells kosong
akan keluar dari proses disertai pesan, bentuknya bisa menjadi :
with range("a1").currentregion.offset(1)
if .count > .columns.count then 'ada cells kosong, karena ada lebih
dari jumlah kolom area pencarian
msgbox "Tidak boleh ada yang kosong",vbexclamation,"Cek isian"
exit sub
endif
end with
*** untuk dataset di G3 bisa dibuat sendiri ya ***

> Kalau kolom kuncinya hanya 2 kolom pertama dan tidak boleh ada yang kosong
Area pencariannya disesuaikan agar merujuk ke kolom-kolom kunci saja.
Misal karena kolom kunci adalah *2* kolom pertama
with range("a1").currentregion.offset(1).resize(,*2*)
if .count > .columns.count then 'ada cells kosong, karena ada lebih
dari jumlah kolom area pencarian
msgbox "Tidak boleh ada yang kosong",vbexclamation,"Cek isian"
exit sub
endif
end with
*** hmmm.... yang diubah hanya 1 part dari sekiun baris kode bukan ? ****

> Kalau kolom kuncinya hanya 1 kolom tapi kolom ke-2
Area pencariannya disesuaikan menjadi 1 kolom lalu digeser ke kolom yang
dibutuhkan.
Misal karena kolom kunci adalah 1 kolom di kolom ke-2 atau kolom B.
Artinya, area pencarian disesuaikan menjadi 1 kolom dengan .Resize(,1)
Lalu digeser ke kolom ke-2 (kolom B), yaitu dari kolom A lompat +1 kolom
agar sampai kolom B dengan *.Offset(0,1)*
Maka jadinya begini :
with range("a1").currentregion.offset(1).resize(,*1*)*.OFFSET(0,1)*
if .count > .columns.count then 'ada cells kosong, karena ada lebih
dari jumlah kolom area pencarian
msgbox "Tidak boleh ada yang kosong",vbexclamation,"Cek isian"
exit sub
endif
end with
*** hmmm.... yang diubah tetap hanya 1 part dari sekiun baris kode bukan ?
****
>>> tapi, kurang cakep kalau ada offset 2 bijik seperti itu, jadi
disederhanakan menjadi :
with range("a1").currentregion.offset(1*,1*).resize(,*1*)
if .count > .columns.count then 'ada cells kosong, karena ada lebih
dari jumlah kolom area pencarian
msgbox "Tidak boleh ada yang kosong",vbexclamation,"Cek isian"
exit sub
endif
end with
>>> Lumayan cakep lah...

hehehe...
Tapi pada kondisi ada baris total yang selalu rapat dengan si dataset,
ceritanya akan berbeda sedikit.
Contoh :

​> Perhatian khusus pada area baris total :
1. Jika baris total ada yang di-merge cells, maka semua area mergecells itu
berstatus blanks
Contoh : Baris total di A5:C5 memiliki area di-merge berupa 2 cells di
merge cells pada A5:B5 dan cells lainnya di baris tersebut ada isinya
(misalnya berisi formula Sum), berarti ada penambahan *2* cells kosong
with range("a1").currentregion.offset(1)
if .count > .columns.count *+ 2* then 'ada cells kosong, karena ada
lebih dari jumlah kolom area pencarian
msgbox "Tidak boleh ada yang kosong",vbexclamation,"Cek isian"
exit sub
endif
end with

2. Jika baris total ada yang diatur alignment horizontal center accross
selection, maka di baris itu ada 1 cells tempat penulisan kata 'Total' yang
tidak blank
Contoh : Baris total di A5:C5 memiliki area yang diatur dengan alignment
horizontal center accross selection berupa *2 cells pada A5:B5* dan cells
lainnya di baris tersebut ada isinya (misalnya berisi formula Sum), berarti
ada penambahan *1* cells kosong
with range("a1").currentregion.offset(1)
if .count > .columns.count *+ (2 - 1)* then 'ada cells kosong, karena
ada lebih dari jumlah kolom area pencarian
msgbox "Tidak boleh ada yang kosong",vbexclamation,"Cek isian"
exit sub
endif
end with

Yang perlu diingat, selain dengan CurrentRegion, bisa dijuga dengan cara
yang lain. Tapi prinsipnya adalah selalu memastikan area pencarian diatur
melingkupi sejumlah cells yang beneran masih kosong.

Regards,
Kid

2017-04-06 8:48 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Yth. Mr. Kid yang baik,
>
>
>
> Terima kasih atas ilmunya yang sangat bermanfaat.
>
>
>
> Pernjelasan tambahan:
>
> Maaf Mr. Kid kalau pertanyaan saya salah, sebenarnya saya ingin membuat
> form di lembar kerja excel, dimana range yang saya tentukan yaitu
>
> Range("A1").Resize(Range("A1").CurrentRegion… (sebenarnya bukan range A1
> yang berarti keseluruhan/full currentregion)
>
> Tidak boleh kosong atau kata lain semua cell harus terisi
>
> Saya maksudkan sebelum menekan tombol Submit akan ada cek apakah range
> yang saya tentukan sudah terisi semua
>
>
>
> Demikian Terima kasih
>
>
>
> Heru Safrudin
>
> [image: Heru Safrudin][image: BISI,Heru Safrudin,YM online]
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogro
> ups.com]
> *Sent:* 05 April 2017 13:06
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Menemukan cell yang kosong
>
>
>
>
>
> Hai Heru,
>
> Baris kode :
>
> Range("A1").Resize(Range("A1").CurrentRegion.Rows.Count,Rang
> e("A1").CurrentRegion.Columns.Count).SpecialCells(xlCellTypeBlanks).select
>
> tugasnya untuk select yang blank (kalau ada).
>
>
>
> Bagian :
>
> Range("A1").CurrentRegion untuk select all yang berjejeran ada isinya
>
> .Rows.Count untuk mendapatkan jumlah baris
>
> .Columns.Count untuk mendapatkan jumlah kolom
>
>
>
> Bagian :
> Range("A1").Resize(Range("A1").CurrentRegion.Rows.Count,Rang
> e("A1").CurrentRegion.Columns.Count)
>
> sebenarnya adalah :
> Range("A1").CurrentRegion
>
>
>
> *** sampai disini ***
>
> baris kode tersebut bisa diganti menjadi :
> Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).select
>
> **********************
>
> Bagian :
>
> .select untuk memblok range
>
> Andai sudah tahu akan diapakan si cells blank itu, maka bisa jadi .select
> tidak diperlukan
>
>
>
> Contoh :
>
> yang blank akan diisi angka 0
> Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).value=0
>
>
>
> Bagian :
>
> .value untuk menggunakan properti bernama Value yang bertugas sebagai
> wadah suatu nilai
>
> .value=0 berarti menyimpan nilai 0 ke properti value dari objects yang
> terdefinisi sebagai
>
> Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks)
>
>
>
> Variabel sangatlah berguna.
>
> dim rng as range
>
> set rng=Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks)
>
> Bahasa manusia :
>
> "cel, atur supaya si rng berisi range yang blank [
> .SpecialCells(xlCellTypeBlanks)] dari semua range yang bersambungan [
> .CurrentRegion] dengan range A1 [Range("A1")]"
>
>
>
> Karena si variabel rng sudah berisi yang blank saja, maka yang blank bisa
> diproses bermacam-macam
>
> rng.value=0 'isi dengan angka 0
>
> rng.font.bold=true 'font nya di bold
>
> dan sebagainya hanya merujuk ke rng
>
>
>
> Selain dengan variabel, beberapa proses juga bisa dilakukan dengan
> menggunakan blok with ... end with
>
> with Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks)
>
> .value=0
>
> .font.bold=true
>
> end with
>
>
> --------------------------------
>
> dah... sekarang kembali ke kasus pokoknya
> --------------------------------
>
> trap error biasanya dengan klausa On Error
>
> contoh :
>
> 1. Kalau terjadi error, abaikan saja dan proseslah baris kode berikutnya.
>
> on error resume next
>
> 'baris kode yang kemungkinan bisa memicu error
>
> 'baris kode proses lainnya
>
> 2. Kalau terjadi error, langsung menuju baris label bernama ADA_ERROR
>
> on error goto ADA_ERROR
>
> 'baris kode yang kemungkinan bisa memicu error
>
> 'baris kode proses lainnya
>
> ADA_ERROR: 'label untuk tujuan melompati baris kode tertentu
>
> 'baris kode selanjutnya
>
> 3. mengembalikan trap error ke set default VB/VBA dengan :
>
> on error goto 0 'kalau ada error yang balik ke baris error itu lagi
>
> menghapus informasi error yang pernah terjadi dengan :
>
> err.clear
>
> > Contoh :
>
> kalau memilih suatu range yang blank di suatu area range, bisa muncul
> error kalau ternyata tidak ada yang blank.
>
> kalau tidak ada yang blank, prosesnya akan menampilkan print preview
>
> kalau ada yang blank, prosesnya menampilkan pesan bahwa masih ada cells
> yang belum diisi
>
> dim rng as range
>
> on error resume next
>
> set rng=Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks)
>
> if rng is nothing then 'kalau variabel bernama rng gak ada isinya
> object rang tertentu, berarti gak ada yang blank
>
> 'lakukan print preview
>
> rng.printpreview
>
> else 'berarti ada yang blank, karena variabel rng ada isinya object
> range tertentu
>
> msgbox "Masih ada cells yang belum diisi.",vbexclamation,"Ada blank"
>
> endif
>
> err.clear
>
> on error goto 0
>
> Baris kode berbunyi :
> if rng is nothing then
>
> bisa juga diganti dengan :
>
> if err.number<>0 then
>
> Regards,
>
> Kid
>
>
>
>
>
> 2017-04-05 11:52 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.c
> o.id [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear All,
>
>
>
> Untuk menemukan cell yang kosong dalam range saya tentukan dengan kode vba
> sebagai berikut :
>
>
>
> Range("A1").Resize(Range("A1").CurrentRegion.Rows.Count,Rang
> e("A1").CurrentRegion.Columns.Count).SpecialCells(xlCellTypeBlanks).select
>
>
>
> Dengan prosedur diatas cell yg kosong akan ter-select, tapi jika tidak ada
> cell yang kosong maka akan muncul pesan Error
>
> Pertanyaan saya bagaimana cara men-trap error prosedur diatas jika tidak
> ditemukan cell yang kosong ?
>
> Mohon pengetahuannya
>
>
>
> Terima kasih
>
> Heru Safrudin
>
> [image: Heru Safrudin][image: BISI,Heru Safrudin,YM online]
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

Wed Apr 5, 2017 9:44 pm (PDT) . Posted by:

"Heru Safrudin" heru.safrudin

Terima kasih Pak Hendrik atas ilmunya

<ymsgr:sendIM?heru.safrudin> Heru SafrudinBISI,Heru Safrudin,YM online

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 06 April 2017 10:09
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Menemukan cell yang kosong [3 Attachments]

Hai Heru,

Coba gunakan code ini untuk memastikan semua "sel_rujukan" dari Form (di Worksheet) terisi:

If WorksheetFunction.CountA(Range("sel_rujukan")) < jumlah_cacah_sel_rujukan Then

MsgBox "Data belum diisi dengan lengkap !!!", vbExclamation, "ERROR MESSAGE"

Exit Sub

End If

Salam,

HK

_____

From: "'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 6 April 2017, 9:00
Subject: RE: [belajar-excel] Menemukan cell yang kosong

Yth. Mr. Kid yang baik,

Terima kasih atas ilmunya yang sangat bermanfaat.

Pernjelasan tambahan:

Maaf Mr. Kid kalau pertanyaan saya salah, sebenarnya saya ingin membuat form di lembar kerja excel, dimana range yang saya tentukan yaitu

Range("A1").Resize(Range("A1").CurrentRegion… (sebenarnya bukan range A1 yang berarti keseluruhan/full currentregion)

Tidak boleh kosong atau kata lain semua cell harus terisi

Saya maksudkan sebelum menekan tombol Submit akan ada cek apakah range yang saya tentukan sudah terisi semua

Demikian Terima kasih

Heru Safrudin

<ymsgr:sendIM?heru.safrudin> Heru SafrudinBISI,Heru Safrudin,YM online

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 05 April 2017 13:06
To: BeExcel
Subject: Re: [belajar-excel] Menemukan cell yang kosong

Hai Heru,

Baris kode :

Range("A1").Resize(Range("A1").CurrentRegion.Rows.Count,Range("A1").CurrentRegion.Columns.Count).SpecialCells(xlCellTypeBlanks).select

tugasnya untuk select yang blank (kalau ada).

Bagian :

Range("A1").CurrentRegion untuk select all yang berjejeran ada isinya

.Rows.Count untuk mendapatkan jumlah baris

.Columns.Count untuk mendapatkan jumlah kolom

Bagian :
Range("A1").Resize(Range("A1").CurrentRegion.Rows.Count,Range("A1").CurrentRegion.Columns.Count)

sebenarnya adalah :
Range("A1").CurrentRegion

*** sampai disini ***

baris kode tersebut bisa diganti menjadi :
Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).select

**********************

Bagian :

.select untuk memblok range

Andai sudah tahu akan diapakan si cells blank itu, maka bisa jadi .select tidak diperlukan

Contoh :

yang blank akan diisi angka 0
Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).value=0

Bagian :

.value untuk menggunakan properti bernama Value yang bertugas sebagai wadah suatu nilai

.value=0 berarti menyimpan nilai 0 ke properti value dari objects yang terdefinisi sebagai

Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks)

Variabel sangatlah berguna.

dim rng as range

set rng=Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks)

Bahasa manusia :

"cel, atur supaya si rng berisi range yang blank [.SpecialCells(xlCellTypeBlanks)] dari semua range yang bersambungan [.CurrentRegion] dengan range A1 [Range("A1")]"

Karena si variabel rng sudah berisi yang blank saja, maka yang blank bisa diproses bermacam-macam

rng.value=0 'isi dengan angka 0

rng.font.bold=true 'font nya di bold

dan sebagainya hanya merujuk ke rng

Selain dengan variabel, beberapa proses juga bisa dilakukan dengan menggunakan blok with ... end with

with Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks)

.value=0

.font.bold=true

end with

--------------------------------

dah... sekarang kembali ke kasus pokoknya
--------------------------------

trap error biasanya dengan klausa On Error

contoh :

1. Kalau terjadi error, abaikan saja dan proseslah baris kode berikutnya.

on error resume next

'baris kode yang kemungkinan bisa memicu error

'baris kode proses lainnya

2. Kalau terjadi error, langsung menuju baris label bernama ADA_ERROR

on error goto ADA_ERROR

'baris kode yang kemungkinan bisa memicu error

'baris kode proses lainnya

ADA_ERROR: 'label untuk tujuan melompati baris kode tertentu

'baris kode selanjutnya

3. mengembalikan trap error ke set default VB/VBA dengan :

on error goto 0 'kalau ada error yang balik ke baris error itu lagi

menghapus informasi error yang pernah terjadi dengan :

err.clear

> Contoh :

kalau memilih suatu range yang blank di suatu area range, bisa muncul error kalau ternyata tidak ada yang blank.

kalau tidak ada yang blank, prosesnya akan menampilkan print preview

kalau ada yang blank, prosesnya menampilkan pesan bahwa masih ada cells yang belum diisi

dim rng as range

on error resume next

set rng=Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks)

if rng is nothing then 'kalau variabel bernama rng gak ada isinya object rang tertentu, berarti gak ada yang blank

'lakukan print preview

rng.printpreview

else 'berarti ada yang blank, karena variabel rng ada isinya object range tertentu

msgbox "Masih ada cells yang belum diisi.",vbexclamation,"Ada blank"

endif

err.clear

on error goto 0

Baris kode berbunyi :
if rng is nothing then

bisa juga diganti dengan :

if err.number<>0 then

Regards,

Kid

2017-04-05 11:52 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

Dear All,

Untuk menemukan cell yang kosong dalam range saya tentukan dengan kode vba sebagai berikut :

Range("A1").Resize(Range("A1").CurrentRegion.Rows.Count,Range("A1").CurrentRegion.Columns.Count).SpecialCells(xlCellTypeBlanks).select

Dengan prosedur diatas cell yg kosong akan ter-select, tapi jika tidak ada cell yang kosong maka akan muncul pesan Error

Pertanyaan saya bagaimana cara men-trap error prosedur diatas jika tidak ditemukan cell yang kosong ?

Mohon pengetahuannya

Terima kasih

Heru Safrudin

Heru SafrudinBISI,Heru Safrudin,YM online

Wed Apr 5, 2017 7:10 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Coba baca coretan Mr. Kid di blog be-excel.
Salam,HK

From: "rizaekaryuga@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 4 April 2017, 14:30
Subject: [belajar-excel] Mau Belajar VB

  Assalaamu'alaikum Wr Wb
Yth. Rekan2
Saya baru mau belajar VB ada rekomendasi buku gx yang isinya cara-cara buat subscript gitu dari dasar kayak cara men-sort suatu range tertentu dan yang lainnya. Terimakasih

Wassalaamu&#39;alaikum Wr Wb

#yiv2201149160 #yiv2201149160 -- #yiv2201149160ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2201149160 #yiv2201149160ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2201149160 #yiv2201149160ygrp-mkp #yiv2201149160hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2201149160 #yiv2201149160ygrp-mkp #yiv2201149160ads {margin-bottom:10px;}#yiv2201149160 #yiv2201149160ygrp-mkp .yiv2201149160ad {padding:0 0;}#yiv2201149160 #yiv2201149160ygrp-mkp .yiv2201149160ad p {margin:0;}#yiv2201149160 #yiv2201149160ygrp-mkp .yiv2201149160ad a {color:#0000ff;text-decoration:none;}#yiv2201149160 #yiv2201149160ygrp-sponsor #yiv2201149160ygrp-lc {font-family:Arial;}#yiv2201149160 #yiv2201149160ygrp-sponsor #yiv2201149160ygrp-lc #yiv2201149160hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2201149160 #yiv2201149160ygrp-sponsor #yiv2201149160ygrp-lc .yiv2201149160ad {margin-bottom:10px;padding:0 0;}#yiv2201149160 #yiv2201149160actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2201149160 #yiv2201149160activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2201149160 #yiv2201149160activity span {font-weight:700;}#yiv2201149160 #yiv2201149160activity span:first-child {text-transform:uppercase;}#yiv2201149160 #yiv2201149160activity span a {color:#5085b6;text-decoration:none;}#yiv2201149160 #yiv2201149160activity span span {color:#ff7900;}#yiv2201149160 #yiv2201149160activity span .yiv2201149160underline {text-decoration:underline;}#yiv2201149160 .yiv2201149160attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2201149160 .yiv2201149160attach div a {text-decoration:none;}#yiv2201149160 .yiv2201149160attach img {border:none;padding-right:5px;}#yiv2201149160 .yiv2201149160attach label {display:block;margin-bottom:5px;}#yiv2201149160 .yiv2201149160attach label a {text-decoration:none;}#yiv2201149160 blockquote {margin:0 0 0 4px;}#yiv2201149160 .yiv2201149160bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2201149160 .yiv2201149160bold a {text-decoration:none;}#yiv2201149160 dd.yiv2201149160last p a {font-family:Verdana;font-weight:700;}#yiv2201149160 dd.yiv2201149160last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2201149160 dd.yiv2201149160last p span.yiv2201149160yshortcuts {margin-right:0;}#yiv2201149160 div.yiv2201149160attach-table div div a {text-decoration:none;}#yiv2201149160 div.yiv2201149160attach-table {width:400px;}#yiv2201149160 div.yiv2201149160file-title a, #yiv2201149160 div.yiv2201149160file-title a:active, #yiv2201149160 div.yiv2201149160file-title a:hover, #yiv2201149160 div.yiv2201149160file-title a:visited {text-decoration:none;}#yiv2201149160 div.yiv2201149160photo-title a, #yiv2201149160 div.yiv2201149160photo-title a:active, #yiv2201149160 div.yiv2201149160photo-title a:hover, #yiv2201149160 div.yiv2201149160photo-title a:visited {text-decoration:none;}#yiv2201149160 div#yiv2201149160ygrp-mlmsg #yiv2201149160ygrp-msg p a span.yiv2201149160yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2201149160 .yiv2201149160green {color:#628c2a;}#yiv2201149160 .yiv2201149160MsoNormal {margin:0 0 0 0;}#yiv2201149160 o {font-size:0;}#yiv2201149160 #yiv2201149160photos div {float:left;width:72px;}#yiv2201149160 #yiv2201149160photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv2201149160 #yiv2201149160photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2201149160 #yiv2201149160reco-category {font-size:77%;}#yiv2201149160 #yiv2201149160reco-desc {font-size:77%;}#yiv2201149160 .yiv2201149160replbq {margin:4px;}#yiv2201149160 #yiv2201149160ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2201149160 #yiv2201149160ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2201149160 #yiv2201149160ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2201149160 #yiv2201149160ygrp-mlmsg select, #yiv2201149160 input, #yiv2201149160 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2201149160 #yiv2201149160ygrp-mlmsg pre, #yiv2201149160 code {font:115% monospace;}#yiv2201149160 #yiv2201149160ygrp-mlmsg * {line-height:1.22em;}#yiv2201149160 #yiv2201149160ygrp-mlmsg #yiv2201149160logo {padding-bottom:10px;}#yiv2201149160 #yiv2201149160ygrp-msg p a {font-family:Verdana;}#yiv2201149160 #yiv2201149160ygrp-msg p#yiv2201149160attach-count span {color:#1E66AE;font-weight:700;}#yiv2201149160 #yiv2201149160ygrp-reco #yiv2201149160reco-head {color:#ff7900;font-weight:700;}#yiv2201149160 #yiv2201149160ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2201149160 #yiv2201149160ygrp-sponsor #yiv2201149160ov li a {font-size:130%;text-decoration:none;}#yiv2201149160 #yiv2201149160ygrp-sponsor #yiv2201149160ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2201149160 #yiv2201149160ygrp-sponsor #yiv2201149160ov ul {margin:0;padding:0 0 0 8px;}#yiv2201149160 #yiv2201149160ygrp-text {font-family:Georgia;}#yiv2201149160 #yiv2201149160ygrp-text p {margin:0 0 1em 0;}#yiv2201149160 #yiv2201149160ygrp-text tt {font-size:120%;}#yiv2201149160 #yiv2201149160ygrp-vital ul li:last-child {border-right:none !important;}#yiv2201149160

Wed Apr 5, 2017 8:33 pm (PDT) . Posted by:

"Muhammad Riza Perdana Kusuma" rizaekaryuga

siap makasih om infonya


On Thursday, April 6, 2017 10:11 AM, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Coba baca coretan Mr. Kid di blog be-excel.
Salam,HK

From: "rizaekaryuga@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 4 April 2017, 14:30
Subject: [belajar-excel] Mau Belajar VB

  Assalaamu'alaikum Wr Wb
Yth. Rekan2
Saya baru mau belajar VB ada rekomendasi buku gx yang isinya cara-cara buat subscript gitu dari dasar kayak cara men-sort suatu range tertentu dan yang lainnya. Terimakasih

Wassalaamu&#39;alaikum Wr Wb

#yiv7434052894 #yiv7434052894 -- #yiv7434052894ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7434052894 #yiv7434052894ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7434052894 #yiv7434052894ygrp-mkp #yiv7434052894hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7434052894 #yiv7434052894ygrp-mkp #yiv7434052894ads {margin-bottom:10px;}#yiv7434052894 #yiv7434052894ygrp-mkp .yiv7434052894ad {padding:0 0;}#yiv7434052894 #yiv7434052894ygrp-mkp .yiv7434052894ad p {margin:0;}#yiv7434052894 #yiv7434052894ygrp-mkp .yiv7434052894ad a {color:#0000ff;text-decoration:none;}#yiv7434052894 #yiv7434052894ygrp-sponsor #yiv7434052894ygrp-lc {font-family:Arial;}#yiv7434052894 #yiv7434052894ygrp-sponsor #yiv7434052894ygrp-lc #yiv7434052894hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7434052894 #yiv7434052894ygrp-sponsor #yiv7434052894ygrp-lc .yiv7434052894ad {margin-bottom:10px;padding:0 0;}#yiv7434052894 #yiv7434052894actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7434052894 #yiv7434052894activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7434052894 #yiv7434052894activity span {font-weight:700;}#yiv7434052894 #yiv7434052894activity span:first-child {text-transform:uppercase;}#yiv7434052894 #yiv7434052894activity span a {color:#5085b6;text-decoration:none;}#yiv7434052894 #yiv7434052894activity span span {color:#ff7900;}#yiv7434052894 #yiv7434052894activity span .yiv7434052894underline {text-decoration:underline;}#yiv7434052894 .yiv7434052894attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7434052894 .yiv7434052894attach div a {text-decoration:none;}#yiv7434052894 .yiv7434052894attach img {border:none;padding-right:5px;}#yiv7434052894 .yiv7434052894attach label {display:block;margin-bottom:5px;}#yiv7434052894 .yiv7434052894attach label a {text-decoration:none;}#yiv7434052894 blockquote {margin:0 0 0 4px;}#yiv7434052894 .yiv7434052894bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7434052894 .yiv7434052894bold a {text-decoration:none;}#yiv7434052894 dd.yiv7434052894last p a {font-family:Verdana;font-weight:700;}#yiv7434052894 dd.yiv7434052894last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7434052894 dd.yiv7434052894last p span.yiv7434052894yshortcuts {margin-right:0;}#yiv7434052894 div.yiv7434052894attach-table div div a {text-decoration:none;}#yiv7434052894 div.yiv7434052894attach-table {width:400px;}#yiv7434052894 div.yiv7434052894file-title a, #yiv7434052894 div.yiv7434052894file-title a:active, #yiv7434052894 div.yiv7434052894file-title a:hover, #yiv7434052894 div.yiv7434052894file-title a:visited {text-decoration:none;}#yiv7434052894 div.yiv7434052894photo-title a, #yiv7434052894 div.yiv7434052894photo-title a:active, #yiv7434052894 div.yiv7434052894photo-title a:hover, #yiv7434052894 div.yiv7434052894photo-title a:visited {text-decoration:none;}#yiv7434052894 div#yiv7434052894ygrp-mlmsg #yiv7434052894ygrp-msg p a span.yiv7434052894yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7434052894 .yiv7434052894green {color:#628c2a;}#yiv7434052894 .yiv7434052894MsoNormal {margin:0 0 0 0;}#yiv7434052894 o {font-size:0;}#yiv7434052894 #yiv7434052894photos div {float:left;width:72px;}#yiv7434052894 #yiv7434052894photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv7434052894 #yiv7434052894photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7434052894 #yiv7434052894reco-category {font-size:77%;}#yiv7434052894 #yiv7434052894reco-desc {font-size:77%;}#yiv7434052894 .yiv7434052894replbq {margin:4px;}#yiv7434052894 #yiv7434052894ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7434052894 #yiv7434052894ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7434052894 #yiv7434052894ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7434052894 #yiv7434052894ygrp-mlmsg select, #yiv7434052894 input, #yiv7434052894 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7434052894 #yiv7434052894ygrp-mlmsg pre, #yiv7434052894 code {font:115% monospace;}#yiv7434052894 #yiv7434052894ygrp-mlmsg * {line-height:1.22em;}#yiv7434052894 #yiv7434052894ygrp-mlmsg #yiv7434052894logo {padding-bottom:10px;}#yiv7434052894 #yiv7434052894ygrp-msg p a {font-family:Verdana;}#yiv7434052894 #yiv7434052894ygrp-msg p#yiv7434052894attach-count span {color:#1E66AE;font-weight:700;}#yiv7434052894 #yiv7434052894ygrp-reco #yiv7434052894reco-head {color:#ff7900;font-weight:700;}#yiv7434052894 #yiv7434052894ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7434052894 #yiv7434052894ygrp-sponsor #yiv7434052894ov li a {font-size:130%;text-decoration:none;}#yiv7434052894 #yiv7434052894ygrp-sponsor #yiv7434052894ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7434052894 #yiv7434052894ygrp-sponsor #yiv7434052894ov ul {margin:0;padding:0 0 0 8px;}#yiv7434052894 #yiv7434052894ygrp-text {font-family:Georgia;}#yiv7434052894 #yiv7434052894ygrp-text p {margin:0 0 1em 0;}#yiv7434052894 #yiv7434052894ygrp-text tt {font-size:120%;}#yiv7434052894 #yiv7434052894ygrp-vital ul li:last-child {border-right:none !important;}#yiv7434052894

Wed Apr 5, 2017 8:28 pm (PDT) . Posted by:

"Tio Adi Bayu Adjie"

Salam BeExceller,
Saya sudah berhasil membuat textbox di Userform dengan code vba. Tapi setelah saya masukkan nilai di textbox, dan kemudian saya klik tombol "masukkan data" (masukkan data ke suatu cell di worksheets) ternyata tidak berhasil. Saya sudah coba berkali2 modif code vba "masukkan data" tetap gagal. Apakah ada yang salah di code vba "masukkan data" ? File terlampir.

Mohon pencerahannya.

Regards,

Wed Apr 5, 2017 9:44 pm (PDT) . Posted by:

"KESI VIZZIANTI"

Saya ada data seperti terlampir dan mau saya pindah di sheet dua dengan
memakai droplist, sehingga jika di C2 kita ketik modelnya maka semua part
akan pindah ke kolom yang di sediakan
mengikuti model dan urutan proses sesuai data di sheet1,

Ini di lakukan untuk mempermudah ketika hendak mencetak sesuai dengan model
tersebut

Berhubung saya lupa caranya Mohon bantuan rekan-rekan semua

Terima kasih
Kesi

Thu Apr 6, 2017 4:50 am (PDT) . Posted by:

"Sony Ario"

Halo Kesi,

Coba bantu sambil ber andai-andai. Andai saja data nya sudah berkaidah
database seperti file terlampir, mungkin akan lebih mudah. Sheet "Dbase"
pada file terlampir hanya proses copas sekena nya saja dari Sheet1 file
asli. Hasil nya di paste di Sheet "DetailByModel".

Mohon maaf kalau belum sesuai. Kita tunggu dari suhu yang lain.

Salam
Sony

*gnl-excelinfo.blogspot.co.id <http://gnl-excelinfo.blogspot.co.id>*

2017-04-06 9:59 GMT+07:00 KESI VIZZIANTI kesi.vizzianti@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
>
> Saya ada data seperti terlampir dan mau saya pindah di sheet dua dengan
> memakai droplist, sehingga jika di C2 kita ketik modelnya maka semua part
> akan pindah ke kolom yang di sediakan
> mengikuti model dan urutan proses sesuai data di sheet1,
>
> Ini di lakukan untuk mempermudah ketika hendak mencetak sesuai dengan
> model tersebut
>
> Berhubung saya lupa caranya Mohon bantuan rekan-rekan semua
>
> Terima kasih
> Kesi
>
>
>

Wed Apr 5, 2017 9:44 pm (PDT) . Posted by:

"Dayat" dayatshogun46

Semangat pagi

Mohon pencerahan dan bantuan para excel group, saya mendapatkan masalah pada link di salah satu file excel, dan ketika saya akan mematikan link tersebut (break link), ternyata tidak bisa, kira2 adakah solusi selain menghilangkan break link, padahal sudah di check rumusan yang berkaitan dengan lingk suatu data excel semua tidak ada yang konect, mulai dari formula ataupun name manager.

Salam
Nor Hidayat

Dikirim dari smartphone Sony Xperia™

"hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:

>Coba baca coretan Mr. Kid di blog be-excel.
>Salam,HK
>
> From: "rizaekaryuga@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
> To: belajar-excel@yahoogroups.com
> Sent: Tuesday, 4 April 2017, 14:30
> Subject: [belajar-excel] Mau Belajar VB
>
>  Assalaamu'alaikum Wr Wb
>Yth. Rekan2
>Saya baru mau belajar VB ada rekomendasi buku gx yang isinya cara-cara buat subscript gitu dari dasar kayak cara men-sort suatu range tertentu dan yang lainnya. Terimakasih
>
>
>Wassalaamu&#39;alaikum Wr Wb
>
> #yiv2201149160 #yiv2201149160 -- #yiv2201149160ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2201149160 #yiv2201149160ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2201149160 #yiv2201149160ygrp-mkp #yiv2201149160hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2201149160 #yiv2201149160ygrp-mkp #yiv2201149160ads {margin-bottom:10px;}#yiv2201149160 #yiv2201149160ygrp-mkp .yiv2201149160ad {padding:0 0;}#yiv2201149160 #yiv2201149160ygrp-mkp .yiv2201149160ad p {margin:0;}#yiv2201149160 #yiv2201149160ygrp-mkp .yiv2201149160ad a {color:#0000ff;text-decoration:none;}#yiv2201149160 #yiv2201149160ygrp-sponsor #yiv2201149160ygrp-lc {font-family:Arial;}#yiv2201149160 #yiv2201149160ygrp-sponsor #yiv2201149160ygrp-lc #yiv2201149160hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2201149160 #yiv2201149160ygrp-sponsor #yiv2201149160ygrp-lc .yiv2201149160ad {margin-bottom:10px;padding:0 0;}#yiv2201149160 #yiv2201149160actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2201149160 #yiv2201149160activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2201149160 #yiv2201149160activity span {font-weight:700;}#yiv2201149160 #yiv2201149160activity span:first-child {text-transform:uppercase;}#yiv2201149160 #yiv2201149160activity span a {color:#5085b6;text-decoration:none;}#yiv2201149160 #yiv2201149160activity span span {color:#ff7900;}#yiv2201149160 #yiv2201149160activity span .yiv2201149160underline {text-decoration:underline;}#yiv2201149160 .yiv2201149160attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2201149160 .yiv2201149160attach div a {text-decoration:none;}#yiv2201149160 .yiv2201149160attach img {border:none;padding-right:5px;}#yiv2201149160 .yiv2201149160attach label {display:block;margin-bottom:5px;}#yiv2201149160 .yiv2201149160attach label a {text-decoration:none;}#yiv2201149160 blockquote {margin:0 0 0 4px;}#yiv2201149160 .yiv2201149160bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2201149160 .yiv2201149160bold a {text-decoration:none;}#yiv2201149160 dd.yiv2201149160last p a {font-family:Verdana;font-weight:700;}#yiv2201149160 dd.yiv2201149160last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2201149160 dd.yiv2201149160last p span.yiv2201149160yshortcuts {margin-right:0;}#yiv2201149160 div.yiv2201149160attach-table div div a {text-decoration:none;}#yiv2201149160 div.yiv2201149160attach-table {width:400px;}#yiv2201149160 div.yiv2201149160file-title a, #yiv2201149160 div.yiv2201149160file-title a:active, #yiv2201149160 div.yiv2201149160file-title a:hover, #yiv2201149160 div.yiv2201149160file-title a:visited {text-decoration:none;}#yiv2201149160 div.yiv2201149160photo-title a, #yiv2201149160 div.yiv2201149160photo-title a:active, #yiv2201149160 div.yiv2201149160photo-title a:hover, #yiv2201149160 div.yiv2201149160photo-title a:visited {text-decoration:none;}#yiv2201149160 div#yiv2201149160ygrp-mlmsg #yiv2201149160ygrp-msg p a span.yiv2201149160yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2201149160 .yiv2201149160green {color:#628c2a;}#yiv2201149160 .yiv2201149160MsoNormal {margin:0 0 0 0;}#yiv2201149160 o {font-size:0;}#yiv2201149160 #yiv2201149160photos div {float:left;width:72px;}#yiv2201149160 #yiv2201149160photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv2201149160 #yiv2201149160photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2201149160 #yiv2201149160reco-category {font-size:77%;}#yiv2201149160 #yiv2201149160reco-desc {font-size:77%;}#yiv2201149160 .yiv2201149160replbq {margin:4px;}#yiv2201149160 #yiv2201149160ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2201149160 #yiv2201149160ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2201149160 #yiv2201149160ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2201149160 #yiv2201149160ygrp-mlmsg select, #yiv2201149160 input, #yiv2201149160 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2201149160 #yiv2201149160ygrp-mlmsg pre, #yiv2201149160 code {font:115% monospace;}#yiv2201149160 #yiv2201149160ygrp-mlmsg * {line-height:1.22em;}#yiv2201149160 #yiv2201149160ygrp-mlmsg #yiv2201149160logo {padding-bottom:10px;}#yiv2201149160 #yiv2201149160ygrp-msg p a {font-family:Verdana;}#yiv2201149160 #yiv2201149160ygrp-msg p#yiv2201149160attach-count span {color:#1E66AE;font-weight:700;}#yiv2201149160 #yiv2201149160ygrp-reco #yiv2201149160reco-head {color:#ff7900;font-weight:700;}#yiv2201149160 #yiv2201149160ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2201149160 #yiv2201149160ygrp-sponsor #yiv2201149160ov li a {font-size:130%;text-decoration:none;}#yiv2201149160 #yiv2201149160ygrp-sponsor #yiv2201149160ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2201149160 #yiv2201149160ygrp-sponsor #yiv2201149160ov ul {margin:0;padding:0 0 0 8px;}#yiv2201149160 #yiv2201149160ygrp-text {font-family:Georgia;}#yiv2201149160 #yiv2201149160ygrp-text p {margin:0 0 1em 0;}#yiv2201149160 #yiv2201149160ygrp-text tt {font-size:120%;}#yiv2201149160 #yiv2201149160ygrp-vital ul li:last-child {border-right:none !important;}#yiv2201149160
>
>

Wed Apr 5, 2017 9:45 pm (PDT) . Posted by:

"farud oke"

Assalamualaikum..
Mohon bantuan teman2 master excel dengan pertanyaan saya yg selengkapnya
saya lampirkan di file.
Atas bantuannya saya sampaikan terimakasih

Thu Apr 6, 2017 12:58 am (PDT) . Posted by:

"Dede Sulaeman"

Dear Farud,

Seperti terlampirkah?

Salam,

DD

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 06 April 2017 11:12
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Menyembunyikan kolom berdasarkan semedter & jenjang di sheet lain [1 Attachment]

Assalamualaikum..
Mohon bantuan teman2 master excel dengan pertanyaan saya yg selengkapnya saya lampirkan di file.
Atas bantuannya saya sampaikan terimakasih

============================================================
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 04.50

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)