15 New Messages
Digest #1882
Messages
Fri Nov 2, 2012 12:27 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba pada file terlampir jalankan prosedur Ubah.
1. buka file
2. Enable Macro
3. tekan ALT F8
4. pilih Ubah dan tekan Run
Wassalam,
Kid.
2012/11/2 HaDi SyaH <face_call15@yahoo.com >
> **
>
>
> dear para master ada yg ingin sy tanyakan lagi mas pada file yg saya
> lampirkan bagaimana cara mengubah tabel pada sheets 1 menjadi tabel seperti
> pada sheets 2, kalau harus di rubah satu2 datanya ribuan, mohon
> pencerahannya, apakah mengunakan formula, macro atau vba, trimakasih
>
>
>
1. buka file
2. Enable Macro
3. tekan ALT F8
4. pilih Ubah dan tekan Run
Wassalam,
Kid.
2012/11/2 HaDi SyaH <face_call15@
> **
>
>
> dear para master ada yg ingin sy tanyakan lagi mas pada file yg saya
> lampirkan bagaimana cara mengubah tabel pada sheets 1 menjadi tabel seperti
> pada sheets 2, kalau harus di rubah satu2 datanya ribuan, mohon
> pencerahannya, apakah mengunakan formula, macro atau vba, trimakasih
>
>
>
Fri Nov 2, 2012 8:35 am (PDT) . Posted by:
"HaDi" face_call15
Alhamdulilah akhirnya terjawab
trimakasih banyak Mr.Kid, di coba dulu ke tkp
--- In belajar-excel@yahoogroups.com , "Mr. Kid" <mr.nmkid@...> wrote:
>
> Coba pada file terlampir jalankan prosedur Ubah.
>
> 1. buka file
> 2. Enable Macro
> 3. tekan ALT F8
> 4. pilih Ubah dan tekan Run
>
> Wassalam,
> Kid.
>
>
> 2012/11/2 HaDi SyaH <face_call15@...>
>
> > **
> >
> >
> > dear para master ada yg ingin sy tanyakan lagi mas pada file yg saya
> > lampirkan bagaimana cara mengubah tabel pada sheets 1 menjadi tabel seperti
> > pada sheets 2, kalau harus di rubah satu2 datanya ribuan, mohon
> > pencerahannya, apakah mengunakan formula, macro atau vba, trimakasih
> >
> >
> >
>
trimakasih banyak Mr.Kid, di coba dulu ke tkp
--- In belajar-excel@
>
> Coba pada file terlampir jalankan prosedur Ubah.
>
> 1. buka file
> 2. Enable Macro
> 3. tekan ALT F8
> 4. pilih Ubah dan tekan Run
>
> Wassalam,
> Kid.
>
>
> 2012/11/2 HaDi SyaH <face_call15@
>
> > **
> >
> >
> > dear para master ada yg ingin sy tanyakan lagi mas pada file yg saya
> > lampirkan bagaimana cara mengubah tabel pada sheets 1 menjadi tabel seperti
> > pada sheets 2, kalau harus di rubah satu2 datanya ribuan, mohon
> > pencerahannya, apakah mengunakan formula, macro atau vba, trimakasih
> >
> >
> >
>
Fri Nov 2, 2012 12:36 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Asumsi, data sebagai sebuah area.
with sheet19.range("a4").currentregion.resize(,1).offset(3)
with .resize( .rows.count-3 , 1)
.formula="=row()-3"
.parent.calculate
.value=.value
.resize(,9).borderaround xlcontinuous
.resize(,9).borders(xlInsideHorizontal).LineStyle =xlcontinuous
end with
end with
Wassalam,
Kid.
2012/11/2 Emi <emilestariklcc@yahoo.com >
> **
>
>
> Sudah ok Pak Kid.
>
> Sekarang saya mau tambah auto numbering di kolom A, sheet 19, bermula dari
> baris excel yg ke 4 .Apakah kode ini sesuai dengan kasus ini?
> Saya juga mau buat auto bordering.
>
> With .Formula = "=row()-3"
> Sheet19.Calculate
> .Value = .Resize(, 1).Value
> .BorderAround xlContinuous
> .Borders(xlInsideHorizontal).LineStyle = xlContinuous
> End With
>
>
> Terima kasih
>
> Wassalam
> Emi Lestari
>
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, November 2, 2012 8:54 AM
>
> *Subject:* Re: [belajar-excel] Copy Paste Special ke worksheet lain
> **
>
> Kok di komputer saya semuanya berjalan dengan baik ya.
>
>
> Wassalam,
> Kid.
>
> 2012/11/2 Emi <emilestariklcc@yahoo.com >**
>
> **
>
> Makasih Pak Kid,
>
> Tapi masih error di baris akhir
>
> rngDB.PasteSpecial xlPasteValues
>
> Mohon pencerahan supaya dapat dipelajari lagi, filenya dilampirkan.
>
> Wassalam.
>
> Emi Lestari
>
>
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, November 1, 2012 8:32 PM
> *Subject:* Re: [belajar-excel] Copy Paste Special ke worksheet lain
> **
>
> Kalau mau coba, ganti semua isinya dengan :
> Dim rngDB As Range 'range di db
> Dim lRecIn As Long 'jumlah record input (yang akan di simpan
> ke db)
>
> 'jumlah cell (jumlah cacah) berisi data bertipe numerik yang ada di
> kolom D sheet13 (bernama Table)
> lRecIn =
> Application.WorksheetFunction.Count(Sheet13.Range("d1").EntireColumn)
>
> 'cek ada gak data inputnya
> If lRecIn > 0 Then 'ada
> datanya yang mau di simpan
> 'set anchor cell di sheet19 (bernama database) cell B1
> Set rngDB = Sheet19.Range("b1")
>
> 'dari anchor, pindah ke baris kosong pertama yang ditemui,
> 'yaitu lompat (offset) sebanyak jumlah baris dari area
> 'yang bersinggungan dengan anchor (current region dari b1)
> Set rngDB = rngDB.Offset(rngDB.CurrentRegion.Rows.Count)
>
> Sheet13.Range("b4:i4").Resize(lRecIn).Copy 'copy
> rngDB.PasteSpecial xlPasteValues 'paste
> special values
> End If 'akhir
> blok if
>
> Ada apa dengan script asli yang bermasalah atau yang berpotensi bermasalah
> ?
> 1. Set SourceRange = Sheets("Sheet13").Range("B4:I4")
> >> nama sheet dalam worksheet *harus* bernama Sheet13
> >> range yang di-set hanya 1 baris, yaitu baris 4 Excel mulai kolom B
> sampai I
>
> 2. Set DestSheet = Sheets("Sheet19")
> >> nama sheet dalam worksheet *harus* bernama Sheet19****3. Lr = LastRow
> (DestSheet)
> >> *harus *punya prosedur function bernama LastRow dan menghasilkan
> (nilai balik fungsi) adalah nilai bertipe numerik long****4. With
> SourceRange
> Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
> End With
> >> cell di sheet tujuan (lokasi paste) akan seluas cell yang akan di copy
> (merah). Dan ini baru di set 1 baris yaitu B4:I4
>
> 5. DestRange.Value = SourceRange.Value
> >> untuk data bertipe text tapi berisi angka yang bisa jadi lebih dari 15
> digit, seperti ID sesuatu, Excel akan mengkonversi tipe data dari data
> text di sisi Source menjadi bertipe numerik di sisi Dest
>
> Wassalam,
> Kid.
> ************
> On Thu, Nov 1, 2012 at 6:01 AM, Emi <emilestariklcc@yahoo.com > wrote:**
>
> **
>
> Dear Guru dan teman BeExcel.
>
> Saya mau copy data ke sheet lain, dengan makro di bawah ini, tetapi tidak
> berhasil.
>
> Data di sheet table adalah hasil lookup dari sheet data mentah.
> Saya mau jadikan semua data ini sebagai database dengan copy paste special
> ke sheet database, supaya tidak bergantung kepada formula, karena data
> mentah akan dihapus dan diganti dengan yg baru.
>
> Mohon pencerahan., apa yg kurang dalam makro ini.
>
>
> Emi Lestari
>
>
>
>
> Sub CopyToDatabase()
> Dim SourceRange As Range, DestRange As Range
> Dim DestSheet As Worksheet, Lr As Long
>
> With Application
> .ScreenUpdating = False
> .EnableEvents = False
> End With
>
> 'fill in the Source Sheet and range
> Set SourceRange = Sheets("Sheet13").Range("B4:I4")
>
> 'Fill in the destination sheet and call the LastRow
> 'function to find the last row
> Set DestSheet = Sheets("Sheet19")
> Lr = LastRow(DestSheet) 'Problemnya di sini
>
> 'With the information from the LastRow function we can create a
> 'destination cell
> Set DestRange = DestSheet.Range("B" & Lr + 1)
>
> 'We make DestRange the same size as SourceRange and use the Value
> 'property to give DestRange the same values
> With SourceRange
> Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
> End With
> DestRange.Value = SourceRange.Value
>
> With Application
> .ScreenUpdating = True
> .EnableEvents = True
> End With
>
> End Sub
>
> **
>
> **
> ****
>
> **
> ****
>
>
>
with sheet19.range(
with .resize( .rows.count-
.formula="=row(
.parent.calculate
.value=.value
.resize(,9).
.resize(,9).
end with
end with
Wassalam,
Kid.
2012/11/2 Emi <emilestariklcc@
> **
>
>
> Sudah ok Pak Kid.
>
> Sekarang saya mau tambah auto numbering di kolom A, sheet 19, bermula dari
> baris excel yg ke 4 .Apakah kode ini sesuai dengan kasus ini?
> Saya juga mau buat auto bordering.
>
> With .Formula = "=row()-3"
> Sheet19.Calculate
> .Value = .Resize(, 1).Value
> .BorderAround xlContinuous
> .Borders(xlInsideHo
> End With
>
>
> Terima kasih
>
> Wassalam
> Emi Lestari
>
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Friday, November 2, 2012 8:54 AM
>
> *Subject:* Re: [belajar-excel] Copy Paste Special ke worksheet lain
> **
>
> Kok di komputer saya semuanya berjalan dengan baik ya.
>
>
> Wassalam,
> Kid.
>
> 2012/11/2 Emi <emilestariklcc@
>
> **
>
> Makasih Pak Kid,
>
> Tapi masih error di baris akhir
>
> rngDB.PasteSpecial xlPasteValues
>
> Mohon pencerahan supaya dapat dipelajari lagi, filenya dilampirkan.
>
> Wassalam.
>
> Emi Lestari
>
>
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Thursday, November 1, 2012 8:32 PM
> *Subject:* Re: [belajar-excel] Copy Paste Special ke worksheet lain
> **
>
> Kalau mau coba, ganti semua isinya dengan :
> Dim rngDB As Range 'range di db
> Dim lRecIn As Long 'jumlah record input (yang akan di simpan
> ke db)
>
> 'jumlah cell (jumlah cacah) berisi data bertipe numerik yang ada di
> kolom D sheet13 (bernama Table)
> lRecIn =
> Application.
>
> 'cek ada gak data inputnya
> If lRecIn > 0 Then 'ada
> datanya yang mau di simpan
> 'set anchor cell di sheet19 (bernama database) cell B1
> Set rngDB = Sheet19.Range(
>
> 'dari anchor, pindah ke baris kosong pertama yang ditemui,
> 'yaitu lompat (offset) sebanyak jumlah baris dari area
> 'yang bersinggungan dengan anchor (current region dari b1)
> Set rngDB = rngDB.Offset(
>
> Sheet13.Range(
> rngDB.PasteSpecial xlPasteValues 'paste
> special values
> End If 'akhir
> blok if
>
> Ada apa dengan script asli yang bermasalah atau yang berpotensi bermasalah
> ?
> 1. Set SourceRange = Sheets("Sheet13"
> >> nama sheet dalam worksheet *harus* bernama Sheet13
> >> range yang di-set hanya 1 baris, yaitu baris 4 Excel mulai kolom B
> sampai I
>
> 2. Set DestSheet = Sheets("Sheet19"
> >> nama sheet dalam worksheet *harus* bernama Sheet19****3. Lr = LastRow
> (DestSheet)
> >> *harus *punya prosedur function bernama LastRow dan menghasilkan
> (nilai balik fungsi) adalah nilai bertipe numerik long****4. With
> SourceRange
> Set DestRange = DestRange.Resize(
> End With
> >> cell di sheet tujuan (lokasi paste) akan seluas cell yang akan di copy
> (merah). Dan ini baru di set 1 baris yaitu B4:I4
>
> 5. DestRange.Value = SourceRange.
> >> untuk data bertipe text tapi berisi angka yang bisa jadi lebih dari 15
> digit, seperti ID sesuatu, Excel akan mengkonversi tipe data dari data
> text di sisi Source menjadi bertipe numerik di sisi Dest
>
> Wassalam,
> Kid.
> ************
> On Thu, Nov 1, 2012 at 6:01 AM, Emi <emilestariklcc@
>
> **
>
> Dear Guru dan teman BeExcel.
>
> Saya mau copy data ke sheet lain, dengan makro di bawah ini, tetapi tidak
> berhasil.
>
> Data di sheet table adalah hasil lookup dari sheet data mentah.
> Saya mau jadikan semua data ini sebagai database dengan copy paste special
> ke sheet database, supaya tidak bergantung kepada formula, karena data
> mentah akan dihapus dan diganti dengan yg baru.
>
> Mohon pencerahan., apa yg kurang dalam makro ini.
>
>
> Emi Lestari
>
>
>
>
> Sub CopyToDatabase(
> Dim SourceRange As Range, DestRange As Range
> Dim DestSheet As Worksheet, Lr As Long
>
> With Application
> .ScreenUpdating = False
> .EnableEvents = False
> End With
>
> 'fill in the Source Sheet and range
> Set SourceRange = Sheets("Sheet13"
>
> 'Fill in the destination sheet and call the LastRow
> 'function to find the last row
> Set DestSheet = Sheets("Sheet19"
> Lr = LastRow(DestSheet) 'Problemnya di sini
>
> 'With the information from the LastRow function we can create a
> 'destination cell
> Set DestRange = DestSheet.Range(
>
> 'We make DestRange the same size as SourceRange and use the Value
> 'property to give DestRange the same values
> With SourceRange
> Set DestRange = DestRange.Resize(
> End With
> DestRange.Value = SourceRange.
>
> With Application
> .ScreenUpdating = True
> .EnableEvents = True
> End With
>
> End Sub
>
> **
>
> **
> ****
>
> **
> ****
>
>
>
Fri Nov 2, 2012 1:20 am (PDT) . Posted by:
"him mah"
kalau VBA seperti ini
Private Sub cmdHapus_Click()
HapusData
MsgBox ("Hapus data selesai")
End Sub
terus di module ada prosedur seperti ini
Sub HapusData()
sheets("aku").select
pesan = MsgBox("Apakah data sebelumnya akan dihapus",
vbYesNoCancel, "cek")
If pesan = vbYes Then
ProsesA
ElseIf pesan = vbNo Then
ProsesB
else
UserForm.txtTahun.SetFocus
End If
End Sub
ketika kita pilih vbCancel maka akan kembali ke userfor dan txtTahun
sebagai SetFocus, namun kemudian menjalankan perintah
MsgBox ("Hapus data selesai")
kira-kira bagaimana modifikasinya, agar kembali ke userform tapi tidak
menjalankan perintah menampilkan pesan
terima kasih
Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
> Kalau TextBox masih bisa di-set focus. Label control yang gak bisa.
>
> 2012/11/2 him mah <himmah.mlg@gmail.com >
>
>> **
>>
>>
>> iya makasih pak Kid, kemarin saya coba seperti itu ngga bisa. mungkin
>> benar tidak semua control mau setFocus
>>
>>
>> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
>> > oh jadi sudah diset vbyesnocancel dan sudah bukan di module si form.
>> > kalau gitu set fokus nya panggil si mbahnya dulu...
>> >
>> > misal nama form adalah userform1
>> > control yang akan diambil adalah txtTahun
>> > userfom1.txtTahun.setfocus
>> >
>> > Wassalam,
>> > Kid.
>> >
>> >
>> >
>> >
>> > 2012/11/2 him mah <himmah.mlg@gmail.com >
>> >
>> >> **
>>
>> >>
>> >>
>> >> maaf pak kid masalahnya bukan disitu, tadi saya salah ngetik
>> >> seharusnya pesan = MsgBox("Apakah data sebelumnya akan dihapus",
>> >> vbYesNoCancel, "cek")
>> >>
>> >> nah ketika kita pilih vbCancel
>> >> contoh filenya saya lampirkan
>> >>
>> >> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
>> >>
>> >> > Coba ganti :
>> >> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo,
>> >> > "cek")
>> >> > menjadi :
>> >> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNoCancel,
>> >> "cek")
>> >>
>> >>
>> >>
>> >
>>
>>
>>
>
Private Sub cmdHapus_Click(
HapusData
MsgBox ("Hapus data selesai")
End Sub
terus di module ada prosedur seperti ini
Sub HapusData()
sheets("aku"
pesan = MsgBox("Apakah data sebelumnya akan dihapus",
vbYesNoCancel, "cek")
If pesan = vbYes Then
ProsesA
ElseIf pesan = vbNo Then
ProsesB
else
UserForm.txtTahun.
End If
End Sub
ketika kita pilih vbCancel maka akan kembali ke userfor dan txtTahun
sebagai SetFocus, namun kemudian menjalankan perintah
MsgBox ("Hapus data selesai")
kira-kira bagaimana modifikasinya, agar kembali ke userform tapi tidak
menjalankan perintah menampilkan pesan
terima kasih
Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.
> Kalau TextBox masih bisa di-set focus. Label control yang gak bisa.
>
> 2012/11/2 him mah <himmah.mlg@gmail.
>
>> **
>>
>>
>> iya makasih pak Kid, kemarin saya coba seperti itu ngga bisa. mungkin
>> benar tidak semua control mau setFocus
>>
>>
>> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.
>> > oh jadi sudah diset vbyesnocancel dan sudah bukan di module si form.
>> > kalau gitu set fokus nya panggil si mbahnya dulu...
>> >
>> > misal nama form adalah userform1
>> > control yang akan diambil adalah txtTahun
>> > userfom1.txtTahun.
>> >
>> > Wassalam,
>> > Kid.
>> >
>> >
>> >
>> >
>> > 2012/11/2 him mah <himmah.mlg@gmail.
>> >
>> >> **
>>
>> >>
>> >>
>> >> maaf pak kid masalahnya bukan disitu, tadi saya salah ngetik
>> >> seharusnya pesan = MsgBox("Apakah data sebelumnya akan dihapus",
>> >> vbYesNoCancel, "cek")
>> >>
>> >> nah ketika kita pilih vbCancel
>> >> contoh filenya saya lampirkan
>> >>
>> >> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.
>> >>
>> >> > Coba ganti :
>> >> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo,
>> >> > "cek")
>> >> > menjadi :
>> >> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNoCancel,
>> >> "cek")
>> >>
>> >>
>> >>
>> >
>>
>>
>>
>
Fri Nov 2, 2012 1:31 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba gunakan input parameter.
>> prosedur HapusData
1. bentuk deklarasi prosedur :
Sub HapusData(optional sMsg as string="Hapus data selesai")
2. set pesan saat cancel menjadi nullstring
else
UserForm.txtTahun.SetFocus
smsg=vbnullstring
endif
3. Prosedur HapusData selesai diubah
>> prosedur event click si cmdHapus
1. deklarasikan variabel pesan :
dim sPesan as string
2. panggil prosedur HapusData dengan membawa variabel sPesan :
HapusData sPesan
3. Cek isi sPesan, jika ada isinya, maka tampilkan msgbox :
if lenb(spesan)<>0 then
msgbox spesan,vbinformation,"Hapus Data"
endif
4. Prosedur event click si cmdHapus selesai diubah
Wassalam,
Kid.
2012/11/2 him mah <himmah.mlg@gmail.com >
> **
>
>
> kalau VBA seperti ini
>
> Private Sub cmdHapus_Click()
> HapusData
> MsgBox ("Hapus data selesai")
>
> End Sub
>
> terus di module ada prosedur seperti ini
>
> Sub HapusData()
> sheets("aku").select
> pesan = MsgBox("Apakah data sebelumnya akan dihapus",
> vbYesNoCancel, "cek")
>
> If pesan = vbYes Then
> ProsesA
> ElseIf pesan = vbNo Then
> ProsesB
> else
> UserForm.txtTahun.SetFocus
> End If
> End Sub
>
> ketika kita pilih vbCancel maka akan kembali ke userfor dan txtTahun
> sebagai SetFocus, namun kemudian menjalankan perintah
> MsgBox ("Hapus data selesai")
>
> kira-kira bagaimana modifikasinya, agar kembali ke userform tapi tidak
> menjalankan perintah menampilkan pesan
>
> terima kasih
>
>
> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
> > Kalau TextBox masih bisa di-set focus. Label control yang gak bisa.
> >
> > 2012/11/2 him mah <himmah.mlg@gmail.com >
> >
> >> **
>
> >>
> >>
> >> iya makasih pak Kid, kemarin saya coba seperti itu ngga bisa. mungkin
> >> benar tidak semua control mau setFocus
> >>
> >>
> >> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
> >> > oh jadi sudah diset vbyesnocancel dan sudah bukan di module si form.
> >> > kalau gitu set fokus nya panggil si mbahnya dulu...
> >> >
> >> > misal nama form adalah userform1
> >> > control yang akan diambil adalah txtTahun
> >> > userfom1.txtTahun.setfocus
> >> >
> >> > Wassalam,
> >> > Kid.
> >> >
> >> >
> >> >
> >> >
> >> > 2012/11/2 him mah <himmah.mlg@gmail.com >
> >> >
> >> >> **
> >>
> >> >>
> >> >>
> >> >> maaf pak kid masalahnya bukan disitu, tadi saya salah ngetik
> >> >> seharusnya pesan = MsgBox("Apakah data sebelumnya akan dihapus",
> >> >> vbYesNoCancel, "cek")
> >> >>
> >> >> nah ketika kita pilih vbCancel
> >> >> contoh filenya saya lampirkan
> >> >>
> >> >> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
> >> >>
> >> >> > Coba ganti :
> >> >> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo,
> >> >> > "cek")
> >> >> > menjadi :
> >> >> > pesan = MsgBox("Apakah data sebelumnya akan dihapus",
> vbYesNoCancel,
> >> >> "cek")
> >> >>
> >> >>
> >> >>
> >> >
> >>
> >>
> >>
> >
>
>
>
>> prosedur HapusData
1. bentuk deklarasi prosedur :
Sub HapusData(optional sMsg as string="Hapus data selesai")
2. set pesan saat cancel menjadi nullstring
else
UserForm.txtTahun.
smsg=vbnullstring
endif
3. Prosedur HapusData selesai diubah
>> prosedur event click si cmdHapus
1. deklarasikan variabel pesan :
dim sPesan as string
2. panggil prosedur HapusData dengan membawa variabel sPesan :
HapusData sPesan
3. Cek isi sPesan, jika ada isinya, maka tampilkan msgbox :
if lenb(spesan)
msgbox spesan,vbinformatio
endif
4. Prosedur event click si cmdHapus selesai diubah
Wassalam,
Kid.
2012/11/2 him mah <himmah.mlg@gmail.
> **
>
>
> kalau VBA seperti ini
>
> Private Sub cmdHapus_Click(
> HapusData
> MsgBox ("Hapus data selesai")
>
> End Sub
>
> terus di module ada prosedur seperti ini
>
> Sub HapusData()
> sheets("aku"
> pesan = MsgBox("Apakah data sebelumnya akan dihapus",
> vbYesNoCancel, "cek")
>
> If pesan = vbYes Then
> ProsesA
> ElseIf pesan = vbNo Then
> ProsesB
> else
> UserForm.txtTahun.
> End If
> End Sub
>
> ketika kita pilih vbCancel maka akan kembali ke userfor dan txtTahun
> sebagai SetFocus, namun kemudian menjalankan perintah
> MsgBox ("Hapus data selesai")
>
> kira-kira bagaimana modifikasinya, agar kembali ke userform tapi tidak
> menjalankan perintah menampilkan pesan
>
> terima kasih
>
>
> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.
> > Kalau TextBox masih bisa di-set focus. Label control yang gak bisa.
> >
> > 2012/11/2 him mah <himmah.mlg@gmail.
> >
> >> **
>
> >>
> >>
> >> iya makasih pak Kid, kemarin saya coba seperti itu ngga bisa. mungkin
> >> benar tidak semua control mau setFocus
> >>
> >>
> >> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.
> >> > oh jadi sudah diset vbyesnocancel dan sudah bukan di module si form.
> >> > kalau gitu set fokus nya panggil si mbahnya dulu...
> >> >
> >> > misal nama form adalah userform1
> >> > control yang akan diambil adalah txtTahun
> >> > userfom1.txtTahun.
> >> >
> >> > Wassalam,
> >> > Kid.
> >> >
> >> >
> >> >
> >> >
> >> > 2012/11/2 him mah <himmah.mlg@gmail.
> >> >
> >> >> **
> >>
> >> >>
> >> >>
> >> >> maaf pak kid masalahnya bukan disitu, tadi saya salah ngetik
> >> >> seharusnya pesan = MsgBox("Apakah data sebelumnya akan dihapus",
> >> >> vbYesNoCancel, "cek")
> >> >>
> >> >> nah ketika kita pilih vbCancel
> >> >> contoh filenya saya lampirkan
> >> >>
> >> >> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.
> >> >>
> >> >> > Coba ganti :
> >> >> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo,
> >> >> > "cek")
> >> >> > menjadi :
> >> >> > pesan = MsgBox("Apakah data sebelumnya akan dihapus",
> vbYesNoCancel,
> >> >> "cek")
> >> >>
> >> >>
> >> >>
> >> >
> >>
> >>
> >>
> >
>
>
>
Fri Nov 2, 2012 1:41 am (PDT) . Posted by:
"him mah"
makasih pak, sudah berhasil
Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
> Coba gunakan input parameter.
>
>>> prosedur HapusData
> 1. bentuk deklarasi prosedur :
> Sub HapusData(optional sMsg as string="Hapus data selesai")
>
> 2. set pesan saat cancel menjadi nullstring
> else
> UserForm.txtTahun.SetFocus
> smsg=vbnullstring
> endif
>
> 3. Prosedur HapusData selesai diubah
>
>
>>> prosedur event click si cmdHapus
> 1. deklarasikan variabel pesan :
> dim sPesan as string
>
> 2. panggil prosedur HapusData dengan membawa variabel sPesan :
> HapusData sPesan
>
> 3. Cek isi sPesan, jika ada isinya, maka tampilkan msgbox :
> if lenb(spesan)<>0 then
> msgbox spesan,vbinformation,"Hapus Data"
> endif
>
> 4. Prosedur event click si cmdHapus selesai diubah
>
>
> Wassalam,
> Kid.
>
>
>
> 2012/11/2 him mah <himmah.mlg@gmail.com >
>
>> **
>>
>>
>> kalau VBA seperti ini
>>
>> Private Sub cmdHapus_Click()
>> HapusData
>> MsgBox ("Hapus data selesai")
>>
>> End Sub
>>
>> terus di module ada prosedur seperti ini
>>
>> Sub HapusData()
>> sheets("aku").select
>> pesan = MsgBox("Apakah data sebelumnya akan dihapus",
>> vbYesNoCancel, "cek")
>>
>> If pesan = vbYes Then
>> ProsesA
>> ElseIf pesan = vbNo Then
>> ProsesB
>> else
>> UserForm.txtTahun.SetFocus
>> End If
>> End Sub
>>
>> ketika kita pilih vbCancel maka akan kembali ke userfor dan txtTahun
>> sebagai SetFocus, namun kemudian menjalankan perintah
>> MsgBox ("Hapus data selesai")
>>
>> kira-kira bagaimana modifikasinya, agar kembali ke userform tapi tidak
>> menjalankan perintah menampilkan pesan
>>
>> terima kasih
>>
>>
>> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
>> > Kalau TextBox masih bisa di-set focus. Label control yang gak bisa.
>> >
>> > 2012/11/2 him mah <himmah.mlg@gmail.com >
>> >
>> >> **
>>
>> >>
>> >>
>> >> iya makasih pak Kid, kemarin saya coba seperti itu ngga bisa. mungkin
>> >> benar tidak semua control mau setFocus
>> >>
>> >>
>> >> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
>> >> > oh jadi sudah diset vbyesnocancel dan sudah bukan di module si form.
>> >> > kalau gitu set fokus nya panggil si mbahnya dulu...
>> >> >
>> >> > misal nama form adalah userform1
>> >> > control yang akan diambil adalah txtTahun
>> >> > userfom1.txtTahun.setfocus
>> >> >
>> >> > Wassalam,
>> >> > Kid.
>> >> >
>> >> >
>> >> >
>> >> >
>> >> > 2012/11/2 him mah <himmah.mlg@gmail.com >
>> >> >
>> >> >> **
>> >>
>> >> >>
>> >> >>
>> >> >> maaf pak kid masalahnya bukan disitu, tadi saya salah ngetik
>> >> >> seharusnya pesan = MsgBox("Apakah data sebelumnya akan dihapus",
>> >> >> vbYesNoCancel, "cek")
>> >> >>
>> >> >> nah ketika kita pilih vbCancel
>> >> >> contoh filenya saya lampirkan
>> >> >>
>> >> >> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
>> >> >>
>> >> >> > Coba ganti :
>> >> >> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo,
>> >> >> > "cek")
>> >> >> > menjadi :
>> >> >> > pesan = MsgBox("Apakah data sebelumnya akan dihapus",
>> vbYesNoCancel,
>> >> >> "cek")
>> >> >>
>> >> >>
>> >> >>
>> >> >
>> >>
>> >>
>> >>
>> >
>>
>>
>>
>
Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.
> Coba gunakan input parameter.
>
>>> prosedur HapusData
> 1. bentuk deklarasi prosedur :
> Sub HapusData(optional sMsg as string="Hapus data selesai")
>
> 2. set pesan saat cancel menjadi nullstring
> else
> UserForm.txtTahun.
> smsg=vbnullstring
> endif
>
> 3. Prosedur HapusData selesai diubah
>
>
>>> prosedur event click si cmdHapus
> 1. deklarasikan variabel pesan :
> dim sPesan as string
>
> 2. panggil prosedur HapusData dengan membawa variabel sPesan :
> HapusData sPesan
>
> 3. Cek isi sPesan, jika ada isinya, maka tampilkan msgbox :
> if lenb(spesan)
> msgbox spesan,vbinformatio
> endif
>
> 4. Prosedur event click si cmdHapus selesai diubah
>
>
> Wassalam,
> Kid.
>
>
>
> 2012/11/2 him mah <himmah.mlg@gmail.
>
>> **
>>
>>
>> kalau VBA seperti ini
>>
>> Private Sub cmdHapus_Click(
>> HapusData
>> MsgBox ("Hapus data selesai")
>>
>> End Sub
>>
>> terus di module ada prosedur seperti ini
>>
>> Sub HapusData()
>> sheets("aku"
>> pesan = MsgBox("Apakah data sebelumnya akan dihapus",
>> vbYesNoCancel, "cek")
>>
>> If pesan = vbYes Then
>> ProsesA
>> ElseIf pesan = vbNo Then
>> ProsesB
>> else
>> UserForm.txtTahun.
>> End If
>> End Sub
>>
>> ketika kita pilih vbCancel maka akan kembali ke userfor dan txtTahun
>> sebagai SetFocus, namun kemudian menjalankan perintah
>> MsgBox ("Hapus data selesai")
>>
>> kira-kira bagaimana modifikasinya, agar kembali ke userform tapi tidak
>> menjalankan perintah menampilkan pesan
>>
>> terima kasih
>>
>>
>> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.
>> > Kalau TextBox masih bisa di-set focus. Label control yang gak bisa.
>> >
>> > 2012/11/2 him mah <himmah.mlg@gmail.
>> >
>> >> **
>>
>> >>
>> >>
>> >> iya makasih pak Kid, kemarin saya coba seperti itu ngga bisa. mungkin
>> >> benar tidak semua control mau setFocus
>> >>
>> >>
>> >> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.
>> >> > oh jadi sudah diset vbyesnocancel dan sudah bukan di module si form.
>> >> > kalau gitu set fokus nya panggil si mbahnya dulu...
>> >> >
>> >> > misal nama form adalah userform1
>> >> > control yang akan diambil adalah txtTahun
>> >> > userfom1.txtTahun.
>> >> >
>> >> > Wassalam,
>> >> > Kid.
>> >> >
>> >> >
>> >> >
>> >> >
>> >> > 2012/11/2 him mah <himmah.mlg@gmail.
>> >> >
>> >> >> **
>> >>
>> >> >>
>> >> >>
>> >> >> maaf pak kid masalahnya bukan disitu, tadi saya salah ngetik
>> >> >> seharusnya pesan = MsgBox("Apakah data sebelumnya akan dihapus",
>> >> >> vbYesNoCancel, "cek")
>> >> >>
>> >> >> nah ketika kita pilih vbCancel
>> >> >> contoh filenya saya lampirkan
>> >> >>
>> >> >> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.
>> >> >>
>> >> >> > Coba ganti :
>> >> >> > pesan = MsgBox("Apakah data sebelumnya akan dihapus", vbYesNo,
>> >> >> > "cek")
>> >> >> > menjadi :
>> >> >> > pesan = MsgBox("Apakah data sebelumnya akan dihapus",
>> vbYesNoCancel,
>> >> >> "cek")
>> >> >>
>> >> >>
>> >> >>
>> >> >
>> >>
>> >>
>> >>
>> >
>>
>>
>>
>
Fri Nov 2, 2012 1:33 am (PDT) . Posted by:
"him mah"
maaf belum bisa saya lampirkan contoh filenya, mungkin ilustrasi dulu
misal kita punya 3 tabel
tabel propinsi ada di sheet tblProp terdiri dari 1 kolom yaitu kolom A
headernya Nama_propinsi
tabel kabupaten ada di sheet tblKab terdiri dari 2 kolom, kolom A
("NAMA_PROPINSI"] dan kolom B ["NAMA_KAB"]
tabel Kelurahan ada di sheet tblKel terdiri dari 3 kolom, kolom A
("NAMA_PROPINSI"] ,kolom B ["NAMA_KAB"] dan C ["NAMA_KEL"]
terus saya buat UserForm dengan 3 ComboBox kemudian saya beri nama
cboProp dengan rowsource ke tabel Propinsi
cboKab dengan rowsource ke tabel kabupaten
cboKel dengan rowsource ke tabel Kelurahan
yang jadi kendala
misal ketika kita memilih cboKab maka data yang ditampilkan sesuai
dengan cboProp yang dipilih
terus ketika kita memilih cboKel maka data yang ditampilkan adalah
sesuai dengan cboProp dan cboKab yang dipilih
Pada tanggal 24/07/12, sumardiana596@gmail.com
<sumardiana596@gmail.com > menulis:
> waaaahhhhh betul sekali........
> terima kasih Mr Kid,ternyata ada yang simple banget ya......betapa bodohnya
> diriku
>
> Terima Kasih,
>
> mardi
>
> From: Kid Mr.
> Sent: Tuesday, July 24, 2012 3:00 AM
> To: belajar-excel@yahoogroups.com
> Subject: Re: [belajar-excel] belajar ComboBox
>
>
> Pak Mardi,
>
> Coba langkah berikut :
> 1. Buat nama range data NIK dan Karyawan yang ada di sheet Data (2 kolom)
>>> ke sheet data
>>> blok data (tanpa header, mulai baris 2, sebanyak 2 kolom dan seluruh
>>> record data)
>>> klik kanan pilih name a range
>>> tulis di Name :
> listCboNik
>>> tekan OK
>
> 2. Atur properties combobox :
>>> ke VBE, tekan F4 berulang kali, hingga tampak ada window properties yang
>>> muncul
>>> klik combobox
>>> atur nilai-nilai properties yang ada seperti nilai properties pada gambar
>>> berikut ini :
> (pilih, akan cara set properties 1 atau cara set properties 2 berikut ini)
> [cara set properties 1]
> [cara set properties 2]
>
>
> 3. Script mengisi nilai TextBox berdasar pilihan user di ComboBox
>>> di VBE, double click ComboBox
>>> akan muncul blok prosedur event untuk object combobox pada event change
>>> (pilihan user di combobox berganti)
>>> ubah blok tersebut hingga tampak seperti berikut ini :
> Private Sub ComboBox1_Change()
> If ComboBox1.ListIndex <> -1 Then
> TextBox1.Text = ComboBox1.List(ComboBox1.ListIndex, 1)
> Else
> TextBox1.Text = vbNullString
> End If
> End Sub
>>> mungkin script tersebut tidak diperlukan jika menggunakan cara set
>>> proeprties 2 di combobox-nya
>
> Wassalam,
> Kid.
>
>
>
> 2012/7/23 <sumardiana596@gmail.com >
>
>
> Dear master Belajar-Excel,
> bagaimana source code ringkas untuk menulis di combobox dan otomatis
> tampilkan di textbox . File terlampir
> Terima kasih sebelumnya.
> salam,
>
> mardi
>
>
>
>
>
misal kita punya 3 tabel
tabel propinsi ada di sheet tblProp terdiri dari 1 kolom yaitu kolom A
headernya Nama_propinsi
tabel kabupaten ada di sheet tblKab terdiri dari 2 kolom, kolom A
("NAMA_PROPINSI"
tabel Kelurahan ada di sheet tblKel terdiri dari 3 kolom, kolom A
("NAMA_PROPINSI"
terus saya buat UserForm dengan 3 ComboBox kemudian saya beri nama
cboProp dengan rowsource ke tabel Propinsi
cboKab dengan rowsource ke tabel kabupaten
cboKel dengan rowsource ke tabel Kelurahan
yang jadi kendala
misal ketika kita memilih cboKab maka data yang ditampilkan sesuai
dengan cboProp yang dipilih
terus ketika kita memilih cboKel maka data yang ditampilkan adalah
sesuai dengan cboProp dan cboKab yang dipilih
Pada tanggal 24/07/12, sumardiana596@
<sumardiana596@
> waaaahhhhh betul sekali......
> terima kasih Mr Kid,ternyata ada yang simple banget ya......betapa bodohnya
> diriku
>
> Terima Kasih,
>
> mardi
>
> From: Kid Mr.
> Sent: Tuesday, July 24, 2012 3:00 AM
> To: belajar-excel@
> Subject: Re: [belajar-excel] belajar ComboBox
>
>
> Pak Mardi,
>
> Coba langkah berikut :
> 1. Buat nama range data NIK dan Karyawan yang ada di sheet Data (2 kolom)
>>> ke sheet data
>>> blok data (tanpa header, mulai baris 2, sebanyak 2 kolom dan seluruh
>>> record data)
>>> klik kanan pilih name a range
>>> tulis di Name :
> listCboNik
>>> tekan OK
>
> 2. Atur properties combobox :
>>> ke VBE, tekan F4 berulang kali, hingga tampak ada window properties yang
>>> muncul
>>> klik combobox
>>> atur nilai-nilai properties yang ada seperti nilai properties pada gambar
>>> berikut ini :
> (pilih, akan cara set properties 1 atau cara set properties 2 berikut ini)
> [cara set properties 1]
> [cara set properties 2]
>
>
> 3. Script mengisi nilai TextBox berdasar pilihan user di ComboBox
>>> di VBE, double click ComboBox
>>> akan muncul blok prosedur event untuk object combobox pada event change
>>> (pilihan user di combobox berganti)
>>> ubah blok tersebut hingga tampak seperti berikut ini :
> Private Sub ComboBox1_Change(
> If ComboBox1.ListIndex <> -1 Then
> TextBox1.Text = ComboBox1.List(
> Else
> TextBox1.Text = vbNullString
> End If
> End Sub
>>> mungkin script tersebut tidak diperlukan jika menggunakan cara set
>>> proeprties 2 di combobox-nya
>
> Wassalam,
> Kid.
>
>
>
> 2012/7/23 <sumardiana596@
>
>
> Dear master Belajar-Excel,
> bagaimana source code ringkas untuk menulis di combobox dan otomatis
> tampilkan di textbox . File terlampir
> Terima kasih sebelumnya.
> salam,
>
> mardi
>
>
>
>
>
Fri Nov 2, 2012 3:51 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Jika itemnya sangat banyak, bisa menggunakan RowSource seperti file
terlampir.
Jika itemnya sedikit, methods add milik combo yang biasa digunakan.
Wassalam,
Kid.
2012/11/2 him mah <himmah.mlg@gmail.com >
> **
>
>
> maaf belum bisa saya lampirkan contoh filenya, mungkin ilustrasi dulu
>
> misal kita punya 3 tabel
> tabel propinsi ada di sheet tblProp terdiri dari 1 kolom yaitu kolom A
> headernya Nama_propinsi
> tabel kabupaten ada di sheet tblKab terdiri dari 2 kolom, kolom A
> ("NAMA_PROPINSI"] dan kolom B ["NAMA_KAB"]
> tabel Kelurahan ada di sheet tblKel terdiri dari 3 kolom, kolom A
> ("NAMA_PROPINSI"] ,kolom B ["NAMA_KAB"] dan C ["NAMA_KEL"]
>
> terus saya buat UserForm dengan 3 ComboBox kemudian saya beri nama
> cboProp dengan rowsource ke tabel Propinsi
> cboKab dengan rowsource ke tabel kabupaten
> cboKel dengan rowsource ke tabel Kelurahan
>
> yang jadi kendala
>
> misal ketika kita memilih cboKab maka data yang ditampilkan sesuai
> dengan cboProp yang dipilih
>
> terus ketika kita memilih cboKel maka data yang ditampilkan adalah
> sesuai dengan cboProp dan cboKab yang dipilih
>
> Pada tanggal 24/07/12, sumardiana596@gmail.com
> <sumardiana596@gmail.com > menulis:
>
> > waaaahhhhh betul sekali........
> > terima kasih Mr Kid,ternyata ada yang simple banget ya......betapa
> bodohnya
> > diriku
> >
> > Terima Kasih,
> >
> > mardi
> >
> > From: Kid Mr.
> > Sent: Tuesday, July 24, 2012 3:00 AM
> > To: belajar-excel@yahoogroups.com
> > Subject: Re: [belajar-excel] belajar ComboBox
> >
> >
> > Pak Mardi,
> >
> > Coba langkah berikut :
> > 1. Buat nama range data NIK dan Karyawan yang ada di sheet Data (2 kolom)
> >>> ke sheet data
> >>> blok data (tanpa header, mulai baris 2, sebanyak 2 kolom dan seluruh
> >>> record data)
> >>> klik kanan pilih name a range
> >>> tulis di Name :
> > listCboNik
> >>> tekan OK
> >
> > 2. Atur properties combobox :
> >>> ke VBE, tekan F4 berulang kali, hingga tampak ada window properties
> yang
> >>> muncul
> >>> klik combobox
> >>> atur nilai-nilai properties yang ada seperti nilai properties pada
> gambar
> >>> berikut ini :
> > (pilih, akan cara set properties 1 atau cara set properties 2 berikut
> ini)
> > [cara set properties 1]
> > [cara set properties 2]
> >
> >
> > 3. Script mengisi nilai TextBox berdasar pilihan user di ComboBox
> >>> di VBE, double click ComboBox
> >>> akan muncul blok prosedur event untuk object combobox pada event change
> >>> (pilihan user di combobox berganti)
> >>> ubah blok tersebut hingga tampak seperti berikut ini :
> > Private Sub ComboBox1_Change()
> > If ComboBox1.ListIndex <> -1 Then
> > TextBox1.Text = ComboBox1.List(ComboBox1.ListIndex, 1)
> > Else
> > TextBox1.Text = vbNullString
> > End If
> > End Sub
> >>> mungkin script tersebut tidak diperlukan jika menggunakan cara set
> >>> proeprties 2 di combobox-nya
> >
> > Wassalam,
> > Kid.
> >
> >
> >
> > 2012/7/23 <sumardiana596@gmail.com >
> >
> >
> > Dear master Belajar-Excel,
> > bagaimana source code ringkas untuk menulis di combobox dan otomatis
> > tampilkan di textbox . File terlampir
> > Terima kasih sebelumnya.
> > salam,
> >
> > mardi
> >
> >
> >
> >
> >
>
>
>
terlampir.
Jika itemnya sedikit, methods add milik combo yang biasa digunakan.
Wassalam,
Kid.
2012/11/2 him mah <himmah.mlg@gmail.
> **
>
>
> maaf belum bisa saya lampirkan contoh filenya, mungkin ilustrasi dulu
>
> misal kita punya 3 tabel
> tabel propinsi ada di sheet tblProp terdiri dari 1 kolom yaitu kolom A
> headernya Nama_propinsi
> tabel kabupaten ada di sheet tblKab terdiri dari 2 kolom, kolom A
> ("NAMA_PROPINSI"
> tabel Kelurahan ada di sheet tblKel terdiri dari 3 kolom, kolom A
> ("NAMA_PROPINSI"
>
> terus saya buat UserForm dengan 3 ComboBox kemudian saya beri nama
> cboProp dengan rowsource ke tabel Propinsi
> cboKab dengan rowsource ke tabel kabupaten
> cboKel dengan rowsource ke tabel Kelurahan
>
> yang jadi kendala
>
> misal ketika kita memilih cboKab maka data yang ditampilkan sesuai
> dengan cboProp yang dipilih
>
> terus ketika kita memilih cboKel maka data yang ditampilkan adalah
> sesuai dengan cboProp dan cboKab yang dipilih
>
> Pada tanggal 24/07/12, sumardiana596@
> <sumardiana596@
>
> > waaaahhhhh betul sekali......
> > terima kasih Mr Kid,ternyata ada yang simple banget ya......betapa
> bodohnya
> > diriku
> >
> > Terima Kasih,
> >
> > mardi
> >
> > From: Kid Mr.
> > Sent: Tuesday, July 24, 2012 3:00 AM
> > To: belajar-excel@
> > Subject: Re: [belajar-excel] belajar ComboBox
> >
> >
> > Pak Mardi,
> >
> > Coba langkah berikut :
> > 1. Buat nama range data NIK dan Karyawan yang ada di sheet Data (2 kolom)
> >>> ke sheet data
> >>> blok data (tanpa header, mulai baris 2, sebanyak 2 kolom dan seluruh
> >>> record data)
> >>> klik kanan pilih name a range
> >>> tulis di Name :
> > listCboNik
> >>> tekan OK
> >
> > 2. Atur properties combobox :
> >>> ke VBE, tekan F4 berulang kali, hingga tampak ada window properties
> yang
> >>> muncul
> >>> klik combobox
> >>> atur nilai-nilai properties yang ada seperti nilai properties pada
> gambar
> >>> berikut ini :
> > (pilih, akan cara set properties 1 atau cara set properties 2 berikut
> ini)
> > [cara set properties 1]
> > [cara set properties 2]
> >
> >
> > 3. Script mengisi nilai TextBox berdasar pilihan user di ComboBox
> >>> di VBE, double click ComboBox
> >>> akan muncul blok prosedur event untuk object combobox pada event change
> >>> (pilihan user di combobox berganti)
> >>> ubah blok tersebut hingga tampak seperti berikut ini :
> > Private Sub ComboBox1_Change(
> > If ComboBox1.ListIndex <> -1 Then
> > TextBox1.Text = ComboBox1.List(
> > Else
> > TextBox1.Text = vbNullString
> > End If
> > End Sub
> >>> mungkin script tersebut tidak diperlukan jika menggunakan cara set
> >>> proeprties 2 di combobox-nya
> >
> > Wassalam,
> > Kid.
> >
> >
> >
> > 2012/7/23 <sumardiana596@
> >
> >
> > Dear master Belajar-Excel,
> > bagaimana source code ringkas untuk menulis di combobox dan otomatis
> > tampilkan di textbox . File terlampir
> > Terima kasih sebelumnya.
> > salam,
> >
> > mardi
> >
> >
> >
> >
> >
>
>
>
Fri Nov 2, 2012 4:40 am (PDT) . Posted by:
"him mah"
kalau ngga keberatan minta tolong vba nya. di paste disini. soalnya
saya buka dari hp biasa jad4 ngga bisa download
Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
> Jika itemnya sangat banyak, bisa menggunakan RowSource seperti file
> terlampir.
> Jika itemnya sedikit, methods add milik combo yang biasa digunakan.
>
> Wassalam,
> Kid.
>
>
> 2012/11/2 him mah <himmah.mlg@gmail.com >
>
>> **
>>
>>
>> maaf belum bisa saya lampirkan contoh filenya, mungkin ilustrasi dulu
>>
>> misal kita punya 3 tabel
>> tabel propinsi ada di sheet tblProp terdiri dari 1 kolom yaitu kolom A
>> headernya Nama_propinsi
>> tabel kabupaten ada di sheet tblKab terdiri dari 2 kolom, kolom A
>> ("NAMA_PROPINSI"] dan kolom B ["NAMA_KAB"]
>> tabel Kelurahan ada di sheet tblKel terdiri dari 3 kolom, kolom A
>> ("NAMA_PROPINSI"] ,kolom B ["NAMA_KAB"] dan C ["NAMA_KEL"]
>>
>> terus saya buat UserForm dengan 3 ComboBox kemudian saya beri nama
>> cboProp dengan rowsource ke tabel Propinsi
>> cboKab dengan rowsource ke tabel kabupaten
>> cboKel dengan rowsource ke tabel Kelurahan
>>
>> yang jadi kendala
>>
>> misal ketika kita memilih cboKab maka data yang ditampilkan sesuai
>> dengan cboProp yang dipilih
>>
>> terus ketika kita memilih cboKel maka data yang ditampilkan adalah
>> sesuai dengan cboProp dan cboKab yang dipilih
>>
>> Pada tanggal 24/07/12, sumardiana596@gmail.com
>> <sumardiana596@gmail.com > menulis:
>>
>> > waaaahhhhh betul sekali........
>> > terima kasih Mr Kid,ternyata ada yang simple banget ya......betapa
>> bodohnya
>> > diriku
>> >
>> > Terima Kasih,
>> >
>> > mardi
>> >
>> > From: Kid Mr.
>> > Sent: Tuesday, July 24, 2012 3:00 AM
>> > To: belajar-excel@yahoogroups.com
>> > Subject: Re: [belajar-excel] belajar ComboBox
>> >
>> >
>> > Pak Mardi,
>> >
>> > Coba langkah berikut :
>> > 1. Buat nama range data NIK dan Karyawan yang ada di sheet Data (2
>> > kolom)
>> >>> ke sheet data
>> >>> blok data (tanpa header, mulai baris 2, sebanyak 2 kolom dan seluruh
>> >>> record data)
>> >>> klik kanan pilih name a range
>> >>> tulis di Name :
>> > listCboNik
>> >>> tekan OK
>> >
>> > 2. Atur properties combobox :
>> >>> ke VBE, tekan F4 berulang kali, hingga tampak ada window properties
>> yang
>> >>> muncul
>> >>> klik combobox
>> >>> atur nilai-nilai properties yang ada seperti nilai properties pada
>> gambar
>> >>> berikut ini :
>> > (pilih, akan cara set properties 1 atau cara set properties 2 berikut
>> ini)
>> > [cara set properties 1]
>> > [cara set properties 2]
>> >
>> >
>> > 3. Script mengisi nilai TextBox berdasar pilihan user di ComboBox
>> >>> di VBE, double click ComboBox
>> >>> akan muncul blok prosedur event untuk object combobox pada event
>> >>> change
>> >>> (pilihan user di combobox berganti)
>> >>> ubah blok tersebut hingga tampak seperti berikut ini :
>> > Private Sub ComboBox1_Change()
>> > If ComboBox1.ListIndex <> -1 Then
>> > TextBox1.Text = ComboBox1.List(ComboBox1.ListIndex, 1)
>> > Else
>> > TextBox1.Text = vbNullString
>> > End If
>> > End Sub
>> >>> mungkin script tersebut tidak diperlukan jika menggunakan cara set
>> >>> proeprties 2 di combobox-nya
>> >
>> > Wassalam,
>> > Kid.
>> >
>> >
>> >
>> > 2012/7/23 <sumardiana596@gmail.com >
>> >
>> >
>> > Dear master Belajar-Excel,
>> > bagaimana source code ringkas untuk menulis di combobox dan otomatis
>> > tampilkan di textbox . File terlampir
>> > Terima kasih sebelumnya.
>> > salam,
>> >
>> > mardi
>> >
>> >
>> >
>> >
>> >
>>
>>
>>
>
saya buka dari hp biasa jad4 ngga bisa download
Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.
> Jika itemnya sangat banyak, bisa menggunakan RowSource seperti file
> terlampir.
> Jika itemnya sedikit, methods add milik combo yang biasa digunakan.
>
> Wassalam,
> Kid.
>
>
> 2012/11/2 him mah <himmah.mlg@gmail.
>
>> **
>>
>>
>> maaf belum bisa saya lampirkan contoh filenya, mungkin ilustrasi dulu
>>
>> misal kita punya 3 tabel
>> tabel propinsi ada di sheet tblProp terdiri dari 1 kolom yaitu kolom A
>> headernya Nama_propinsi
>> tabel kabupaten ada di sheet tblKab terdiri dari 2 kolom, kolom A
>> ("NAMA_PROPINSI"
>> tabel Kelurahan ada di sheet tblKel terdiri dari 3 kolom, kolom A
>> ("NAMA_PROPINSI"
>>
>> terus saya buat UserForm dengan 3 ComboBox kemudian saya beri nama
>> cboProp dengan rowsource ke tabel Propinsi
>> cboKab dengan rowsource ke tabel kabupaten
>> cboKel dengan rowsource ke tabel Kelurahan
>>
>> yang jadi kendala
>>
>> misal ketika kita memilih cboKab maka data yang ditampilkan sesuai
>> dengan cboProp yang dipilih
>>
>> terus ketika kita memilih cboKel maka data yang ditampilkan adalah
>> sesuai dengan cboProp dan cboKab yang dipilih
>>
>> Pada tanggal 24/07/12, sumardiana596@
>> <sumardiana596@
>>
>> > waaaahhhhh betul sekali......
>> > terima kasih Mr Kid,ternyata ada yang simple banget ya......betapa
>> bodohnya
>> > diriku
>> >
>> > Terima Kasih,
>> >
>> > mardi
>> >
>> > From: Kid Mr.
>> > Sent: Tuesday, July 24, 2012 3:00 AM
>> > To: belajar-excel@
>> > Subject: Re: [belajar-excel] belajar ComboBox
>> >
>> >
>> > Pak Mardi,
>> >
>> > Coba langkah berikut :
>> > 1. Buat nama range data NIK dan Karyawan yang ada di sheet Data (2
>> > kolom)
>> >>> ke sheet data
>> >>> blok data (tanpa header, mulai baris 2, sebanyak 2 kolom dan seluruh
>> >>> record data)
>> >>> klik kanan pilih name a range
>> >>> tulis di Name :
>> > listCboNik
>> >>> tekan OK
>> >
>> > 2. Atur properties combobox :
>> >>> ke VBE, tekan F4 berulang kali, hingga tampak ada window properties
>> yang
>> >>> muncul
>> >>> klik combobox
>> >>> atur nilai-nilai properties yang ada seperti nilai properties pada
>> gambar
>> >>> berikut ini :
>> > (pilih, akan cara set properties 1 atau cara set properties 2 berikut
>> ini)
>> > [cara set properties 1]
>> > [cara set properties 2]
>> >
>> >
>> > 3. Script mengisi nilai TextBox berdasar pilihan user di ComboBox
>> >>> di VBE, double click ComboBox
>> >>> akan muncul blok prosedur event untuk object combobox pada event
>> >>> change
>> >>> (pilihan user di combobox berganti)
>> >>> ubah blok tersebut hingga tampak seperti berikut ini :
>> > Private Sub ComboBox1_Change(
>> > If ComboBox1.ListIndex <> -1 Then
>> > TextBox1.Text = ComboBox1.List(
>> > Else
>> > TextBox1.Text = vbNullString
>> > End If
>> > End Sub
>> >>> mungkin script tersebut tidak diperlukan jika menggunakan cara set
>> >>> proeprties 2 di combobox-nya
>> >
>> > Wassalam,
>> > Kid.
>> >
>> >
>> >
>> > 2012/7/23 <sumardiana596@
>> >
>> >
>> > Dear master Belajar-Excel,
>> > bagaimana source code ringkas untuk menulis di combobox dan otomatis
>> > tampilkan di textbox . File terlampir
>> > Terima kasih sebelumnya.
>> > salam,
>> >
>> > mardi
>> >
>> >
>> >
>> >
>> >
>>
>>
>>
>
Fri Nov 2, 2012 4:48 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
-key1 di kolom A dengan nama range untuk combobox cboKey1 :: _lstKey1_
-key2 di kolom C dan D dengan nama range untuk combobox cboKey2 :: _lstKey2_
-key3 di kolom F sampai H dengan nama range untuk combobox cboKey3 :: _lst
Key3_
'untuk sheet2 saja
Private Sub cboKey1_Change()
Dim rngKey As Range
Dim lKey As Long
cboKey2.RowSource = vbNullString
cboKey2.Text = vbNullString
If cboKey1.ListIndex > -1 Then
'blok berikut ini bisa dibuat recursive,
'sehingga bisa digunakan untuk multi level combo
'lihat pola pada cbokey2 event change dalam membuat prosedur
recursive-nya
Set rngKey = Sheet2.Range("c1").CurrentRegion.Resize(, 1)
lKey = Application.WorksheetFunction.CountIf(rngKey, cboKey1.Text)
If lKey <> 0 Then
rngKey.Find(cboKey1.Text).Offset(0, 1).Resize(lKey).Name =
"_lstKey2_"
cboKey2.RowSource = "_lstKey2_"
End If
End If
End Sub
Private Sub cboKey2_Change()
Dim rngKey As Range
Dim lKey As Long
cboKey3.RowSource = vbNullString
cboKey3.Text = vbNullString
If cboKey2.ListIndex > -1 Then
Set rngKey = Sheet2.Range("f1").CurrentRegion.Resize(,
1) 'key1 area
lKey = Application.WorksheetFunction.CountIf(rngKey,
cboKey1.Text) 'count key1 = cbo1
If lKey <> 0 Then
Set rngKey = rngKey.Find(cboKey1.Text).Offset(0,
1).Resize(lKey) 'key2 area
lKey = Application.WorksheetFunction.CountIf(rngKey,
cboKey2.Text) 'count key2 = cbo2
If lKey <> 0 Then
rngKey.Find(cboKey2.Text).Offset(0, 1).Resize(lKey).Name =
"_lstKey3_"
cboKey3.RowSource = "_lstKey3_"
End If
End If
End If
End Sub
'init
Private Sub UserForm_Initialize()
Dim lItem As Long
'init sheet2
With Sheet2
lItem = .Range("a1").CurrentRegion.Rows.Count - 1
If lItem > 0 Then
.Range("a2").Resize(lItem, 1).Name = "_lstKey1_"
cboKey1.RowSource = "_lstKey1_"
Else
cboKey1.RowSource = vbNullString
End If
cboKey1.Text = vbNullString
.Range("c1").CurrentRegion.Sort .Range("c1"), xlAscending,
Header:=xlYes
.Range("f1").CurrentRegion.Sort .Range("f1"), xlAscending,
.Range("g1"), order2:=xlAscending, Header:=xlYes
End With
End Sub
Silakan.
Wassalam,
Kid.
2012/11/2 him mah <himmah.mlg@gmail.com >
> **
>
>
> kalau ngga keberatan minta tolong vba nya. di paste disini. soalnya
> saya buka dari hp biasa jad4 ngga bisa download
>
> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
>
> > Jika itemnya sangat banyak, bisa menggunakan RowSource seperti file
> > terlampir.
> > Jika itemnya sedikit, methods add milik combo yang biasa digunakan.
> >
> > Wassalam,
> > Kid.
> >
> >
> > 2012/11/2 him mah <himmah.mlg@gmail.com >
> >
> >> **
>
> >>
> >>
> >> maaf belum bisa saya lampirkan contoh filenya, mungkin ilustrasi dulu
> >>
> >> misal kita punya 3 tabel
> >> tabel propinsi ada di sheet tblProp terdiri dari 1 kolom yaitu kolom A
> >> headernya Nama_propinsi
> >> tabel kabupaten ada di sheet tblKab terdiri dari 2 kolom, kolom A
> >> ("NAMA_PROPINSI"] dan kolom B ["NAMA_KAB"]
> >> tabel Kelurahan ada di sheet tblKel terdiri dari 3 kolom, kolom A
> >> ("NAMA_PROPINSI"] ,kolom B ["NAMA_KAB"] dan C ["NAMA_KEL"]
> >>
> >> terus saya buat UserForm dengan 3 ComboBox kemudian saya beri nama
> >> cboProp dengan rowsource ke tabel Propinsi
> >> cboKab dengan rowsource ke tabel kabupaten
> >> cboKel dengan rowsource ke tabel Kelurahan
> >>
> >> yang jadi kendala
> >>
> >> misal ketika kita memilih cboKab maka data yang ditampilkan sesuai
> >> dengan cboProp yang dipilih
> >>
> >> terus ketika kita memilih cboKel maka data yang ditampilkan adalah
> >> sesuai dengan cboProp dan cboKab yang dipilih
> >>
> >> Pada tanggal 24/07/12, sumardiana596@gmail.com
> >> <sumardiana596@gmail.com > menulis:
> >>
> >> > waaaahhhhh betul sekali........
> >> > terima kasih Mr Kid,ternyata ada yang simple banget ya......betapa
> >> bodohnya
> >> > diriku
> >> >
> >> > Terima Kasih,
> >> >
> >> > mardi
> >> >
> >> > From: Kid Mr.
> >> > Sent: Tuesday, July 24, 2012 3:00 AM
> >> > To: belajar-excel@yahoogroups.com
> >> > Subject: Re: [belajar-excel] belajar ComboBox
> >> >
> >> >
> >> > Pak Mardi,
> >> >
> >> > Coba langkah berikut :
> >> > 1. Buat nama range data NIK dan Karyawan yang ada di sheet Data (2
> >> > kolom)
> >> >>> ke sheet data
> >> >>> blok data (tanpa header, mulai baris 2, sebanyak 2 kolom dan seluruh
> >> >>> record data)
> >> >>> klik kanan pilih name a range
> >> >>> tulis di Name :
> >> > listCboNik
> >> >>> tekan OK
> >> >
> >> > 2. Atur properties combobox :
> >> >>> ke VBE, tekan F4 berulang kali, hingga tampak ada window properties
> >> yang
> >> >>> muncul
> >> >>> klik combobox
> >> >>> atur nilai-nilai properties yang ada seperti nilai properties pada
> >> gambar
> >> >>> berikut ini :
> >> > (pilih, akan cara set properties 1 atau cara set properties 2 berikut
> >> ini)
> >> > [cara set properties 1]
> >> > [cara set properties 2]
> >> >
> >> >
> >> > 3. Script mengisi nilai TextBox berdasar pilihan user di ComboBox
> >> >>> di VBE, double click ComboBox
> >> >>> akan muncul blok prosedur event untuk object combobox pada event
> >> >>> change
> >> >>> (pilihan user di combobox berganti)
> >> >>> ubah blok tersebut hingga tampak seperti berikut ini :
> >> > Private Sub ComboBox1_Change()
> >> > If ComboBox1.ListIndex <> -1 Then
> >> > TextBox1.Text = ComboBox1.List(ComboBox1.ListIndex, 1)
> >> > Else
> >> > TextBox1.Text = vbNullString
> >> > End If
> >> > End Sub
> >> >>> mungkin script tersebut tidak diperlukan jika menggunakan cara set
> >> >>> proeprties 2 di combobox-nya
> >> >
> >> > Wassalam,
> >> > Kid.
> >> >
> >> >
> >> >
> >> > 2012/7/23 <sumardiana596@gmail.com >
> >> >
> >> >
> >> > Dear master Belajar-Excel,
> >> > bagaimana source code ringkas untuk menulis di combobox dan otomatis
> >> > tampilkan di textbox . File terlampir
> >> > Terima kasih sebelumnya.
> >> > salam,
> >> >
> >> > mardi
> >> >
> >> >
> >> >
> >> >
> >> >
> >>
> >>
> >>
> >
>
>
>
-key2 di kolom C dan D dengan nama range untuk combobox cboKey2 :: _lstKey2_
-key3 di kolom F sampai H dengan nama range untuk combobox cboKey3 :: _lst
Key3_
'untuk sheet2 saja
Private Sub cboKey1_Change(
Dim rngKey As Range
Dim lKey As Long
cboKey2.RowSource = vbNullString
cboKey2.Text = vbNullString
If cboKey1.ListIndex > -1 Then
'blok berikut ini bisa dibuat recursive,
'sehingga bisa digunakan untuk multi level combo
'lihat pola pada cbokey2 event change dalam membuat prosedur
recursive-nya
Set rngKey = Sheet2.Range(
lKey = Application.
If lKey <> 0 Then
rngKey.Find(
"_lstKey2_"
cboKey2.RowSource = "_lstKey2_"
End If
End If
End Sub
Private Sub cboKey2_Change(
Dim rngKey As Range
Dim lKey As Long
cboKey3.RowSource = vbNullString
cboKey3.Text = vbNullString
If cboKey2.ListIndex > -1 Then
Set rngKey = Sheet2.Range(
1) 'key1 area
lKey = Application.
cboKey1.Text) 'count key1 = cbo1
If lKey <> 0 Then
Set rngKey = rngKey.Find(
1).Resize(lKey) 'key2 area
lKey = Application.
cboKey2.Text) 'count key2 = cbo2
If lKey <> 0 Then
rngKey.Find(
"_lstKey3_"
cboKey3.RowSource = "_lstKey3_"
End If
End If
End If
End Sub
'init
Private Sub UserForm_Initialize
Dim lItem As Long
'init sheet2
With Sheet2
lItem = .Range("a1")
If lItem > 0 Then
.Range("a2")
cboKey1.RowSource = "_lstKey1_"
Else
cboKey1.RowSource = vbNullString
End If
cboKey1.Text = vbNullString
.Range("c1")
Header:=xlYes
.Range("f1")
.Range("g1")
End With
End Sub
Silakan.
Wassalam,
Kid.
2012/11/2 him mah <himmah.mlg@gmail.
> **
>
>
> kalau ngga keberatan minta tolong vba nya. di paste disini. soalnya
> saya buka dari hp biasa jad4 ngga bisa download
>
> Pada tanggal 02/11/12, Mr. Kid <mr.nmkid@gmail.
>
> > Jika itemnya sangat banyak, bisa menggunakan RowSource seperti file
> > terlampir.
> > Jika itemnya sedikit, methods add milik combo yang biasa digunakan.
> >
> > Wassalam,
> > Kid.
> >
> >
> > 2012/11/2 him mah <himmah.mlg@gmail.
> >
> >> **
>
> >>
> >>
> >> maaf belum bisa saya lampirkan contoh filenya, mungkin ilustrasi dulu
> >>
> >> misal kita punya 3 tabel
> >> tabel propinsi ada di sheet tblProp terdiri dari 1 kolom yaitu kolom A
> >> headernya Nama_propinsi
> >> tabel kabupaten ada di sheet tblKab terdiri dari 2 kolom, kolom A
> >> ("NAMA_PROPINSI"
> >> tabel Kelurahan ada di sheet tblKel terdiri dari 3 kolom, kolom A
> >> ("NAMA_PROPINSI"
> >>
> >> terus saya buat UserForm dengan 3 ComboBox kemudian saya beri nama
> >> cboProp dengan rowsource ke tabel Propinsi
> >> cboKab dengan rowsource ke tabel kabupaten
> >> cboKel dengan rowsource ke tabel Kelurahan
> >>
> >> yang jadi kendala
> >>
> >> misal ketika kita memilih cboKab maka data yang ditampilkan sesuai
> >> dengan cboProp yang dipilih
> >>
> >> terus ketika kita memilih cboKel maka data yang ditampilkan adalah
> >> sesuai dengan cboProp dan cboKab yang dipilih
> >>
> >> Pada tanggal 24/07/12, sumardiana596@
> >> <sumardiana596@
> >>
> >> > waaaahhhhh betul sekali......
> >> > terima kasih Mr Kid,ternyata ada yang simple banget ya......betapa
> >> bodohnya
> >> > diriku
> >> >
> >> > Terima Kasih,
> >> >
> >> > mardi
> >> >
> >> > From: Kid Mr.
> >> > Sent: Tuesday, July 24, 2012 3:00 AM
> >> > To: belajar-excel@
> >> > Subject: Re: [belajar-excel] belajar ComboBox
> >> >
> >> >
> >> > Pak Mardi,
> >> >
> >> > Coba langkah berikut :
> >> > 1. Buat nama range data NIK dan Karyawan yang ada di sheet Data (2
> >> > kolom)
> >> >>> ke sheet data
> >> >>> blok data (tanpa header, mulai baris 2, sebanyak 2 kolom dan seluruh
> >> >>> record data)
> >> >>> klik kanan pilih name a range
> >> >>> tulis di Name :
> >> > listCboNik
> >> >>> tekan OK
> >> >
> >> > 2. Atur properties combobox :
> >> >>> ke VBE, tekan F4 berulang kali, hingga tampak ada window properties
> >> yang
> >> >>> muncul
> >> >>> klik combobox
> >> >>> atur nilai-nilai properties yang ada seperti nilai properties pada
> >> gambar
> >> >>> berikut ini :
> >> > (pilih, akan cara set properties 1 atau cara set properties 2 berikut
> >> ini)
> >> > [cara set properties 1]
> >> > [cara set properties 2]
> >> >
> >> >
> >> > 3. Script mengisi nilai TextBox berdasar pilihan user di ComboBox
> >> >>> di VBE, double click ComboBox
> >> >>> akan muncul blok prosedur event untuk object combobox pada event
> >> >>> change
> >> >>> (pilihan user di combobox berganti)
> >> >>> ubah blok tersebut hingga tampak seperti berikut ini :
> >> > Private Sub ComboBox1_Change(
> >> > If ComboBox1.ListIndex <> -1 Then
> >> > TextBox1.Text = ComboBox1.List(
> >> > Else
> >> > TextBox1.Text = vbNullString
> >> > End If
> >> > End Sub
> >> >>> mungkin script tersebut tidak diperlukan jika menggunakan cara set
> >> >>> proeprties 2 di combobox-nya
> >> >
> >> > Wassalam,
> >> > Kid.
> >> >
> >> >
> >> >
> >> > 2012/7/23 <sumardiana596@
> >> >
> >> >
> >> > Dear master Belajar-Excel,
> >> > bagaimana source code ringkas untuk menulis di combobox dan otomatis
> >> > tampilkan di textbox . File terlampir
> >> > Terima kasih sebelumnya.
> >> > salam,
> >> >
> >> > mardi
> >> >
> >> >
> >> >
> >> >
> >> >
> >>
> >>
> >>
> >
>
>
>
Fri Nov 2, 2012 2:19 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba file terlampir.
Wassalam,
Kid.
2012/11/1 Yudi Dwiyono <yudi_dwiyono@yahoo.com >
> **
>
>
> Dear Master Excel,
>
> Mohon bantunnya , adakah cara menyatukan data dari sheet yang berbeda.
> Data contoh terlampir.
>
> Thanks,
> Yudi
>
> _
>
>
Wassalam,
Kid.
2012/11/1 Yudi Dwiyono <yudi_dwiyono@
> **
>
>
> Dear Master Excel,
>
> Mohon bantunnya , adakah cara menyatukan data dari sheet yang berbeda.
> Data contoh terlampir.
>
> Thanks,
> Yudi
>
> _
>
>
Fri Nov 2, 2012 3:11 am (PDT) . Posted by:
"Dunia Naana" dunia.naana
dear All,
Assalamualaikum
permisi rekans..
mohon pencerahan, bagaimana caranya excel bisa mengirimkan otomatis email, jika suatu kondisi terpenuhi,
saya sudah mencoba melihat cara di http://msdn.microsoft.com/en-us/library/aa203718%28office.11%29.aspx namun tetap mengalami kesulitan untuk mencari solusinya..
dengan demikian saya melampirkan contoh kasus sederhana, mohon bantuannya..
terima kasih..
--- Mods ---
Mohon tidak menyertakan CC maupun BCC dan TO tetap hanya tertuju ke milis saja.
Andaikan file lampiran disertai script prosedur yang telah dicoba berdasar link tersebut, maka calon penanggap akan mendapat banyak kemudahan untuk membantu memudahkan Anda.
------------
Assalamualaikum
permisi rekans..
mohon pencerahan, bagaimana caranya excel bisa mengirimkan otomatis email, jika suatu kondisi terpenuhi,
saya sudah mencoba melihat cara di http://msdn.
dengan demikian saya melampirkan contoh kasus sederhana, mohon bantuannya..
terima kasih..
--- Mods ---
Mohon tidak menyertakan CC maupun BCC dan TO tetap hanya tertuju ke milis saja.
Andaikan file lampiran disertai script prosedur yang telah dicoba berdasar link tersebut, maka calon penanggap akan mendapat banyak kemudahan untuk membantu memudahkan Anda.
------------
Fri Nov 2, 2012 4:28 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Mungkin seperti file terlampir.
Tapi belum dicoba.
Aktifkan dengan double click cell H4 atau pencet tombol [Kirim]
Wassalamu'alaikum Wr. Wb.
Kid.
2012/11/2 Dunia Naana <dunia.naana@yahoo.com >
> **
>
>
> dear All,
>
> Assalamualaikum
> permisi rekans..
> mohon pencerahan, bagaimana caranya excel bisa mengirimkan otomatis email,
> jika suatu kondisi terpenuhi,
>
> saya sudah mencoba melihat cara di
> http://msdn.microsoft.com/en-us/library/aa203718%28office.11%29.aspxnamun tetap mengalami kesulitan untuk mencari solusinya..
> dengan demikian saya melampirkan contoh kasus sederhana, mohon bantuannya..
>
> terima kasih..
>
> --- Mods ---
> Mohon tidak menyertakan CC maupun BCC dan TO tetap hanya tertuju ke milis
> saja.
>
> Andaikan file lampiran disertai script prosedur yang telah dicoba berdasar
> link tersebut, maka calon penanggap akan mendapat banyak kemudahan untuk
> membantu memudahkan Anda.
> ------------
>
>
Mungkin seperti file terlampir.
Tapi belum dicoba.
Aktifkan dengan double click cell H4 atau pencet tombol [Kirim]
Wassalamu'alaikum Wr. Wb.
Kid.
2012/11/2 Dunia Naana <dunia.naana@
> **
>
>
> dear All,
>
> Assalamualaikum
> permisi rekans..
> mohon pencerahan, bagaimana caranya excel bisa mengirimkan otomatis email,
> jika suatu kondisi terpenuhi,
>
> saya sudah mencoba melihat cara di
> http://msdn.
> dengan demikian saya melampirkan contoh kasus sederhana, mohon bantuannya..
>
> terima kasih..
>
> --- Mods ---
> Mohon tidak menyertakan CC maupun BCC dan TO tetap hanya tertuju ke milis
> saja.
>
> Andaikan file lampiran disertai script prosedur yang telah dicoba berdasar
> link tersebut, maka calon penanggap akan mendapat banyak kemudahan untuk
> membantu memudahkan Anda.
> ------------
>
>
Fri Nov 2, 2012 4:57 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Bagaimana jika tabel yang diinginkan itu diletakkan di sheet lain.
Karena dataset
tersebut masuk golongan output.
Coba manfaatkan pivot table. Nama range yang menjadi data source pivot
table bisa di assign melalui proses simpan atau edit.
Sertakan proses refresh pivot table pada akhir proses input atau edit.
Jika kolom Item1 sampai Item3 dan Nominal1 sampai Nominal3 disusun (saat simpan
melalui proses input atau edit) menjadi beberapa baris, maka proses
pengolahan daat akan jauh lebih mudah untuk mendapatkan lebih banyak
informasi. Misal, berapa total budget kerupuk antara tanggal tertentu untuk
no budget tertentu.
Jadi, kolom database akan seperti :
PV TGL NO_BUDGET DESC_BUDGET ITEM_NUMBER NOMINAL
Wassalam,
Kid.
2012/10/29 Kelik Pitoyo <kelik@shindengen.co.id >
> **
>
>
> Dear Be Exceller,****
>
> ** **
>
> Sebelumnya saya ucapkan terima kasih atas bantuan-bantuan yang sebelumnya .
> ****
>
> Kemudian saya minta maaf telah menggunakan dan telah merubah file ini
> sesuai dengan kebutuhan saya.****
>
> ** **
>
> Saya ingin bantuan lagi dari Master dan Be exeller semua.****
>
> Keinginan saya, begitu data di tansfer/disimpan, selajutnya di DATAbase,
> akan masuk lagi ke kolom disamping sesuai dengan Bulan dan No Budget
> masing-masing (dijumlahkan bila No. Budgetnya dan bulan sama).****
>
> ** **
>
> Terima kasih atas bantuannya,****
>
> Salam,****
>
> Kelik****
>
> ** **
>
> _
>
Karena dataset
tersebut masuk golongan output.
Coba manfaatkan pivot table. Nama range yang menjadi data source pivot
table bisa di assign melalui proses simpan atau edit.
Sertakan proses refresh pivot table pada akhir proses input atau edit.
Jika kolom Item1 sampai Item3 dan Nominal1 sampai Nominal3 disusun (saat simpan
melalui proses input atau edit) menjadi beberapa baris, maka proses
pengolahan daat akan jauh lebih mudah untuk mendapatkan lebih banyak
informasi. Misal, berapa total budget kerupuk antara tanggal tertentu untuk
no budget tertentu.
Jadi, kolom database akan seperti :
PV TGL NO_BUDGET DESC_BUDGET ITEM_NUMBER NOMINAL
Wassalam,
Kid.
2012/10/29 Kelik Pitoyo <kelik@shindengen.
> **
>
>
> Dear Be Exceller,***
>
> ** **
>
> Sebelumnya saya ucapkan terima kasih atas bantuan-bantuan yang sebelumnya .
> ****
>
> Kemudian saya minta maaf telah menggunakan dan telah merubah file ini
> sesuai dengan kebutuhan saya.****
>
> ** **
>
> Saya ingin bantuan lagi dari Master dan Be exeller semua.****
>
> Keinginan saya, begitu data di tansfer/disimpan, selajutnya di DATAbase,
> akan masuk lagi ke kolom disamping sesuai dengan Bulan dan No Budget
> masing-masing (dijumlahkan bila No. Budgetnya dan bulan sama).****
>
> ** **
>
> Terima kasih atas bantuannya,*
>
> Salam,****
>
> Kelik****
>
> ** **
>
> _
>
Fri Nov 2, 2012 5:48 am (PDT) . Posted by:
"lkm jktind" lkmjkt
Mohon maaf.
sedang berhalangan.
Baru sempat membalas email saat ini.
Berikut ini : saya kirimkan . lagi contoh file . yg saya kehendaki hasil
nya seperti si sheet hasil.
dan mau nya diselesaikan dengan cara loopping.
Sebelum nya saya ucapkan terima kasih.
Salam Lukman
NB : mau mengambil data berapa % fee jual/beli , berapa % Tax dan Lamanya
tenggang waktu berikut jadwal hari libur .
Data tersebut ada di sheet database
2012/10/24 Mr. Kid <mr.nmkid@gmail.com >
> **
>
>
> Pak Lukman,
>
> Bolehkah meminta penjelasan yang lebih detil. Jika merujuk sebuah cell,
> cantumkan indeks kolom dan barisnya beserta di sheet apa.
> Sertakan juga hasil kerja manualnya. Maksud dari loop pada kasus ini adalah
> proses yang bagaimana.
>
> Maaf kalau malah merepotkan. Kuatirnya, dengan penjelasan yang ada
> sekarang ini, akan ada BeExceller lain yang 5 minggu mencoba membantu tapi
> belum ketemu idenya.
>
> Wassalam,
> Kid.
>
> 2012/10/24 lkm jktind <lkmjktind@gmail.com >
>
>> **
>>
>>
>> mau belajar looping .
>> cara mengambil data dari sheet data bese.
>> untuk di pakai di sheet input_data.
>> untuk cells 13 . itu perhitungannya . = cell 4 + cell 16 --- kalau di
>> formula excel : workday.
>> cell 14 : % fee .
>> cell 15 : % tax
>> cell 16 : T + berapa hari .
>>
>> (nantinya cell 14, 15 dan 16 ) akan saya kosongkan .
>>
>> diambil dari sheet database.
>>
>> sudah 5 minggu .lamanya hanya sampai di sini hasil yg dapat ke kerjakan
>> .
>>
>> sebelum nya saya ucapkan terima kasih .
>>
>> Salam
>>
>> Lukman
>>
>>
>>
>
>
sedang berhalangan.
Baru sempat membalas email saat ini.
Berikut ini : saya kirimkan . lagi contoh file . yg saya kehendaki hasil
nya seperti si sheet hasil.
dan mau nya diselesaikan dengan cara loopping.
Sebelum nya saya ucapkan terima kasih.
Salam Lukman
NB : mau mengambil data berapa % fee jual/beli , berapa % Tax dan Lamanya
tenggang waktu berikut jadwal hari libur .
Data tersebut ada di sheet database
2012/10/24 Mr. Kid <mr.nmkid@gmail.
> **
>
>
> Pak Lukman,
>
> Bolehkah meminta penjelasan yang lebih detil. Jika merujuk sebuah cell,
> cantumkan indeks kolom dan barisnya beserta di sheet apa.
> Sertakan juga hasil kerja manualnya. Maksud dari loop pada kasus ini adalah
> proses yang bagaimana.
>
> Maaf kalau malah merepotkan. Kuatirnya, dengan penjelasan yang ada
> sekarang ini, akan ada BeExceller lain yang 5 minggu mencoba membantu tapi
> belum ketemu idenya.
>
> Wassalam,
> Kid.
>
> 2012/10/24 lkm jktind <lkmjktind@gmail.
>
>> **
>>
>>
>> mau belajar looping .
>> cara mengambil data dari sheet data bese.
>> untuk di pakai di sheet input_data.
>> untuk cells 13 . itu perhitungannya . = cell 4 + cell 16 --- kalau di
>> formula excel : workday.
>> cell 14 : % fee .
>> cell 15 : % tax
>> cell 16 : T + berapa hari .
>>
>> (nantinya cell 14, 15 dan 16 ) akan saya kosongkan .
>>
>> diambil dari sheet database.
>>
>> sudah 5 minggu .lamanya hanya sampai di sini hasil yg dapat ke kerjakan
>> .
>>
>> sebelum nya saya ucapkan terima kasih .
>>
>> Salam
>>
>> Lukman
>>
>>
>>
>
>
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