Rabu, 16 April 2014

[belajar-excel] Digest Number 2878

15 Messages

Digest #2878
1a
Merubah view pada pivot tabel by "ryan" ryandirhamsyah
4
vlookup - formula dinamis by "Lazuardi Biru" lazuardi_biru84
5b
Bls: [belajar-excel] vlookup - formula dinamis by "Lazuardi Biru" lazuardi_biru84
5d
Bls: [belajar-excel] vlookup - formula dinamis by "Lazuardi Biru" lazuardi_biru84
5e
Bls: [belajar-excel] vlookup - formula dinamis by "Lazuardi Biru" lazuardi_biru84
5f
Bls: [belajar-excel] vlookup - formula dinamis by "Lazuardi Biru" lazuardi_biru84
6a
Text to date by "Emi" emilestariklcc
6b
Re: Text to date [1 Attachment] by "Heri Pamungkas ( Gmail )" dchoosen88

Messages

Wed Apr 16, 2014 6:15 pm (PDT) . Posted by:

"ryan" ryandirhamsyah

Dear Master,

Saya ada kebutuhan untuk custom view kolom pada pivot tabel. Lengkapnya ada pada file terlampir dan secara singkat output yg diinginkan adalah view standard pada pivot (kolom A - G) view-nya diubah menjadi seperti yg ada pada sheet pivot kolom I - O. Apakah pada excel memungkinkan untuk melakukan perubahan tersebut atau tidak ya? Terlampir filenya dan terima kasih banyak atas perhatian serta bantuannya.

BestRegards,

Moch. Ryan D

Wed Apr 16, 2014 8:14 pm (PDT) . Posted by:

"Jan Raisin"

Hai Ryan,

Excel memungkinkan tampilan Pivot table seperti yang anda harapkan, hanya
saja perlu melakukan sedikit modifikasi pada tabel data dan Pivot tablenya

1. pada sheet "Data" tambahkan 1 buah kolom, headernya "Total Kebutuhan"
diisi dengan formula CountIf
2. buat sebuah Pivot Table dengan bentuk tabular, hilangkan Sub Total
dan set Grand Total hanya on pada kolom saja
3. pada Group Row diisi dengan Buah dan Total Kebutuhan
4. pada Group Column diisi dengan Tanggal Beli
5. pada Group Values diisi dengan Sudah Beli, set perhitungan menjadi
Count
6. klik header Blank pada tanggal, klik kanan, move, pilih to Beginning
7. ganti heaader kolom Blank menjadi "Kekurangan"

silakan ikuti langkah-langkah di atas.. semoga sesuai dengan yang
diharapkan..
kalo sudah pas atau ada yang kurang jelas, tolong kabari lagi ya..

Wassalam,

-Miss Jan Raisin-

Pada 16 April 2014 22.32, ryan <ryandirhamsyah@yahoo.com> menulis:

>
>
> Dear Master,
>
> Saya ada kebutuhan untuk custom view kolom pada pivot tabel. Lengkapnya
> ada pada file terlampir dan secara singkat output yg diinginkan adalah view
> standard pada pivot (kolom A - G) view-nya diubah menjadi seperti yg ada
> pada sheet pivot kolom I - O. Apakah pada excel memungkinkan untuk
> melakukan perubahan tersebut atau tidak ya? Terlampir filenya dan terima
> kasih banyak atas perhatian serta bantuannya.
>
> BestRegards,
> Moch. Ryan D
>
>
>

Wed Apr 16, 2014 6:33 pm (PDT) . Posted by:

"Jan Raisin"

baru liat lagi..

script dari pak de mantap.. penampakan 10 baris x 10 kolomnya mirip dengan
kasus yang diberikan..
penjelasan jalannya script juga jelas..

ini cuma opini Jan pribadi ya.. semoga tidak mempengaruhi opini moderator
^_^

2 jempol tangan + 2 jempol kaki untuk pak De xixixi ^_^ [image: Gambar
sisip 1][image: Gambar sisip 2]
kalo kurang nanti Jan pinjam jempol orang yang di sebelah Jan deh

Terima kasih untuk sharing ilmunya

Wassalam,

-Miss Jan Raisin-

Pada 16 April 2014 16.14, De Premor <de@premor.net> menulis:

> Selamat sore semuanya, baru bisa konek lagi nih
>
> Setelah lama nga nengokin ternyata ada celengan nya yak ! ikutan boleh ?
>
> Sub Gradasi_Catur()
> 'Definisi Pemakaian Variable, di Office2010 definisi baris cukup LONG
> saja karena jumlah baris di excel 2010 hanya 2^20
> Dim xRow As Long, MaxRow As Long
>
> 'Untuk Colom, menggunakan Integer saja, karena cuman perlu 2^14
> Dim xCol As Integer, MaxCol As Integer
>
> 'berinteraksi dengan user
> MaxRow = InputBox("Masukan Jumlah Baris ?", "Gradasi Catur", 10)
> MaxCol = InputBox("Masukan Jumlah Kolom ?", "Gradasi Catur", 10)
>
> 'kosongin hasil sebelumnya (kalau ada)
> Cells.Clear
>
> 'Lakukan perulangan sesuai jumlah baris yang diinginkan user
> For xRow = 1 To MaxRow
> 'Lakukan perulangan sesuai jumlah kolom yang diinginkan user
> For xCol = 1 To MaxCol
> 'Untuk memilih cell
> With Cells(xRow, xCol).Interior
> 'Untuk membuat pewarnaan zigzag
> 'Jika sisa pembagian 2 pada nilai baris masih menyisakan 1
> (Bilangan Ganjil), maka :
> If xRow Mod 2 = 1 Then
> 'Jika ketemu baris ganjil, maka kasih warna mulai
> kolom kedua
> 'Pewarnaan menggunakan metode RGB ( RED, GREEN, BLUE )
> maksimal nilai masing2 warna adalah 255, dimulai dari 0
> 'Maka kita buat steping berdasar maksimal jumlah baris
> dan kolom yang diminta user untuk
> 'menghasilkan efek gradasi dengan marna sesuai contoh
> soal
> If xCol Mod 2 = 0 Then .Color = RGB((255 / MaxRow) *
> xRow, (255 / MaxCol) * xCol, 10)
> Else
> 'Jika ketemu baris ganjil, maka kasih warna mulai
> kolom pertama
> If xCol Mod 2 = 1 Then .Color = RGB((255 / MaxRow) *
> xRow, (255 / MaxCol) * xCol, 10)
> End If
> End With
>
> Next
> Next
> End Sub
>
> Selesai deh
>
> Rgds,
> [dp]
>
>
>
>
>

Wed Apr 16, 2014 6:56 pm (PDT) . Posted by:

"Bagus" bagus4bls

Pak Dwint;

"Biar adil, Moderator dan Miss Jan Raisin tidak boleh mengikuti challenge ini, selain itu semua BeExceller dipersilakan mengikuti challenge ini."

kalau menurut saya pribadi sih baik itu moderator maupun miss jan, boleh2 saja mengikuti celeng ini... (walaupun pada nantinya file yg mereka kirim tidak masuk penilaian.. hehehe...).

tujuannya biar bisa memperkaya / menjadi bahan pembelajaran be-exceller yg lain (terutama saya yg masih 0 besar soal vba excel)

Wassalam

~ Bagus ~

----- Original Message -----
From: dwint ruswanto
To: belajar-excel@yahoogroups.com
Sent: Wednesday, April 16, 2014 10:45 AM
Subject: [belajar-excel] Challenge VBA: Membuat warna pada cell

Assalamu'alaikum wr. wb.,

Berdasarkan permintaan dari pak Heri yang lagi semangat belajar VBA, saya mewakili moderator ingin memberikan sedikit challange kepada BeExceller.

Kasusnya seperti gambar di bawah ini:

Yang diminta adalah:

Membuat warna interior cel seperti di atas dengan pola seperti papan catur menggunakan VBA, jenis warna bebas asal tidak putih semua hehehehe :)

Boleh menggunakan scipt apa saja, penilaian pemenang akan ditentukan oleh moderator dan keputusan moderator tidak bisa diganggu gugat hehehehe :)

Biar adil, Moderator dan Miss Jan Raisin tidak boleh mengikuti challenge ini, selain itu semua BeExceller dipersilakan mengikuti challenge ini.

Peserta selain harus menyertakan workbook <= 250 KB juga harus menerangkan jalannya script itu di body email, hal ini untuk melatih BeExceller berbagi ilmu dan menerangkannya kepada member yang lain.

Buat menambah semangat, ada 2 buah buku sebagai hadiah untuk 2 pemenang, tetapi bukan buku mengenai Excel atau VBA karena millis belum memiliki buku sendiri. Pemenang akan diminta mengirimkan alamat pengiriman ke email owner (bukan email milis) beserta telepon yang bisa dihubungi setelah challenge ini ditutup dan diperoleh 2 orang pemenang.

Batas waktu challenge 7 hari mulai sekarang, dan akan ditutup pada hari Rabu tanggal 23 April 2014 jam 12:00 WIB.

Tujuan dari challenge ini bukan untuk mengejar hadiahnya, tetapi sekedar untuk melatih kemampuan mengajarkan ilmu kepada yang lain.

Selamat berkreasi.

Wassalam,

-dwint-

Wed Apr 16, 2014 7:27 pm (PDT) . Posted by:

"Ferry Alexander"

Setuju dengan Miss Jan, oke banget memang Pak De saya sudah coba scriptnya, simple tapi mantap, saya jadi minder nih...hehehe...

btw mohon sharenya untuk website tempat belajar pivot table dongs, kalo bisa sekalian yg ada workbook untuk latihannya. trims

rgds,
Ferry
Pada Kamis, 17 April 2014 8:56, Bagus <bagus@kingjim.co.id> menulis:

 

Pak Dwint;
 
"Biar adil, Moderator dan Miss Jan Raisin tidak boleh
mengikuti challenge ini, selain itu semua BeExceller dipersilakan mengikuti
challenge ini."

kalau menurut saya pribadi sih baik
itu moderator maupun miss jan, boleh2 saja mengikuti celeng ini... (walaupun pada nantinya file yg mereka kirim tidak masuk
penilaian.. hehehe...).
 
tujuannya biar bisa memperkaya / menjadi bahan
pembelajaran be-exceller yg lain (terutama saya yg masih 0 besar soal vba
excel)
 
 
Wassalam
~
Bagus ~
 
----- Original Message -----
>From: dwint ruswanto
>To: belajar-excel@yahoogroups.com
>Sent: Wednesday, April 16, 2014 10:45 AM
>Subject: [belajar-excel] Challenge VBA: Membuat warna pada cell
>

>Assalamu&#39;alaikum wr. wb.,
>
>Berdasarkan permintaan dari pak Heri yang lagi semangat belajar VBA, saya mewakili moderator ingin memberikan sedikit challange kepada BeExceller.
>
>Kasusnya seperti gambar di bawah ini:
>
>
>Yang diminta adalah:
>Membuat warna interior cel seperti di atas dengan pola seperti papan catur menggunakan VBA, jenis warna bebas asal tidak putih semua hehehehe :)
>
>Boleh menggunakan scipt apa saja, penilaian pemenang akan ditentukan oleh moderator dan keputusan moderator tidak bisa diganggu gugat hehehehe :)
>
>
>Biar adil, Moderator dan Miss Jan Raisin tidak boleh mengikuti challenge ini, selain itu semua BeExceller dipersilakan mengikuti challenge ini.
>
>
>Peserta selain harus menyertakan workbook <= 250 KB juga harus menerangkan jalannya script itu di body email, hal ini untuk melatih BeExceller berbagi ilmu dan menerangkannya kepada member yang lain.
>
>
>Buat menambah semangat, ada 2 buah buku sebagai hadiah untuk 2 pemenang, tetapi bukan buku mengenai Excel atau VBA karena millis belum memiliki buku sendiri. Pemenang akan diminta mengirimkan alamat pengiriman ke email owner (bukan email milis) beserta telepon yang bisa dihubungi setelah challenge ini ditutup dan diperoleh 2 orang pemenang.
>
>
>Batas waktu challenge 7 hari mulai sekarang, dan akan ditutup pada hari Rabu tanggal 23 April 2014 jam 12:00 WIB.
>
>
>Tujuan dari challenge ini bukan untuk mengejar hadiahnya, tetapi sekedar untuk melatih kemampuan mengajarkan ilmu kepada yang lain.
>
>
>Selamat berkreasi.
>
>
>Wassalam,
>
>
>-dwint-
>

Wed Apr 16, 2014 9:34 pm (PDT) . Posted by:

"nangAgus" nangagoez

Dear Moderator,
Saya seorang pemula dalam VBA, bisanya hanya rekam makro, jadi masih
banyak yang tidak sesuai, mohon rekan-rekan be Excel dapat memberi
masukan untuk perbaikan script ini!

Private Sub Warnai_Click()

'Mendefinisikan variabel yang diperlukan
Dim baris As Integer
Dim kolom As Integer
Dim b As Integer
Dim k As Integer
Dim a As Integer
Dim WERNA As Double

'Mengambil banyaknya baris dan kolom dari userform Warnai
'(TextBox untuk baris dinamakan barise)
'(TextBox untuk kolom dinamakan kolome)
baris = barise.Value
kolom = kolome.Value

'Mulai perulangan menghitung kolom
For k = 1 To kolom

'Agar kolomnya bisa berselang-seling tiap baris genap selalu
dimulai dari 2
If k Mod 2 = 1 Then a = 1 Else a = 2

'Mulai menghitung perulangan baris
For b = a To baris

'Memilih cell baris ke b dan kolm ke k (pertama kali kolom 1
baris 1)
Cells(b, k).Select
With Selection.Interior

'Menghitung nilai warna
'(angka yang ada di sini dapat diubah untuk menentukan
warna sesuai selera.
'silahkan dicoba untuk mengganti angka 5 dan 15000000)
WERNA = (b - 1) * 5 + k * (15000000 / baris)

'Memerintah memberi warna
.Color = WERNA

'untuk pembelajaran, cell yang diwarnai diperintahkan
juga untuk menulis kode warnanya
Cells(b, k).Value = WERNA
Selection.NumberFormat = "#,##0"
End With

'nilai barisnya ditambah satu agar dapat berpindah lompat satu baris
selanjutnya kemudian balik ke atas (for b)
b = b + 1
Next b

'kembali ke perulangan k
Next k

'diperintah untuk menyembunyikan UserForm
Me.Hide

End Sub

Salam
NangAgus
On 16/04/2014 10:45, dwint ruswanto wrote:
> Assalamu'alaikum wr. wb.,
>
> Berdasarkan permintaan dari pak Heri yang lagi semangat belajar VBA,
> saya mewakili moderator ingin memberikan sedikit challange kepada
> BeExceller.
>
> Kasusnya seperti gambar di bawah ini:
>
>
> Yang diminta adalah:
> Membuat warna interior cel seperti di atas dengan pola seperti papan
> catur menggunakan VBA, jenis warna bebas asal tidak putih semua
> hehehehe :)
>
> Boleh menggunakan scipt apa saja, penilaian pemenang akan ditentukan
> oleh moderator dan keputusan moderator tidak bisa diganggu gugat
> hehehehe :)
>
> Biar adil, Moderator dan Miss Jan Raisin tidak boleh mengikuti
> challenge ini, selain itu semua BeExceller dipersilakan mengikuti
> challenge ini.
>
> Peserta selain harus menyertakan workbook <= 250 KB juga harus
> menerangkan jalannya script itu di body email, hal ini untuk melatih
> BeExceller berbagi ilmu dan menerangkannya kepada member yang lain.
>
> Buat menambah semangat, ada 2 buah buku sebagai hadiah untuk 2
> pemenang, tetapi bukan buku mengenai Excel atau VBA karena millis
> belum memiliki buku sendiri. Pemenang akan diminta mengirimkan alamat
> pengiriman ke email owner (bukan email milis) beserta telepon yang
> bisa dihubungi setelah challenge ini ditutup dan diperoleh 2 orang
> pemenang.
>
> Batas waktu challenge 7 hari mulai sekarang, dan akan ditutup pada
> hari Rabu tanggal 23 April 2014 jam 12:00 WIB.
>
> Tujuan dari challenge ini bukan untuk mengejar hadiahnya, tetapi
> sekedar untuk melatih kemampuan mengajarkan ilmu kepada yang lain.
>
> Selamat berkreasi.
>
> Wassalam,
>
> -dwint-
>

Wed Apr 16, 2014 7:24 pm (PDT) . Posted by:

"Lazuardi Biru" lazuardi_biru84

dh
salam be excelent.
seperti pertanyaan saya yag lalu.
rumus mengikuti data di sebelahnya.
kali ini saya sudah coba edit2 macro yang ada di milis.
tapi masih kurang pas.

mohon bantuan para master

skripnya seperti ini.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("b3:b10")) Is Nothing Then
        Target.Offset(, 1).Formula = "=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"
    End If
End Sub

ketika saya ketik di B3 di C3 akan terisi formula =VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)

tapi masalahnya ketika saya ketik di b4 formula yang di inginkan lookup valuenya juga di B4. tapi untuk skrip di atas belum sesuai. mohon petunjuk dari master.

file terlampir

maksih sebelumnya.

salam

lb

Wed Apr 16, 2014 7:49 pm (PDT) . Posted by:

"Bagus" bagus4bls

Hai Biru;

coba pada baris ini:
Target.Offset(, 1).Formula = "=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"

dirubah menjadi:
Target.Offset(, 1).Formula = "=VLOOKUP(B3:B10,data!$A$4:$B$10,2,FALSE)"

Wassalam

~ Bagus ~

----- Original Message -----
From: Lazuardi Biru
To: belajar-excel@yahoogroups.com
Sent: Thursday, April 17, 2014 9:24 AM
Subject: [belajar-excel] vlookup - formula dinamis [1 Attachment]

dh
salam be excelent.
seperti pertanyaan saya yag lalu.
rumus mengikuti data di sebelahnya.
kali ini saya sudah coba edit2 macro yang ada di milis.
tapi masih kurang pas.

mohon bantuan para master

skripnya seperti ini.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b3:b10")) Is Nothing Then
Target.Offset(, 1).Formula = "=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"
End If
End Sub

ketika saya ketik di B3 di C3 akan terisi formula =VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)

tapi masalahnya ketika saya ketik di b4 formula yang di inginkan lookup valuenya juga di B4. tapi untuk skrip di atas belum sesuai. mohon petunjuk dari master.

file terlampir

maksih sebelumnya.

salam

lb

Wed Apr 16, 2014 8:04 pm (PDT) . Posted by:

"Lazuardi Biru" lazuardi_biru84



 pak bagus..
makasih pak..

kalau gak B3:B10 memungkinkan gak ya pak..

salam

lb

Pada Kamis, 17 April 2014 9:50, Bagus <bagus@kingjim.co.id> menulis:

 
Hai Biru;
 
coba pada baris ini:
Target.Offset(, 1).Formula =
"=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"
 
dirubah menjadi:
Target.Offset(, 1).Formula =
"=VLOOKUP(B3:B10,data!$A$4:$B$10,2,FALSE)"
 
 
Wassalam
~
Bagus ~
 
----- Original Message -----
>From: Lazuardi Biru
>To: belajar-excel@yahoogroups.com
>Sent: Thursday, April 17, 2014 9:24 AM
>Subject: [belajar-excel] vlookup - formula dinamis [1 Attachment]
>

>dh
>salam be excelent.
>seperti pertanyaan saya yag lalu.
>rumus mengikuti data di sebelahnya.
>kali ini
saya sudah coba edit2 macro yang ada di milis.
>tapi masih kurang
pas.
>
>mohon bantuan para master
>
>skripnya seperti
ini.
>
>
>Private Sub Worksheet_Change(ByVal Target As
Range)
>    If Not Intersect(Target, Range("b3:b10")) Is
Nothing Then
>        Target.Offset(,
1).Formula = "=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"
>    End
If
>End Sub
>
>ketika saya ketik di B3 di C3 akan terisi formula
=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)
>
>tapi masalahnya ketika saya ketik
di b4 formula yang di inginkan lookup valuenya juga di B4. tapi untuk skrip di
atas belum sesuai. mohon petunjuk dari master.
>
>
>file terlampir
>
>maksih
sebelumnya.
>
>salam
>
>lb
>

Wed Apr 16, 2014 8:11 pm (PDT) . Posted by:

"Jan Raisin"

Pak Lazuardi,

ini adalah script asli dari pak Lazuardi:
Target.Offset(, 1).Formula = "=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"

sekarang kita fokuskan hanya kepada script di sebalah kanan tanda = saja,
yaitu script yang ini:
"=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"

script di atas ingin dibuat dinamis mengikuti nomer baris kolom target yang
diberi warna merah, nah.. tau kan cara mengambil nomer baris kolom
targetnya?
tetapi sebelumnya script di atas harus dipisah-pisah menjadi beberapa
bagian untuk memisahkan nomer barisnya, dan setiap bagian harus ditulis di
dalam 2 buah tanda kutip dua, dan untuk menggabungkan setiap bagian selalu
menggunakan tanda ampersand atau &
"=VLOOKUP(B" & 3 & ",data!$A$4:$B$10,2,FALSE)"
bagian 1: "=VLOOKUP(B"
bagian 2: 3
bagian 3: ",data!$A$4:$B$10,2,FALSE)"

nah.. yang ingin dibuat dinamis adalah bagian 2 yang berwarna merah, dibuat
mengikuti nomer baris target.. kira2 gimana ya cara mengambil nomer baris
targetnya? kasih tau Jan ya.. karena Jan belum tau nih,,

kalo sudah.. script tadi disusun lagi menjadi
"=VLOOKUP(B" & script_ambil_nomer_baris_target & ",data!$A$4:$B$10,2,FALSE)"

kalo kira-kira kolomnya yang dinamis gimana? dengan cara yang sama.. maka
harus dilakukan pemecahan script untuk memisahkan kolomnya dulu..
kalo kolom dan barisnya dinamis? berarti harus dilakukan pemisahan kolom
dan barisnya..

kalo udah dapat script yang warna merah tolong kasih tau Jan ya..

Wassalam,

-Miss Jan Raisin-

Pada 17 April 2014 10.09, Bagus <bagus@kingjim.co.id> menulis:

>
>
> Hai Biru;
>
> coba pada baris ini:
> Target.Offset(, 1).Formula = "=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"
>
> dirubah menjadi:
> Target.Offset(, 1).Formula = "=VLOOKUP(B3:B10,data!$A$4:$B$10,2,FALSE)"
>
>
>
> Wassalam
>
> ~ Bagus ~
>
>
>
> ----- Original Message -----
> *From:* Lazuardi Biru <lazuardi_biru84@yahoo.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, April 17, 2014 9:24 AM
> *Subject:* [belajar-excel] vlookup - formula dinamis [1 Attachment]
>
>
>
> dh
> salam be excelent.
> seperti pertanyaan saya yag lalu.
> rumus mengikuti data di sebelahnya.
> kali ini saya sudah coba edit2 macro yang ada di milis.
> tapi masih kurang pas.
>
> mohon bantuan para master
>
> skripnya seperti ini.
>
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Not Intersect(Target, Range("b3:b10")) Is Nothing Then
> Target.Offset(, 1).Formula = "=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"
> End If
> End Sub
>
> ketika saya ketik di B3 di C3 akan terisi formula
> =VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)
>
> tapi masalahnya ketika saya ketik di b4 formula yang di inginkan lookup
> valuenya juga di B4. tapi untuk skrip di atas belum sesuai. mohon petunjuk
> dari master.
>
> file terlampir
>
> maksih sebelumnya.
>
> salam
>
> lb
>
> _
>

Wed Apr 16, 2014 8:26 pm (PDT) . Posted by:

"Lazuardi Biru" lazuardi_biru84

mis jan

wah mis jan bikin teka teki.. hehehe saya coba dulu mis..
nanti kalo mentok saya kasih tanda S.O.S

kasih klu nya juga boleh mis.. hehehe

salam
lb

Pada Kamis, 17 April 2014 10:12, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

 
Pak Lazuardi,

ini adalah script asli dari pak Lazuardi:
Target.Offset(, 1).Formula = "=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"

sekarang kita fokuskan hanya kepada script di sebalah kanan tanda = saja, yaitu script yang ini:
"=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"

script di atas ingin dibuat dinamis mengikuti nomer baris kolom target yang diberi warna merah, nah.. tau kan cara mengambil nomer baris kolom targetnya?
tetapi sebelumnya script di atas harus dipisah-pisah menjadi beberapa bagian untuk memisahkan nomer barisnya, dan setiap bagian harus ditulis di dalam 2 buah tanda kutip dua, dan untuk menggabungkan setiap bagian selalu menggunakan tanda ampersand atau &
"=VLOOKUP(B" &3&",data!$A$4:$B$10,2,FALSE)"

bagian 1: "=VLOOKUP(B"
bagian 2: 3
bagian 3: ",data!$A$4:$B$10,2,FALSE)"

nah.. yang ingin dibuat dinamis adalah bagian 2 yang berwarna merah, dibuat mengikuti nomer baris target.. kira2 gimana ya cara mengambil nomer baris targetnya? kasih tau Jan ya.. karena Jan belum tau nih,, 

kalo sudah.. script tadi disusun lagi menjadi
"=VLOOKUP(B" & script_ambil_nomer_baris_target &",data!$A$4:$B$10,2,FALSE)"

kalo kira-kira kolomnya yang dinamis gimana? dengan cara yang sama.. maka harus dilakukan pemecahan script untuk memisahkan kolomnya dulu.. 
kalo kolom dan barisnya dinamis? berarti harus dilakukan pemisahan kolom dan barisnya..

kalo udah dapat script yang warna merah tolong kasih tau Jan ya.. 

Wassalam,

-Miss Jan Raisin-

Pada 17 April 2014 10.09, Bagus <bagus@kingjim.co.id> menulis:


>
>Hai Biru;

>coba pada baris ini:
>Target.Offset(, 1).Formula =
"=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"

>dirubah menjadi:
>Target.Offset(, 1).Formula =
"=VLOOKUP(B3:B10,data!$A$4:$B$10,2,FALSE)"


>Wassalam
>~
Bagus ~

>----- Original Message -----
>>From: Lazuardi Biru
>>To: belajar-excel@yahoogroups.com
>>Sent: Thursday, April 17, 2014 9:24 AM
>>Subject: [belajar-excel] vlookup - formula dinamis [1 Attachment]
>>
>> 
>>dh
>>salam be excelent.
>>seperti pertanyaan saya yag lalu.
>>rumus mengikuti data di sebelahnya.
>>kali ini
saya sudah coba edit2 macro yang ada di milis.
>>tapi masih kurang
pas.
>>
>>mohon bantuan para master
>>
>>skripnya seperti
ini.
>>
>>
>>Private Sub Worksheet_Change(ByVal Target As
Range)
>>    If Not Intersect(Target, Range("b3:b10")) Is
Nothing Then
>>        Target.Offset(,
1).Formula = "=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"
>>    End
If
>>End Sub
>>
>>ketika saya ketik di B3 di C3 akan terisi formula
=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)
>>
>>tapi masalahnya ketika saya ketik
di b4 formula yang di inginkan lookup valuenya juga di B4. tapi untuk skrip di
atas belum sesuai. mohon petunjuk dari master.
>>
>>
>>file terlampir
>>
>>maksih
sebelumnya.
>>
>>salam
>>
>>lb
>>
>_

Wed Apr 16, 2014 8:53 pm (PDT) . Posted by:

"Lazuardi Biru" lazuardi_biru84

mis jan

begini mis..

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("b3:b10")) Is Nothing Then
        Target.Offset(, 1).Formula = "=VLOOKUP(B" & Target.Row & ",data!$A$4:$B$10,2,FALSE)"
    End If
End Sub

teng kyu ya mis.. saranya..

salam
lb

Pada Kamis, 17 April 2014 10:26, Lazuardi Biru <lazuardi_biru84@yahoo.com> menulis:

mis jan

wah mis jan bikin teka teki.. hehehe saya coba dulu mis..
nanti kalo mentok saya kasih tanda S.O.S

kasih klu nya juga boleh mis.. hehehe

salam
lb

Pada Kamis, 17 April 2014 10:12, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

 
Pak Lazuardi,

ini adalah script asli dari pak Lazuardi:
Target.Offset(, 1).Formula = "=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"

sekarang kita fokuskan hanya kepada script di sebalah kanan tanda = saja, yaitu script yang ini:
"=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"

script di atas ingin dibuat dinamis mengikuti nomer baris kolom target yang diberi warna merah, nah.. tau kan cara mengambil nomer baris kolom targetnya?
tetapi sebelumnya script di atas harus dipisah-pisah menjadi beberapa bagian untuk memisahkan nomer barisnya, dan setiap bagian harus ditulis di dalam 2 buah tanda kutip dua, dan untuk menggabungkan setiap bagian selalu menggunakan tanda ampersand atau &
"=VLOOKUP(B" &3&",data!$A$4:$B$10,2,FALSE)"

bagian 1: "=VLOOKUP(B"
bagian 2: 3
bagian 3: ",data!$A$4:$B$10,2,FALSE)"

nah.. yang ingin dibuat dinamis adalah bagian 2 yang berwarna merah, dibuat mengikuti nomer baris target.. kira2 gimana ya cara mengambil nomer baris targetnya? kasih tau Jan ya.. karena Jan belum tau nih,, 

kalo sudah.. script tadi disusun lagi menjadi
"=VLOOKUP(B" & script_ambil_nomer_baris_target &",data!$A$4:$B$10,2,FALSE)"

kalo kira-kira kolomnya yang dinamis gimana? dengan cara yang sama.. maka harus dilakukan pemecahan script untuk memisahkan kolomnya dulu.. 
kalo kolom dan barisnya dinamis? berarti harus dilakukan pemisahan kolom dan barisnya..

kalo udah dapat script yang warna merah tolong kasih tau Jan ya.. 

Wassalam,

-Miss Jan Raisin-

Pada 17 April 2014 10.09, Bagus <bagus@kingjim.co.id> menulis:


>
>Hai Biru;

>coba pada baris ini:
>Target.Offset(, 1).Formula =
"=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"

>dirubah menjadi:
>Target.Offset(, 1).Formula =
"=VLOOKUP(B3:B10,data!$A$4:$B$10,2,FALSE)"


>Wassalam
>~
Bagus ~

>----- Original Message -----
>>From: Lazuardi Biru
>>To: belajar-excel@yahoogroups.com
>>Sent: Thursday, April 17, 2014 9:24 AM
>>Subject: [belajar-excel] vlookup - formula dinamis [1 Attachment]
>>
>> 
>>dh
>>salam be excelent.
>>seperti pertanyaan saya yag lalu.
>>rumus mengikuti data di sebelahnya.
>>kali ini
saya sudah coba edit2 macro yang ada di milis.
>>tapi masih kurang
pas.
>>
>>mohon bantuan para master
>>
>>skripnya seperti
ini.
>>
>>
>>Private Sub Worksheet_Change(ByVal Target As
Range)
>>    If Not Intersect(Target, Range("b3:b10")) Is
Nothing Then
>>        Target.Offset(,
1).Formula = "=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"
>>    End
If
>>End Sub
>>
>>ketika saya ketik di B3 di C3 akan terisi formula
=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)
>>
>>tapi masalahnya ketika saya ketik
di b4 formula yang di inginkan lookup valuenya juga di B4. tapi untuk skrip di
atas belum sesuai. mohon petunjuk dari master.
>>
>>
>>file terlampir
>>
>>maksih
sebelumnya.
>>
>>salam
>>
>>lb
>>
>_

Wed Apr 16, 2014 9:46 pm (PDT) . Posted by:

"Lazuardi Biru" lazuardi_biru84

mis jan..
kalau skrip saya tambah fungsi gini kok nggak jalan ya..
apa kira2 masalahnya

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("b3:b10")) Is Nothing Then
        Target.Offset(, 1).Formula = "=VLOOKUP(B" & Target.Row & ",data!$A$4:$B$10,2,FALSE)"
    End If
    If Not Intersect(Target, Range("b3:b10")) Is Nothing Then
        Target.Offset(, 4).Formula = "=EDATE(D"&target.Row&",E"&target.Row&")"
    End If
End Sub

salam
lb

Pada Kamis, 17 April 2014 10:53, Lazuardi Biru <lazuardi_biru84@yahoo.com> menulis:

mis jan

begini mis..

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("b3:b10")) Is Nothing Then
        Target.Offset(, 1).Formula = "=VLOOKUP(B" & Target.Row & ",data!$A$4:$B$10,2,FALSE)"
    End If
End Sub

teng kyu ya mis.. saranya..

salam
lb

Pada Kamis, 17 April 2014 10:26, Lazuardi Biru <lazuardi_biru84@yahoo.com> menulis:

mis jan

wah mis jan bikin teka teki.. hehehe saya coba dulu mis..
nanti kalo mentok saya kasih tanda S.O.S

kasih klu nya juga boleh mis.. hehehe

salam
lb

Pada Kamis, 17 April 2014 10:12, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

 
Pak Lazuardi,

ini adalah script asli dari pak Lazuardi:
Target.Offset(, 1).Formula = "=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"

sekarang kita fokuskan hanya kepada script di sebalah kanan tanda = saja, yaitu script yang ini:
"=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"

script di atas ingin dibuat dinamis mengikuti nomer baris kolom target yang diberi warna merah, nah.. tau kan cara mengambil nomer baris kolom targetnya?
tetapi sebelumnya script di atas harus dipisah-pisah menjadi beberapa bagian untuk memisahkan nomer barisnya, dan setiap bagian harus ditulis di dalam 2 buah tanda kutip dua, dan untuk menggabungkan setiap bagian selalu menggunakan tanda ampersand atau &
"=VLOOKUP(B" &3&",data!$A$4:$B$10,2,FALSE)"

bagian 1: "=VLOOKUP(B"
bagian 2: 3
bagian 3: ",data!$A$4:$B$10,2,FALSE)"

nah.. yang ingin dibuat dinamis adalah bagian 2 yang berwarna merah, dibuat mengikuti nomer baris target.. kira2 gimana ya cara mengambil nomer baris targetnya? kasih tau Jan ya.. karena Jan belum tau nih,, 

kalo sudah.. script tadi disusun lagi menjadi
"=VLOOKUP(B" & script_ambil_nomer_baris_target &",data!$A$4:$B$10,2,FALSE)"

kalo kira-kira kolomnya yang dinamis gimana? dengan cara yang sama.. maka harus dilakukan pemecahan script untuk memisahkan kolomnya dulu.. 
kalo kolom dan barisnya dinamis? berarti harus dilakukan pemisahan kolom dan barisnya..

kalo udah dapat script yang warna merah tolong kasih tau Jan ya.. 

Wassalam,

-Miss Jan Raisin-

Pada 17 April 2014 10.09, Bagus <bagus@kingjim.co.id> menulis:

 
>Hai Biru;

>coba pada baris ini:
>Target.Offset(, 1).Formula =
"=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"

>dirubah menjadi:
>Target.Offset(, 1).Formula =
"=VLOOKUP(B3:B10,data!$A$4:$B$10,2,FALSE)"


>Wassalam
>~
Bagus ~

>----- Original Message -----
>>From: Lazuardi Biru
>>To: belajar-excel@yahoogroups.com
>>Sent: Thursday, April 17, 2014 9:24 AM
>>Subject: [belajar-excel] vlookup - formula dinamis [1 Attachment]
>>
>> 
>>dh
>>salam be excelent.
>>seperti pertanyaan saya yag lalu.
>>rumus mengikuti data di sebelahnya.
>>kali ini
saya sudah coba edit2 macro yang ada di milis.
>>tapi masih kurang
pas.
>>
>>mohon bantuan para master
>>
>>skripnya seperti
ini.
>>
>>
>>Private Sub Worksheet_Change(ByVal Target As
Range)
>>    If Not Intersect(Target, Range("b3:b10")) Is
Nothing Then
>>        Target.Offset(,
1).Formula = "=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)"
>>    End
If
>>End Sub
>>
>>ketika saya ketik di B3 di C3 akan terisi formula
=VLOOKUP(B3,data!$A$4:$B$10,2,FALSE)
>>
>>tapi masalahnya ketika saya ketik
di b4 formula yang di inginkan lookup valuenya juga di B4. tapi untuk skrip di
atas belum sesuai. mohon petunjuk dari master.
>>
>>
>>file terlampir
>>
>>maksih
sebelumnya.
>>
>>salam
>>
>>lb
>>
>_

Wed Apr 16, 2014 8:57 pm (PDT) . Posted by:

"Emi" emilestariklcc



Teman
BeExcel
Mohon bantuan,

Kenapa
return value nya 1903 dan bukan 2013?

=DATE(RIGHT(A1,4),MID(A1,4,3),LEFT(A1,2))

Terima
kasih.
-Emi

04.07.2013    04/07/1903







21.06.2013    21/06/1903







22.06.2013    22/06/1903







18.06.2013    18/06/1903







19.06.2013    19/06/1903







25.06.2013    25/06/1903







25.06.2013    25/06/1903







13.07.2013    13/07/1903







12.07.2013    12/07/1903







10.07.2013    10/07/1903

Wed Apr 16, 2014 9:01 pm (PDT) . Posted by:

"Heri Pamungkas ( Gmail )" dchoosen88


السَّÙ„َامُ عَÙ„َÙŠْÙƒُÙ…ْ ÙˆَرَØ­ْÙ…َØ©ُ اللهِ ÙˆَبَرَÙƒَاتُÙ‡ُ
Semangat pagi,.

hmm,... itu karena ada Karakter setelah Tahun
di data awalnya.

Coba ditambahkan Trim di Tahunnya.

=DATE(RIGHT(TRIM(A1);4);MID(A1;4;2);LEFT(A1;2))

ÙˆَالسَّÙ„َامُ عَÙ„َÙŠْÙƒُÙ…ْ ÙˆَرَØ­ْÙ…َØ©ُ اللهِ ÙˆَبَرَÙƒَاتُÙ‡ُ

Warm Regards,

On 17/04/2014 10:39, Emi wrote:
>
>
> Teman BeExcel
> Mohon bantuan,
> Kenapa return value nya 1903 dan bukan 2013?
>
> =DATE(RIGHT(A1,4),MID(A1,4,3),LEFT(A1,2))
> Terima kasih.
> -Emi
>
> 04.07.2013
> 04/07/1903
>
>
>
>
>
>
>
>
> 21.06.2013 21/06/1903
>
>
>
>
>
>
> 22.06.2013 22/06/1903
>
>
>
>
>
>
> 18.06.2013 18/06/1903
>
>
>
>
>
>
> 19.06.2013 19/06/1903
>
>
>
>
>
>
> 25.06.2013 25/06/1903
>
>
>
>
>
>
> 25.06.2013 25/06/1903
>
>
>
>
>
>
> 13.07.2013 13/07/1903
>
>
>
>
>
>
> 12.07.2013 12/07/1903
>
>
>
>
>
>
> 10.07.2013 10/07/1903
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
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