Rabu, 07 Agustus 2019

[belajar-excel] Digest Number 4815

9 Messages

Digest #4815

Messages

Wed Aug 7, 2019 12:27 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hai Harry,Jawaban Terlampir, pakai formula yang sering dipopulerkan oleh para sesepuh Be-Excel.Supaya ga ribet pakai Index Match, data dibagi 2 kelompok...Mio dan Sport.
Terima kasih.
Salam,HK

Pada Rabu, 7 Agustus 2019 05.48.23 WIB, harry budiman sendtoharbud@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

 

Halo Master sekalian

 

Mohon bantuan mengenai formula jika kita ingin mengetahui masuk kategori mana dalam range tertentu

 

Terlampir

 

 

Salam

Harry

 

Wed Aug 7, 2019 6:19 am (PDT) . Posted by:

"harry budiman"

Terima kasih sebelumnya pak Hedrik, bagaimana jika case nya seperti terlampir (dikarenakan di data actiualnya dapat berubah setiap bulan)

Terimakasih

Salam Hormat

From: hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]
Sent: Wednesday, August 7, 2019 2:27 PM
To: harry budiman sendtoharbud@gmail.com [belajar-excel]
Subject: Re: [belajar-excel] Formula Range DP [1 Attachment]

 
Hai Harry,
Jawaban Terlampir, pakai formula yang sering dipopulerkan oleh para sesepuh Be-Excel.
Supaya ga ribet pakai Index Match, data dibagi 2 kelompok...Mio dan Sport.

Terima kasih.

Salam,
HK

Pada Rabu, 7 Agustus 2019 05.48.23 WIB, harry budiman sendtoharbud@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

 
Halo Master sekalian
 
Mohon bantuan mengenai formula jika kita ingin mengetahui masuk kategori mana dalam range tertentu
 
Terlampir
 
 
Salam
Harry
 

Wed Aug 7, 2019 7:20 am (PDT) . Posted by:

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

Begini :
=LOOKUP($M7,$E$5:$E$155/(($C$5:$C$155=$K7)*($D$5:$D$155=$L7)),H$5:H$155)
referensi di-sort asc berdasar start dp.

On Wed, Aug 7, 2019 at 8:23 PM harry budiman sendtoharbud@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Terima kasih sebelumnya pak Hedrik, bagaimana jika case nya seperti
> terlampir (dikarenakan di data actiualnya dapat berubah setiap bulan)
>
>
>
>
>
> Terimakasih
>
>
>
> Salam Hormat
>
>
>
>
>
> *From: *hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]
> <belajar-excel@yahoogroups.com>
> *Sent: *Wednesday, August 7, 2019 2:27 PM
> *To: *harry budiman sendtoharbud@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com>
> *Subject: *Re: [belajar-excel] Formula Range DP [1 Attachment]
>
>
>
>
>
> Hai Harry,
>
> Jawaban Terlampir, pakai formula yang sering dipopulerkan oleh para
> sesepuh Be-Excel.
>
> Supaya ga ribet pakai Index Match, data dibagi 2 kelompok...Mio dan Sport.
>
>
>
> Terima kasih.
>
>
>
> Salam,
>
> HK
>
>
>
>
>
> Pada Rabu, 7 Agustus 2019 05.48.23 WIB, harry budiman
> sendtoharbud@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>
> menulis:
>
>
>
>
>
>
>
> Halo Master sekalian
>
>
>
> Mohon bantuan mengenai formula jika kita ingin mengetahui masuk kategori
> mana dalam range tertentu
>
>
>
> Terlampir
>
>
>
>
>
> Salam
>
> Harry
>
>
>
>
>
>
>

Wed Aug 7, 2019 3:41 am (PDT) . Posted by:

iq_bal76id

Mungkin cara sederhana ini bisa dipakai

Thanks

Best Regards

Muhammad Iqbal

+62890909010/0811101854

From: belajar-excel@yahoogroups..com <belajar-excel@yahoogroups.com>
Sent: Tuesday, August 6, 2019 4:04 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Menandai Lunas Bayar dan Kurang Bayar

Assalaamu'alaikum Wr.Wb

Dear Master Excel dan member milis

Mohon dibantu Permasalahan formula excel yang saya alami

mengenai formula seperti terlampir

Atas bantuannya kami ucapkan banyak Terima kasih

Wassalaamu&#39;alaikum Wr.Wb

Wed Aug 7, 2019 6:20 am (PDT) . Posted by:

"Abdoel Khobir" mbellgedez

Luar Biasa...
Terima kasih atas bantuannya
Sekali lagi Terima kasih

On Wed, Aug 7, 2019 at 5:42 PM iq_bal76id@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:

>
>
> Mungkin cara sederhana ini bisa dipakai
>
>
>
>
>
> Thanks
>
> Best Regards
>
> Muhammad Iqbal
>
> +62890909010/0811101854
>
>
>
>
>
>
>
> *From:* belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com>
> *Sent:* Tuesday, August 6, 2019 4:04 PM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* [belajar-excel] Menandai Lunas Bayar dan Kurang Bayar
>
>
>
>
>
>
> Assalaamu'alaikum Wr.Wb
>
>
>
> Dear Master Excel dan member milis
>
>
>
> Mohon dibantu Permasalahan formula excel yang saya alami
>
> mengenai formula seperti terlampir
>
>
>
> Atas bantuannya kami ucapkan banyak Terima kasih
>
>
>
> Wassalaamu&#39;alaikum Wr.Wb
>
>
>
>
>

Wed Aug 7, 2019 5:17 am (PDT) . Posted by:

"HAIRUL ALAM"

Salam Mas Zainul
Maaf
Terimakasih Mas, rumus B2=REPT(1,COUNTIFS(INPUT!$C2:$P2,B$1)>0)
bisa digunakan, saya kurang perhatikan pada range B$1 yang ada pada rumus, Terimakasih rumus ini cukup sederhana
Assalamualaikum
Pada Selasa, 6 Agustus 2019 21.23.39 GMT+7, Zainul Ulum zainul_ulum@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

 

Mas Hairul Anam,.

Kalo rumus  di B2=REPT(1,COUNTIFS(INPUT!$C2:$P2,B$1)>0)

 

Sama nggak hasilnya?

Thanks,

-zainul

 

 

Sent from Mail for Windows 10

 

From: HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel]
Sent: Tuesday, August 6, 2019 4:30 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menampilkan hasil tanpa formula di exceldenganscript macro

 

 

Terimakasih Master,

 

Maksud rumusnya seperti yang saya cantumkan di module macro

pada OUTPUT menggunakan logika IF

 

Sheets("OUTPUT").Range("B2").FORMULA = "=IF(INPUT!C2=1,1,IF(INPUT!D2=1,1,IF(INPUT!E2=1,1,IF(INPUT!F2=1,1,IF(INPUT!G2=1,1,IF(INPUT!H2=1,1,IF(INPUT!I2=1,1,IF(INPUT!J2=1,1,IF(INPUT!K2=1,1,IF(INPUT!L2=1,1,IF(INPUT!M2=1,1,IF(INPUT!N2=1,1,IF(INPUT!O2=1,1,IF(INPUT!P2=1,1,""""))))))))))))))"

 

jadi intinya bila input cell C sampai P itu diisi angka misal 1 sampai 100 maka di OUTPUT cell B sampai CW (1-100) dimana salah satu angka yang masuk di INPUT cell C - P maka di OUTPUT akan ada nilai 1

 

cuma rumus tersebut diatas terlalu panjang dan saya bingung mengaplikasikan ke macro sederhana

 

dengan macro lampiran yang dikirimkan mas zainul, bisa membantu agar hasilnya saja yang terinput dan rumus tidak ikut

 

Terimakasih banyak, untuk rinciannya, dan syukur kalau ada penyederhanaan lagi 

Pada Selasa, 6 Agustus 2019 00.00.01 WIB, Zainul Ulum zainul_ulum@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

 

 

 

Sambil menunggu penjelasan rumsunya,

Silakan dipelajari macro terlampir, semoga sesuai harapan.

Wassalam

-zainul

 

 

Sent from Mail for Windows 10

 

From: Zainul Ulum zainul_ulum@yahoo.com [belajar-excel]
Sent: Monday, August 5, 2019 11:19 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] menampilkan hasil tanpa formula di excel denganscript macro

 

 

Mas Hairul Anam,

Apakah maksud atau penjelasan rumusnya bagaimana? Barangkali rekan-rekan bias bantu menyederhanakan.

 

Terimakasih,

-zainul

 

 

 

Sent from Mail for Windows 10

 

From: HAIRUL ALAM ha_mj76@yahoo..co.id [belajar-excel]
Sent: Saturday, August 3, 2019 4:35 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menampilkan hasil tanpa formula di excel denganscript macro [1 Attachment]

 

 

Maaf

 

Bila bukan vlookup melainkan rumus seperti file terlampir, seperti apa code macro copy pastenya agar rumusnya tidak tampil, dan hanya hasil formulanya saja

 

Terimakasih

 

Pada Jumat, 2 Agustus 2019 23.31.56 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

 

 

 

 

Langsung ke TKP aja ya di file terlampir.

 

Salam,

HK

 

Pada Jumat, 2 Agustus 2019 19.32.08 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

 

 

 

Makasih Mas HK

 

Maaf, Jika menggunakan 

code Sheets("b").Range("c4").Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")

hanya apa digunakan untuk 1 baris, kalau misalkan barisnya sampai 1000 code copy paste hasilnya seperti apa ya

 

Terimakasih bayak

Maaf, jika saya kurang paham masalah code macro

Pada Selasa, 30 Juli 2019 14.04.04 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

 

 

 

Coba ganti codenya spt ini :

Sheets("b").Range("c4").Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")

 

Salam,

HK

 

 

Pada Selasa, 30 Juli 2019 07.47.34 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

 

 

 

Salam

Para Master

 

mohon pencerahahannya dengan code script macro menampilkan hasil formula tanpa menampilkan rumus di cell excel, seperti file terlampir

 

Terimakasih

 

Assalamualaikum

 

Hairul Alam

 

 

 
#yiv3389779990 #yiv3389779990 -- #yiv3389779990ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3389779990 #yiv3389779990ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3389779990 #yiv3389779990ygrp-mkp #yiv3389779990hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3389779990 #yiv3389779990ygrp-mkp #yiv3389779990ads {margin-bottom:10px;}#yiv3389779990 #yiv3389779990ygrp-mkp .yiv3389779990ad {padding:0 0;}#yiv3389779990 #yiv3389779990ygrp-mkp ..yiv3389779990ad p {margin:0;}#yiv3389779990 #yiv3389779990ygrp-mkp .yiv3389779990ad a {color:#0000ff;text-decoration:none;}#yiv3389779990 #yiv3389779990ygrp-sponsor #yiv3389779990ygrp-lc {font-family:Arial;}#yiv3389779990 #yiv3389779990ygrp-sponsor #yiv3389779990ygrp-lc #yiv3389779990hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3389779990 #yiv3389779990ygrp-sponsor #yiv3389779990ygrp-lc .yiv3389779990ad {margin-bottom:10px;padding:0 0;}#yiv3389779990 #yiv3389779990actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3389779990 #yiv3389779990activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3389779990 #yiv3389779990activity span {font-weight:700;}#yiv3389779990 #yiv3389779990activity span:first-child {text-transform:uppercase;}#yiv3389779990 #yiv3389779990activity span a {color:#5085b6;text-decoration:none;}#yiv3389779990 #yiv3389779990activity span span {color:#ff7900;}#yiv3389779990 #yiv3389779990activity span .yiv3389779990underline {text-decoration:underline;}#yiv3389779990 .yiv3389779990attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3389779990 .yiv3389779990attach div a {text-decoration:none;}#yiv3389779990 .yiv3389779990attach img {border:none;padding-right:5px;}#yiv3389779990 .yiv3389779990attach label {display:block;margin-bottom:5px;}#yiv3389779990 .yiv3389779990attach label a {text-decoration:none;}#yiv3389779990 blockquote {margin:0 0 0 4px;}#yiv3389779990 .yiv3389779990bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3389779990 .yiv3389779990bold a {text-decoration:none;}#yiv3389779990 dd.yiv3389779990last p a {font-family:Verdana;font-weight:700;}#yiv3389779990 dd.yiv3389779990last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3389779990 dd.yiv3389779990last p span.yiv3389779990yshortcuts {margin-right:0;}#yiv3389779990 div.yiv3389779990attach-table div div a {text-decoration:none;}#yiv3389779990 div.yiv3389779990attach-table {width:400px;}#yiv3389779990 div.yiv3389779990file-title a, #yiv3389779990 div.yiv3389779990file-title a:active, #yiv3389779990 div.yiv3389779990file-title a:hover, #yiv3389779990 div.yiv3389779990file-title a:visited {text-decoration:none;}#yiv3389779990 div.yiv3389779990photo-title a, #yiv3389779990 div.yiv3389779990photo-title a:active, #yiv3389779990 div.yiv3389779990photo-title a:hover, #yiv3389779990 div.yiv3389779990photo-title a:visited {text-decoration:none;}#yiv3389779990 div#yiv3389779990ygrp-mlmsg #yiv3389779990ygrp-msg p a span.yiv3389779990yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3389779990 .yiv3389779990green {color:#628c2a;}#yiv3389779990 .yiv3389779990MsoNormal {margin:0 0 0 0;}#yiv3389779990 o {font-size:0;}#yiv3389779990 #yiv3389779990photos div {float:left;width:72px;}#yiv3389779990 #yiv3389779990photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv3389779990 #yiv3389779990photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3389779990 #yiv3389779990reco-category {font-size:77%;}#yiv3389779990 #yiv3389779990reco-desc {font-size:77%;}#yiv3389779990 .yiv3389779990replbq {margin:4px;}#yiv3389779990 #yiv3389779990ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3389779990 #yiv3389779990ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3389779990 #yiv3389779990ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3389779990 #yiv3389779990ygrp-mlmsg select, #yiv3389779990 input, #yiv3389779990 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3389779990 #yiv3389779990ygrp-mlmsg pre, #yiv3389779990 code {font:115% monospace;}#yiv3389779990 #yiv3389779990ygrp-mlmsg * {line-height:1.22em;}#yiv3389779990 #yiv3389779990ygrp-mlmsg #yiv3389779990logo {padding-bottom:10px;}#yiv3389779990 #yiv3389779990ygrp-msg p a {font-family:Verdana;}#yiv3389779990 #yiv3389779990ygrp-msg p#yiv3389779990attach-count span {color:#1E66AE;font-weight:700;}#yiv3389779990 #yiv3389779990ygrp-reco #yiv3389779990reco-head {color:#ff7900;font-weight:700;}#yiv3389779990 #yiv3389779990ygrp-reco {margin-bottom:20px;padding:0px;}#yiv3389779990 #yiv3389779990ygrp-sponsor #yiv3389779990ov li a {font-size:130%;text-decoration:none;}#yiv3389779990 #yiv3389779990ygrp-sponsor #yiv3389779990ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv3389779990 #yiv3389779990ygrp-sponsor #yiv3389779990ov ul {margin:0;padding:0 0 0 8px;}#yiv3389779990 #yiv3389779990ygrp-text {font-family:Georgia;}#yiv3389779990 #yiv3389779990ygrp-text p {margin:0 0 1em 0;}#yiv3389779990 #yiv3389779990ygrp-text tt {font-size:120%;}#yiv3389779990 #yiv3389779990ygrp-vital ul li:last-child {border-right:none !important;}#yiv3389779990

Wed Aug 7, 2019 6:19 am (PDT) . Posted by:

"HAIRUL ALAM"

Salam para Master
data combobox terlampir, seperti apa code macro bila sheets MAIN cell B3 dipilih JUMLAH Maka akan menghitung data pada sheet OUTPUT dan jika combobox sheets MAIN cell B3 dipilih PANJANG maka akan menghitung data pada sheet OUTPUTlength

AssalamualaikumHairul Alam

Wed Aug 7, 2019 7:38 am (PDT) . Posted by:

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

Wa'alaikumussalam wr wb

1. Dikurangi jumlah cells berformulanya.
2. Sebuah formula yang berisi banyak proses bisa dicarikan alternatif alur
proses yang lebih pendek, lalu disusun ulang formulanya.
3. Part dari sebuah formula yang dipakai berulang-ulang oleh formula lain,
dibuat terpisah di cells bantu.
Contoh : 3 cells berisi formula
cells1 : =vlookup( namadepan & namabelakang ,
tabel_penduduk , 2 , 0 )
cells2 : =vlookup( namadepan & namabelakang ,
tabel_penduduk , 8 , 0 )
cells3 : =vlookup( namadepan & namabelakang ,
tabel_penduduk , 5 , 0 )
lebih baik diubah dengan adanya cells bantu, misal diletakkan di cells0
berbunyi : =namadepan & namabelakang
lalu formula cells1 sampai cells3, pada bagian namadepan & namabelakang
diubah agar merujuk ke cells0
=vlookup( cells0 , tabel_penduduk , 2 , 0 ) ->contoh
untuk cells1
4. usahakan sungguh-sungguh agar formula tidak merujuk ke workbook lain
5. manfaatkan fitur excel seperti pivot table.
6. lebih baik lagi kalau pemanfaatan pivot table disertai power query atau
power pivot (bila dibutuhkan)

Mengatur calculation menjadi manual saat sebelum save atau saat membuka
workbook (baik secara manual ataupun dengan VBA) tetap saja akan membuat
suatu saat harus melakukan kalkulasi.
Jadi, cara itu tidak menyelesaikan masalah. Hanya mengalihkan masalah ke
waktu yang lain.

Wassalamu'alaikum wr wb
Kid

On Wed, Aug 7, 2019 at 5:38 AM HAIRUL ALAM ha_mj76@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Salam
> Para master
>
> Excel selalu menghitung dan lambat bila worksheet ditutup/keluar,
> bagaimana solusi agar file excel tidak selalu menghitung saat di
> tutup/keluar, memang pada file excel terdapat banyak rumus, mungkin itu
> salah satu penyebab, melambatnya file tersebut..
>
> Terimakasih
>
> Assalamualaikum
> Hairul Alam
>
>
>

Wed Aug 7, 2019 8:21 pm (PDT) . Posted by:

"Stephen Saputro"

Noted Pak,

Terima kasih ya Pak

On Tue, Aug 6, 2019 at 7:09 PM hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Kalau macronya dijalankan di Sheet yang berbeda harus disebutkan nama
> Sheetnya didepan Range.
> *Jangan menggunakan ActiveSheet karena mengacu pada kalimat ini :*
> *"........**worbook excel yang saya gunakan untuk mengirimkan data ke
> table master dengan menggunakan VBA" macronya kan dijalankan dari sheet
> lain*.
>
> Salam,
> HK
>
>
> ----- Forwarded message -----
> *From:* hendrik karnadi <hendrikkarnadi@yahoo.com>
> *To:* Stephen Saputro stephensaputro@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>
> *Sent:* Monday, 5 August 2019, 08:48:35 pm GMT+7
> *Subject:* Re: [belajar-excel] Kirim data ke excel lain menggunakan VBA
>
> Hai Stephen,
>
> Coba code ini...
> rc = Range("*A*" & Rows.Count).End(xlUp).Row
> untuk mencari baris terakhir pada kolom *A*.
>
> Salam,
> HK
>
>
> Pada Senin, 5 Agustus 2019 16.47.29 GMT+7, Stephen Saputro
> stephensaputro@gmail.com [belajar-excel] <belajar-excel@yahoogroups..com>
> menulis:
>
>
>
>
> Selamat sore semuanya,
>
> Mohon kiranya dapat di bantu kasus saya ini. Saya membuat sebuah database
> sederhana, di mana ada satu workbook yang saya gunakan sebagai Table
> master. dan satu lagi worbook excel yang saya gunakan untuk mengirimkan
> data ke table master dengan menggunakan VBA.
>
> Permasalahan nya adalah script yang saya pakai di bawah ini, terkadang
> mengirimkan data dengan baik ke data row paling akhir dari sebuah table
> master, tapi terkadang data tersebut malah menimpa data lain yang sudah ada
> dengan row yang berbeda ( data yang masuk ke kolom2 nya sudah tepat hanya
> saja row nya yang berbeda, seharus nya adalah konsisten di row data sesudah
> row terakhir )
>
> Script nya adalah sbb :
>
> Private Sub Kirimdata_Click()
>
> If TextBox1.Value = "" Or TextBox4..Value = "" Then
> If MsgBox("Form is not complete.. Please fill the data No and the
> amount !", vbQuestion + vbYesNo) <> yes Then
> Exit Sub
> End If
> End If
>
>
> Dim rc As Long
> Dim path As String
> Dim wb As Workbook
>
> Application.ScreenUpdating = False
> path = "\&#92;blabla&#92;blabla&#92;blabla&#92;master.xlsm"
> rc = ActiveSheet.UsedRange.Rows.Count
>
> Workbooks.Open " \\blabla&#92;blabla&#92;blabla&#92;master.xlsm "
> Set wb = ActiveWorkbook
> rc = ActiveSheet.UsedRange.Rows.Count
>
> With Sheets(1).Range("A1")
> .Offset(rc, 0).Value = Me.ListBox1.Value
> .Offset(rc, 1).Value = Me.ListBox2.Value
> .Offset(rc, 2).Value = Me.ListBox3..Value
> .Offset(rc, 3).Value = Me.ListBox4.Value
> .Offset(rc, 4).Value = Me.ListBox5.Value
> .Offset(rc, 5).Value = Me..TextBox1.Value
> .Offset(rc, 6).Value = Me.TextBox2.Value
> .Offset(rc, 7).Value = Me.TextBox3.Value
> .Offset(rc, 8).Value = Me.ListBox6.Value
> .Offset(rc, 9).Value = Me.TextBox5.Value
> .Offset(rc, 10).Value = Me.TextBox4.Value
> .Offset(rc, 11).Value = Me.TextBox7.Value
> .Offset(rc, 12).Value = Me.TextBox8.Value
> .Offset(rc, 13).Value = Me.ListBox7.Value
> .Offset(rc, 14).Value = Me.TextBox6.Value
>
> End With
>
> wb.Save
> wb.Close
> Application.ScreenUpdating = True
> Unload Me
> Inputdata.Show
> End Sub
>
> Terima kasih sekali lagi untuk bantuan nya
>
>
>
============================================================
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
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar