7 New Messages
Digest #1795
5
Belajar dan berbagi 1 - Dasar Excel dan beberapa formula dasar Excel by "dayatshogun46@yahoo.co.id" dayatshogun46
Messages
Thu Sep 20, 2012 2:33 am (PDT) . Posted by:
"daniel_aho" daniel_aho
Dear Mr Kid,
Bagiantersebut kira2 ini :
With Worksheets("Master Order").Range("b5:e10000")
Set c = .Find(kodebarang, LookIn:=xlValues)
'jika ditemukan, maka lihat barisnya.
If Not c Is Nothing Then
baris = c.Row
'selnajutnya pindahkan nama barang dari sheet2 ke textbox2.
Me.Harga = Worksheets("Master
Order").Cells(baris, 12).Value
"Harga" diambil dari sheet "Master Order" namun itu baru
mengacu pada 1 kriteriayakni "kode part",
sedangyangsaya inginkan adalah ada 2 kriteria, yaitu "kode
part" dan "No SO" yang diambil dari Sheet" Master Order".
jadi saat saya input data dengan user form, disitu sudah ada
"kode part" dan "No SO" sehingga"Harga" menyesuaikan dari 2
kriteria tersebut.
Mohon maaf jika penjelasan saya membingungkan atau tidak
bisa dipahami.
Terima kasih,
daniel
On 9/20/2012 4:06 PM, Kid Mr. wrote:
>
> Kira-kira Bapak tahu gak bagian VBA yang mengisi kolom yang bermasalah
> tersebut ?
>
> Kid.
>
> 2012/9/20 daniel_aho <daniel_aho@yahoo.co.id
> <mailto:daniel_aho@yahoo.co.id >>
>
> Terima kasih Mr Kid buat pencerahannya,
>
> tetapi saya coba ikuti saran tersebut, namun hasilnya belum sesuai
> yag diharapkan,
> Mungkin ada cara lain kah? apa di sheet "SJ&FAKTUR" ada "Kode
> Part", bagaimana rumus yang digunakan?
>
> Maaf jika merepotkan...:-) :-) :-) ,
> maklum saya masih awam dan belum mengerti...
>
> Terima kasih
>
>
> daniel..
>
>
> On 9/20/2012 1:09 PM, Kid Mr. wrote:.
>
>
>> Pak Daniel,
>> Coba gunakan VLookUp berikut :
>> =IF(LEN(B3),VLOOKUP(C3,'Master Order'!$C$5:$L$8,10,*0*),"")
>> karena di sheet SJ&Faktur tidak ada data kode part.
>> perhatikan match_type *exact *yang di-*biru*.
>>
>> Jika ingin dimasukkan ke VBA,
>> buat script untuk blok kolom J (tanpa header tabel hasil) di
>> sheet SJ&Faktur, kemudian pasang formula di atas pada range yang
>> diblok itu.
>> dim rng as range
>> set rng=sheets("nama_sheetnya").range("j3:j12")
>> with rng
>> .formula = "=IF(LEN(B3),VLOOKUP(C3,'Master
>> Order'!$C$5:$L$8,10,*0*),"""")"
>> .parent.calculate
>> .value=.value
>> end with
>>
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2012/9/20 daniel_aho <daniel_aho@yahoo.co.id
>> <mailto:daniel_aho@yahoo.co.id >>
>>
>> Dear para master excel,
>>
>> mohon pencerahannya, bagaimana rumus macro untuk vlookup 2
>> kriteria,
>> saya menggunakan user form untuk input data part keluar, data
>> tersebut
>> diambil dari sheet " Master Order" kriteria 1 adl "Kode Part"
>> dan
>> kriteria 2 adl " NO SO", hasil yang saya inginkan adalah di
>> coloum
>> "Harga" pada Sheet "SJ&Fak".
>> untuk lebih jelasnya file terlampir.
>>
>> Sebelumnya minta maaf jika mungkin kasus ini sudah pernah
>> dibahas
>> sebelumnya....
>>
>> Tanks..
>> daniel
>>
>>
>>
>
>
>
Bagiantersebut kira2 ini :
With Worksheets("
Set c = .Find(kodebarang, LookIn:=xlValues)
'jika ditemukan, maka lihat barisnya.
If Not c Is Nothing Then
baris = c.Row
'selnajutnya pindahkan nama barang dari sheet2 ke textbox2.
Me.Harga = Worksheets("
Order").Cells(
"Harga" diambil dari sheet "Master Order" namun itu baru
mengacu pada 1 kriteriayakni "kode part",
sedangyangsaya inginkan adalah ada 2 kriteria, yaitu "kode
part" dan "No SO" yang diambil dari Sheet" Master Order".
jadi saat saya input data dengan user form, disitu sudah ada
"kode part" dan "No SO" sehingga"Harga" menyesuaikan dari 2
kriteria tersebut.
Mohon maaf jika penjelasan saya membingungkan atau tidak
bisa dipahami.
Terima kasih,
daniel
On 9/20/2012 4:06 PM, Kid Mr. wrote:
>
> Kira-kira Bapak tahu gak bagian VBA yang mengisi kolom yang bermasalah
> tersebut ?
>
> Kid.
>
> 2012/9/20 daniel_aho <daniel_aho@yahoo.
> <mailto:daniel_aho@yahoo.
>
> Terima kasih Mr Kid buat pencerahannya,
>
> tetapi saya coba ikuti saran tersebut, namun hasilnya belum sesuai
> yag diharapkan,
> Mungkin ada cara lain kah? apa di sheet "SJ&FAKTUR" ada "Kode
> Part", bagaimana rumus yang digunakan?
>
> Maaf jika merepotkan..
> maklum saya masih awam dan belum mengerti...
>
> Terima kasih
>
>
> daniel..
>
>
> On 9/20/2012 1:09 PM, Kid Mr. wrote:.
>
>
>> Pak Daniel,
>> Coba gunakan VLookUp berikut :
>> =IF(LEN(B3),
>> karena di sheet SJ&Faktur tidak ada data kode part.
>> perhatikan match_type *exact *yang di-*biru*.
>>
>> Jika ingin dimasukkan ke VBA,
>> buat script untuk blok kolom J (tanpa header tabel hasil) di
>> sheet SJ&Faktur, kemudian pasang formula di atas pada range yang
>> diblok itu.
>> dim rng as range
>> set rng=sheets("
>> with rng
>> .formula = "=IF(LEN(B3)
>> Order'!$C$5:
>> .parent.calculate
>> .value=.value
>> end with
>>
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2012/9/20 daniel_aho <daniel_aho@yahoo.
>> <mailto:daniel_aho@yahoo.
>>
>> Dear para master excel,
>>
>> mohon pencerahannya, bagaimana rumus macro untuk vlookup 2
>> kriteria,
>> saya menggunakan user form untuk input data part keluar, data
>> tersebut
>> diambil dari sheet " Master Order" kriteria 1 adl "Kode Part"
>> dan
>> kriteria 2 adl " NO SO", hasil yang saya inginkan adalah di
>> coloum
>> "Harga" pada Sheet "SJ&Fak".
>> untuk lebih jelasnya file terlampir.
>>
>> Sebelumnya minta maaf jika mungkin kasus ini sudah pernah
>> dibahas
>> sebelumnya..
>>
>> Tanks..
>> daniel
>>
>>
>>
>
>
>
Thu Sep 20, 2012 3:25 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Oh oke,
hehehe... moga-moga gak salah amat... belum bisa buka filenya, jadi
kira-kira berdasar formula tadi siang dan penggalan VBA...
Bagian yang bapak Copas, mulai dari With sampai End With nya nanti dinon
aktifkan dulu, kemudian coba tulis dibawahnya script berikut :
'asumsi :
'- sheet 'Master Order' data di B5:e10000 tidak ada baris kosong. Header
entah dibaris berapa,
'andai dibaris 5 pun juga gak apa.
'- formula tadi pagi baru berdasar no so dan lookup ke kolom C:L, jadi so
ada di kolom C (3),
'harga di kolom L (12)
'- kode part ada di kolom e (5) berdasar penggalan vba berbunyi :
'With Worksheets("Master Order").Range("b5:e10000")
'karena sampai repot-repot ambil data sampai di kolom E. kalau salah ya
diganti saja
'- composite key oleh kode dan so bersifat unik
dim rngData as range,rngAnchor as range
dim lColTabel as long, lColSO as long, lColKode as long, lColHarga as long
'ganti tipe datanya dengan yang sesuai tipedata aslinya, sementara pakai
variant dulu
dim vKode as variant, vSO as variant, vHarga as variant
set rngdata=sheets("Master Order").range("b5").currentregion
with rngdata
.parent.autofiltermode=false
lcoltabel= .resize(,1)
set rnganchor=.resize(,1).offset(1,0).resize(.rows.count-1)
lcolSO= 3 - lcoltabel +1
lcolkode=5-lcoltabel+1
lcolharga=12-lcoltabel+1
vkode = 'sumbernya diletakkan disini
vso = 'sumbernya diletakkan disini
.autofilter lcolso, vso
.autofilter lcolkode, vkode
if .resize(,1).specialcells( xlcelltypevisible ).count > 1 then
'asumsi : me.harga ini adalah textbox
Me.Harga.text=
rnganchor.areas(1).resize(1,1).offset(0,lcolharga-1).value
else
Me.Harga.text="0"
endif
.parent.autofiltermode=false
end with
kayanya bisa begitu..
Jika pencarian dengan Find, harus dilakukan cek terhadap kriteria satunya
lagi, jika tidak ketemu, maka findnext dan loop terus sampai barisnya
kembali lebih kecil dari baris startnya. Daripada ruwet nentukan loopnya
beserta batasnya, coba pakai fitur autofilter di atas.
Wassalam,
Kid.
2012/9/20 daniel_aho <daniel_aho@yahoo.co.id >
> **
>
>
> Dear Mr Kid,
>
> Bagian tersebut kira2 ini :
>
>
>
> With Worksheets("Master Order").Range("b5:e10000")
> Set c = .Find(kodebarang, LookIn:=xlValues)
>
> 'jika ditemukan, maka lihat barisnya.
> If Not c Is Nothing Then
> baris = c.Row
> 'selnajutnya pindahkan nama barang dari sheet2 ke textbox2.
> Me.Harga = Worksheets("Master Order").Cells(baris, 12).Value
>
>
>
>
> "Harga" diambil dari sheet "Master Order" namun itu baru mengacu pada 1
> kriteria yakni "kode part",
>
> sedang yang saya inginkan adalah ada 2 kriteria, yaitu "kode part" dan
> "No SO" yang diambil dari Sheet " Master Order".
>
> jadi saat saya input data dengan user form, disitu sudah ada "kode part"
> dan "No SO" sehingga "Harga" menyesuaikan dari 2 kriteria tersebut.
>
> Mohon maaf jika penjelasan saya membingungkan atau tidak bisa dipahami.
>
>
>
> Terima kasih,
>
> daniel
>
>
>
>
>
>
>
>
hehehe... moga-moga gak salah amat... belum bisa buka filenya, jadi
kira-kira berdasar formula tadi siang dan penggalan VBA...
Bagian yang bapak Copas, mulai dari With sampai End With nya nanti dinon
aktifkan dulu, kemudian coba tulis dibawahnya script berikut :
'asumsi :
'- sheet 'Master Order' data di B5:e10000 tidak ada baris kosong. Header
entah dibaris berapa,
'andai dibaris 5 pun juga gak apa.
'- formula tadi pagi baru berdasar no so dan lookup ke kolom C:L, jadi so
ada di kolom C (3),
'harga di kolom L (12)
'- kode part ada di kolom e (5) berdasar penggalan vba berbunyi :
'With Worksheets("
'karena sampai repot-repot ambil data sampai di kolom E. kalau salah ya
diganti saja
'- composite key oleh kode dan so bersifat unik
dim rngData as range,rngAnchor as range
dim lColTabel as long, lColSO as long, lColKode as long, lColHarga as long
'ganti tipe datanya dengan yang sesuai tipedata aslinya, sementara pakai
variant dulu
dim vKode as variant, vSO as variant, vHarga as variant
set rngdata=sheets(
with rngdata
.parent.autofilterm
lcoltabel= .resize(,1)
set rnganchor=.resize(
lcolSO= 3 - lcoltabel +1
lcolkode=5-lcoltabe
lcolharga=12-
vkode = 'sumbernya diletakkan disini
vso = 'sumbernya diletakkan disini
.autofilter lcolso, vso
.autofilter lcolkode, vkode
if .resize(,1).
'asumsi : me.harga ini adalah textbox
Me.Harga.text=
rnganchor.areas(
else
Me.Harga.text=
endif
.parent.autofilterm
end with
kayanya bisa begitu..
Jika pencarian dengan Find, harus dilakukan cek terhadap kriteria satunya
lagi, jika tidak ketemu, maka findnext dan loop terus sampai barisnya
kembali lebih kecil dari baris startnya. Daripada ruwet nentukan loopnya
beserta batasnya, coba pakai fitur autofilter di atas.
Wassalam,
Kid.
2012/9/20 daniel_aho <daniel_aho@yahoo.
> **
>
>
> Dear Mr Kid,
>
> Bagian tersebut kira2 ini :
>
>
>
> With Worksheets("
> Set c = .Find(kodebarang, LookIn:=xlValues)
>
> 'jika ditemukan, maka lihat barisnya.
> If Not c Is Nothing Then
> baris = c.Row
> 'selnajutnya pindahkan nama barang dari sheet2 ke textbox2.
> Me.Harga = Worksheets("
>
>
>
>
> "Harga" diambil dari sheet "Master Order" namun itu baru mengacu pada 1
> kriteria yakni "kode part",
>
> sedang yang saya inginkan adalah ada 2 kriteria, yaitu "kode part" dan
> "No SO" yang diambil dari Sheet " Master Order".
>
> jadi saat saya input data dengan user form, disitu sudah ada "kode part"
> dan "No SO" sehingga "Harga" menyesuaikan dari 2 kriteria tersebut.
>
> Mohon maaf jika penjelasan saya membingungkan atau tidak bisa dipahami.
>
>
>
> Terima kasih,
>
> daniel
>
>
>
>
>
>
>
>
Thu Sep 20, 2012 3:41 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Ops kayanya ada yang lupa .column deh.
Yang hijau adalah perbaikannya.
Jangan lupa, Bapak harus dapat nomor SO dulu. Artinya, bagian ini harus
masuk setelah bagian pengambil nomor so
Lalu, nomor SO itu disimpan dalam sebuah variabel dan variabelnya di
masukkan ke baris ini :
vso = apanamavariabelnomorso-nya 'sumbernya diletakkan disini
coba ganti dengan yang ini :
'asumsi :
'- sheet 'Master Order' data di B5:e10000 tidak ada baris kosong. Header
entah dibaris berapa,
'andai dibaris 5 pun juga gak apa.
'- formula tadi pagi baru berdasar no so dan lookup ke kolom C:L, jadi so
ada di kolom C (3),
'harga di kolom L (12)
'- kode part ada di kolom e (5) berdasar penggalan vba berbunyi :
'With Worksheets("Master Order").Range("b5:e10000")
'karena sampai repot-repot ambil data sampai di kolom E. kalau salah ya
diganti saja
'- composite key oleh kode dan so bersifat unik
'- kode part dari Set c = .Find(kodebarang, LookIn:=xlValues)
dim rngData as range,rngAnchor as range
dim lColTabel as long, lColSO as long, lColKode as long, lColHarga as long
'ganti tipe datanya dengan yang sesuai tipedata aslinya, sementara pakai
variant dulu
dim vKode as variant, vSO as variant, vHarga as variant
set rngdata=sheets("Master Order").range("b5").currentregion
with rngdata
.parent.autofiltermode=false
lcoltabel= .resize(,1)*.column*
set rnganchor=.resize(,1).offset(1,0).resize(.rows.count-1)
lcolSO= 3 - lcoltabel +1
lcolkode=5-lcoltabel+1
lcolharga=12-lcoltabel+1
vkode = *kodebarang* 'sumbernya diletakkan disini
vso = 'sumbernya diletakkan disini
.autofilter lcolso, vso
.autofilter lcolkode, vkode
if .resize(,1).specialcells( xlcelltypevisible ).count > 1 then
'asumsi : me.harga ini adalah textbox
Me.Harga.text= _
rnganchor*.specialcells(xlcelltypevisible)*.areas(1) _
.resize(1,1).offset(0,lcolharga-1).value
else
Me.Harga.text="0"
endif
.parent.autofiltermode=false
end with
hehehe...
sorry banget, belum bisa buka Excelnya. Moga-moga yang lebih baru ini bisa
jalan. Kalau masih salah ambil nilai, mungkin jadi lebih mudah karena dah
bisa jalan.
Kid.
2012/9/20 Kid Mr. <mr.nmkid@gmail.com >
> Oh oke,
>
> hehehe... moga-moga gak salah amat... belum bisa buka filenya, jadi
> kira-kira berdasar formula tadi siang dan penggalan VBA...
>
> Bagian yang bapak Copas, mulai dari With sampai End With nya nanti dinon
> aktifkan dulu, kemudian coba tulis dibawahnya script berikut :
>
> 'asumsi :
> '- sheet 'Master Order' data di B5:e10000 tidak ada baris kosong. Header
> entah dibaris berapa,
> 'andai dibaris 5 pun juga gak apa.
> '- formula tadi pagi baru berdasar no so dan lookup ke kolom C:L, jadi so
> ada di kolom C (3),
> 'harga di kolom L (12)
> '- kode part ada di kolom e (5) berdasar penggalan vba berbunyi :
> 'With Worksheets("Master Order").Range("b5:e10000")
> 'karena sampai repot-repot ambil data sampai di kolom E. kalau salah ya
> diganti saja
> '- composite key oleh kode dan so bersifat unik
>
> dim rngData as range,rngAnchor as range
> dim lColTabel as long, lColSO as long, lColKode as long, lColHarga as long
>
> 'ganti tipe datanya dengan yang sesuai tipedata aslinya, sementara pakai
> variant dulu
> dim vKode as variant, vSO as variant, vHarga as variant
>
> set rngdata=sheets("Master Order").range("b5").currentregion
> with rngdata
> .parent.autofiltermode=false
> lcoltabel= .resize(,1)
> set rnganchor=.resize(,1).offset(1,0).resize(.rows.count-1)
> lcolSO= 3 - lcoltabel +1
> lcolkode=5-lcoltabel+1
> lcolharga=12-lcoltabel+1
> vkode = 'sumbernya diletakkan disini
> vso = 'sumbernya diletakkan disini
> .autofilter lcolso, vso
> .autofilter lcolkode, vkode
> if .resize(,1).specialcells( xlcelltypevisible ).count > 1 then
> 'asumsi : me.harga ini adalah textbox
> Me.Harga.text=
> rnganchor.areas(1).resize(1,1).offset(0,lcolharga-1).value
> else
> Me.Harga.text="0"
> endif
> .parent.autofiltermode=false
> end with
>
> kayanya bisa begitu..
>
> Jika pencarian dengan Find, harus dilakukan cek terhadap kriteria satunya
> lagi, jika tidak ketemu, maka findnext dan loop terus sampai barisnya
> kembali lebih kecil dari baris startnya. Daripada ruwet nentukan loopnya
> beserta batasnya, coba pakai fitur autofilter di atas.
>
> Wassalam,
> Kid.
>
>
> 2012/9/20 daniel_aho <daniel_aho@yahoo.co.id >
>
>> **
>>
>>
>> Dear Mr Kid,
>>
>> Bagian tersebut kira2 ini :
>>
>>
>>
>> With Worksheets("Master Order").Range("b5:e10000")
>> Set c = .Find(kodebarang, LookIn:=xlValues)
>>
>> 'jika ditemukan, maka lihat barisnya.
>> If Not c Is Nothing Then
>> baris = c.Row
>> 'selnajutnya pindahkan nama barang dari sheet2 ke textbox2.
>> Me.Harga = Worksheets("Master Order").Cells(baris, 12).Value
>>
>>
>>
>>
>> "Harga" diambil dari sheet "Master Order" namun itu baru mengacu pada 1
>> kriteria yakni "kode part",
>>
>> sedang yang saya inginkan adalah ada 2 kriteria, yaitu "kode part" dan
>> "No SO" yang diambil dari Sheet " Master Order".
>>
>> jadi saat saya input data dengan user form, disitu sudah ada "kode part"
>> dan "No SO" sehingga "Harga" menyesuaikan dari 2 kriteria tersebut.
>>
>> Mohon maaf jika penjelasan saya membingungkan atau tidak bisa dipahami.
>>
>>
>>
>> Terima kasih,
>>
>> daniel
>>
>>
>>
>>
>>
>>
>>
>>
>
Yang hijau adalah perbaikannya.
Jangan lupa, Bapak harus dapat nomor SO dulu. Artinya, bagian ini harus
masuk setelah bagian pengambil nomor so
Lalu, nomor SO itu disimpan dalam sebuah variabel dan variabelnya di
masukkan ke baris ini :
vso = apanamavariabelnomo
coba ganti dengan yang ini :
'asumsi :
'- sheet 'Master Order' data di B5:e10000 tidak ada baris kosong. Header
entah dibaris berapa,
'andai dibaris 5 pun juga gak apa.
'- formula tadi pagi baru berdasar no so dan lookup ke kolom C:L, jadi so
ada di kolom C (3),
'harga di kolom L (12)
'- kode part ada di kolom e (5) berdasar penggalan vba berbunyi :
'With Worksheets("
'karena sampai repot-repot ambil data sampai di kolom E. kalau salah ya
diganti saja
'- composite key oleh kode dan so bersifat unik
'- kode part dari Set c = .Find(kodebarang, LookIn:=xlValues)
dim rngData as range,rngAnchor as range
dim lColTabel as long, lColSO as long, lColKode as long, lColHarga as long
'ganti tipe datanya dengan yang sesuai tipedata aslinya, sementara pakai
variant dulu
dim vKode as variant, vSO as variant, vHarga as variant
set rngdata=sheets(
with rngdata
.parent.autofilterm
lcoltabel= .resize(,1)*
set rnganchor=.resize(
lcolSO= 3 - lcoltabel +1
lcolkode=5-lcoltabe
lcolharga=12-
vkode = *kodebarang* 'sumbernya diletakkan disini
vso = 'sumbernya diletakkan disini
.autofilter lcolso, vso
.autofilter lcolkode, vkode
if .resize(,1).
'asumsi : me.harga ini adalah textbox
Me.Harga.text= _
rnganchor*.specialc
.resize(1,1)
else
Me.Harga.text=
endif
.parent.autofilterm
end with
hehehe...
sorry banget, belum bisa buka Excelnya. Moga-moga yang lebih baru ini bisa
jalan. Kalau masih salah ambil nilai, mungkin jadi lebih mudah karena dah
bisa jalan.
Kid.
2012/9/20 Kid Mr. <mr.nmkid@gmail.
> Oh oke,
>
> hehehe... moga-moga gak salah amat... belum bisa buka filenya, jadi
> kira-kira berdasar formula tadi siang dan penggalan VBA...
>
> Bagian yang bapak Copas, mulai dari With sampai End With nya nanti dinon
> aktifkan dulu, kemudian coba tulis dibawahnya script berikut :
>
> 'asumsi :
> '- sheet 'Master Order' data di B5:e10000 tidak ada baris kosong. Header
> entah dibaris berapa,
> 'andai dibaris 5 pun juga gak apa.
> '- formula tadi pagi baru berdasar no so dan lookup ke kolom C:L, jadi so
> ada di kolom C (3),
> 'harga di kolom L (12)
> '- kode part ada di kolom e (5) berdasar penggalan vba berbunyi :
> 'With Worksheets("
> 'karena sampai repot-repot ambil data sampai di kolom E. kalau salah ya
> diganti saja
> '- composite key oleh kode dan so bersifat unik
>
> dim rngData as range,rngAnchor as range
> dim lColTabel as long, lColSO as long, lColKode as long, lColHarga as long
>
> 'ganti tipe datanya dengan yang sesuai tipedata aslinya, sementara pakai
> variant dulu
> dim vKode as variant, vSO as variant, vHarga as variant
>
> set rngdata=sheets(
> with rngdata
> .parent.autofilterm
> lcoltabel= .resize(,1)
> set rnganchor=.resize(
> lcolSO= 3 - lcoltabel +1
> lcolkode=5-lcoltabe
> lcolharga=12-
> vkode = 'sumbernya diletakkan disini
> vso = 'sumbernya diletakkan disini
> .autofilter lcolso, vso
> .autofilter lcolkode, vkode
> if .resize(,1).
> 'asumsi : me.harga ini adalah textbox
> Me.Harga.text=
> rnganchor.areas(
> else
> Me.Harga.text=
> endif
> .parent.autofilterm
> end with
>
> kayanya bisa begitu..
>
> Jika pencarian dengan Find, harus dilakukan cek terhadap kriteria satunya
> lagi, jika tidak ketemu, maka findnext dan loop terus sampai barisnya
> kembali lebih kecil dari baris startnya. Daripada ruwet nentukan loopnya
> beserta batasnya, coba pakai fitur autofilter di atas.
>
> Wassalam,
> Kid.
>
>
> 2012/9/20 daniel_aho <daniel_aho@yahoo.
>
>> **
>>
>>
>> Dear Mr Kid,
>>
>> Bagian tersebut kira2 ini :
>>
>>
>>
>> With Worksheets("
>> Set c = .Find(kodebarang, LookIn:=xlValues)
>>
>> 'jika ditemukan, maka lihat barisnya.
>> If Not c Is Nothing Then
>> baris = c.Row
>> 'selnajutnya pindahkan nama barang dari sheet2 ke textbox2.
>> Me.Harga = Worksheets("
>>
>>
>>
>>
>> "Harga" diambil dari sheet "Master Order" namun itu baru mengacu pada 1
>> kriteria yakni "kode part",
>>
>> sedang yang saya inginkan adalah ada 2 kriteria, yaitu "kode part" dan
>> "No SO" yang diambil dari Sheet " Master Order".
>>
>> jadi saat saya input data dengan user form, disitu sudah ada "kode part"
>> dan "No SO" sehingga "Harga" menyesuaikan dari 2 kriteria tersebut.
>>
>> Mohon maaf jika penjelasan saya membingungkan atau tidak bisa dipahami.
>>
>>
>>
>> Terima kasih,
>>
>> daniel
>>
>>
>>
>>
>>
>>
>>
>>
>
Thu Sep 20, 2012 2:37 am (PDT) . Posted by:
"Teti Zhe" teti_zhe
mksh Pak Ghozi
Salam,
Teti.
________________________________
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Wednesday, September 19, 2012 3:59 PM
Subject: Bls: [belajar-excel] Adakah rumus untuk nentukan usia/umur dan cara gabungin kolom?
rumus mencari usia dihitung berdasar hari ini fleksible
=CONVERT(TODAY()-B3;"day";"yr")
rumus gabung kolom tempat lahir dan tanggal lahir
=A3&TEXT(B3;"d-mmm-yyy")
wassalam
Ghozi Alkatiri
________________________________
Dari: Teti Zhe <teti_zhe@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Rabu, 19 September 2012 15:19
Judul: [belajar-excel] Adakah rumus untuk nentukan usia/umur dan cara gabungin kolom?
Dear Master Excel,Saya ingin mengetahui umur/usia berdasarkan data-data yang saya punya (file terlampir) , pada kolom usia : pengennya tahun 2012 dikurangi dengan tahun lahir (tahun lahir dari kolom tanggal lahir) , kemudian pada kolom Gabung : kolom tempat lahir + kolom tanggal lahir?
Adakah cara atau rumusnya ?
Trimakasih ..
Salam,
Teti.
Salam,
Teti.
____________
From: ghozi alkatiri <ghozialkatiri@
To: "belajar-excel@
Sent: Wednesday, September 19, 2012 3:59 PM
Subject: Bls: [belajar-excel] Adakah rumus untuk nentukan usia/umur dan cara gabungin kolom?
rumus mencari usia dihitung berdasar hari ini fleksible
=CONVERT(TODAY(
rumus gabung kolom tempat lahir dan tanggal lahir
=A3&TEXT(B3;
wassalam
Ghozi Alkatiri
____________
Dari: Teti Zhe <teti_zhe@yahoo.
Kepada: "belajar-excel@
Dikirim: Rabu, 19 September 2012 15:19
Judul: [belajar-excel] Adakah rumus untuk nentukan usia/umur dan cara gabungin kolom?
Dear Master Excel,Saya ingin mengetahui umur/usia berdasarkan data-data yang saya punya (file terlampir) , pada kolom usia : pengennya tahun 2012 dikurangi dengan tahun lahir (tahun lahir dari kolom tanggal lahir) , kemudian pada kolom Gabung : kolom tempat lahir + kolom tanggal lahir?
Adakah cara atau rumusnya ?
Trimakasih ..
Salam,
Teti.
Thu Sep 20, 2012 2:43 am (PDT) . Posted by:
"Teti Zhe" teti_zhe
oohh,,, heheh
ok Pak ,, uda bisa inii.. :)
tengkyu,,
Salam,
Teti.
________________________________
From: Kid Mr. <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Thursday, September 20, 2012 4:29 PM
Subject: Re: Bls: Bls: [belajar-excel] Adakah rumus untuk nentukan usia/umur dan cara gabungin kolom?
hahahaha.....
Tanggal pertama komputer Bu, bukan tanggal lahirnya komputer.
Kalau manusia mungkin bisa punya hitungan dari 1 masehi, sebagai tanggal pertamanya. Bahkan malah jauh sebelum itu.
Kalau komputer tanggalnya ada mulai tanggal 0. yang kalau dikonversi ke tanggal manusia jadi seperti ketika di format cell date tadi.
Untuk menghindari komputasi terhadap cell yang kosong, formula yang bunyinya :
=DATEDIF(B3,NOW(),"y")
diberi kondisi di depannya, jadi :
=IF( B3 , DATEDIF(B3,NOW(),"y") , 0 )
Print Comments :
di Excel 2003 :
menu File -> Page Setup -> tab Sheet -> pilih di opsi Comment (asal jangan None) -> tekan OK
di Excel 2007 :
ribbon Page Layout -> grup Sheet Option -> page setup sheet (biasanya ada tombol kecil dikanan tulisan sheet options)
-> pilih di opsi Comment (asal jangan None) -> OK
Wassalam,
Kid.
2012/9/20 Teti Zhe <teti_zhe@yahoo.com >
>
>waduh..tua banget dnk komputer nya kalo gitu .. :D uda 112 tahun ..woooww
>
>jadi bagaimana bisa beneran kosong spt opsi no.1? atau emang ga bisa gitu ?
>
>
>
>Oya, gimana dnk cara agar comment di excel itu bisa ikut ter-print?
>
>makasih banyak pencerahannya..,
>
>
>Salam,
>Teti.
>
>
>
>
>________________________________
> From: Kid Mr. <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>Sent: Thursday, September 20, 2012 3:55 PM
>Subject: Re: Bls: Bls: [belajar-excel] Adakah rumus untuk nentukan usia/umur dan cara gabungin kolom?
>
>
>
>
>Bu Teti,
>
>Selamat ya...
>akhirnya keuletan dan kesabarannya membuahkan hasil yang penuh kesan...
>
>Mari kita chit chat sedikit dengan cell kosong.
>Jika dilihat sepintas lalu sambil mringis, sebuah cell yang kelihatannya kosong bisa jadi setidaknya sejatinya adalah seperti 3 hal berikut :
>1. beneran kosong
>2. berisi teks kosong yang biasanya diformula berupa ekspresi ""
>3. ada isinya tapi diformat untuk sama dengan warna latarnya.
>
>udah.. udah selesai chit chatnya....
>
>Yang nomor 1 : akan dianggap nol ketika dikenai suatu proses komputasi.
>Jadi kalau kolom tanggal lahir (entah cell yang mana) itu kosong beneran, maka Excel menganggapnya setara dengan nilai 0 jika ada proses komputasi.
>
>Sekarang mengobrolkan tentang data Datetime
>Data datetime berisi nilai seri angka dari 0 sampai sekian ratus ribu
yang mewakili tanggal pertama komputer (nilai 1), tanggal 0 komputer
(nilai 0) dan nilai tertinggi yang mewakili tanggal 9999-12-31.
>Data datetime memiliki 2 sisi nilai, yaitu :
>sisi Date dan sisi time
>
>Sisi date selalu berisi bilangan bulat, karena penambahannya selalu 1 hari.
>Sisi
time selalu berisi bilangan pecahan, karena penambahannya selalu seper
sekian ribu detik dan setiap 24 jam akan menjadi 1 hari
>
>Contoh data 2012-09-18 12:00:00
>nilai serial datetime-nya (angka seri tanggal) : 41170.5
>angka 41170 artinya tanggal 2012-09-18 adalah hari ke-41170 menurut komputer.
>angka 0.5 artinya pada waktu 0.5 dari 1 hari atau 0.5 dari 24 jam, artinya 12 jam.
>Maka 41170.5 artinya hari ke-41170 yang ditambah dengan 12 jam.
>Karena jam dimulai pukul 00:00:00, maka ditambah 12 jam menjadi 12:00:00
>
>Kalau cell kosong (kolom tanggal itu loh) diisi angka nol apa jadinya coba
>Mau mencoba ? (mau ya.. please..)
>
>Kalau sudah dicoba, sekalian juga, di cell kosong yang sudah diisi 0, klik kanan, pilih format cells, pilih tab Number, pilih Date, tekan OK.
>Apa yang tampak dicell tersebut ?
>
>Dengan nilai itu, coba hitung dengan jari deh, berapa usianya sekarang.
>
>
>
>Wassalam,
>Kid.
>
>
>
>
>2012/9/20 Teti Zhe <teti_zhe@yahoo.com >
>
>
>>
>>Dear All,,
>>Trimakasih banyak2.. uda bisaa...heheh :)
>>
>>oya, jika boleh tahu kenapa koq kalo kolom tgl lahir kosong, di kolom usia nya tertera jadi 112?
>>mkasih..
>>
>>
>>Salam,
>>Teti.
>>
>>
>>
>>
>>________________________________
>> From: indria pie <mas_pie3@yahoo.co.id >
>>To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>>Sent: Thursday, September 20, 2012 1:32 PM
>>Subject: Bls: Bls: [belajar-excel] Adakah rumus untuk nentukan usia/umur dan cara gabungin kolom?
>>
>>
>>
>>
>>ya mungkin penjelasannya seperti yang dijelaskan mr.kid bu teti...heee
>>
>>maksih mr.kid sudah sudi menjelaskan dan makasih juga buat formula cond.formattingnya yang kemaren....
>>
>>salam,
>>
>>________________________________
>>
>
>
>
ok Pak ,, uda bisa inii.. :)
tengkyu,,
Salam,
Teti.
____________
From: Kid Mr. <mr.nmkid@gmail.
To: belajar-excel@
Sent: Thursday, September 20, 2012 4:29 PM
Subject: Re: Bls: Bls: [belajar-excel] Adakah rumus untuk nentukan usia/umur dan cara gabungin kolom?
hahahaha....
Tanggal pertama komputer Bu, bukan tanggal lahirnya komputer.
Kalau manusia mungkin bisa punya hitungan dari 1 masehi, sebagai tanggal pertamanya. Bahkan malah jauh sebelum itu.
Kalau komputer tanggalnya ada mulai tanggal 0. yang kalau dikonversi ke tanggal manusia jadi seperti ketika di format cell date tadi.
Untuk menghindari komputasi terhadap cell yang kosong, formula yang bunyinya :
=DATEDIF(B3,
diberi kondisi di depannya, jadi :
=IF( B3 , DATEDIF(B3,NOW(
Print Comments :
di Excel 2003 :
menu File -> Page Setup -> tab Sheet -> pilih di opsi Comment (asal jangan None) -> tekan OK
di Excel 2007 :
ribbon Page Layout -> grup Sheet Option -> page setup sheet (biasanya ada tombol kecil dikanan tulisan sheet options)
-> pilih di opsi Comment (asal jangan None) -> OK
Wassalam,
Kid.
2012/9/20 Teti Zhe <teti_zhe@yahoo.
>
>waduh..tua banget dnk komputer nya kalo gitu .. :D uda 112 tahun ..woooww
>
>jadi bagaimana bisa beneran kosong spt opsi no.1? atau emang ga bisa gitu ?
>
>
>
>Oya, gimana dnk cara agar comment di excel itu bisa ikut ter-print?
>
>makasih banyak pencerahannya.
>
>
>Salam,
>Teti.
>
>
>
>
>___________
> From: Kid Mr. <mr.nmkid@gmail.
>To: belajar-excel@
>Sent: Thursday, September 20, 2012 3:55 PM
>Subject: Re: Bls: Bls: [belajar-excel] Adakah rumus untuk nentukan usia/umur dan cara gabungin kolom?
>
>
>
>
>Bu Teti,
>
>Selamat ya...
>akhirnya keuletan dan kesabarannya membuahkan hasil yang penuh kesan...
>
>Mari kita chit chat sedikit dengan cell kosong.
>Jika dilihat sepintas lalu sambil mringis, sebuah cell yang kelihatannya kosong bisa jadi setidaknya sejatinya adalah seperti 3 hal berikut :
>1. beneran kosong
>2. berisi teks kosong yang biasanya diformula berupa ekspresi ""
>3. ada isinya tapi diformat untuk sama dengan warna latarnya.
>
>udah.. udah selesai chit chatnya....
>
>Yang nomor 1 : akan dianggap nol ketika dikenai suatu proses komputasi.
>Jadi kalau kolom tanggal lahir (entah cell yang mana) itu kosong beneran, maka Excel menganggapnya setara dengan nilai 0 jika ada proses komputasi.
>
>Sekarang mengobrolkan tentang data Datetime
>Data datetime berisi nilai seri angka dari 0 sampai sekian ratus ribu
yang mewakili tanggal pertama komputer (nilai 1), tanggal 0 komputer
(nilai 0) dan nilai tertinggi yang mewakili tanggal 9999-12-31.
>Data datetime memiliki 2 sisi nilai, yaitu :
>sisi Date dan sisi time
>
>Sisi date selalu berisi bilangan bulat, karena penambahannya selalu 1 hari.
>Sisi
time selalu berisi bilangan pecahan, karena penambahannya selalu seper
sekian ribu detik dan setiap 24 jam akan menjadi 1 hari
>
>Contoh data 2012-09-18 12:00:00
>nilai serial datetime-nya (angka seri tanggal) : 41170.5
>angka 41170 artinya tanggal 2012-09-18 adalah hari ke-41170 menurut komputer.
>angka 0.5 artinya pada waktu 0.5 dari 1 hari atau 0.5 dari 24 jam, artinya 12 jam.
>Maka 41170.5 artinya hari ke-41170 yang ditambah dengan 12 jam.
>Karena jam dimulai pukul 00:00:00, maka ditambah 12 jam menjadi 12:00:00
>
>Kalau cell kosong (kolom tanggal itu loh) diisi angka nol apa jadinya coba
>Mau mencoba ? (mau ya.. please..)
>
>Kalau sudah dicoba, sekalian juga, di cell kosong yang sudah diisi 0, klik kanan, pilih format cells, pilih tab Number, pilih Date, tekan OK.
>Apa yang tampak dicell tersebut ?
>
>Dengan nilai itu, coba hitung dengan jari deh, berapa usianya sekarang.
>
>
>
>Wassalam,
>Kid.
>
>
>
>
>2012/9/20 Teti Zhe <teti_zhe@yahoo.
>
>
>>
>>Dear All,,
>>Trimakasih banyak2.. uda bisaa...heheh :)
>>
>>oya, jika boleh tahu kenapa koq kalo kolom tgl lahir kosong, di kolom usia nya tertera jadi 112?
>>mkasih..
>>
>>
>>Salam,
>>Teti.
>>
>>
>>
>>
>>__________
>> From: indria pie <mas_pie3@yahoo.
>>To: "belajar-excel@
>>Sent: Thursday, September 20, 2012 1:32 PM
>>Subject: Bls: Bls: [belajar-excel] Adakah rumus untuk nentukan usia/umur dan cara gabungin kolom?
>>
>>
>>
>>
>>ya mungkin penjelasannya seperti yang dijelaskan mr.kid bu teti...heee
>>
>>maksih mr.kid sudah sudi menjelaskan dan makasih juga buat formula cond.formattingnya yang kemaren....
>>
>>salam,
>>
>>__________
>>
>
>
>
Thu Sep 20, 2012 7:05 am (PDT) . Posted by:
"Aliif Akbar" aliif.akbar
OOT kangen mbak siti
Selamat malam,
Tak terasa yah? Uda hampir sebulan semenjak ditinggal oleh guru kita, mbah mabrur (aka. Mbak Siti), dimilis terasa sepi, biasanya ada sosok mbak Siti Vi yang menjelaskan sambil becanda, ada juga mbka iHaps yang sering menampilkan foto2 pada setiap contoh program excel yang dibuatnya, ada juga karakter pa o'Seno yang serius dalam memberikan penjelasan, namun begitu mudah dimengerti.
Semoga beliau mendapatkan tempat yang baik disisiNya....
I miss you guru,...
AA.
Sent from my BlackBerry� smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
Selamat malam,
Tak terasa yah? Uda hampir sebulan semenjak ditinggal oleh guru kita, mbah mabrur (aka. Mbak Siti), dimilis terasa sepi, biasanya ada sosok mbak Siti Vi yang menjelaskan sambil becanda, ada juga mbka iHaps yang sering menampilkan foto2 pada setiap contoh program excel yang dibuatnya, ada juga karakter pa o'Seno yang serius dalam memberikan penjelasan, namun begitu mudah dimengerti.
Semoga beliau mendapatkan tempat yang baik disisiNya...
I miss you guru,...
AA.
Sent from my BlackBerry� smartphone from Sinyal Bagus XL, Nyambung Teruuusss...
Thu Sep 20, 2012 9:03 am (PDT) . Posted by:
"dayatshogun46@yahoo.co.id" dayatshogun46
Dear exler sedikit berbagi pengetahuan dari saya yg saya dapat dari milis.
Semoga bermanfaat
Salam
Dayatshogun
Sent from my BlackBerry� smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!
--- Mods ---
Dalam file lampiran Pak Dayat ini, Anda akan menjumpai penjelasan yang lugas yang mudah dimengerti oleh pembelajar Excel mula. Berikut beberapa hal-hal yang ada dalam file lampiran :
>> Fungsi SumIF
>> Fungsi SumProduct
>> Fungsi VLookup dan HLookUp
>> Penggunaan fungsi IsNA
>> Menghitung selisih waktu
>> Konversi data waktu bertipe datetime menjadi data waktu bertipe numerik (seperti : 7:30 menjadi 7.5)
>> Perbedaan karakter ';' dan ':' sebagai pemisah input dalam formula dan kaitannya dengan Regional Setting komputer
>> Cara mengubah Regional Setting
Selamat menikmati...
------------
Semoga bermanfaat
Salam
Dayatshogun
Sent from my BlackBerry� smartphone from Sinyal Bagus XL, Nyambung Teruuusss...
--- Mods ---
Dalam file lampiran Pak Dayat ini, Anda akan menjumpai penjelasan yang lugas yang mudah dimengerti oleh pembelajar Excel mula. Berikut beberapa hal-hal yang ada dalam file lampiran :
>> Fungsi SumIF
>> Fungsi SumProduct
>> Fungsi VLookup dan HLookUp
>> Penggunaan fungsi IsNA
>> Menghitung selisih waktu
>> Konversi data waktu bertipe datetime menjadi data waktu bertipe numerik (seperti : 7:30 menjadi 7.5)
>> Perbedaan karakter ';' dan ':' sebagai pemisah input dalam formula dan kaitannya dengan Regional Setting komputer
>> Cara mengubah Regional Setting
Selamat menikmati...
------------
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