15 New Messages
Digest #2607
2b
Re: mengubah format table megggunakan macro [1 Attachment] by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
4b
Re: bagaimana membuat data di sheet jadi tidak aktif [1 Attachment] by "hendrik karnadi" hendrikkarnadi
4c
Bls: [belajar-excel] bagaimana membuat data di sheet jadi tidak akti by "Anggraini Hapsari" anggrainihapsari@ymail.com
4d
Re: bagaimana membuat data di sheet jadi tidak aktif [1 Attachment] by anggrainihapsari@ymail.com
4f
Bls: Re: [belajar-excel] bagaimana membuat data di sheet jadi tidak by "Anggraini Hapsari" anggrainihapsari@ymail.com
Messages
Thu Oct 24, 2013 6:25 pm (PDT) . Posted by:
"Jan Raisin"
hai Aji..
jadi keingat sama mas Aji Mumpung yang di rumah [?][?][?]
buka worksheet excel dan VBE secara berdampingan, lalu coba dicek sendiri
dulu dengan cara menekan tombol F8 berkali-kali, dan lihat setiap perubahan
yang terjadi baik di worksheet maupun di VBE, kalo di VBE dengan cara
meletakan kursor di setiap variabel.
cara di atas akan menjawab 3 pertanyaan yang anda sampaikan
untuk pertanyaan berikutnya tolong lampirkan sample workbook yang sudah
dimodifikasi.. agar BeExceller dapat melihat kesalahan yang terjadi.
Salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 18.10, <ones_marle_oke@yahoo.com> menulis:
> **
>
>
> Miss Jan Raisin,
>
>
> Mau tanya boleh? (boleh yaaaa.....)
>
>
> Next problem...
>
> - Setelah saya modifikasi sedemikian rupa -
>
> Dim rgHasil As Range, rng As Range
>
> Dim lRow As Long, lHasil As Long, getDays As String
>
>
> Application.ScreenUpdating = False
>
> getDays = Format(Date, "dd")
>
> lRow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
>
> Set rgHasil = Sheet2.Range("w2:w" & lRow)
>
> For Each rng In rgHasil
>
> lHasil = rng.Row
>
> If Sheet2.Range("v" & lHasil).Value < getDays Then
>
> rng.Value = DateSerial(Year(Date), Month(Date), Range("v" &
> lHasil).Value)
>
> Else
>
> rng.Value = DateSerial(Year(Date), Month(Date) - 1, Range("v" &
> lHasil).Value)
>
> End If
>
> Next rng
>
>
> MsgBox "Done update PTD", vbInformation, "Message"
>
> Application.ScreenUpdating = True
>
>
> Pertanyaannya :
>
> 1. Pada saat saya action macronya, ternyata semua value yang ada di kolom
> W2-W4 pada sheet("After") sudah normal, namun kolom W5 sheet("After")
> sampai seterusnya menjadi 30-09-2013 dan 30-08-2013, ini kenapa ya?
>
> 2. Untuk variable 'rng', ini mengapa menunjukkan tanggal 30-09-2013 ?
>
> 3. Agak sedikit linglung juga, kenapa loopingnya hanya mencapai di kolom
> W4, namun di kolom W selanjutnya malah tidak berjalan...
>
>
> Terima kasih.
>
> -aji-
>
>
>
jadi keingat sama mas Aji Mumpung yang di rumah [?][?][?]
buka worksheet excel dan VBE secara berdampingan, lalu coba dicek sendiri
dulu dengan cara menekan tombol F8 berkali-kali, dan lihat setiap perubahan
yang terjadi baik di worksheet maupun di VBE, kalo di VBE dengan cara
meletakan kursor di setiap variabel.
cara di atas akan menjawab 3 pertanyaan yang anda sampaikan
untuk pertanyaan berikutnya tolong lampirkan sample workbook yang sudah
dimodifikasi.
Salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 18.10, <ones_marle_oke@
> **
>
>
> Miss Jan Raisin,
>
>
> Mau tanya boleh? (boleh yaaaa.....)
>
>
> Next problem...
>
> - Setelah saya modifikasi sedemikian rupa -
>
> Dim rgHasil As Range, rng As Range
>
> Dim lRow As Long, lHasil As Long, getDays As String
>
>
> Application.
>
> getDays = Format(Date, "dd"
>
> lRow = Sheet2.Cells(
>
> Set rgHasil = Sheet2.Range(
>
> For Each rng In rgHasil
>
> lHasil = rng.Row
>
> If Sheet2.Range(
>
> rng.Value = DateSerial(Year(
> lHasil).Value)
>
> Else
>
> rng.Value = DateSerial(Year(
> lHasil).Value)
>
> End If
>
> Next rng
>
>
> MsgBox "Done update PTD", vbInformation, "Message"
>
> Application.
>
>
> Pertanyaannya :
>
> 1. Pada saat saya action macronya, ternyata semua value yang ada di kolom
> W2-W4 pada sheet("
> sampai seterusnya menjadi 30-09-2013 dan 30-08-2013, ini kenapa ya?
>
> 2. Untuk variable 'rng'
>
> 3. Agak sedikit linglung juga, kenapa loopingnya hanya mencapai di kolom
> W4, namun di kolom W selanjutnya malah tidak berjalan...
>
>
> Terima kasih.
>
> -aji-
>
>
>
Thu Oct 24, 2013 7:00 pm (PDT) . Posted by:
ones_marle_oke
Dear Miss Jan Raisin (dlm arti bahasa jawanya "Mba yang ga pernah malu"),
Hehehe, pas dicoba ternyata paham knp bisa error dan bermasalah.
jadi saat menjalankan macronya, ternyata nilai valuenya terlihat dengan jelas semua.
makasih Miss Jan Raisin.
Inget Aji Mumpung yang drmh miss?
Waaaahhhh... 0_0 :-D
---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com> wrote:
hai Aji..
jadi keingat sama mas Aji Mumpung yang di rumah
buka worksheet excel dan VBE secara berdampingan, lalu coba dicek sendiri dulu dengan cara menekan tombol F8 berkali-kali, dan lihat setiap perubahan yang terjadi baik di worksheet maupun di VBE, kalo di VBE dengan cara meletakan kursor di setiap variabel.
cara di atas akan menjawab 3 pertanyaan yang anda sampaikan
untuk pertanyaan berikutnya tolong lampirkan sample workbook yang sudah dimodifikasi.. agar BeExceller dapat melihat kesalahan yang terjadi.
Salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 18.10, <ones_marle_oke@... mailto:ones_marle_oke@...> menulis:
Miss Jan Raisin,
Mau tanya boleh? (boleh yaaaa.....)
Next problem...
- Setelah saya modifikasi sedemikian rupa -
Dim rgHasil As Range, rng As Range
Dim lRow As Long, lHasil As Long, getDays As String
Application.ScreenUpdating = False
getDays = Format(Date, "dd")
lRow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
Set rgHasil = Sheet2.Range("w2:w" & lRow)
For Each rng In rgHasil
lHasil = rng.Row
If Sheet2.Range("v" & lHasil).Value < getDays Then
rng.Value = DateSerial(Year(Date), Month(Date), Range("v" & lHasil).Value)
Else
rng.Value = DateSerial(Year(Date), Month(Date) - 1, Range("v" & lHasil).Value)
End If
Next rng
MsgBox "Done update PTD", vbInformation, "Message"
Application.ScreenUpdating = True
Pertanyaannya :
1. Pada saat saya action macronya, ternyata semua value yang ada di kolom W2-W4 pada sheet("After") sudah normal, namun kolom W5 sheet("After") sampai seterusnya menjadi 30-09-2013 dan 30-08-2013, ini kenapa ya?
2. Untuk variable 'rng', ini mengapa menunjukkan tanggal 30-09-2013 ?
3. Agak sedikit linglung juga, kenapa loopingnya hanya mencapai di kolom W4, namun di kolom W selanjutnya malah tidak berjalan...
Terima kasih.
-aji-
Hehehe, pas dicoba ternyata paham knp bisa error dan bermasalah.
jadi saat menjalankan macronya, ternyata nilai valuenya terlihat dengan jelas semua.
makasih Miss Jan Raisin.
Inget Aji Mumpung yang drmh miss?
Waaaahhhh... 0_0 :-D
---In belajar-excel@
hai Aji..
jadi keingat sama mas Aji Mumpung yang di rumah
buka worksheet excel dan VBE secara berdampingan, lalu coba dicek sendiri dulu dengan cara menekan tombol F8 berkali-kali, dan lihat setiap perubahan yang terjadi baik di worksheet maupun di VBE, kalo di VBE dengan cara meletakan kursor di setiap variabel.
cara di atas akan menjawab 3 pertanyaan yang anda sampaikan
untuk pertanyaan berikutnya tolong lampirkan sample workbook yang sudah dimodifikasi.
Salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 18.10, <ones_marle_
Miss Jan Raisin,
Mau tanya boleh? (boleh yaaaa.....)
Next problem...
- Setelah saya modifikasi sedemikian rupa -
Dim rgHasil As Range, rng As Range
Dim lRow As Long, lHasil As Long, getDays As String
Application.
getDays = Format(Date, "dd"
lRow = Sheet2.Cells(
Set rgHasil = Sheet2.Range(
For Each rng In rgHasil
lHasil = rng.Row
If Sheet2.Range(
rng.Value = DateSerial(Year(
Else
rng.Value = DateSerial(Year(
End If
Next rng
MsgBox "Done update PTD", vbInformation, "Message"
Application.
Pertanyaannya :
1. Pada saat saya action macronya, ternyata semua value yang ada di kolom W2-W4 pada sheet("
2. Untuk variable 'rng'
3. Agak sedikit linglung juga, kenapa loopingnya hanya mencapai di kolom W4, namun di kolom W selanjutnya malah tidak berjalan...
Terima kasih.
-aji-
Fri Oct 25, 2013 4:39 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
ow thread ini sudah panjang...
baru lihat kalo ada reply-nya... sorry ya..
1. apakah tidak akan membuat size penyimpanan excel menjadi membengkak?
>> tentu akan membuat penyimpanannya semakin besar tapi gak bengkak.
2. Karena data yang sudah terecord saat ini sudah sekitar 1000 something..
>> kalau masih kisaran seratus ribu sih gak terlalu banyak ya.
3. Jadi saya bermaksud membuatkan rumus tersebut menjadi copy paste value
pada kolom tersebut.
>> formula yang Anda gunakan :
=IF(DAY(F2)<DAY(NOW()),DATE(YEAR(NOW()),MONTH(NOW()),DAY(F2)),DATE(YEAR(NOW()),MONTH(NOW())-1,DAY(F2)))
pertanyaannya adalah :
1. disana ada fungsi Now() yang bersifat volatile. Jika formula ini
di-values-ken, berarti setiap akan autofilter harus klik sesuatu untuk
update nilai dalam rumus. Gitu gak ?
2. Atau nilai *hasil formula itu harus tetap selamanya* segitu aja ?
misal data masuk hari ini 2013-10-25, apakah 300 hari kedepan, nilai di
cell itu harus tetap 2013-10-25 alias sama dengan hasil formula saat
memasukkan record tersebut dulu ?
Jika jawaban 1 adalah Ya, berarti nilai dalam cell tersebut akan bergerak
maju terus menerus mengikuti waktu manusia. Jawaban 2 tidak akan bisa
dijawab dengan Ya.
Jika jawaban 2 adalah Ya (jawaban 1 harus tidak), berarti nilai dalam cell
tidak bisa menggunakan formula dan lebih baik diolah saat record masuk saja.
4. Dan sebenarnya proses perhitungan tanggal ini akan berjalan setiap
harinya, karena untuk proses AutoFilter saat user(kita) mengklik tombol
untuk AutoFilternya.
>> si user ketika autofilter harus pada nilai hasil formula terbaru atau
pada hasil formula saat si record data masuk ke tabel ?
jika user saat autofilter membutuhkan nilai hasil formula :
a. terbaru, maka formula yang dibutuhkan.
>> Jika dengan VBA, maka sebelum proses user autofilter harus ada
prosedur pembaruan nilai hasil formula yang dijalankan. Kalau tidak
dilakukan, berarti ada kemungkinan user memfilter data yang tidak update
nilai tanggalnya, misal saja beberapa hari tidak ada data yang masuk, maka
nilai hasil formula tidak terupdate
b. nilai saat record data masuk ke tabel, maka yang dibutuhkan adalah VBA
untuk membentuk nilai tanggal hasil formula dan menuliskannya ke cell
tempat record baru.
5. formulanya bisa disederhanakan menjadi :
=Date( Year( Now() ) , Month( Now() ) - ( Day(F2)<Day( Now() ) ) ,
Day(F2)) )
Penggunaan fungsi Now() dalam formula tersebut kurang membuat sreg...
kenapa ?
karena tingkat ketelitian yang dibutuhkan hanya per hari alias jika hari
berubah maka perlu kalkulasi baru, dan ndak perlu sampai per detik.
Jadi, lebih pas kalau pakai Today() daripada Now()
Formulanya akan menjadi :
=Date( Year( Today() ) , Month( Today() ) - ( Day(F2)<Day( Today() )
) , Day(F2)) )
Apa bedanya ?
>> dengan formula Now() (ingat... sifatnya volatile) maka setiap ada
perubahan akan membuat si fungsi Now() dikalkulasi.
karena fungsi Now() memiliki ketelitian sampai level detik, maka
besar kemungkinan saat ada yang entry data di sheet nun jauh dimato sana,
terjadi pada detik yang berbeda dengan yang lagi disimpan oleh si Now()
hasilnya, si Now() mengalami perubahan nilai. Akibatnya lagi, semua
formula yang pakai fungsi Now() harus dikalkulasi, ndak peduli apakah
berhubungan dengan data yang di entry atau tidak sama sekali.... pokoke
kalkulasi semua formula yang pakai Now().
>> dengan formula Today() (ingat.... sifatnya juga volatile) yang tingkat
ketelitiannya hanya sampai hari, maka pasti hasil Today() berubah kalau
sudah berganti hari komputer. Artinya, dihari yang sama, pada detik menit
atau jam beda yang belum membuat ganti hari, jika ada yang entry di sheet
antah berantah, tidak akan membuat nilai yang lagi disimpan Today()
mengalami perubahan, sehingga semua formula yang pakai Today() tidak perlu
di kalkulasi.
Ketika ada banyak baris yang pakai fungsi Today() apalagi pakai Now()....
maka akan muncul potensi terkalkulasinya formula berulang kali setiap Excel
melakukan kalkulasi. Jadi, sebaiknya hasil fungsi Today() apalagi Now(),
disimpan disebuah cell diluar tabel. *Misal di cell Z1 sheet Before.*
Jadi di Z1 itu diberi formula :
=Today() [jangan Now() deh, wong butuh ketelitiannya hanya sampai
satuan hari saja kok]
Lalu formula diatas diubah menjadi :
=Date( Year( *$Z$1* ) , Month( *$Z$1* ) - ( Day(F2)<Day( *$Z$1* ) )
, Day(F2)) )
kira-kira begitulah...
So, apa sudah beneran tepat milih VBA yang pasang formula begitu ? yakin
sesuai kebutuhan ?
Wassalam,
Kid.
2013/10/24 <ones_marle_oke@yahoo.com>
> **
>
>
> Dear Om Kid,
>
>
> Ini akan saya coba dlu om kid dengan penjelasan di atas.
>
> Tapi permasalahannya, apabila data yang akan disimpan semakin banyak,
> apakah tidak akan membuat size penyimpanan excel menjadi membengkak? Karena
> data yang sudah terecord saat ini sudah sekitar 1000 something.. Jadi saya
> bermaksud membuatkan rumus tersebut menjadi copy paste value pada kolom
> tersebut. Dan sebenarnya proses perhitungan tanggal ini akan berjalan
> setiap harinya, karena untuk proses AutoFilter saat user(kita) mengklik
> tombol untuk AutoFilternya.
>
>
> Sekian dari kasus yang saya tanyakan untuk destination range tersebut.
>
>
> Salam untuk semua beXcel..
>
>
> ---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com>
> wrote:
>
> Mau coba tanpa VBA ?
>
> pada sheet Before, pastikan W2 sampai W4 sudah berisi formula
> kemudian blok A1 sampai W4 -> ribbon Home -> group Styles -> format as
> table -> pilih salah salah satu styles -> centang my table has header
> coba copy data baru di A5 sampai A sekiun.
>
> Fitur ini bernama Excel Table diatas (xl2007 keatas) . Pada xl2003 bernama
> List yang bisa ditemui pada menu Data -> List
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/10/23 aji suseno <ones_marle_oke@...>
>
> **
>
> Dear Master Suhu,
>
> Mohon bantuannya lagi dong untuk mengetahui saat kita menggunakan
> FormulaR1C1 pada macro VBA dan saat kita ingin copy rumus tersebut sampai
> Rows terakhir pada sheets yang sedang aktif.
> Karena klo saya record macro, ternyata macronya menunjukan rows awal rumus
> (example W2) dan rows akhir data (example W4). Tertulis seperti ini =>
> Selection.AutoFill Destination:=Range("W2:W4")
>
> Sedangkan suhu VBA, ternyata saya mempunyai data yang setiap harinya akan
> bertambah. Jadi secara otomatis rows akhir data tersebut kan menjadi
> bertambah juga (example penambahan data W10).
>
> Nah, itu bagaimana ya cara menentukan Destination:=Range ini supaya akan
> membaca pada rows terakhir.
> File excel terlampir ya master suhu VBA. Udah mumet nyoba-nyoba sendiri
> dengan rumus ajaib sendiri, tapi tetep BUG karena declaration range ga
> bener (alias Excel nya ikut mumet).
>
> Terima kasih om-om, tante-tante, mba-mba, mas-mas semuanya yang bisa
> membantuk Case ini.
>
> Lagi - lagi attachmentnya ga bisa diupload lewat email... :-(
> Saya upload di milis ini ya master semua.
>
>
> http://milis-belajar-excel.1048464.n5.nabble.com/Mengetahui-Destination-Range-terakhir-pada-Rows-workbook-attachment-saja-td5721745.html
>
>
>
>
>
baru lihat kalo ada reply-nya... sorry ya..
1. apakah tidak akan membuat size penyimpanan excel menjadi membengkak?
>> tentu akan membuat penyimpanannya semakin besar tapi gak bengkak.
2. Karena data yang sudah terecord saat ini sudah sekitar 1000 something..
>> kalau masih kisaran seratus ribu sih gak terlalu banyak ya.
3. Jadi saya bermaksud membuatkan rumus tersebut menjadi copy paste value
pada kolom tersebut.
>> formula yang Anda gunakan :
=IF(DAY(F2)<
pertanyaannya adalah :
1. disana ada fungsi Now() yang bersifat volatile. Jika formula ini
di-values-ken, berarti setiap akan autofilter harus klik sesuatu untuk
update nilai dalam rumus. Gitu gak ?
2. Atau nilai *hasil formula itu harus tetap selamanya* segitu aja ?
misal data masuk hari ini 2013-10-25, apakah 300 hari kedepan, nilai di
cell itu harus tetap 2013-10-25 alias sama dengan hasil formula saat
memasukkan record tersebut dulu ?
Jika jawaban 1 adalah Ya, berarti nilai dalam cell tersebut akan bergerak
maju terus menerus mengikuti waktu manusia. Jawaban 2 tidak akan bisa
dijawab dengan Ya.
Jika jawaban 2 adalah Ya (jawaban 1 harus tidak), berarti nilai dalam cell
tidak bisa menggunakan formula dan lebih baik diolah saat record masuk saja.
4. Dan sebenarnya proses perhitungan tanggal ini akan berjalan setiap
harinya, karena untuk proses AutoFilter saat user(kita) mengklik tombol
untuk AutoFilternya.
>> si user ketika autofilter harus pada nilai hasil formula terbaru atau
pada hasil formula saat si record data masuk ke tabel ?
jika user saat autofilter membutuhkan nilai hasil formula :
a. terbaru, maka formula yang dibutuhkan.
>> Jika dengan VBA, maka sebelum proses user autofilter harus ada
prosedur pembaruan nilai hasil formula yang dijalankan. Kalau tidak
dilakukan, berarti ada kemungkinan user memfilter data yang tidak update
nilai tanggalnya, misal saja beberapa hari tidak ada data yang masuk, maka
nilai hasil formula tidak terupdate
b. nilai saat record data masuk ke tabel, maka yang dibutuhkan adalah VBA
untuk membentuk nilai tanggal hasil formula dan menuliskannya ke cell
tempat record baru.
5. formulanya bisa disederhanakan menjadi :
=Date( Year( Now() ) , Month( Now() ) - ( Day(F2)<Day( Now() ) ) ,
Day(F2)) )
Penggunaan fungsi Now() dalam formula tersebut kurang membuat sreg...
kenapa ?
karena tingkat ketelitian yang dibutuhkan hanya per hari alias jika hari
berubah maka perlu kalkulasi baru, dan ndak perlu sampai per detik.
Jadi, lebih pas kalau pakai Today() daripada Now()
Formulanya akan menjadi :
=Date( Year( Today() ) , Month( Today() ) - ( Day(F2)<Day( Today() )
) , Day(F2)) )
Apa bedanya ?
>> dengan formula Now() (ingat... sifatnya volatile) maka setiap ada
perubahan akan membuat si fungsi Now() dikalkulasi.
karena fungsi Now() memiliki ketelitian sampai level detik, maka
besar kemungkinan saat ada yang entry data di sheet nun jauh dimato sana,
terjadi pada detik yang berbeda dengan yang lagi disimpan oleh si Now()
hasilnya, si Now() mengalami perubahan nilai. Akibatnya lagi, semua
formula yang pakai fungsi Now() harus dikalkulasi, ndak peduli apakah
berhubungan dengan data yang di entry atau tidak sama sekali.... pokoke
kalkulasi semua formula yang pakai Now().
>> dengan formula Today() (ingat.... sifatnya juga volatile) yang tingkat
ketelitiannya hanya sampai hari, maka pasti hasil Today() berubah kalau
sudah berganti hari komputer. Artinya, dihari yang sama, pada detik menit
atau jam beda yang belum membuat ganti hari, jika ada yang entry di sheet
antah berantah, tidak akan membuat nilai yang lagi disimpan Today()
mengalami perubahan, sehingga semua formula yang pakai Today() tidak perlu
di kalkulasi.
Ketika ada banyak baris yang pakai fungsi Today() apalagi pakai Now()....
maka akan muncul potensi terkalkulasinya formula berulang kali setiap Excel
melakukan kalkulasi. Jadi, sebaiknya hasil fungsi Today() apalagi Now(),
disimpan disebuah cell diluar tabel. *Misal di cell Z1 sheet Before.*
Jadi di Z1 itu diberi formula :
=Today() [jangan Now() deh, wong butuh ketelitiannya hanya sampai
satuan hari saja kok]
Lalu formula diatas diubah menjadi :
=Date( Year( *$Z$1* ) , Month( *$Z$1* ) - ( Day(F2)<Day( *$Z$1* ) )
, Day(F2)) )
kira-kira begitulah...
So, apa sudah beneran tepat milih VBA yang pasang formula begitu ? yakin
sesuai kebutuhan ?
Wassalam,
Kid.
2013/10/24 <ones_marle_oke@
> **
>
>
> Dear Om Kid,
>
>
> Ini akan saya coba dlu om kid dengan penjelasan di atas.
>
> Tapi permasalahannya, apabila data yang akan disimpan semakin banyak,
> apakah tidak akan membuat size penyimpanan excel menjadi membengkak? Karena
> data yang sudah terecord saat ini sudah sekitar 1000 something.. Jadi saya
> bermaksud membuatkan rumus tersebut menjadi copy paste value pada kolom
> tersebut. Dan sebenarnya proses perhitungan tanggal ini akan berjalan
> setiap harinya, karena untuk proses AutoFilter saat user(kita) mengklik
> tombol untuk AutoFilternya.
>
>
> Sekian dari kasus yang saya tanyakan untuk destination range tersebut.
>
>
> Salam untuk semua beXcel..
>
>
> ---In belajar-excel@
> wrote:
>
> Mau coba tanpa VBA ?
>
> pada sheet Before, pastikan W2 sampai W4 sudah berisi formula
> kemudian blok A1 sampai W4 -> ribbon Home -> group Styles -> format as
> table -> pilih salah salah satu styles -> centang my table has header
> coba copy data baru di A5 sampai A sekiun.
>
> Fitur ini bernama Excel Table diatas (xl2007 keatas) . Pada xl2003 bernama
> List yang bisa ditemui pada menu Data -> List
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/10/23 aji suseno <ones_marle_
>
> **
>
> Dear Master Suhu,
>
> Mohon bantuannya lagi dong untuk mengetahui saat kita menggunakan
> FormulaR1C1 pada macro VBA dan saat kita ingin copy rumus tersebut sampai
> Rows terakhir pada sheets yang sedang aktif.
> Karena klo saya record macro, ternyata macronya menunjukan rows awal rumus
> (example W2) dan rows akhir data (example W4). Tertulis seperti ini =>
> Selection.AutoFill Destination:
>
> Sedangkan suhu VBA, ternyata saya mempunyai data yang setiap harinya akan
> bertambah. Jadi secara otomatis rows akhir data tersebut kan menjadi
> bertambah juga (example penambahan data W10).
>
> Nah, itu bagaimana ya cara menentukan Destination:
> membaca pada rows terakhir.
> File excel terlampir ya master suhu VBA. Udah mumet nyoba-nyoba sendiri
> dengan rumus ajaib sendiri, tapi tetep BUG karena declaration range ga
> bener (alias Excel nya ikut mumet).
>
> Terima kasih om-om, tante-tante, mba-mba, mas-mas semuanya yang bisa
> membantuk Case ini.
>
> Lagi - lagi attachmentnya ga bisa diupload lewat email... :-(
> Saya upload di milis ini ya master semua.
>
>
> http://milis-
>
>
>
>
>
Fri Oct 25, 2013 4:45 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
eh formulanya belum disertai pembalikan operator comparison nya
Formulanya diubah, dari :
=Date( Year( Now() ) , Month( Now() ) - ( Day(F2)<Day(
Now() ) ) , Day(F2)) )
menjadi :
=Date( Year( Now() ) , Month( Now() ) - ( Day(F2)>=Day(
Now() ) ) , Day(F2)) )
juga yang dari :
=Date( Year( Today() ) , Month( Today() ) - (
Day(F2)<Day( Today()
) ) , Day(F2)) )
menjadi :
=Date( Year( Today() ) , Month( Today() ) - (
Day(F2)>=Day( Today()
) ) , Day(F2)) )
tidak ketinggalan juga yang dari :
=Date( Year( *$Z$1* ) , Month( *$Z$1* ) - ( Day(F2)<Day( *$Z$1
* ) ) , Day(F2)) )
menjadi :
=Date( Year( *$Z$1* ) , Month( *$Z$1* ) - ( Day(F2)>=Day( *
$Z$1* ) ) , Day(F2)) )
maaf ya...
Wassalam,
Kid.
2013/10/25 Mr. Kid <mr.nmkid@gmail.com>
> ow thread ini sudah panjang...
>
> baru lihat kalo ada reply-nya... sorry ya..
>
> 1. apakah tidak akan membuat size penyimpanan excel menjadi membengkak?
> >> tentu akan membuat penyimpanannya semakin besar tapi gak bengkak.
>
> 2. Karena data yang sudah terecord saat ini sudah sekitar 1000 something..
> >> kalau masih kisaran seratus ribu sih gak terlalu banyak ya.
>
> 3. Jadi saya bermaksud membuatkan rumus tersebut menjadi copy paste value
> pada kolom tersebut.
> >> formula yang Anda gunakan :
>
> =IF(DAY(F2)<DAY(NOW()),DATE(YEAR(NOW()),MONTH(NOW()),DAY(F2)),DATE(YEAR(NOW()),MONTH(NOW())-1,DAY(F2)))
>
> pertanyaannya adalah :
> 1. disana ada fungsi Now() yang bersifat volatile. Jika formula ini
> di-values-ken, berarti setiap akan autofilter harus klik sesuatu untuk
> update nilai dalam rumus. Gitu gak ?
>
> 2. Atau nilai *hasil formula itu harus tetap selamanya* segitu aja ?
> misal data masuk hari ini 2013-10-25, apakah 300 hari kedepan, nilai di
> cell itu harus tetap 2013-10-25 alias sama dengan hasil formula saat
> memasukkan record tersebut dulu ?
>
> Jika jawaban 1 adalah Ya, berarti nilai dalam cell tersebut akan bergerak
> maju terus menerus mengikuti waktu manusia. Jawaban 2 tidak akan bisa
> dijawab dengan Ya.
>
> Jika jawaban 2 adalah Ya (jawaban 1 harus tidak), berarti nilai dalam cell
> tidak bisa menggunakan formula dan lebih baik diolah saat record masuk saja.
>
>
> 4. Dan sebenarnya proses perhitungan tanggal ini akan berjalan setiap
> harinya, karena untuk proses AutoFilter saat user(kita) mengklik tombol
> untuk AutoFilternya.
> >> si user ketika autofilter harus pada nilai hasil formula terbaru atau
> pada hasil formula saat si record data masuk ke tabel ?
> jika user saat autofilter membutuhkan nilai hasil formula :
> a. terbaru, maka formula yang dibutuhkan.
> >> Jika dengan VBA, maka sebelum proses user autofilter harus ada
> prosedur pembaruan nilai hasil formula yang dijalankan. Kalau tidak
> dilakukan, berarti ada kemungkinan user memfilter data yang tidak update
> nilai tanggalnya, misal saja beberapa hari tidak ada data yang masuk, maka
> nilai hasil formula tidak terupdate
>
> b. nilai saat record data masuk ke tabel, maka yang dibutuhkan adalah VBA
> untuk membentuk nilai tanggal hasil formula dan menuliskannya ke cell
> tempat record baru.
>
>
> 5. formulanya bisa disederhanakan menjadi :
> =Date( Year( Now() ) , Month( Now() ) - ( Day(F2)<Day( Now() ) )
> , Day(F2)) )
>
> Penggunaan fungsi Now() dalam formula tersebut kurang membuat sreg...
> kenapa ?
> karena tingkat ketelitian yang dibutuhkan hanya per hari alias jika hari
> berubah maka perlu kalkulasi baru, dan ndak perlu sampai per detik.
> Jadi, lebih pas kalau pakai Today() daripada Now()
>
> Formulanya akan menjadi :
> =Date( Year( Today() ) , Month( Today() ) - ( Day(F2)<Day( Today() )
> ) , Day(F2)) )
>
> Apa bedanya ?
> >> dengan formula Now() (ingat... sifatnya volatile) maka setiap ada
> perubahan akan membuat si fungsi Now() dikalkulasi.
> karena fungsi Now() memiliki ketelitian sampai level detik, maka
> besar kemungkinan saat ada yang entry data di sheet nun jauh dimato sana,
> terjadi pada detik yang berbeda dengan yang lagi disimpan oleh si Now()
> hasilnya, si Now() mengalami perubahan nilai. Akibatnya lagi, semua
> formula yang pakai fungsi Now() harus dikalkulasi, ndak peduli apakah
> berhubungan dengan data yang di entry atau tidak sama sekali.... pokoke
> kalkulasi semua formula yang pakai Now().
> >> dengan formula Today() (ingat.... sifatnya juga volatile) yang tingkat
> ketelitiannya hanya sampai hari, maka pasti hasil Today() berubah kalau
> sudah berganti hari komputer. Artinya, dihari yang sama, pada detik menit
> atau jam beda yang belum membuat ganti hari, jika ada yang entry di sheet
> antah berantah, tidak akan membuat nilai yang lagi disimpan Today()
> mengalami perubahan, sehingga semua formula yang pakai Today() tidak perlu
> di kalkulasi.
>
>
> Ketika ada banyak baris yang pakai fungsi Today() apalagi pakai Now()....
> maka akan muncul potensi terkalkulasinya formula berulang kali setiap Excel
> melakukan kalkulasi. Jadi, sebaiknya hasil fungsi Today() apalagi Now(),
> disimpan disebuah cell diluar tabel. *Misal di cell Z1 sheet Before.*
> Jadi di Z1 itu diberi formula :
> =Today() [jangan Now() deh, wong butuh ketelitiannya hanya sampai
> satuan hari saja kok]
>
> Lalu formula diatas diubah menjadi :
> =Date( Year( *$Z$1* ) , Month( *$Z$1* ) - ( Day(F2)<Day( *$Z$1* )
> ) , Day(F2)) )
>
> kira-kira begitulah...
> So, apa sudah beneran tepat milih VBA yang pasang formula begitu ? yakin
> sesuai kebutuhan ?
>
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
>
>
>
> 2013/10/24 <ones_marle_oke@yahoo.com>
>
> **
>>
>>
>> Dear Om Kid,
>>
>>
>> Ini akan saya coba dlu om kid dengan penjelasan di atas.
>>
>> Tapi permasalahannya, apabila data yang akan disimpan semakin banyak,
>> apakah tidak akan membuat size penyimpanan excel menjadi membengkak? Karena
>> data yang sudah terecord saat ini sudah sekitar 1000 something.. Jadi saya
>> bermaksud membuatkan rumus tersebut menjadi copy paste value pada kolom
>> tersebut. Dan sebenarnya proses perhitungan tanggal ini akan berjalan
>> setiap harinya, karena untuk proses AutoFilter saat user(kita) mengklik
>> tombol untuk AutoFilternya.
>>
>>
>> Sekian dari kasus yang saya tanyakan untuk destination range tersebut.
>>
>>
>> Salam untuk semua beXcel..
>>
>>
>> ---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com>
>> wrote:
>>
>> Mau coba tanpa VBA ?
>>
>> pada sheet Before, pastikan W2 sampai W4 sudah berisi formula
>> kemudian blok A1 sampai W4 -> ribbon Home -> group Styles -> format as
>> table -> pilih salah salah satu styles -> centang my table has header
>> coba copy data baru di A5 sampai A sekiun.
>>
>> Fitur ini bernama Excel Table diatas (xl2007 keatas) . Pada xl2003
>> bernama List yang bisa ditemui pada menu Data -> List
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>>
>> 2013/10/23 aji suseno <ones_marle_oke@...>
>>
>> **
>>
>> Dear Master Suhu,
>>
>> Mohon bantuannya lagi dong untuk mengetahui saat kita menggunakan
>> FormulaR1C1 pada macro VBA dan saat kita ingin copy rumus tersebut sampai
>> Rows terakhir pada sheets yang sedang aktif.
>> Karena klo saya record macro, ternyata macronya menunjukan rows awal
>> rumus (example W2) dan rows akhir data (example W4). Tertulis seperti ini
>> => Selection.AutoFill Destination:=Range("W2:W4")
>>
>> Sedangkan suhu VBA, ternyata saya mempunyai data yang setiap harinya akan
>> bertambah. Jadi secara otomatis rows akhir data tersebut kan menjadi
>> bertambah juga (example penambahan data W10).
>>
>> Nah, itu bagaimana ya cara menentukan Destination:=Range ini supaya akan
>> membaca pada rows terakhir.
>> File excel terlampir ya master suhu VBA. Udah mumet nyoba-nyoba sendiri
>> dengan rumus ajaib sendiri, tapi tetep BUG karena declaration range ga
>> bener (alias Excel nya ikut mumet).
>>
>> Terima kasih om-om, tante-tante, mba-mba, mas-mas semuanya yang bisa
>> membantuk Case ini.
>>
>> Lagi - lagi attachmentnya ga bisa diupload lewat email... :-(
>> Saya upload di milis ini ya master semua.
>>
>>
>> http://milis-belajar-excel.1048464.n5.nabble.com/Mengetahui-Destination-Range-terakhir-pada-Rows-workbook-attachment-saja-td5721745.html
>>
>>
>>
>>
>>
>
>
Formulanya diubah, dari :
=Date( Year( Now() ) , Month( Now() ) - ( Day(F2)<Day(
Now() ) ) , Day(F2)) )
menjadi :
=Date( Year( Now() ) , Month( Now() ) - ( Day(F2)>=
Now() ) ) , Day(F2)) )
juga yang dari :
=Date( Year( Today() ) , Month( Today() ) - (
Day(F2)<Day( Today()
) ) , Day(F2)) )
menjadi :
=Date( Year( Today() ) , Month( Today() ) - (
Day(F2)>=
) ) , Day(F2)) )
tidak ketinggalan juga yang dari :
=Date( Year( *$Z$1* ) , Month( *$Z$1* ) - ( Day(F2)<Day( *$Z$1
* ) ) , Day(F2)) )
menjadi :
=Date( Year( *$Z$1* ) , Month( *$Z$1* ) - ( Day(F2)>=
$Z$1* ) ) , Day(F2)) )
maaf ya...
Wassalam,
Kid.
2013/10/25 Mr. Kid <mr.nmkid@gmail.
> ow thread ini sudah panjang...
>
> baru lihat kalo ada reply-nya... sorry ya..
>
> 1. apakah tidak akan membuat size penyimpanan excel menjadi membengkak?
> >> tentu akan membuat penyimpanannya semakin besar tapi gak bengkak.
>
> 2. Karena data yang sudah terecord saat ini sudah sekitar 1000 something..
> >> kalau masih kisaran seratus ribu sih gak terlalu banyak ya.
>
> 3. Jadi saya bermaksud membuatkan rumus tersebut menjadi copy paste value
> pada kolom tersebut.
> >> formula yang Anda gunakan :
>
> =IF(DAY(F2)<
>
> pertanyaannya adalah :
> 1. disana ada fungsi Now() yang bersifat volatile. Jika formula ini
> di-values-ken, berarti setiap akan autofilter harus klik sesuatu untuk
> update nilai dalam rumus. Gitu gak ?
>
> 2. Atau nilai *hasil formula itu harus tetap selamanya* segitu aja ?
> misal data masuk hari ini 2013-10-25, apakah 300 hari kedepan, nilai di
> cell itu harus tetap 2013-10-25 alias sama dengan hasil formula saat
> memasukkan record tersebut dulu ?
>
> Jika jawaban 1 adalah Ya, berarti nilai dalam cell tersebut akan bergerak
> maju terus menerus mengikuti waktu manusia. Jawaban 2 tidak akan bisa
> dijawab dengan Ya.
>
> Jika jawaban 2 adalah Ya (jawaban 1 harus tidak), berarti nilai dalam cell
> tidak bisa menggunakan formula dan lebih baik diolah saat record masuk saja.
>
>
> 4. Dan sebenarnya proses perhitungan tanggal ini akan berjalan setiap
> harinya, karena untuk proses AutoFilter saat user(kita) mengklik tombol
> untuk AutoFilternya.
> >> si user ketika autofilter harus pada nilai hasil formula terbaru atau
> pada hasil formula saat si record data masuk ke tabel ?
> jika user saat autofilter membutuhkan nilai hasil formula :
> a. terbaru, maka formula yang dibutuhkan.
> >> Jika dengan VBA, maka sebelum proses user autofilter harus ada
> prosedur pembaruan nilai hasil formula yang dijalankan. Kalau tidak
> dilakukan, berarti ada kemungkinan user memfilter data yang tidak update
> nilai tanggalnya, misal saja beberapa hari tidak ada data yang masuk, maka
> nilai hasil formula tidak terupdate
>
> b. nilai saat record data masuk ke tabel, maka yang dibutuhkan adalah VBA
> untuk membentuk nilai tanggal hasil formula dan menuliskannya ke cell
> tempat record baru.
>
>
> 5. formulanya bisa disederhanakan menjadi :
> =Date( Year( Now() ) , Month( Now() ) - ( Day(F2)<Day( Now() ) )
> , Day(F2)) )
>
> Penggunaan fungsi Now() dalam formula tersebut kurang membuat sreg...
> kenapa ?
> karena tingkat ketelitian yang dibutuhkan hanya per hari alias jika hari
> berubah maka perlu kalkulasi baru, dan ndak perlu sampai per detik.
> Jadi, lebih pas kalau pakai Today() daripada Now()
>
> Formulanya akan menjadi :
> =Date( Year( Today() ) , Month( Today() ) - ( Day(F2)<Day( Today() )
> ) , Day(F2)) )
>
> Apa bedanya ?
> >> dengan formula Now() (ingat... sifatnya volatile) maka setiap ada
> perubahan akan membuat si fungsi Now() dikalkulasi.
> karena fungsi Now() memiliki ketelitian sampai level detik, maka
> besar kemungkinan saat ada yang entry data di sheet nun jauh dimato sana,
> terjadi pada detik yang berbeda dengan yang lagi disimpan oleh si Now()
> hasilnya, si Now() mengalami perubahan nilai. Akibatnya lagi, semua
> formula yang pakai fungsi Now() harus dikalkulasi, ndak peduli apakah
> berhubungan dengan data yang di entry atau tidak sama sekali.... pokoke
> kalkulasi semua formula yang pakai Now().
> >> dengan formula Today() (ingat.... sifatnya juga volatile) yang tingkat
> ketelitiannya hanya sampai hari, maka pasti hasil Today() berubah kalau
> sudah berganti hari komputer. Artinya, dihari yang sama, pada detik menit
> atau jam beda yang belum membuat ganti hari, jika ada yang entry di sheet
> antah berantah, tidak akan membuat nilai yang lagi disimpan Today()
> mengalami perubahan, sehingga semua formula yang pakai Today() tidak perlu
> di kalkulasi.
>
>
> Ketika ada banyak baris yang pakai fungsi Today() apalagi pakai Now()....
> maka akan muncul potensi terkalkulasinya formula berulang kali setiap Excel
> melakukan kalkulasi. Jadi, sebaiknya hasil fungsi Today() apalagi Now(),
> disimpan disebuah cell diluar tabel. *Misal di cell Z1 sheet Before.*
> Jadi di Z1 itu diberi formula :
> =Today() [jangan Now() deh, wong butuh ketelitiannya hanya sampai
> satuan hari saja kok]
>
> Lalu formula diatas diubah menjadi :
> =Date( Year( *$Z$1* ) , Month( *$Z$1* ) - ( Day(F2)<Day( *$Z$1* )
> ) , Day(F2)) )
>
> kira-kira begitulah...
> So, apa sudah beneran tepat milih VBA yang pasang formula begitu ? yakin
> sesuai kebutuhan ?
>
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
>
>
>
> 2013/10/24 <ones_marle_oke@
>
> **
>>
>>
>> Dear Om Kid,
>>
>>
>> Ini akan saya coba dlu om kid dengan penjelasan di atas.
>>
>> Tapi permasalahannya, apabila data yang akan disimpan semakin banyak,
>> apakah tidak akan membuat size penyimpanan excel menjadi membengkak? Karena
>> data yang sudah terecord saat ini sudah sekitar 1000 something.. Jadi saya
>> bermaksud membuatkan rumus tersebut menjadi copy paste value pada kolom
>> tersebut. Dan sebenarnya proses perhitungan tanggal ini akan berjalan
>> setiap harinya, karena untuk proses AutoFilter saat user(kita) mengklik
>> tombol untuk AutoFilternya.
>>
>>
>> Sekian dari kasus yang saya tanyakan untuk destination range tersebut.
>>
>>
>> Salam untuk semua beXcel..
>>
>>
>> ---In belajar-excel@
>> wrote:
>>
>> Mau coba tanpa VBA ?
>>
>> pada sheet Before, pastikan W2 sampai W4 sudah berisi formula
>> kemudian blok A1 sampai W4 -> ribbon Home -> group Styles -> format as
>> table -> pilih salah salah satu styles -> centang my table has header
>> coba copy data baru di A5 sampai A sekiun.
>>
>> Fitur ini bernama Excel Table diatas (xl2007 keatas) . Pada xl2003
>> bernama List yang bisa ditemui pada menu Data -> List
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>>
>> 2013/10/23 aji suseno <ones_marle_
>>
>> **
>>
>> Dear Master Suhu,
>>
>> Mohon bantuannya lagi dong untuk mengetahui saat kita menggunakan
>> FormulaR1C1 pada macro VBA dan saat kita ingin copy rumus tersebut sampai
>> Rows terakhir pada sheets yang sedang aktif.
>> Karena klo saya record macro, ternyata macronya menunjukan rows awal
>> rumus (example W2) dan rows akhir data (example W4). Tertulis seperti ini
>> => Selection.AutoFill Destination:
>>
>> Sedangkan suhu VBA, ternyata saya mempunyai data yang setiap harinya akan
>> bertambah. Jadi secara otomatis rows akhir data tersebut kan menjadi
>> bertambah juga (example penambahan data W10).
>>
>> Nah, itu bagaimana ya cara menentukan Destination:
>> membaca pada rows terakhir.
>> File excel terlampir ya master suhu VBA. Udah mumet nyoba-nyoba sendiri
>> dengan rumus ajaib sendiri, tapi tetep BUG karena declaration range ga
>> bener (alias Excel nya ikut mumet).
>>
>> Terima kasih om-om, tante-tante, mba-mba, mas-mas semuanya yang bisa
>> membantuk Case ini.
>>
>> Lagi - lagi attachmentnya ga bisa diupload lewat email... :-(
>> Saya upload di milis ini ya master semua.
>>
>>
>> http://milis-
>>
>>
>>
>>
>>
>
>
Thu Oct 24, 2013 6:34 pm (PDT) . Posted by:
opic_city
dear para master xl,
langsung aja, bagaimana merubah database menjadi part list menggunakan bu macro xl.
Mohon lihat lampirannya.
langsung aja, bagaimana merubah database menjadi part list menggunakan bu macro xl.
Mohon lihat lampirannya.
Thu Oct 24, 2013 9:40 pm (PDT) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
mas opic,
silahkan menggunakan code di bawah, semoga sesuai yang diharapkan:
Sub RightArrow1_Click()
Dim rgTujuan As Range, rgModel As Range
Set rgTujuan = Range("R3:U3")
Set rgModel = Range("D3:I3")
'menulis judul atau field
rgTujuan = Array("Model", "Part No", "Part Name", "QTY")
'letak kolom
'Part No(1),Part Name(2),AYAM(3),KAMBING SAPI(4),BEBEK(5),KUDA(6),KIJANG(7)
Dim rgDataAwal As Range
Set rgDataAwal = Range("B4") 'cell pertama berisi data di ranga asal
'menghitung jumlah record awal dimulau dari [B4] ke bawah
Dim nDataAwal As Integer
nDataAwal = Range(rgDataAwal, rgDataAwal.End(xlDown)).Rows.Count
Dim rgDatawal As Range, cr As Range, i As Integer, j As Integer, rgQtt As Range
Dim partNo As String, partName As String, sModel As String, qtt As Double
Dim TabelBaru() As Variant
Set rgDataAwal = rgDataAwal.Resize(nDataAwal, 8)
j = -1
For Each cr In rgDataAwal.Columns(1).Cells 'look up data di kolom 1 (Part No)
With cr
partNo = .Value
partName = .Offset(0, 1)
For i = 1 To 6 '6=jumlah model
Set rgQtt = .Offset(0, i + 1)
If Not IsEmpty(rgQtt) Then 'diproses yang quantitynya>0
j = j + 1
sModel = Application.WorksheetFunction.Index(rgModel, i)
qtt = rgQtt.Value
ReDim Preserve TabelBaru(3, j)
TabelBaru(0, j) = sModel
TabelBaru(1, j) = partNo
TabelBaru(2, j) = partName
TabelBaru(3, j) = qtt
End If
Next i
End With
Next
'cetak hasil
'menghapus hasil sebelumnya
rgTujuan.Offset(1, 0).Resize(10000, 6).Clear
With rgTujuan.Offset(1, 0).Resize(j, 4)
.Value = WorksheetFunction.Transpose(TabelBaru)
.Sort Key1:=Range("R3") 'sort data
End With
End Sub
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of opic_city@yahoo.com
Sent: Thursday, October 24, 2013 11:13 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] mengubah format table megggunakan macro [1 Attachment]
dear para master xl,
langsung aja, bagaimana merubah database menjadi part list menggunakan bu macro xl.
Mohon lihat lampirannya.
silahkan menggunakan code di bawah, semoga sesuai yang diharapkan:
Sub RightArrow1_
Dim rgTujuan As Range, rgModel As Range
Set rgTujuan = Range("
Set rgModel = Range("
'menulis judul atau field
rgTujuan = Array("
'letak kolom
'Part No(1),Part Name(2),AYAM(
Dim rgDataAwal As Range
Set rgDataAwal = Range("
'menghitung jumlah record awal dimulau dari [B4] ke bawah
Dim nDataAwal As Integer
nDataAwal = Range(rgDataAwal, rgDataAwal.End(
Dim rgDatawal As Range, cr As Range, i As Integer, j As Integer, rgQtt As Range
Dim partNo As String, partName As String, sModel As String, qtt As Double
Dim TabelBaru() As Variant
Set rgDataAwal = rgDataAwal.Resize(
j = -1
For Each cr In rgDataAwal.Columns(
With cr
partNo = .Value
partName = .Offset(0, 1)
For i = 1 To 6 '6=jumlah model
Set rgQtt = .Offset(0, i + 1)
If Not IsEmpty(rgQtt) Then 'diproses yang quantitynya>
j = j + 1
sModel = Application.
qtt = rgQtt.Value
ReDim Preserve TabelBaru(3, j)
TabelBaru(0, j) = sModel
TabelBaru(1, j) = partNo
TabelBaru(2, j) = partName
TabelBaru(3, j) = qtt
End If
Next i
End With
Next
'cetak hasil
'menghapus hasil sebelumnya
rgTujuan.Offset(
With rgTujuan.Offset(
.Value = WorksheetFunction.
.Sort Key1:=Range(
End With
End Sub
From: belajar-excel@
Sent: Thursday, October 24, 2013 11:13 PM
To: belajar-excel@
Subject: [belajar-excel] mengubah format table megggunakan macro [1 Attachment]
dear para master xl,
langsung aja, bagaimana merubah database menjadi part list menggunakan bu macro xl.
Mohon lihat lampirannya.
Thu Oct 24, 2013 7:27 pm (PDT) . Posted by:
"dhen.baguse" bagusejogja
Salam,
saya mencoba untuk membuat vlookup menggunakan VBA yang sifatnya berdasar lookup valunya (jika dibawahnya looup valuenya kosong berarti berhenti dan jika dibawah masih ada value berarti rumus masih jala (klo tidak salah menggunkan for.. next gitu), tetapi ada sedikit kesulitan mohon pencerahan para temen temen master vba di millis beljar ini.
saya mencoba untuk membuat vlookup menggunakan VBA yang sifatnya berdasar lookup valunya (jika dibawahnya looup valuenya kosong berarti berhenti dan jika dibawah masih ada value berarti rumus masih jala (klo tidak salah menggunkan for.. next gitu), tetapi ada sedikit kesulitan mohon pencerahan para temen temen master vba di millis beljar ini.
Thu Oct 24, 2013 7:36 pm (PDT) . Posted by:
anggrainihapsari@ymail.com
salam,
saya membuat data di salah satu sheet.. bagaimana caranya agar data itu tidak bisa dirubah kecuali harus menekan tombol edit dulu.
saya membuat data di salah satu sheet.. bagaimana caranya agar data itu tidak bisa dirubah kecuali harus menekan tombol edit dulu.
Thu Oct 24, 2013 8:43 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Kudu pake macro.
- Pertma2 hseet harus diprotect (ga bisa diapa-apain)
- Begitu tombol Edit ditekan maka Sheet.Unprotect (supaya bisa diedit)
- Setelah selesai edit Sheet.Protect (digembok lagi) --> pake password
Salam,
HK
On Friday, 25 October 2013, 9:36, "anggrainihapsari@ymail.com" <anggrainihapsari@ymail.com> wrote:
salam,
saya membuat data di salah satu sheet.. bagaimana caranya agar data itu tidak bisa dirubah kecuali harus menekan tombol edit dulu.
- Pertma2 hseet harus diprotect (ga bisa diapa-apain)
- Begitu tombol Edit ditekan maka Sheet.Unprotect (supaya bisa diedit)
- Setelah selesai edit Sheet.Protect (digembok lagi) --> pake password
Salam,
HK
On Friday, 25 October 2013, 9:36, "anggrainihapsari@
salam,
saya membuat data di salah satu sheet.. bagaimana caranya agar data itu tidak bisa dirubah kecuali harus menekan tombol edit dulu.
Thu Oct 24, 2013 10:34 pm (PDT) . Posted by:
"Anggraini Hapsari" anggrainihapsari@ymail.com
gmn crnya mr hendrik. ? langkahnya gmn?
Pada Jumat, 25 Oktober 2013 10:43, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:
Kudu pake macro.
- Pertma2 hseet harus diprotect (ga bisa diapa-apain)
- Begitu tombol Edit ditekan maka Sheet.Unprotect (supaya bisa diedit)
- Setelah selesai edit Sheet.Protect (digembok lagi) --> pake password
Salam,
HK
On Friday, 25 October 2013, 9:36, "anggrainihapsari@ymail.com" <anggrainihapsari@ymail.com> wrote:
salam,
saya membuat data di salah satu sheet.. bagaimana caranya agar data itu tidak bisa dirubah kecuali harus menekan tombol edit dulu.
Pada Jumat, 25 Oktober 2013 10:43, hendrik karnadi <hendrikkarnadi@
Kudu pake macro.
- Pertma2 hseet harus diprotect (ga bisa diapa-apain)
- Begitu tombol Edit ditekan maka Sheet.Unprotect (supaya bisa diedit)
- Setelah selesai edit Sheet.Protect (digembok lagi) --> pake password
Salam,
HK
On Friday, 25 October 2013, 9:36, "anggrainihapsari@
salam,
saya membuat data di salah satu sheet.. bagaimana caranya agar data itu tidak bisa dirubah kecuali harus menekan tombol edit dulu.
Thu Oct 24, 2013 10:53 pm (PDT) . Posted by:
anggrainihapsari@ymail.com
ohh mkasudnya sebelum buat data qt klik macro dl trus klik kana sheet ya mr??? semua di protect? trus ombol edit qt kasih perintah sheet.unprotec .
begitukah???
---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com> wrote:
Kudu pake macro.
- Pertma2 hseet harus diprotect (ga bisa diapa-apain)
- Begitu tombol Edit ditekan maka Sheet.Unprotect (supaya bisa diedit)
- Setelah selesai edit Sheet.Protect (digembok lagi) --> pake password
Salam,
HK
On Friday, 25 October 2013, 9:36, "anggrainihapsari@..." <anggrainihapsari@...> wrote:
salam,
saya membuat data di salah satu sheet.. bagaimana caranya agar data itu tidak bisa dirubah kecuali harus menekan tombol edit dulu.
begitukah???
---In belajar-excel@
Kudu pake macro.
- Pertma2 hseet harus diprotect (ga bisa diapa-apain)
- Begitu tombol Edit ditekan maka Sheet.Unprotect (supaya bisa diedit)
- Setelah selesai edit Sheet.Protect (digembok lagi) --> pake password
Salam,
HK
On Friday, 25 October 2013, 9:36, "anggrainihaps
salam,
saya membuat data di salah satu sheet.. bagaimana caranya agar data itu tidak bisa dirubah kecuali harus menekan tombol edit dulu.
Thu Oct 24, 2013 11:00 pm (PDT) . Posted by:
"Hendrik Karnadi" hendrikkarnadi
Coba cari di file milis mengenai protect unprotect sheet.
Salam,
HK
Sent from Samsung Mobileanggrainihapsari@ymail.com wrote:ohh mkasudnya sebelum buat data qt klik macro dl trus klik kana sheet ya mr??? semua di protect? trus ombol edit qt kasih perintah sheet.unprotec .
begitukah???
---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com> wrote:
Kudu pake macro.
- Pertma2 hseet harus diprotect (ga bisa diapa-apain)
- Begitu tombol Edit ditekan maka Sheet.Unprotect (supaya bisa diedit)
- Setelah selesai edit Sheet.Protect (digembok lagi) --> pake password
Salam,
HK
On Friday, 25 October 2013, 9:36, "anggrainihapsari@..." <anggrainihapsari@...> wrote:
salam,
saya membuat data di salah satu sheet.. bagaimana caranya agar data itu tidak bisa dirubah kecuali harus menekan tombol edit dulu.
Salam,
HK
Sent from Samsung Mobileanggrainihaps
begitukah???
---In belajar-excel@
Kudu pake macro.
- Pertma2 hseet harus diprotect (ga bisa diapa-apain)
- Begitu tombol Edit ditekan maka Sheet.Unprotect (supaya bisa diedit)
- Setelah selesai edit Sheet.Protect (digembok lagi) --> pake password
Salam,
HK
On Friday, 25 October 2013, 9:36, "anggrainihaps
salam,
saya membuat data di salah satu sheet.. bagaimana caranya agar data itu tidak bisa dirubah kecuali harus menekan tombol edit dulu.
Thu Oct 24, 2013 11:51 pm (PDT) . Posted by:
"Anggraini Hapsari" anggrainihapsari@ymail.com
ok mr. terima kasih
Pada Jumat, 25 Oktober 2013 13:01, Hendrik Karnadi <hendrikkarnadi@yahoo.com> menulis:
Coba cari di file milis mengenai protect unprotect sheet.
Salam,
HK
Sent from Samsung Mobile
anggrainihapsari@ymail.com wrote:
ohh mkasudnya sebelum buat data qt klik macro dl trus klik kana sheet ya mr??? semua di protect? trus ombol edit qt kasih perintah sheet.unprotec .
begitukah???
---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com> wrote:
Kudu pake macro.
- Pertma2 hseet harus diprotect (ga bisa diapa-apain)
- Begitu tombol Edit ditekan maka Sheet.Unprotect (supaya bisa diedit)
- Setelah selesai edit Sheet.Protect (digembok lagi) --> pake password
Salam,
HK
On Friday, 25 October 2013, 9:36, "anggrainihapsari@..." <anggrainihapsari@...> wrote:
salam,
saya membuat data di salah satu sheet.. bagaimana caranya agar data itu tidak bisa dirubah kecuali harus menekan tombol edit dulu.
Pada Jumat, 25 Oktober 2013 13:01, Hendrik Karnadi <hendrikkarnadi@
Coba cari di file milis mengenai protect unprotect sheet.
Salam,
HK
Sent from Samsung Mobile
anggrainihapsari@
ohh mkasudnya sebelum buat data qt klik macro dl trus klik kana sheet ya mr??? semua di protect? trus ombol edit qt kasih perintah sheet.unprotec .
begitukah???
---In belajar-excel@
Kudu pake macro.
- Pertma2 hseet harus diprotect (ga bisa diapa-apain)
- Begitu tombol Edit ditekan maka Sheet.Unprotect (supaya bisa diedit)
- Setelah selesai edit Sheet.Protect (digembok lagi) --> pake password
Salam,
HK
On Friday, 25 October 2013, 9:36, "anggrainihaps
salam,
saya membuat data di salah satu sheet.. bagaimana caranya agar data itu tidak bisa dirubah kecuali harus menekan tombol edit dulu.
Thu Oct 24, 2013 11:51 pm (PDT) . Posted by:
"Lukman Setiawan" jalanmawar2_blok3
Dear all.
Mohon Bantuannya, saya lagi membuat form sederhana,tapi mentok di script VBA.nya.
Best regard
Lukman Setiawan
Mohon Bantuannya, saya lagi membuat form sederhana,tapi mentok di script VBA.nya.
Best regard
Lukman Setiawan
Fri Oct 25, 2013 12:31 am (PDT) . Posted by:
"Jan Raisin"
Hai Lukman,
coba pelajari cara membuat VBA dengan cara record macro, pembahasan lengkap
sudah dibuat oleh mas Aji Mumpung [?][?][?] di arsip milis di
sini<http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Rekam-Macro-td5711845.html>
lampiran file RekamMacro.xlsm dapat diunduh melalui link di atas atau
melalui file milis di
sini<http://groups.yahoo.com/neo/groups/belajar-excel/files>
untuk mengunduh file dari arsip milis diperlukan Yahoo! ID
oia, database sebaiknya disusun berdasarkan kaidah database yang baik, cara
proses pembuatan database yang baik bisa dibaca di blognya mr. Kid di
sini<http://excel-mr-kid.blogspot.com/2011/02/susun-data-sebagai-tabel-yang-baik.html>
jika nanti setelah dicoba dan ada kesulitan silakan ditanyakan kembali ke
sini.
Salam,
-Miss Jan Raisin-
Pada 25 Oktober 2013 13.37, Lukman Setiawan
<jalanmawar2_blok3@yahoo.com>menulis:
> **
>
> Dear all.
>
> Mohon Bantuannya, saya lagi membuat form sederhana,tapi mentok di script
> VBA.nya.
>
>
>
> Best regard
> Lukman Setiawan
>
>
>
coba pelajari cara membuat VBA dengan cara record macro, pembahasan lengkap
sudah dibuat oleh mas Aji Mumpung [?][?][?] di arsip milis di
sini<http://milis-
lampiran file RekamMacro.xlsm dapat diunduh melalui link di atas atau
melalui file milis di
sini<http://groups.
untuk mengunduh file dari arsip milis diperlukan Yahoo! ID
oia, database sebaiknya disusun berdasarkan kaidah database yang baik, cara
proses pembuatan database yang baik bisa dibaca di blognya mr. Kid di
sini<http://excel-
jika nanti setelah dicoba dan ada kesulitan silakan ditanyakan kembali ke
sini.
Salam,
-Miss Jan Raisin-
Pada 25 Oktober 2013 13.37, Lukman Setiawan
<jalanmawar2_
> **
>
> Dear all.
>
> Mohon Bantuannya, saya lagi membuat form sederhana,tapi mentok di script
> VBA.nya.
>
>
>
> Best regard
> Lukman Setiawan
>
>
>
GROUP FOOTER MESSAGE
=====================================================================
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
---------------------------------------------------------------------
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