RE: Re: Re: Re: Re: Re: [belajar-excel] Mengetahui Destination Range terakhir pada Rows workbook

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

__._,_.___

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

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___