14 New Messages
Digest #2606
Messages
Wed Oct 23, 2013 9:58 pm (PDT) . Posted by:
"Jan Raisin"
pinjam formulanya pak De + 1 buah kolom bantu
solusi terlampir
@pak Hendrik:
setau Jan angka 1 akan mengambil nilai pertama yang ditemukan sedangkan
angka 2 akan mengambil nilai akhir yang ditemukan untuk tipe data Numeric.
sedangkan untuk tipe data string untuk mengambil nilai pertama yang
ditemukan dapat menggunakan karakter huruf a dan data terakhir menggunakan
karakter huruf zz
tolong dikoreksi jika salah, karena Jan jarang menggunakan fungsi LookUp
Salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 11.40, hendrik karnadi <hendrikkarnadi@yahoo.com>menulis:
> **
>
>
> Mau nanya Miss Jan, apakah angka 1 atau 2 (yang sering digunakan dalam
> milis) dalam fungsi Lookup(lookup_value.....,......) mencerminkan numeric
> atau sum ?
>
> Salam,
> HK
>
>
> On Thursday, 24 October 2013, 11:15, Jan Raisin <
> miss.jan.raisin@gmail.com> wrote:
>
> hai Liem,
>
> lain kali tolong tulis judul yang mewakili pertanyaan di subject email ya..
> coba di cell F3 ditulis formula berikut:
> =LOOKUP(1,SEARCH(E3,$A$3:$A$14),$B$3:$B$14)+LOOKUP(1,SEARCH(D3,$A$3:$A$14)
> ,$B$3:$B$14)
>
> lalu copas ke bawah, jika regional setting setempat adalah Indonesia maka
> ubah seluruh tanda koma yang dimerahin menjadi titik koma.
> mungkin ada formula yang lebih ringkas lagi, kita tunggu saran dari
> Be-Exceller yang lain
>
> Salam,
>
> -Miss Jan Raisin-
>
>
> Pada 24 Oktober 2013 10.50, Liem Suliem <liemsuliem@yahoo.co.id> menulis:
>
> **
>
> dh
>
> salam be-exel
>
> kepada temen2 be exel saya mau tanya gimana cara sum/sumif dengan dua kata
> kunci
> misal saya punya data
>
> A B C D
> F
>
> BG 150 GR / 24 PAK 10 BG 150 BG 160 30
> BG 160 GR / 24 PAK 20
> BG 300 GR / 24 PAK 10
> BG 320 GR / 12 PAK 20
>
>
> nilai 30 di kolom F adalah hasil penjumlahan B1 dan B2 dengan kata kunci
> kolom C dan D
>
> file terlampir
>
> trimakasih sebelumnya
>
>
>
>
>
solusi terlampir
@pak Hendrik:
setau Jan angka 1 akan mengambil nilai pertama yang ditemukan sedangkan
angka 2 akan mengambil nilai akhir yang ditemukan untuk tipe data Numeric.
sedangkan untuk tipe data string untuk mengambil nilai pertama yang
ditemukan dapat menggunakan karakter huruf a dan data terakhir menggunakan
karakter huruf zz
tolong dikoreksi jika salah, karena Jan jarang menggunakan fungsi LookUp
Salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 11.40, hendrik karnadi <hendrikkarnadi@
> **
>
>
> Mau nanya Miss Jan, apakah angka 1 atau 2 (yang sering digunakan dalam
> milis) dalam fungsi Lookup(lookup_
> atau sum ?
>
> Salam,
> HK
>
>
> On Thursday, 24 October 2013, 11:15, Jan Raisin <
> miss.jan.raisin@
>
> hai Liem,
>
> lain kali tolong tulis judul yang mewakili pertanyaan di subject email ya..
> coba di cell F3 ditulis formula berikut:
> =LOOKUP(1,SEARCH(
> ,$B$3:$B$14)
>
> lalu copas ke bawah, jika regional setting setempat adalah Indonesia maka
> ubah seluruh tanda koma yang dimerahin menjadi titik koma.
> mungkin ada formula yang lebih ringkas lagi, kita tunggu saran dari
> Be-Exceller yang lain
>
> Salam,
>
> -Miss Jan Raisin-
>
>
> Pada 24 Oktober 2013 10.50, Liem Suliem <liemsuliem@yahoo.
>
> **
>
> dh
>
> salam be-exel
>
> kepada temen2 be exel saya mau tanya gimana cara sum/sumif dengan dua kata
> kunci
> misal saya punya data
>
> A B C D
> F
>
> BG 150 GR / 24 PAK 10 BG 150 BG 160 30
> BG 160 GR / 24 PAK 20
> BG 300 GR / 24 PAK 10
> BG 320 GR / 12 PAK 20
>
>
> nilai 30 di kolom F adalah hasil penjumlahan B1 dan B2 dengan kata kunci
> kolom C dan D
>
> file terlampir
>
> trimakasih sebelumnya
>
>
>
>
>
Wed Oct 23, 2013 11:00 pm (PDT) . Posted by:
"Liem Suliem" liemsuliem
terimaksih untuk respon para master...
sudah sesuai harapan.. dan ternyata banyak sekali solusi yang di berikan jadi bisa banyak belajar..
semoga senantiasa kebahagiaan selalu bersama orang2 yang mau berbagi kebaikan...
salam
|||| liem ||||
Pada Kamis, 24 Oktober 2013 11:58, Jan Raisin <miss.jan.raisin@gmail.com> menulis:
pinjam formulanya pak De + 1 buah kolom bantu
solusi terlampir
@pak Hendrik:
setau Jan angka 1 akan mengambil nilai pertama yang ditemukan sedangkan angka 2 akan mengambil nilai akhir yang ditemukan untuk tipe data Numeric.
sedangkan untuk tipe data string untuk mengambil nilai pertama yang ditemukan dapat menggunakan karakter huruf a dan data terakhir menggunakan karakter huruf zz
tolong dikoreksi jika salah, karena Jan jarang menggunakan fungsi LookUp
Salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 11.40, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:
>
>Mau nanya Miss Jan, apakah angka 1 atau 2 (yang sering digunakan dalam milis) dalam fungsi Lookup(lookup_value.....,......) mencerminkan numeric atau sum ?
>
>
>Salam,
>HK
>
>
>
>On Thursday, 24 October 2013, 11:15, Jan Raisin <miss.jan.raisin@gmail.com> wrote:
>
>
>hai Liem,
>
>
>lain kali tolong tulis judul yang mewakili pertanyaan di subject email ya..
>coba di cell F3 ditulis formula berikut:
>=LOOKUP(1,SEARCH(E3,$A$3:$A$14),$B$3:$B$14)+LOOKUP(1,SEARCH(D3,$A$3:$A$14),$B$3:$B$14)
>
>
>
>lalu copas ke bawah, jika regional setting setempat adalah Indonesia maka ubah seluruh tanda koma yang dimerahin menjadi titik koma.
>mungkin ada formula yang lebih ringkas lagi, kita tunggu saran dari Be-Exceller yang lain
>
>
>Salam,
>
>
>-Miss Jan Raisin-
>
>
>Pada 24 Oktober 2013 10.50, Liem Suliem <liemsuliem@yahoo.co.id> menulis:
>
>
>>
>>dh
>>
>>salam be-exel
>>
>>kepada temen2 be exel saya mau tanya gimana cara sum/sumif dengan dua kata kunci
>>misal saya punya data
>>
>>A B C D F
>>
>>BG 150 GR / 24 PAK 10 BG 150 BG 160 30
>>BG 160 GR / 24 PAK 20
>>BG 300 GR / 24 PAK 10
>>BG 320 GR / 12
PAK 20
>>
>>
>>nilai 30 di kolom F adalah hasil penjumlahan B1 dan B2 dengan kata kunci kolom C dan D
>>
>>file terlampir
>>
>>trimakasih sebelumnya
>>
>>
>
>
sudah sesuai harapan.. dan ternyata banyak sekali solusi yang di berikan jadi bisa banyak belajar..
semoga senantiasa kebahagiaan selalu bersama orang2 yang mau berbagi kebaikan...
salam
|||| liem ||||
Pada Kamis, 24 Oktober 2013 11:58, Jan Raisin <miss.jan.raisin@
pinjam formulanya pak De + 1 buah kolom bantu
solusi terlampir
@pak Hendrik:
setau Jan angka 1 akan mengambil nilai pertama yang ditemukan sedangkan angka 2 akan mengambil nilai akhir yang ditemukan untuk tipe data Numeric.
sedangkan untuk tipe data string untuk mengambil nilai pertama yang ditemukan dapat menggunakan karakter huruf a dan data terakhir menggunakan karakter huruf zz
tolong dikoreksi jika salah, karena Jan jarang menggunakan fungsi LookUp
Salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 11.40, hendrik karnadi <hendrikkarnadi@
>
>Mau nanya Miss Jan, apakah angka 1 atau 2 (yang sering digunakan dalam milis) dalam fungsi Lookup(lookup_
>
>
>Salam,
>HK
>
>
>
>On Thursday, 24 October 2013, 11:15, Jan Raisin <miss.jan.raisin@
>
>
>hai Liem,
>
>
>lain kali tolong tulis judul yang mewakili pertanyaan di subject email ya..
>coba di cell F3 ditulis formula berikut:
>=LOOKUP(
>
>
>
>lalu copas ke bawah, jika regional setting setempat adalah Indonesia maka ubah seluruh tanda koma yang dimerahin menjadi titik koma.
>mungkin ada formula yang lebih ringkas lagi, kita tunggu saran dari Be-Exceller yang lain
>
>
>Salam,
>
>
>-Miss Jan Raisin-
>
>
>Pada 24 Oktober 2013 10.50, Liem Suliem <liemsuliem@yahoo.
>
>
>>
>>dh
>>
>>salam be-exel
>>
>>kepada temen2 be exel saya mau tanya gimana cara sum/sumif dengan dua kata kunci
>>misal saya punya data
>>
>>A B C D F
>>
>>BG 150 GR / 24 PAK 10 BG 150 BG 160 30
>>BG 160 GR / 24 PAK 20
>>BG 300 GR / 24 PAK 10
>>BG 320 GR / 12
PAK 20
>>
>>
>>nilai 30 di kolom F adalah hasil penjumlahan B1 dan B2 dengan kata kunci kolom C dan D
>>
>>file terlampir
>>
>>trimakasih sebelumnya
>>
>>
>
>
Wed Oct 23, 2013 10:01 pm (PDT) . Posted by:
summonery
Coba juga,
=SUM(SUMIF($A$3:$A$14,D3:E3&"*",$B$3:$B$14))
(Enter dengan menekan tombol Ctrl+Shift+Enter)
>semoga bermanfaat
---In belajar-excel@yahoogroups.com, <de@premor.net> wrote:
bisa menggunakan SUMIF, di cell G3
=SUMIF($A$3:$A$14,D3&"*",$B$3:$B$14)+SUMIF($A$3:$A$14,E3&";*",$B$3:$B$14)
Copas kata2 MJ:
lalu copas ke bawah, jika regional setting setempat adalah Indonesia maka ubah seluruh tanda koma yang dimerahin menjadi titik koma.
mungkin ada formula yang lebih ringkas lagi, kita tunggu saran dari Be-Exceller yang lain
:D
On 24-10-2013 10:50, Liem Suliem wrote:
dh
salam be-exel
kepada temen2 be exel saya mau tanya gimana cara sum/sumif dengan dua kata kunci
misal saya punya data
A B C D F
BG 150 GR / 24 PAK 10 BG 150 BG 160 30
BG 160 GR / 24 PAK 20
BG 300 GR / 24 PAK 10
BG 320 GR / 12 PAK 20
nilai 30 di kolom F adalah hasil penjumlahan B1 dan B2 dengan kata kunci kolom C dan D
file terlampir
trimakasih sebelumnya
=SUM(SUMIF($
(Enter dengan menekan tombol Ctrl+Shift+Enter)
>semoga bermanfaat
---In belajar-excel@
bisa menggunakan SUMIF, di cell G3
=SUMIF($A$3:
Copas kata2 MJ:
lalu copas ke bawah, jika regional setting setempat adalah Indonesia maka ubah seluruh tanda koma yang dimerahin menjadi titik koma.
mungkin ada formula yang lebih ringkas lagi, kita tunggu saran dari Be-Exceller yang lain
:D
On 24-10-2013 10:50, Liem Suliem wrote:
dh
salam be-exel
kepada temen2 be exel saya mau tanya gimana cara sum/sumif dengan dua kata kunci
misal saya punya data
A B C D F
BG 150 GR / 24 PAK 10 BG 150 BG 160 30
BG 160 GR / 24 PAK 20
BG 300 GR / 24 PAK 10
BG 320 GR / 12 PAK 20
nilai 30 di kolom F adalah hasil penjumlahan B1 dan B2 dengan kata kunci kolom C dan D
file terlampir
trimakasih sebelumnya
Wed Oct 23, 2013 10:02 pm (PDT) . Posted by:
"Liem Suliem" liemsuliem
makasih miss...
tapi ketika di kolom D dan E tidak terisi kriteria/kata kunci kok tetap muncul penjumlahan ya...
Pada Kamis, 24 Oktober 2013 11:17, Jan Raisin <miss.jan.raisin@gmail.com> menulis:
hai Liem,
lain kali tolong tulis judul yang mewakili pertanyaan di subject email ya..
coba di cell F3 ditulis formula berikut:
=LOOKUP(1,SEARCH(E3,$A$3:$A$14),$B$3:$B$14)+LOOKUP(1,SEARCH(D3,$A$3:$A$14),$B$3:$B$14)
lalu copas ke bawah, jika regional setting setempat adalah Indonesia maka ubah seluruh tanda koma yang dimerahin menjadi titik koma.
mungkin ada formula yang lebih ringkas lagi, kita tunggu saran dari Be-Exceller yang lain
Salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 10.50, Liem Suliem <liemsuliem@yahoo.co.id> menulis:
>
>dh
>
>salam be-exel
>
>kepada temen2 be exel saya mau tanya gimana cara sum/sumif dengan dua kata kunci
>misal saya punya data
>
>A B C D F
>
>BG 150 GR / 24 PAK 10 BG 150 BG 160 30
>BG 160 GR / 24 PAK 20
>BG 300 GR / 24 PAK 10
>BG 320 GR / 12
PAK 20
>
>
>nilai 30 di kolom F adalah hasil penjumlahan B1 dan B2 dengan kata kunci kolom C dan D
>
>file terlampir
>
>trimakasih sebelumnya
>
>
tapi ketika di kolom D dan E tidak terisi kriteria/kata kunci kok tetap muncul penjumlahan ya...
Pada Kamis, 24 Oktober 2013 11:17, Jan Raisin <miss.jan.raisin@
hai Liem,
lain kali tolong tulis judul yang mewakili pertanyaan di subject email ya..
coba di cell F3 ditulis formula berikut:
=LOOKUP(1,SEARCH(
lalu copas ke bawah, jika regional setting setempat adalah Indonesia maka ubah seluruh tanda koma yang dimerahin menjadi titik koma.
mungkin ada formula yang lebih ringkas lagi, kita tunggu saran dari Be-Exceller yang lain
Salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 10.50, Liem Suliem <liemsuliem@yahoo.
>
>dh
>
>salam be-exel
>
>kepada temen2 be exel saya mau tanya gimana cara sum/sumif dengan dua kata kunci
>misal saya punya data
>
>A B C D F
>
>BG 150 GR / 24 PAK 10 BG 150 BG 160 30
>BG 160 GR / 24 PAK 20
>BG 300 GR / 24 PAK 10
>BG 320 GR / 12
PAK 20
>
>
>nilai 30 di kolom F adalah hasil penjumlahan B1 dan B2 dengan kata kunci kolom C dan D
>
>file terlampir
>
>trimakasih sebelumnya
>
>
Wed Oct 23, 2013 10:49 pm (PDT) . Posted by:
ones_marle_oke
Pak Hendrik,
Terima kasih untuk codenya.
Namun saat saya modifikasi code tersebut, ternyata ada Bug untuk AutoFill nya. Bugnya seperti ini : "AutoFill method of Range class failed"
itu kenapa ya pak?
Terima kasih kembali atas bantuan dan penjelesannya.
Berikut codenya :
Success Code :
Dim iRow As Long
iRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("W2").Select
ActiveCell.FormulaR1C1 = _
"=IF(DAY(RC[-17])<DAY(NOW()),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW())-1,DAY(RC[-17])))"
Selection.AutoFill Destination:=Range("W2:W" & iRow)
After Modified Codes :
Dim Irow As Long
Irow = shDB_CP.Cells(Rows.Count, "A").End(xlUp).Row
shDB_CP.Range("W2").FormulaR1C1 = _
"=IF(DAY(NOW())<DAY(RC[-17]),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW()-1),DAY(NOW())))"
Selection.AutoFill Destination:=shDB_CP.Range("W2:W" & Irow)
MsgBox "Done", vbOKOnly, "Information"
Penjelasan :
shDB_CP => Ini sheets yang akan dituju, sudah dideklarasikan saat open workbook
---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com> wrote:
Bukan Pak, hanya baris terakhir saja, karena code lrow = ...End(xlUp).Row mengambil baris terakhir yang ada isinya.
Salam,
HK
On Thursday, 24 October 2013, 9:53, "ones_marle_oke@..." <ones_marle_oke@...> wrote:
Pak Hendrik,
Terima kasih atas penjelasannya.
Untuk mksd dari cell tidak boleh kosong, ini mksdnya kolom W1 sampai kolom terakhir dari kolom W ya?
Saya coba ya pak. Terima kasih.
---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com> wrote:
Coba codes ini,
Dim lrow As Long
lrow = Cells(Rows.Count, "W").End(xlUp).Row
Selection.AutoFill Destination:=Range("W2:W" & lrow)
SK : cell terakhir harus ada isinya (tidak boleh blank), jika baris terakhir kolom w kosong maka bisa mengacu ke baris terakhir kolom lain yang ada isinya (tinggal ganti kolom "W" pada code lrow = ......)
Salam,
HK
On Thursday, 24 October 2013, 9:24, "ones_marle_oke@..." <ones_marle_oke@...> wrote:
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
Terima kasih untuk codenya.
Namun saat saya modifikasi code tersebut, ternyata ada Bug untuk AutoFill nya. Bugnya seperti ini : "AutoFill method of Range class failed"
itu kenapa ya pak?
Terima kasih kembali atas bantuan dan penjelesannya.
Berikut codenya :
Success Code :
Dim iRow As Long
iRow = Cells(Rows.Count, "A"
Range("
ActiveCell.FormulaR
"=IF(DAY(
Selection.AutoFill Destination:
After Modified Codes :
Dim Irow As Long
Irow = shDB_CP.Cells(
shDB_CP.Range(
"=IF(DAY(
Selection.AutoFill Destination:
MsgBox "Done"
Penjelasan :
shDB_CP => Ini sheets yang akan dituju, sudah dideklarasikan saat open workbook
---In belajar-excel@
Bukan Pak, hanya baris terakhir saja, karena code lrow = ...End(xlUp)
Salam,
HK
On Thursday, 24 October 2013, 9:53, "ones_marle_
Pak Hendrik,
Terima kasih atas penjelasannya.
Untuk mksd dari cell tidak boleh kosong, ini mksdnya kolom W1 sampai kolom terakhir dari kolom W ya?
Saya coba ya pak. Terima kasih.
---In belajar-excel@
Coba codes ini,
Dim lrow As Long
lrow = Cells(Rows.Count, "W"
Selection.AutoFill Destination:
SK : cell terakhir harus ada isinya (tidak boleh blank), jika baris terakhir kolom w kosong maka bisa mengacu ke baris terakhir kolom lain yang ada isinya (tinggal ganti kolom "W" pada code lrow = ......)
Salam,
HK
On Thursday, 24 October 2013, 9:24, "ones_marle_
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@
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:
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-
Wed Oct 23, 2013 11:37 pm (PDT) . Posted by:
"Jan Raisin"
bisakah dikirim sample workbooknya?
mungkin akan memperjelas kasus yang ditanyakan
salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 12.24, <ones_marle_oke@yahoo.com> menulis:
> **
>
>
> Pak Hendrik,
>
>
> Terima kasih untuk codenya.
>
> Namun saat saya modifikasi code tersebut, ternyata ada Bug untuk AutoFill
> nya. Bugnya seperti ini : "AutoFill method of Range class failed"
>
>
> itu kenapa ya pak?
>
> Terima kasih kembali atas bantuan dan penjelesannya.
>
>
> Berikut codenya :
>
> *Success Code :*
>
> Dim iRow As Long
>
> iRow = Cells(Rows.Count, "A").End(xlUp).Row
>
> Range("W2").Select
>
> ActiveCell.FormulaR1C1 = _
>
>
> "=IF(DAY(RC[-17])<DAY(NOW()),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW())-1,DAY(RC[-17])))"
>
> Selection.AutoFill Destination:=Range("W2:W" & iRow)
>
>
> *After Modified Codes :*
>
> Dim Irow As Long
>
> Irow = shDB_CP.Cells(Rows.Count, "A").End(xlUp).Row
>
> shDB_CP.Range("W2").FormulaR1C1 = _
>
>
> "=IF(DAY(NOW())<DAY(RC[-17]),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW()-1),DAY(NOW())))"
>
> Selection.AutoFill Destination:=shDB_CP.Range("W2:W" & Irow)
>
> MsgBox "Done", vbOKOnly, "Information"
>
>
> Penjelasan :
>
> shDB_CP => Ini sheets yang akan dituju, sudah dideklarasikan saat open
> workbook
>
>
> ---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com>
> wrote:
>
> Bukan Pak, hanya baris terakhir saja, karena code lrow = ...End(xlUp).Row
> mengambil baris terakhir yang ada isinya.
>
> Salam,
> HK
>
>
>
mungkin akan memperjelas kasus yang ditanyakan
salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 12.24, <ones_marle_oke@
> **
>
>
> Pak Hendrik,
>
>
> Terima kasih untuk codenya.
>
> Namun saat saya modifikasi code tersebut, ternyata ada Bug untuk AutoFill
> nya. Bugnya seperti ini : "AutoFill method of Range class failed"
>
>
> itu kenapa ya pak?
>
> Terima kasih kembali atas bantuan dan penjelesannya.
>
>
> Berikut codenya :
>
> *Success Code :*
>
> Dim iRow As Long
>
> iRow = Cells(Rows.Count, "A"
>
> Range("
>
> ActiveCell.FormulaR
>
>
> "=IF(DAY(
>
> Selection.AutoFill Destination:
>
>
> *After Modified Codes :*
>
> Dim Irow As Long
>
> Irow = shDB_CP.Cells(
>
> shDB_CP.Range(
>
>
> "=IF(DAY(
>
> Selection.AutoFill Destination:
>
> MsgBox "Done"
>
>
> Penjelasan :
>
> shDB_CP => Ini sheets yang akan dituju, sudah dideklarasikan saat open
> workbook
>
>
> ---In belajar-excel@
> wrote:
>
> Bukan Pak, hanya baris terakhir saja, karena code lrow = ...End(xlUp)
> mengambil baris terakhir yang ada isinya.
>
> Salam,
> HK
>
>
>
Wed Oct 23, 2013 11:38 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
- Coba bandingkan codes yang sukses dan setelah modifikasi.
- Pada "Success code", Autofill men-select sel pertama dalam range, yaitu Range("W2") --> (lihat code ....Select pada Success code) sedangkan pada "After Modified Codes" penunjuk sel entah berada di mana...sehingga Autofill nya tidak dapat dilaksanakan (lihat perintah Selection.AutoFill .....); Selection merujuk kepada sel yang mana ?
Silakan renungkan dan coba lagi, semoga berhasil.
Salam,
HK
On Thursday, 24 October 2013, 12:49, "ones_marle_oke@yahoo.com" <ones_marle_oke@yahoo.com> wrote:
Pak Hendrik,
Terima kasih untuk codenya.
Namun saat saya modifikasi code tersebut, ternyata ada Bug untuk AutoFill nya. Bugnya seperti ini : "AutoFill method of Range class failed"
itu kenapa ya pak?
Terima kasih kembali atas bantuan dan penjelesannya.
Berikut codenya :
Success Code :
Dim iRow As Long
iRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("W2").Select
ActiveCell.FormulaR1C1 = _
"=IF(DAY(RC[-17])<DAY(NOW()),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW())-1,DAY(RC[-17])))"
Selection.AutoFill Destination:=Range("W2:W" & iRow)
After Modified Codes :
Dim Irow As Long
Irow = shDB_CP.Cells(Rows.Count, "A").End(xlUp).Row
shDB_CP.Range("W2").FormulaR1C1 = _
"=IF(DAY(NOW())<DAY(RC[-17]),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW()-1),DAY(NOW())))"
Selection.AutoFill Destination:=shDB_CP.Range("W2:W" & Irow)
MsgBox "Done", vbOKOnly, "Information"
Penjelasan :
shDB_CP => Ini sheets yang akan dituju, sudah dideklarasikan saat open workbook
---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com> wrote:
Bukan Pak, hanya baris terakhir saja, karena code lrow = ...End(xlUp).Row mengambil baris terakhir yang ada isinya.
Salam,
HK
On Thursday, 24 October 2013, 9:53, "ones_marle_oke@..." <ones_marle_oke@...> wrote:
Pak Hendrik,
Terima kasih atas penjelasannya.
Untuk mksd dari cell tidak boleh kosong, ini mksdnya kolom W1 sampai kolom terakhir dari kolom W ya?
Saya coba ya pak. Terima kasih.
---In
belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com> wrote:
Coba codes ini,
Dim lrow As Long
lrow = Cells(Rows.Count, "W").End(xlUp).Row
Selection.AutoFill Destination:=Range("W2:W" & lrow)
SK : cell terakhir harus ada isinya (tidak boleh blank), jika baris terakhir kolom w kosong maka bisa mengacu ke baris terakhir kolom lain yang ada isinya (tinggal ganti kolom "W" pada code lrow = ......)
Salam,
HK
On Thursday, 24 October 2013, 9:24, "ones_marle_oke@..." <ones_marle_oke@...> wrote:
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
>>>>
>>>>
>>>>
>>>>
>>>>
- Pada "Success code", Autofill men-select sel pertama dalam range, yaitu Range("
Silakan renungkan dan coba lagi, semoga berhasil.
Salam,
HK
On Thursday, 24 October 2013, 12:49, "ones_marle_oke@
Pak Hendrik,
Terima kasih untuk codenya.
Namun saat saya modifikasi code tersebut, ternyata ada Bug untuk AutoFill nya. Bugnya seperti ini : "AutoFill method of Range class failed"
itu kenapa ya pak?
Terima kasih kembali atas bantuan dan penjelesannya.
Berikut codenya :
Success Code :
Dim iRow As Long
iRow = Cells(Rows.Count, "A"
Range("
ActiveCell.FormulaR
"=IF(DAY(
Selection.AutoFill Destination:
After Modified Codes :
Dim Irow As Long
Irow = shDB_CP.Cells(
shDB_CP.Range(
"=IF(DAY(
Selection.AutoFill Destination:
MsgBox "Done"
Penjelasan :
shDB_CP => Ini sheets yang akan dituju, sudah dideklarasikan saat open workbook
---In belajar-excel@
Bukan Pak, hanya baris terakhir saja, karena code lrow = ...End(xlUp)
Salam,
HK
On Thursday, 24 October 2013, 9:53, "ones_marle_
Pak Hendrik,
Terima kasih atas penjelasannya.
Untuk mksd dari cell tidak boleh kosong, ini mksdnya kolom W1 sampai kolom terakhir dari kolom W ya?
Saya coba ya pak. Terima kasih.
---In
belajar-excel@
Coba codes ini,
Dim lrow As Long
lrow = Cells(Rows.Count, "W"
Selection.AutoFill Destination:
SK : cell terakhir harus ada isinya (tidak boleh blank), jika baris terakhir kolom w kosong maka bisa mengacu ke baris terakhir kolom lain yang ada isinya (tinggal ganti kolom "W" pada code lrow = ......)
Salam,
HK
On Thursday, 24 October 2013, 9:24, "ones_marle_
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@
<belajar-excel@
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_
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
Thu Oct 24, 2013 12:09 am (PDT) . Posted by:
ones_marle_oke
Nah, tadinya juga saya berfikir seperti itu. Sudah saya focuskan ke sheet mana dan range mana yang akan diautofill, eh masih linglung jg excel dan sayanya...
Ini kenapa pak? (sudah direnungkan dan sudah coba dibolak - balik jg tempatnya)
Dim Irow As Long
Irow = shDB_CP.Cells(Rows.Count, "A").End(xlUp).Row
'Saya deklarasikan disini, jg terjadi linglung jg pak.. Apa mesti saya deklarasikan kembali dari shDB_CP ini di code ini?
shDB_CP.Range("W2").Select
shDB_CP.Range("W2").FormulaR1C1 = _
"=IF(DAY(NOW())<DAY(RC[-17]),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW()-1),DAY(NOW())))"
'Penunjukkan range yang akan di autofill (Tapi tetap Bug disini)
shDB_CP.Range("W2").AutoFill Destination:=Range("W2:W" & Irow)
MsgBox "Done", vbOKOnly, "Information"
---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com> wrote:
- Coba bandingkan codes yang sukses dan setelah modifikasi.
- Pada "Success code", Autofill men-select sel pertama dalam range, yaitu Range("W2") --> (lihat code ....Select pada Success code) sedangkan pada "After Modified Codes" penunjuk sel entah berada di mana...sehingga Autofill nya tidak dapat dilaksanakan (lihat perintah Selection.AutoFill .....); Selection merujuk kepada sel yang mana ?
Silakan renungkan dan coba lagi, semoga berhasil.
Salam,
HK
On Thursday, 24 October 2013, 12:49, "ones_marle_oke@..." <ones_marle_oke@...> wrote:
Pak Hendrik,
Terima kasih untuk codenya.
Namun saat saya modifikasi code tersebut, ternyata ada Bug untuk AutoFill nya. Bugnya seperti ini : "AutoFill method of Range class failed"
itu kenapa ya pak?
Terima kasih kembali atas bantuan dan penjelesannya.
Berikut codenya :
Success Code :
Dim iRow As Long
iRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("W2").Select
ActiveCell.FormulaR1C1 = _
"=IF(DAY(RC[-17])<DAY(NOW()),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW())-1,DAY(RC[-17])))"
Selection.AutoFill Destination:=Range("W2:W" & iRow)
After Modified Codes :
Dim Irow As Long
Irow = shDB_CP.Cells(Rows.Count, "A").End(xlUp).Row
shDB_CP.Range("W2").FormulaR1C1 = _
"=IF(DAY(NOW())<DAY(RC[-17]),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW()-1),DAY(NOW())))"
Selection.AutoFill Destination:=shDB_CP.Range("W2:W" & Irow)
MsgBox "Done", vbOKOnly, "Information"
Penjelasan :
shDB_CP => Ini sheets yang akan dituju, sudah dideklarasikan saat open workbook
---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com> wrote:
Bukan Pak, hanya baris terakhir saja, karena code lrow = ...End(xlUp).Row mengambil baris terakhir yang ada isinya.
Salam,
HK
On Thursday, 24 October 2013, 9:53, "ones_marle_oke@..." <ones_marle_oke@...> wrote:
Pak Hendrik,
Terima kasih atas penjelasannya.
Untuk mksd dari cell tidak boleh kosong, ini mksdnya kolom W1 sampai kolom terakhir dari kolom W ya?
Saya coba ya pak. Terima kasih.
---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com> wrote:
Coba codes ini,
Dim lrow As Long
lrow = Cells(Rows.Count, "W").End(xlUp).Row
Selection.AutoFill Destination:=Range("W2:W" & lrow)
SK : cell terakhir harus ada isinya (tidak boleh blank), jika baris terakhir kolom w kosong maka bisa mengacu ke baris terakhir kolom lain yang ada isinya (tinggal ganti kolom "W" pada code lrow = ......)
Salam,
HK
On Thursday, 24 October 2013, 9:24, "ones_marle_oke@..." <ones_marle_oke@...> wrote:
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
Ini kenapa pak? (sudah direnungkan dan sudah coba dibolak - balik jg tempatnya)
Dim Irow As Long
Irow = shDB_CP.Cells(
'Saya deklarasikan disini, jg terjadi linglung jg pak.. Apa mesti saya deklarasikan kembali dari shDB_CP ini di code ini?
shDB_CP.Range(
shDB_CP.Range(
"=IF(DAY(
'Penunjukkan range yang akan di autofill (Tapi tetap Bug disini)
shDB_CP.Range(
MsgBox "Done"
---In belajar-excel@
- Coba bandingkan codes yang sukses dan setelah modifikasi.
- Pada "Success code", Autofill men-select sel pertama dalam range, yaitu Range("
Silakan renungkan dan coba lagi, semoga berhasil.
Salam,
HK
On Thursday, 24 October 2013, 12:49, "ones_marle_
Pak Hendrik,
Terima kasih untuk codenya.
Namun saat saya modifikasi code tersebut, ternyata ada Bug untuk AutoFill nya. Bugnya seperti ini : "AutoFill method of Range class failed"
itu kenapa ya pak?
Terima kasih kembali atas bantuan dan penjelesannya.
Berikut codenya :
Success Code :
Dim iRow As Long
iRow = Cells(Rows.Count, "A"
Range("
ActiveCell.FormulaR
"=IF(DAY(
Selection.AutoFill Destination:
After Modified Codes :
Dim Irow As Long
Irow = shDB_CP.Cells(
shDB_CP.Range(
"=IF(DAY(
Selection.AutoFill Destination:
MsgBox "Done"
Penjelasan :
shDB_CP => Ini sheets yang akan dituju, sudah dideklarasikan saat open workbook
---In belajar-excel@
Bukan Pak, hanya baris terakhir saja, karena code lrow = ...End(xlUp)
Salam,
HK
On Thursday, 24 October 2013, 9:53, "ones_marle_
Pak Hendrik,
Terima kasih atas penjelasannya.
Untuk mksd dari cell tidak boleh kosong, ini mksdnya kolom W1 sampai kolom terakhir dari kolom W ya?
Saya coba ya pak. Terima kasih.
---In belajar-excel@
Coba codes ini,
Dim lrow As Long
lrow = Cells(Rows.Count, "W"
Selection.AutoFill Destination:
SK : cell terakhir harus ada isinya (tidak boleh blank), jika baris terakhir kolom w kosong maka bisa mengacu ke baris terakhir kolom lain yang ada isinya (tinggal ganti kolom "W" pada code lrow = ......)
Salam,
HK
On Thursday, 24 October 2013, 9:24, "ones_marle_
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@
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:
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 12:09 am (PDT) . Posted by:
ones_marle_oke
Attachment saya taruh disini ya Miss Jan Raisin...
Soalnya ga bs attach lwt email. (maklum lwt net kantor Miss..)
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Mengetahui-Destination-Range-terakhir-pada-Rows-workbook-td5721746.html#a5721769 http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Mengetahui-Destination-Range-terakhir-pada-Rows-workbook-td5721746.html#a5721769
---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com> wrote:
bisakah dikirim sample workbooknya?
mungkin akan memperjelas kasus yang ditanyakan
salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 12.24, <ones_marle_oke@... mailto:ones_marle_oke@...> menulis:
Pak Hendrik,
Terima kasih untuk codenya.
Namun saat saya modifikasi code tersebut, ternyata ada Bug untuk AutoFill nya. Bugnya seperti ini : "AutoFill method of Range class failed"
itu kenapa ya pak?
Terima kasih kembali atas bantuan dan penjelesannya.
Berikut codenya :
Success Code :
Dim iRow As Long
iRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("W2").Select
ActiveCell.FormulaR1C1 = _
"=IF(DAY(RC[-17])<DAY(NOW()),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW())-1,DAY(RC[-17])))"
Selection.AutoFill Destination:=Range("W2:W" & iRow)
After Modified Codes :
Dim Irow As Long
Irow = shDB_CP.Cells(Rows.Count, "A").End(xlUp).Row
shDB_CP.Range("W2").FormulaR1C1 = _
"=IF(DAY(NOW())<DAY(RC[-17]),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW()-1),DAY(NOW())))"
Selection.AutoFill Destination:=shDB_CP.Range("W2:W" & Irow)
MsgBox "Done", vbOKOnly, "Information"
Penjelasan :
shDB_CP => Ini sheets yang akan dituju, sudah dideklarasikan saat open workbook
---In belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com> wrote:
Bukan Pak, hanya baris terakhir saja, karena code lrow = ...End(xlUp).Row mengambil baris terakhir yang ada isinya.
Salam,
HK
Soalnya ga bs attach lwt email. (maklum lwt net kantor Miss..)
http://milis-
---In belajar-excel@
bisakah dikirim sample workbooknya?
mungkin akan memperjelas kasus yang ditanyakan
salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 12.24, <ones_marle_
Pak Hendrik,
Terima kasih untuk codenya.
Namun saat saya modifikasi code tersebut, ternyata ada Bug untuk AutoFill nya. Bugnya seperti ini : "AutoFill method of Range class failed"
itu kenapa ya pak?
Terima kasih kembali atas bantuan dan penjelesannya.
Berikut codenya :
Success Code :
Dim iRow As Long
iRow = Cells(Rows.Count, "A"
Range("
ActiveCell.FormulaR
"=IF(DAY(
Selection.AutoFill Destination:
After Modified Codes :
Dim Irow As Long
Irow = shDB_CP.Cells(
shDB_CP.Range(
"=IF(DAY(
Selection.AutoFill Destination:
MsgBox "Done"
Penjelasan :
shDB_CP => Ini sheets yang akan dituju, sudah dideklarasikan saat open workbook
---In belajar-excel@
Bukan Pak, hanya baris terakhir saja, karena code lrow = ...End(xlUp)
Salam,
HK
Thu Oct 24, 2013 1:58 am (PDT) . Posted by:
"Jan Raisin"
coba script yang ini:
Sub Tes()
Dim rgHasil As Range, rng As Range
Dim lRow As Long, lHasil As Long
Application.ScreenUpdating = False
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Set rgHasil = Range("w2:w" & lRow)
For Each rng In rgHasil
lHasil = rng.Row
If Range("f" & lHasil).Value < Date Then
rng.Value = DateSerial(Year(Date), Month(Date), Day(Range("f" &
lHasil).Value))
Else
rng.Value = DateSerial(Year(Date), Month(Date) - 1, Day(Range("f" &
lHasil).Value))
End If
Next rng
Application.ScreenUpdating = True
End Sub
salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 14.08, <ones_marle_oke@yahoo.com> menulis:
> **
>
>
> Attachment saya taruh disini ya Miss Jan Raisin...
>
> Soalnya ga bs attach lwt email. (maklum lwt net kantor Miss..)
>
>
>
> http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Mengetahui-Destination-Range-terakhir-pada-Rows-workbook-td5721746.html#a5721769
>
>
>
> ---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com>
> wrote:
>
> bisakah dikirim sample workbooknya?
> mungkin akan memperjelas kasus yang ditanyakan
>
> salam,
>
>
> -Miss Jan Raisin-
>
>
> Pada 24 Oktober 2013 12.24, <ones_marle_oke@...> menulis:
>
> **
>
>
> Pak Hendrik,
>
>
> Terima kasih untuk codenya.
>
> Namun saat saya modifikasi code tersebut, ternyata ada Bug untuk AutoFill
> nya. Bugnya seperti ini : "AutoFill method of Range class failed"
>
>
> itu kenapa ya pak?
>
> Terima kasih kembali atas bantuan dan penjelesannya.
>
>
> Berikut codenya :
>
> *Success Code :*
>
> Dim iRow As Long
>
> iRow = Cells(Rows.Count, "A").End(xlUp).Row
>
> Range("W2").Select
>
> ActiveCell.FormulaR1C1 = _
>
>
> "=IF(DAY(RC[-17])<DAY(NOW()),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW())-1,DAY(RC[-17])))"
>
> Selection.AutoFill Destination:=Range("W2:W" & iRow)
>
>
> *After Modified Codes :*
>
> Dim Irow As Long
>
> Irow = shDB_CP.Cells(Rows.Count, "A").End(xlUp).Row
>
> shDB_CP.Range("W2").FormulaR1C1 = _
>
>
> "=IF(DAY(NOW())<DAY(RC[-17]),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW()-1),DAY(NOW())))"
>
> Selection.AutoFill Destination:=shDB_CP.Range("W2:W" & Irow)
>
> MsgBox "Done", vbOKOnly, "Information"
>
>
> Penjelasan :
>
> shDB_CP => Ini sheets yang akan dituju, sudah dideklarasikan saat open
> workbook
>
>
> ---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com>
> wrote:
>
> Bukan Pak, hanya baris terakhir saja, karena code lrow = ...End(xlUp).Row
> mengambil baris terakhir yang ada isinya.
>
> Salam,
> HK
>
>
>
>
Sub Tes()
Dim rgHasil As Range, rng As Range
Dim lRow As Long, lHasil As Long
Application.
lRow = Cells(Rows.Count, 1).End(xlUp)
Set rgHasil = Range("
For Each rng In rgHasil
lHasil = rng.Row
If Range("
rng.Value = DateSerial(Year(
lHasil).Value)
Else
rng.Value = DateSerial(Year(
lHasil).Value)
End If
Next rng
Application.
End Sub
salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 14.08, <ones_marle_oke@
> **
>
>
> Attachment saya taruh disini ya Miss Jan Raisin...
>
> Soalnya ga bs attach lwt email. (maklum lwt net kantor Miss..)
>
>
>
> http://milis-
>
>
>
> ---In belajar-excel@
> wrote:
>
> bisakah dikirim sample workbooknya?
> mungkin akan memperjelas kasus yang ditanyakan
>
> salam,
>
>
> -Miss Jan Raisin-
>
>
> Pada 24 Oktober 2013 12.24, <ones_marle_
>
> **
>
>
> Pak Hendrik,
>
>
> Terima kasih untuk codenya.
>
> Namun saat saya modifikasi code tersebut, ternyata ada Bug untuk AutoFill
> nya. Bugnya seperti ini : "AutoFill method of Range class failed"
>
>
> itu kenapa ya pak?
>
> Terima kasih kembali atas bantuan dan penjelesannya.
>
>
> Berikut codenya :
>
> *Success Code :*
>
> Dim iRow As Long
>
> iRow = Cells(Rows.Count, "A"
>
> Range("
>
> ActiveCell.FormulaR
>
>
> "=IF(DAY(
>
> Selection.AutoFill Destination:
>
>
> *After Modified Codes :*
>
> Dim Irow As Long
>
> Irow = shDB_CP.Cells(
>
> shDB_CP.Range(
>
>
> "=IF(DAY(
>
> Selection.AutoFill Destination:
>
> MsgBox "Done"
>
>
> Penjelasan :
>
> shDB_CP => Ini sheets yang akan dituju, sudah dideklarasikan saat open
> workbook
>
>
> ---In belajar-excel@
> wrote:
>
> Bukan Pak, hanya baris terakhir saja, karena code lrow = ...End(xlUp)
> mengambil baris terakhir yang ada isinya.
>
> Salam,
> HK
>
>
>
>
Thu Oct 24, 2013 4:34 am (PDT) . Posted by:
ones_marle_oke
Dear Miss Jan Raisin,
Woooooowwwww... 0_0
looping dengan for ya...
Ga kepikiran... :-(
berjalan dengan lancar.....
Terima kasih atas masukan dan pemberian script codenya...
---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com> wrote:
coba script yang ini:
Sub Tes()
Dim rgHasil As Range, rng As Range
Dim lRow As Long, lHasil As Long
Application.ScreenUpdating = False
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Set rgHasil = Range("w2:w" & lRow)
For Each rng In rgHasil
lHasil = rng.Row
If Range("f" & lHasil).Value < Date Then
rng.Value = DateSerial(Year(Date), Month(Date), Day(Range("f" & lHasil).Value))
Else
rng.Value = DateSerial(Year(Date), Month(Date) - 1, Day(Range("f" & lHasil).Value))
End If
Next rng
Application.ScreenUpdating = True
End Sub
salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 14.08, <ones_marle_oke@... mailto:ones_marle_oke@...> menulis:
Attachment saya taruh disini ya Miss Jan Raisin...
Soalnya ga bs attach lwt email. (maklum lwt net kantor Miss..)
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Mengetahui-Destination-Range-terakhir-pada-Rows-workbook-td5721746.html#a5721769 http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Mengetahui-Destination-Range-terakhir-pada-Rows-workbook-td5721746.html#a5721769
---In belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com> wrote:
bisakah dikirim sample workbooknya?
mungkin akan memperjelas kasus yang ditanyakan
salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 12.24, <ones_marle_oke@... mailto:ones_marle_oke@...> menulis:
Pak Hendrik,
Terima kasih untuk codenya.
Namun saat saya modifikasi code tersebut, ternyata ada Bug untuk AutoFill nya. Bugnya seperti ini : "AutoFill method of Range class failed"
itu kenapa ya pak?
Terima kasih kembali atas bantuan dan penjelesannya.
Berikut codenya :
Success Code :
Dim iRow As Long
iRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("W2").Select
ActiveCell.FormulaR1C1 = _
"=IF(DAY(RC[-17])<DAY(NOW()),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW())-1,DAY(RC[-17])))"
Selection.AutoFill Destination:=Range("W2:W" & iRow)
After Modified Codes :
Dim Irow As Long
Irow = shDB_CP.Cells(Rows.Count, "A").End(xlUp).Row
shDB_CP.Range("W2").FormulaR1C1 = _
"=IF(DAY(NOW())<DAY(RC[-17]),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW()-1),DAY(NOW())))"
Selection.AutoFill Destination:=shDB_CP.Range("W2:W" & Irow)
MsgBox "Done", vbOKOnly, "Information"
Penjelasan :
shDB_CP => Ini sheets yang akan dituju, sudah dideklarasikan saat open workbook
---In belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com> wrote:
Bukan Pak, hanya baris terakhir saja, karena code lrow = ...End(xlUp).Row mengambil baris terakhir yang ada isinya.
Salam,
HK
Woooooowwwww.
looping dengan for ya...
Ga kepikiran... :-(
berjalan dengan lancar.....
Terima kasih atas masukan dan pemberian script codenya...
---In belajar-excel@
coba script yang ini:
Sub Tes()
Dim rgHasil As Range, rng As Range
Dim lRow As Long, lHasil As Long
Application.
lRow = Cells(Rows.Count, 1).End(xlUp)
Set rgHasil = Range("
For Each rng In rgHasil
lHasil = rng.Row
If Range("
rng.Value = DateSerial(Year(
Else
rng.Value = DateSerial(Year(
End If
Next rng
Application.
End Sub
salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 14.08, <ones_marle_
Attachment saya taruh disini ya Miss Jan Raisin...
Soalnya ga bs attach lwt email. (maklum lwt net kantor Miss..)
http://milis-
---In belajar-excel@
bisakah dikirim sample workbooknya?
mungkin akan memperjelas kasus yang ditanyakan
salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 12.24, <ones_marle_
Pak Hendrik,
Terima kasih untuk codenya.
Namun saat saya modifikasi code tersebut, ternyata ada Bug untuk AutoFill nya. Bugnya seperti ini : "AutoFill method of Range class failed"
itu kenapa ya pak?
Terima kasih kembali atas bantuan dan penjelesannya.
Berikut codenya :
Success Code :
Dim iRow As Long
iRow = Cells(Rows.Count, "A"
Range("
ActiveCell.FormulaR
"=IF(DAY(
Selection.AutoFill Destination:
After Modified Codes :
Dim Irow As Long
Irow = shDB_CP.Cells(
shDB_CP.Range(
"=IF(DAY(
Selection.AutoFill Destination:
MsgBox "Done"
Penjelasan :
shDB_CP => Ini sheets yang akan dituju, sudah dideklarasikan saat open workbook
---In belajar-excel@
Bukan Pak, hanya baris terakhir saja, karena code lrow = ...End(xlUp)
Salam,
HK
Thu Oct 24, 2013 4:34 am (PDT) . Posted by:
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.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-
---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com> wrote:
coba script yang ini:
Sub Tes()
Dim rgHasil As Range, rng As Range
Dim lRow As Long, lHasil As Long
Application.ScreenUpdating = False
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Set rgHasil = Range("w2:w" & lRow)
For Each rng In rgHasil
lHasil = rng.Row
If Range("f" & lHasil).Value < Date Then
rng.Value = DateSerial(Year(Date), Month(Date), Day(Range("f" & lHasil).Value))
Else
rng.Value = DateSerial(Year(Date), Month(Date) - 1, Day(Range("f" & lHasil).Value))
End If
Next rng
Application.ScreenUpdating = True
End Sub
salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 14.08, <ones_marle_oke@... mailto:ones_marle_oke@...> menulis:
Attachment saya taruh disini ya Miss Jan Raisin...
Soalnya ga bs attach lwt email. (maklum lwt net kantor Miss..)
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Mengetahui-Destination-Range-terakhir-pada-Rows-workbook-td5721746.html#a5721769 http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Mengetahui-Destination-Range-terakhir-pada-Rows-workbook-td5721746.html#a5721769
---In belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com> wrote:
bisakah dikirim sample workbooknya?
mungkin akan memperjelas kasus yang ditanyakan
salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 12.24, <ones_marle_oke@... mailto:ones_marle_oke@...> menulis:
Pak Hendrik,
Terima kasih untuk codenya.
Namun saat saya modifikasi code tersebut, ternyata ada Bug untuk AutoFill nya. Bugnya seperti ini : "AutoFill method of Range class failed"
itu kenapa ya pak?
Terima kasih kembali atas bantuan dan penjelesannya.
Berikut codenya :
Success Code :
Dim iRow As Long
iRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("W2").Select
ActiveCell.FormulaR1C1 = _
"=IF(DAY(RC[-17])<DAY(NOW()),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW())-1,DAY(RC[-17])))"
Selection.AutoFill Destination:=Range("W2:W" & iRow)
After Modified Codes :
Dim Irow As Long
Irow = shDB_CP.Cells(Rows.Count, "A").End(xlUp).Row
shDB_CP.Range("W2").FormulaR1C1 = _
"=IF(DAY(NOW())<DAY(RC[-17]),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW()-1),DAY(NOW())))"
Selection.AutoFill Destination:=shDB_CP.Range("W2:W" & Irow)
MsgBox "Done", vbOKOnly, "Information"
Penjelasan :
shDB_CP => Ini sheets yang akan dituju, sudah dideklarasikan saat open workbook
---In belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com> wrote:
Bukan Pak, hanya baris terakhir saja, karena code lrow = ...End(xlUp).Row mengambil baris terakhir yang ada isinya.
Salam,
HK
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-
---In belajar-excel@
coba script yang ini:
Sub Tes()
Dim rgHasil As Range, rng As Range
Dim lRow As Long, lHasil As Long
Application.
lRow = Cells(Rows.Count, 1).End(xlUp)
Set rgHasil = Range("
For Each rng In rgHasil
lHasil = rng.Row
If Range("
rng.Value = DateSerial(Year(
Else
rng.Value = DateSerial(Year(
End If
Next rng
Application.
End Sub
salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 14.08, <ones_marle_
Attachment saya taruh disini ya Miss Jan Raisin...
Soalnya ga bs attach lwt email. (maklum lwt net kantor Miss..)
http://milis-
---In belajar-excel@
bisakah dikirim sample workbooknya?
mungkin akan memperjelas kasus yang ditanyakan
salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 12.24, <ones_marle_
Pak Hendrik,
Terima kasih untuk codenya.
Namun saat saya modifikasi code tersebut, ternyata ada Bug untuk AutoFill nya. Bugnya seperti ini : "AutoFill method of Range class failed"
itu kenapa ya pak?
Terima kasih kembali atas bantuan dan penjelesannya.
Berikut codenya :
Success Code :
Dim iRow As Long
iRow = Cells(Rows.Count, "A"
Range("
ActiveCell.FormulaR
"=IF(DAY(
Selection.AutoFill Destination:
After Modified Codes :
Dim Irow As Long
Irow = shDB_CP.Cells(
shDB_CP.Range(
"=IF(DAY(
Selection.AutoFill Destination:
MsgBox "Done"
Penjelasan :
shDB_CP => Ini sheets yang akan dituju, sudah dideklarasikan saat open workbook
---In belajar-excel@
Bukan Pak, hanya baris terakhir saja, karena code lrow = ...End(xlUp)
Salam,
HK
Thu Oct 24, 2013 1:29 am (PDT) . Posted by:
"freddy heru soermin" angelo_feather
Dear Mr. Kid,
Mohon penjelasan utk gambar berikut fungsi dari "How many page fields do you want?"
seperti yang mr. kid contohkan field yang dipilih "1". dan utk field "2-4" dapat digunakan pada kondisi yang bagai mana??
bolehkah saya diberikan contoh utk itu agar lebih mudah memahaminya..
thanks
Mohon penjelasan utk gambar berikut fungsi dari "How many page fields do you want?"
seperti yang mr. kid contohkan field yang dipilih "1"
bolehkah saya diberikan contoh utk itu agar lebih mudah memahaminya.
thanks
Thu Oct 24, 2013 3:04 am (PDT) . Posted by:
"Jan Raisin"
Halo pak Freddy,
coba kita pelajari bersama Anatomi dari Pivot Table, untuk lebih jelasnya
bisa dilihat dalam gambar di bawah ini:
[image: Gambar sisip 1]
Nomor 1 adalah Page Field, fungsinya adalah untuk melakukan filter terhadap
Pivot Table Report, jadi jumlah page field menentukan berapa jumlah filter
yang akan digunakan
Nomor 2 adalah Data Field, menunjukkan fungsi perhitungan yang dilakukan
terhadap data, pada gambar di atas menunjukkan SUM atau penjumlahan
Nomor 3 adalah Column Field, menunjukkan data yang akan ditampilkan
berurutan dalam bentuk kolom (orientasi kolom)
Nomor 4 adalah Item, yaitu sub dari Nomor 3 atau unsur yang membentuk
Column Field
Nomor 5 adalah Row Field, menunjukkan data yang akan ditampilkan berurutan
dari atas ke bawah (orientasi baris)
Nomor 6 adalah Data Area, menunjukkan nilai berdasarkan kalkulasi yang
telah ditentukan sebelumnya
Jan tidak pandai bercerita, tetapi semoga ilustrasi di atas dapat
dipahami.. kata orang sebuah gambar dapat menceritakan lebih banyak hal
dibandingkan seribu kata
Salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 14.31, freddy heru soermin
<angelo_feather@yahoo.com>menulis:
> **
>
>
> Dear Mr. Kid,
>
> Mohon penjelasan utk gambar berikut fungsi dari "How many page fields do
> you want?"
> seperti yang mr. kid contohkan field yang dipilih "1". dan utk field "2-4"
> dapat digunakan pada kondisi yang bagai mana??
>
> bolehkah saya diberikan contoh utk itu agar lebih mudah memahaminya..
> thanks
>
>
>
>
coba kita pelajari bersama Anatomi dari Pivot Table, untuk lebih jelasnya
bisa dilihat dalam gambar di bawah ini:
[image: Gambar sisip 1]
Nomor 1 adalah Page Field, fungsinya adalah untuk melakukan filter terhadap
Pivot Table Report, jadi jumlah page field menentukan berapa jumlah filter
yang akan digunakan
Nomor 2 adalah Data Field, menunjukkan fungsi perhitungan yang dilakukan
terhadap data, pada gambar di atas menunjukkan SUM atau penjumlahan
Nomor 3 adalah Column Field, menunjukkan data yang akan ditampilkan
berurutan dalam bentuk kolom (orientasi kolom)
Nomor 4 adalah Item, yaitu sub dari Nomor 3 atau unsur yang membentuk
Column Field
Nomor 5 adalah Row Field, menunjukkan data yang akan ditampilkan berurutan
dari atas ke bawah (orientasi baris)
Nomor 6 adalah Data Area, menunjukkan nilai berdasarkan kalkulasi yang
telah ditentukan sebelumnya
Jan tidak pandai bercerita, tetapi semoga ilustrasi di atas dapat
dipahami.. kata orang sebuah gambar dapat menceritakan lebih banyak hal
dibandingkan seribu kata
Salam,
-Miss Jan Raisin-
Pada 24 Oktober 2013 14.31, freddy heru soermin
<angelo_feather@
> **
>
>
> Dear Mr. Kid,
>
> Mohon penjelasan utk gambar berikut fungsi dari "How many page fields do
> you want?"
> seperti yang mr. kid contohkan field yang dipilih "1"
> dapat digunakan pada kondisi yang bagai mana??
>
> bolehkah saya diberikan contoh utk itu agar lebih mudah memahaminya.
> thanks
>
>
>
>
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