selamat pagi,..
textbox1 = Nomor part dan combobox1=nama part,pilihan inputanya dari
combobox1.tapi no fakturnya berdasarkan Nomor part
Wasalam
Ito
On Friday, November 20, 2015 8:20 AM, "'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Berarti, object bernama Textbox1 pada baris kode Anda berikut :
Textbox1.listIndex<>-1
bukanlah ListBox atau ComboBox.
Wassalam,
Kid
2015-11-20 8:17 GMT+07:00 Warsito Ito warsitoit...@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com>:
Selamat Pagi Mr.Kid
Sebelumnya terima kasih atas pencerahanya jawaban yang lalu,
saya mau minta pencerahan lagi, setelah data saya isi semua ada namabarang yang
sama dan no faktur yang keluar tidak sesuai,sudah saya coba rubah berdasarkan
no partnya tetap g bisa,error pada Textbox1.listIndex<>-1
Sekali lagi saya ucapkan terima kasih dan Mohon bantuanya
Salam
On Thursday, November 19, 2015 12:56 PM, "Warsito Ito
warsitoit...@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Terima kasih atas pencerahanya Mr.Kid semoga sukses selalu
On Thursday, November 19, 2015 9:36 AM, "'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Hai Warsito,
Kira-kira begini...
(maaf, userform dan seluruh activex control disesuaikan dengan keadaan
setempat, karena tidak tampak di office viewer nya GDrive)
1. misal ada userform berisi sebuah combobox yang diberi nama cboPartName
(sesuaiakan nama combobox nya dengan keadaan setempat). Combobox cboPartName
diisi dengan daftar di kolom 'Nama part' yang unique dari sheet bernama 'data
barang' (kolom A)
2. user memilih dari cboPartName, maka pada suatu textbox yang bernama
txtNoFaktur (sesuaikan juga ya), akan diisi nomor faktur terakhir untuk nama
part terpilih yang diambil dari sheet bernama 'rekapan' kolom 'Nama part'
(kolom B).
Pada event change milik combobox cboPartName diberi kode berikut :
dim rngPartNameRekap as range 'wadah range nya nama part terpilih yang
terakhir ditemukan di sheet rekapan
if cbopartname.listindex<>-1 then 'user memilih sesuatu di cboPartName
with sheets("rekapan").range("b:b") 'pada kolom B sheet rekapan
'cari teksnya cbopartname di kolom B sheet rekapan dengan jalan mundur
set rngpartnamerekap = .find(cbopartname.text, .resize(1,1) ,
lookat:=xlwhole , searchdirection:=xlprevious)
if not rngpartnamerekap is nothing then 'kalau range hasil cari
tidak kosong alias ada barangnya atau ketemu
txtnofaktur.text=rngpartnamerekap.offset(0,3).value 'isi
txt dengan no faktur yang ada di 3 kolom setelah kolom B
else 'karena tidak ada di sheet rekapan, txt nya di kosongkan
txtnofaktur.text=vbnullstring
endif
end with
endif
Jadi, variabel object range bernama rngpartnamerekap akan berisi range di kolom
B pada baris terakhir yang isi nilai kolom B nya sama dengan isian di
cbopartname. Kalau cbopartname dipilih 'Gear' oleh user, maka rngpartnamerekap
akan berisi range b8. Dari range b8 ini, nomor fakturnya diperoleh dengan jalan
lompat 3 kolom ke kanan alias offset 0 baris dan plus 3 kolom [offset(0,3)].
Berarti, Anda juga bisa mengambil nilai dikolom lain, seperti 'Quantity' yang
dicapai dengan lompat 4 kolom kekakan dari B.
Selamat mencoba...
Wassalam,
Kid
On Thu, Nov 19, 2015 at 8:19 AM, Warsito Ito warsitoit...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Selamat pagi master
Berikut saya lampirkan contohnya..
sebelumnya saya ucapkan terima kasih
On Wednesday, November 18, 2015 11:09 PM, "Toby kenzo tobyke...@yahoo.co.id
[belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
| Dear pak Ito,Bisa di kasi contohnya pak...Sent from Yahoo Mail on Android |
From: Warsito Ito warsitoit...@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: [belajar-excel] Menampilkan no faktur terakhir sesuai jenis barang
Sent: Wed, Nov 18, 2015 9:35:01 AM
| Selamat sore para Master
Saya mau minta pencerahan,bagaimana cara menampilkan data (No.Faktur) inputan
terakhir sesuai dengan data yang ada pada textbox (sesuai nama barang).
sebelumnya saya ucapkan terima kasih banyak
|
#yiv4446146785 #yiv4446146785 -- #yiv4446146785ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4446146785
#yiv4446146785ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4446146785
#yiv4446146785ygrp-mkp #yiv4446146785hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv4446146785 #yiv4446146785ygrp-mkp #yiv4446146785ads
{margin-bottom:10px;}#yiv4446146785 #yiv4446146785ygrp-mkp .yiv4446146785ad
{padding:0 0;}#yiv4446146785 #yiv4446146785ygrp-mkp .yiv4446146785ad p
{margin:0;}#yiv4446146785 #yiv4446146785ygrp-mkp .yiv4446146785ad a
{color:#0000ff;text-decoration:none;}#yiv4446146785 #yiv4446146785ygrp-sponsor
#yiv4446146785ygrp-lc {font-family:Arial;}#yiv4446146785
#yiv4446146785ygrp-sponsor #yiv4446146785ygrp-lc #yiv4446146785hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4446146785
#yiv4446146785ygrp-sponsor #yiv4446146785ygrp-lc .yiv4446146785ad
{margin-bottom:10px;padding:0 0;}#yiv4446146785 #yiv4446146785actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4446146785
#yiv4446146785activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4446146785
#yiv4446146785activity span {font-weight:700;}#yiv4446146785
#yiv4446146785activity span:first-child
{text-transform:uppercase;}#yiv4446146785 #yiv4446146785activity span a
{color:#5085b6;text-decoration:none;}#yiv4446146785 #yiv4446146785activity span
span {color:#ff7900;}#yiv4446146785 #yiv4446146785activity span
.yiv4446146785underline {text-decoration:underline;}#yiv4446146785
.yiv4446146785attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv4446146785 .yiv4446146785attach div a
{text-decoration:none;}#yiv4446146785 .yiv4446146785attach img
{border:none;padding-right:5px;}#yiv4446146785 .yiv4446146785attach label
{display:block;margin-bottom:5px;}#yiv4446146785 .yiv4446146785attach label a
{text-decoration:none;}#yiv4446146785 blockquote {margin:0 0 0
4px;}#yiv4446146785 .yiv4446146785bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv4446146785
.yiv4446146785bold a {text-decoration:none;}#yiv4446146785 dd.yiv4446146785last
p a {font-family:Verdana;font-weight:700;}#yiv4446146785 dd.yiv4446146785last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4446146785
dd.yiv4446146785last p span.yiv4446146785yshortcuts
{margin-right:0;}#yiv4446146785 div.yiv4446146785attach-table div div a
{text-decoration:none;}#yiv4446146785 div.yiv4446146785attach-table
{width:400px;}#yiv4446146785 div.yiv4446146785file-title a, #yiv4446146785
div.yiv4446146785file-title a:active, #yiv4446146785
div.yiv4446146785file-title a:hover, #yiv4446146785 div.yiv4446146785file-title
a:visited {text-decoration:none;}#yiv4446146785 div.yiv4446146785photo-title a,
#yiv4446146785 div.yiv4446146785photo-title a:active, #yiv4446146785
div.yiv4446146785photo-title a:hover, #yiv4446146785
div.yiv4446146785photo-title a:visited {text-decoration:none;}#yiv4446146785
div#yiv4446146785ygrp-mlmsg #yiv4446146785ygrp-msg p a
span.yiv4446146785yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4446146785
.yiv4446146785green {color:#628c2a;}#yiv4446146785 .yiv4446146785MsoNormal
{margin:0 0 0 0;}#yiv4446146785 o {font-size:0;}#yiv4446146785
#yiv4446146785photos div {float:left;width:72px;}#yiv4446146785
#yiv4446146785photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv4446146785
#yiv4446146785photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4446146785
#yiv4446146785reco-category {font-size:77%;}#yiv4446146785
#yiv4446146785reco-desc {font-size:77%;}#yiv4446146785 .yiv4446146785replbq
{margin:4px;}#yiv4446146785 #yiv4446146785ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv4446146785 #yiv4446146785ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4446146785
#yiv4446146785ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4446146785
#yiv4446146785ygrp-mlmsg select, #yiv4446146785 input, #yiv4446146785 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv4446146785
#yiv4446146785ygrp-mlmsg pre, #yiv4446146785 code {font:115%
monospace;}#yiv4446146785 #yiv4446146785ygrp-mlmsg *
{line-height:1.22em;}#yiv4446146785 #yiv4446146785ygrp-mlmsg #yiv4446146785logo
{padding-bottom:10px;}#yiv4446146785 #yiv4446146785ygrp-msg p a
{font-family:Verdana;}#yiv4446146785 #yiv4446146785ygrp-msg
p#yiv4446146785attach-count span {color:#1E66AE;font-weight:700;}#yiv4446146785
#yiv4446146785ygrp-reco #yiv4446146785reco-head
{color:#ff7900;font-weight:700;}#yiv4446146785 #yiv4446146785ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv4446146785 #yiv4446146785ygrp-sponsor
#yiv4446146785ov li a {font-size:130%;text-decoration:none;}#yiv4446146785
#yiv4446146785ygrp-sponsor #yiv4446146785ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv4446146785
#yiv4446146785ygrp-sponsor #yiv4446146785ov ul {margin:0;padding:0 0 0
8px;}#yiv4446146785 #yiv4446146785ygrp-text
{font-family:Georgia;}#yiv4446146785 #yiv4446146785ygrp-text p {margin:0 0 1em
0;}#yiv4446146785 #yiv4446146785ygrp-text tt {font-size:120%;}#yiv4446146785
#yiv4446146785ygrp-vital ul li:last-child {border-right:none
!important;}#yiv4446146785
