Quantcast

[belajar-excel] Cara ambil data dari File lain

classic Classic list List threaded Threaded
9 messages Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[belajar-excel] Cara ambil data dari File lain

odhyz83_assasaky
Dear Para Master,
 
Mohon Pencerahannya, bagaimana cara mengambil data dari file yang laen,
dimana pada kolom Tgl. sekrang, Lama simpan dan kolom keterangan akan otomatis beradasarkan data yg diambil dari file yang laen.
 
Terima kasih atas penjelasannya.
note: file terlampir

Data Material.xls (50K) Download Attachment
Monitoring Lama Simpan Markonah (V1a)2.xls (84K) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Cara ambil data dari File lain

Kid
Administrator
Sambil menunggu mbak Markonah yang sedang nyepi...

Perhatikan prosedur Load_Data bagian :
Sheets(2).Select
            Range("b2:b15536").Copy
           Sheets(1).Select
           Range("b4").Select
          Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

Jika yang diproses adalah langsung banyak file, maka pindahkan bagian itu
kebawah baris berisi *Next I*

Bagian ini adalah proses copy paste dari area tampungan sementara ke lokasi
output.
Sheets(2).Select
            Range("b2:b15536").Copy
artinya copy range b2:b15536 yang ada di sheet ke-2

           Sheets(1).Select
           Range("b4").Select
          Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
artinya paste special values yang di-copy tadi ke sheet ke-1 di cell B4.

Kalau ingin copy paste kolom keterangan yang ada di sheet ke-2 kolom C itu
kedalam kolom E sheet ke-1 bagaimana caranya ?
Tentu tambahkan baris perintah copy tapi yang dicopy adalah kolom C.
Kemudian tambahkan baris perintah paste special values ke kolom E sheet
ke-1 yang mulai E4.
Kira-kira baris tambahannya adalah :
sheets(2).range("c2:c15536").copy
sheets(1).range("e4").pastespecial xlpastevalues, skipblanks:=true

atau jika jumlah baris di sheet ke-2 bisa lebih dari 16000, maka proses
copas kolom C sheet ke-2 untuk masuk kolom E sheet ke-1 di E4 bisa diubah
menjadi :
'di sheet ke-2 range a1, blok currentregion-nya, lompat [offset] 1 baris
kebawah dan 2 kolom kekanan dari a1
'kemudian ubah luasan yang diblok [resize] menjadi 1 kolom dengan jumlah
baris tetap
'dan lakukan copy ke clipboard [copy]
sheets(2).range("a1").currentregion.offset(1,2).resize(,1).copy
sheets(1).range("e4").pastespecial xlpastevalues, skipblanks:=true

Selamat mencoba.

Wassalam,
Kid.

2012/6/11 rodhy hakim <[hidden email]>

> **
>
>
> Dear Para Master,
>
> Mohon Pencerahannya, bagaimana cara mengambil data dari file yang laen,
> dimana pada kolom Tgl. sekrang, Lama simpan dan kolom keterangan akan
> otomatis beradasarkan data yg diambil dari file yang laen.
>
> Terima kasih atas penjelasannya.
> note: file terlampir
>
>
>  
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Cara ambil data dari File lain

odhyz83_assasaky
Dear Master,
 
Sebelumnya saya ucapkan banyak terima kasih atas penjelasannya.
Setelah saya mencoba masukkan listing ke dalam vba dan jalan, namun yang sebelumnya pd kolom : Tgl. sekarang, Kolom lama simpan
kolom Keterangan Muncul otomatis, tapi sekarang tidk bisa muncul otomatis.
Mohon Pencerahannya Para Master.
 
Regards,
Odhy_
From: Kid Mr. <[hidden email]>
To: [hidden email]
Sent: Tuesday, June 12, 2012 12:21 AM
Subject: Re: [belajar-excel] Cara ambil data dari File lain


 
Sambil menunggu mbak Markonah yang sedang nyepi...

Perhatikan prosedur Load_Data bagian :
Sheets(2).Select
            Range("b2:b15536").Copy
           Sheets(1).Select
           Range("b4").Select
          Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

Jika yang diproses adalah langsung banyak file, maka pindahkan bagian itu kebawah baris berisi Next I

Bagian ini adalah proses copy paste dari area tampungan sementara ke lokasi output.
Sheets(2).Select
            Range("b2:b15536").Copy
artinya copy range b2:b15536 yang ada di sheet ke-2

           Sheets(1).Select
           Range("b4").Select
          Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
artinya paste special values yang di-copy tadi ke sheet ke-1 di cell B4.

Kalau ingin copy paste kolom keterangan yang ada di sheet ke-2 kolom C itu kedalam kolom E sheet ke-1 bagaimana caranya ?
Tentu tambahkan baris perintah copy tapi yang dicopy adalah kolom C. Kemudian tambahkan baris perintah paste special values ke kolom E sheet ke-1 yang mulai E4.
Kira-kira baris tambahannya adalah :
sheets(2).range("c2:c15536").copy
sheets(1).range("e4").pastespecial xlpastevalues, skipblanks:=true

atau jika jumlah baris di sheet ke-2 bisa lebih dari 16000, maka proses copas kolom C sheet ke-2 untuk masuk kolom E sheet ke-1 di E4 bisa diubah menjadi :
'di sheet ke-2 range a1, blok currentregion-nya, lompat [offset] 1 baris kebawah dan 2 kolom kekanan dari a1
'kemudian ubah luasan yang diblok [resize] menjadi 1 kolom dengan jumlah baris tetap
'dan lakukan copy ke clipboard [copy]
sheets(2).range("a1").currentregion.offset(1,2).resize(,1).copy
sheets(1).range("e4").pastespecial xlpastevalues, skipblanks:=true

Selamat mencoba.

Wassalam,
Kid.


2012/6/11 rodhy hakim <[hidden email]>

 
>Dear Para Master,
>
>Mohon Pencerahannya, bagaimana cara mengambil data dari file yang laen,
>dimana pada kolom Tgl. sekrang, Lama simpan dan kolom keterangan akan otomatis beradasarkan data yg diambil dari file yang laen.
>
>Terima kasih atas penjelasannya.
>note: file terlampir
>


Monitoring Lama Simpan Markonah (V1a)2.xls (79K) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Cara ambil data dari File lain

Kid
Administrator
Tambahkan script berikut sebelum End Sub

    Dim lRec As Long
    Dim rng As Range

    lRec = Sheets(2).Range("a1").CurrentRegion.Rows.Count - 1
    If lRec < 1 Then
        Exit Sub
    End If

    Set rng = Sheets(1).Range("a4").Resize(lRec, 1)         'init range
data baru
    With rng
        .Formula = "=row()-3"                               'formula nomor
urut
        .Offset(0, 3).Value = Date                          'tanggal
sekarang
        .Offset(0, 5).Formula = "=datedif(b4,d4,""m"")&""
bulan""&datedif(b4,d4,""md"")&"" hari."""
        .Offset(0, 6).Formula =
"=(datedif(b4,d4,""m"")+datedif(b4,d4,""md"")/100>4)*1"

        'divalueskan
        Sheets(1).Calculate
        .Value = .Value
        .Offset(0, 5).Value = .Offset(0, 5).Value
        .Offset(0, 6).Value = .Offset(0, 6).Value

        'atur format number
        .Offset(0, 6).NumberFormat = "[red]""Material sudah
Expired"";;""Material normal"""
        With .Offset(0, 6).FormatConditions.Add(xlCellValue, xlEqual, 1)
            .Font.Bold = True
        End With
    End With

Kid.

2012/6/12 rodhy hakim <[hidden email]>

> **
>
>
> Dear Master,
>
> Sebelumnya saya ucapkan banyak terima kasih atas penjelasannya.
> Setelah saya mencoba masukkan listing ke dalam vba dan jalan, namun yang
> sebelumnya pd kolom : Tgl. sekarang, Kolom lama simpan
> kolom Keterangan Muncul otomatis, tapi sekarang tidk bisa muncul otomatis.
> Mohon Pencerahannya Para Master.
>
> Regards,
> Odhy_
>   **
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Cara ambil data dari File lain

odhyz83_assasaky
Dear Master,
 
Sebelumnya saya ucapkan banyak Terima kasih atas penjelasannya, dan yg dijelaskan sebelumnya sudah fix.
sedangnkan kalau mw memberikan notifikasi/keterangan berdasarkan beberapa kategori itu bagaimana caranya?
note: file terlampir

From: Kid Mr. <[hidden email]>
To: [hidden email]
Sent: Tuesday, June 12, 2012 12:59 PM
Subject: Re: [belajar-excel] Cara ambil data dari File lain


 
Tambahkan script berikut sebelum End Sub

    Dim lRec As Long
    Dim rng As Range

    lRec = Sheets(2).Range("a1").CurrentRegion.Rows.Count - 1
    If lRec < 1 Then
        Exit Sub
    End If
           
    Set rng = Sheets(1).Range("a4").Resize(lRec, 1)         'init range data baru
    With rng
        .Formula = "=row()-3"                               'formula nomor urut
        .Offset(0, 3).Value = Date                          'tanggal sekarang
        .Offset(0, 5).Formula = "=datedif(b4,d4,""m"")&"" bulan""&datedif(b4,d4,""md"")&"" hari."""
        .Offset(0, 6).Formula = "=(datedif(b4,d4,""m"")+datedif(b4,d4,""md"")/100>4)*1"

        'divalueskan
        Sheets(1).Calculate
        .Value = .Value
        .Offset(0, 5).Value = .Offset(0, 5).Value
        .Offset(0, 6).Value = .Offset(0, 6).Value
       
        'atur format number
        .Offset(0, 6).NumberFormat = "[red]""Material sudah Expired"";;""Material normal"""
        With .Offset(0, 6).FormatConditions.Add(xlCellValue, xlEqual, 1)
            .Font.Bold = True
        End With
    End With

Kid.


2012/6/12 rodhy hakim <[hidden email]>

 

>Dear Master,

>Sebelumnya saya ucapkan banyak terima kasih atas penjelasannya.
>Setelah saya mencoba masukkan listing ke dalam vba dan jalan, namun yang sebelumnya pd kolom : Tgl. sekarang, Kolom lama simpan
>kolom Keterangan Muncul otomatis, tapi sekarang tidk bisa muncul otomatis.
>Mohon Pencerahannya Para Master.
>
>Regards,
>Odhy_
>
>


Lama Simpan.zip (141K) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Cara ambil data dari File lain

Kid
Administrator
Coba file terlampir.
Yang diubah adalah formulanya, beserta seluruh yang dibutuhkan formula
penyusun keterangan.

Wassalam,
Kid.


2012/6/14 rodhy hakim <[hidden email]>

> **
>
>
> Dear Master,
>
> Sebelumnya saya ucapkan banyak Terima kasih atas penjelasannya, dan yg
> dijelaskan sebelumnya sudah fix.
> sedangnkan kalau mw memberikan notifikasi/keterangan berdasarkan beberapa
> kategori itu bagaimana caranya?
> *note: file terlampir*
>
>   *From:* Kid Mr. <[hidden email]>
> *To:* [hidden email]
> *Sent:* Tuesday, June 12, 2012 12:59 PM
>
> *Subject:* Re: [belajar-excel] Cara ambil data dari File lain
>
>
>  Tambahkan script berikut sebelum End Sub
>
>     Dim lRec As Long
>     Dim rng As Range
>
>     lRec = Sheets(2).Range("a1").CurrentRegion.Rows.Count - 1
>     If lRec < 1 Then
>         Exit Sub
>     End If
>
>     Set rng = Sheets(1).Range("a4").Resize(lRec, 1)         'init range
> data baru
>     With rng
>         .Formula = "=row()-3"                               'formula nomor
> urut
>         .Offset(0, 3).Value = Date                          'tanggal
> sekarang
>         .Offset(0, 5).Formula = "=datedif(b4,d4,""m"")&""
> bulan""&datedif(b4,d4,""md"")&"" hari."""
>         .Offset(0, 6).Formula =
> "=(datedif(b4,d4,""m"")+datedif(b4,d4,""md"")/100>4)*1"
>
>         'divalueskan
>         Sheets(1).Calculate
>         .Value = .Value
>         .Offset(0, 5).Value = .Offset(0, 5).Value
>         .Offset(0, 6).Value = .Offset(0, 6).Value
>
>         'atur format number
>         .Offset(0, 6).NumberFormat = "[red]""Material sudah
> Expired"";;""Material normal"""
>         With .Offset(0, 6).FormatConditions.Add(xlCellValue, xlEqual, 1)
>             .Font.Bold = True
>         End With
>     End With
>
> Kid.
>
> 2012/6/12 rodhy hakim <[hidden email]>
>
> **
>
>   Dear Master,
>
> Sebelumnya saya ucapkan banyak terima kasih atas penjelasannya.
> Setelah saya mencoba masukkan listing ke dalam vba dan jalan, namun yang
> sebelumnya pd kolom : Tgl. sekarang, Kolom lama simpan
> kolom Keterangan Muncul otomatis, tapi sekarang tidk bisa muncul otomatis.
> Mohon Pencerahannya Para Master.
>
> Regards,
> Odhy_
>   **
>
>
>
>
>  
>

re-Monitoring Lama Simpan Markonah (V1a)2.xls (73K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Cara ambil data dari File lain

odhyz83_assasaky
Dear Master,
 
File yang dilampirkan tidak bisa saya buka karena di proteksi,
maaf maksud saya untuk kategori ke- 2 apabila lebih dari 12  bulan atau 1 th. makan notifikasinya material sudah expired.
________________________________
Notifikasi berdasarkan Kategori,
Apabila:
1. Kategorinya : DST, EVENT, GAMES, POC,PPOSM maka notifikasinya/ Keterangannya > 4 bln makan notifikasinya Material sudah Exiperd, apabila < 4 bln makan Notifikasinya; Material Normal.
 
2. Kategorinya : CIGARETE, MERHANDISE, REWARD, TEMPORARY BRANDING, TPOSM maka notifikasinya/ Keterangannya > 12bln makan notifikasinya Material sudah Exiperd, apabila < 12 bln makan Notifikasinya; Material Normal.


From: Kid Mr. <[hidden email]>
To: [hidden email]
Sent: Thursday, June 14, 2012 6:41 PM
Subject: Re: [belajar-excel] Cara ambil data dari File lain


 
Coba file terlampir.
Yang diubah adalah formulanya, beserta seluruh yang dibutuhkan formula penyusun keterangan.

Wassalam,
Kid.



2012/6/14 rodhy hakim <[hidden email]>

 

>Dear Master,

>Sebelumnya saya ucapkan banyak Terima kasih atas penjelasannya, dan yg dijelaskan sebelumnya sudah fix.
>sedangnkan kalau mw memberikan notifikasi/keterangan berdasarkan beberapa kategori itu bagaimana caranya?
>note: file terlampir
>
>
>From: Kid Mr. <[hidden email]>
>To: [hidden email]
>Sent: Tuesday, June 12, 2012 12:59 PM
>
>Subject: Re: [belajar-excel] Cara ambil data dari File lain
>
>

>Tambahkan script berikut sebelum End Sub
>
>    Dim lRec As Long
>    Dim rng As Range
>
>    lRec = Sheets(2).Range("a1").CurrentRegion.Rows.Count - 1
>    If lRec < 1 Then
>        Exit Sub
>    End If
>           
>    Set rng = Sheets(1).Range("a4").Resize(lRec, 1)         'init range data baru
>    With rng
>        .Formula = "=row()-3"                               'formula nomor urut
>        .Offset(0, 3).Value = Date                          'tanggal sekarang
>        .Offset(0, 5).Formula = "=datedif(b4,d4,""m"")&"" bulan""&datedif(b4,d4,""md"")&"" hari."""
>        .Offset(0, 6).Formula = "=(datedif(b4,d4,""m"")+datedif(b4,d4,""md"")/100>4)*1"
>
>        'divalueskan
>        Sheets(1).Calculate
>        .Value = .Value
>        .Offset(0, 5).Value = .Offset(0, 5).Value
>        .Offset(0, 6).Value = .Offset(0, 6).Value
>       
>        'atur format number
>        .Offset(0, 6).NumberFormat = "[red]""Material sudah Expired"";;""Material normal"""
>        With .Offset(0, 6).FormatConditions.Add(xlCellValue, xlEqual, 1)
>            .Font.Bold = True
>        End With
>    End With
>
>Kid.
>
>
>2012/6/12 rodhy hakim <[hidden email]>
>

>>Dear Master,
>> 
>>Sebelumnya saya ucapkan banyak terima kasih atas penjelasannya.
>>Setelah saya mencoba masukkan listing ke dalam vba dan jalan, namun yang sebelumnya pd kolom : Tgl. sekarang, Kolom lama simpan
>>kolom Keterangan Muncul otomatis, tapi sekarang tidk bisa muncul otomatis.
>>Mohon Pencerahannya Para Master.
>>
>>Regards,
>>Odhy_
>>
>>
>
>
>

Kid
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Cara ambil data dari File lain

Kid
Administrator
Silakan dicoba.

Kid.

2012/6/15 rodhy hakim <[hidden email]>

> **
>
>
> Dear Master,
>
> File yang dilampirkan tidak bisa saya buka karena di proteksi,
> maaf maksud saya untuk kategori ke- 2 apabila lebih dari 12  bulan atau 1
> th. makan notifikasinya material sudah expired.
> ________________________________
> Notifikasi berdasarkan Kategori,
> Apabila:
> 1. Kategorinya : DST, EVENT, GAMES, POC,PPOSM maka notifikasinya/
> Keterangannya *> 4 bln* makan notifikasinya Material sudah Exiperd,
> apabila *< 4 bln* makan Notifikasinya; Material Normal.
>
> 2. Kategorinya : CIGARETE, MERHANDISE, REWARD, TEMPORARY BRANDING, TPOSM
> maka notifikasinya/ Keterangannya *> 12 bln* makan notifikasinya Material
> sudah Exiperd, apabila *< 12 bln* makan Notifikasinya; Material Normal.
>
>   *From:* Kid Mr. <[hidden email]>
> *To:* [hidden email]
> *Sent:* Thursday, June 14, 2012 6:41 PM
>
> *Subject:* Re: [belajar-excel] Cara ambil data dari File lain
>
>
> Coba file terlampir.
> Yang diubah adalah formulanya, beserta seluruh yang dibutuhkan formula
> penyusun keterangan.
>
> Wassalam,
> Kid.
>
>
> 2012/6/14 rodhy hakim <[hidden email]>
>
> **
>
>   Dear Master,
>
> Sebelumnya saya ucapkan banyak Terima kasih atas penjelasannya, dan yg
> dijelaskan sebelumnya sudah fix.
> sedangnkan kalau mw memberikan notifikasi/keterangan berdasarkan beberapa
> kategori itu bagaimana caranya?
> *note: file terlampir*
>
>   *From:* Kid Mr. <[hidden email]>
> *To:* [hidden email]
> *Sent:* Tuesday, June 12, 2012 12:59 PM
>
> *Subject:* Re: [belajar-excel] Cara ambil data dari File lain
>
>
>  Tambahkan script berikut sebelum End Sub
>
>     Dim lRec As Long
>     Dim rng As Range
>
>     lRec = Sheets(2).Range("a1").CurrentRegion.Rows.Count - 1
>     If lRec < 1 Then
>         Exit Sub
>     End If
>
>     Set rng = Sheets(1).Range("a4").Resize(lRec, 1)         'init range
> data baru
>     With rng
>         .Formula = "=row()-3"                               'formula nomor
> urut
>         .Offset(0, 3).Value = Date                          'tanggal
> sekarang
>         .Offset(0, 5).Formula = "=datedif(b4,d4,""m"")&""
> bulan""&datedif(b4,d4,""md"")&"" hari."""
>         .Offset(0, 6).Formula =
> "=(datedif(b4,d4,""m"")+datedif(b4,d4,""md"")/100>4)*1"
>
>         'divalueskan
>         Sheets(1).Calculate
>         .Value = .Value
>         .Offset(0, 5).Value = .Offset(0, 5).Value
>         .Offset(0, 6).Value = .Offset(0, 6).Value
>
>         'atur format number
>         .Offset(0, 6).NumberFormat = "[red]""Material sudah
> Expired"";;""Material normal"""
>         With .Offset(0, 6).FormatConditions.Add(xlCellValue, xlEqual, 1)
>             .Font.Bold = True
>         End With
>     End With
>
> Kid.
>
> 2012/6/12 rodhy hakim <[hidden email]>
>
> **
>
>   Dear Master,
>
> Sebelumnya saya ucapkan banyak terima kasih atas penjelasannya.
> Setelah saya mencoba masukkan listing ke dalam vba dan jalan, namun yang
> sebelumnya pd kolom : Tgl. sekarang, Kolom lama simpan
> kolom Keterangan Muncul otomatis, tapi sekarang tidk bisa muncul otomatis.
> Mohon Pencerahannya Para Master.
>
> Regards,
> Odhy_
>   **
>
>
>
>
>
>
>
>  
>

re-Monitoring Lama Simpan Markonah (V1a)2.xls (74K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Cara ambil data dari File lain

odhyz83_assasaky
Dear Mr. Kid,
 
Terima Kasih yg sebesar-besarnya saya ucapkan, semoga intelektualitas generasi Indonesia semakin Maju.
 
Best Regards,
Odhy.

From: Kid Mr. <[hidden email]>
To: [hidden email]
Sent: Friday, June 15, 2012 9:22 AM
Subject: Re: [belajar-excel] Cara ambil data dari File lain


 
Silakan dicoba.

Kid.


2012/6/15 rodhy hakim <[hidden email]>

 

>Dear Master,

>File yang dilampirkan tidak bisa saya buka karena di proteksi,
>maaf maksud saya untuk kategori ke- 2 apabila lebih dari 12  bulan atau 1 th. makan notifikasinya material sudah expired.
>________________________________
>Notifikasi berdasarkan Kategori,
>Apabila:
>1. Kategorinya : DST, EVENT, GAMES, POC,PPOSM maka notifikasinya/ Keterangannya > 4 bln makan notifikasinya Material sudah Exiperd, apabila < 4 bln makan Notifikasinya; Material Normal.

>2. Kategorinya : CIGARETE, MERHANDISE, REWARD, TEMPORARY BRANDING, TPOSM maka notifikasinya/ Keterangannya > 12bln makan notifikasinya Material sudah Exiperd, apabila < 12 bln makan Notifikasinya; Material Normal.
>
>
>
>From: Kid Mr. <[hidden email]>
>To: [hidden email]
>Sent: Thursday, June 14, 2012 6:41 PM
>
>Subject: Re: [belajar-excel] Cara ambil data dari File lain
>
>
>

>Coba file terlampir.
>Yang diubah adalah formulanya, beserta seluruh yang dibutuhkan formula penyusun keterangan.
>
>Wassalam,
>Kid.
>
>
>
>2012/6/14 rodhy hakim <[hidden email]>
>

>>Dear Master,
>> 
>>Sebelumnya saya ucapkan banyak Terima kasih atas penjelasannya, dan yg dijelaskan sebelumnya sudah fix.
>>sedangnkan kalau mw memberikan notifikasi/keterangan berdasarkan beberapa kategori itu bagaimana caranya?
>>note: file terlampir
>>
>>
>>From: Kid Mr. <[hidden email]>
>>To: [hidden email]
>>Sent: Tuesday, June 12, 2012 12:59 PM
>>
>>Subject: Re: [belajar-excel] Cara ambil data dari File lain
>>
>>
>> 
>>Tambahkan script berikut sebelum End Sub
>>
>>    Dim lRec As Long
>>    Dim rng As Range
>>
>>    lRec = Sheets(2).Range("a1").CurrentRegion.Rows.Count - 1
>>    If lRec < 1 Then
>>        Exit Sub
>>    End If
>>           
>>    Set rng = Sheets(1).Range("a4").Resize(lRec, 1)         'init range data baru
>>    With rng
>>        .Formula = "=row()-3"                               'formula nomor urut
>>        .Offset(0, 3).Value = Date                          'tanggal sekarang
>>        .Offset(0, 5).Formula = "=datedif(b4,d4,""m"")&"" bulan""&datedif(b4,d4,""md"")&"" hari."""
>>        .Offset(0, 6).Formula = "=(datedif(b4,d4,""m"")+datedif(b4,d4,""md"")/100>4)*1"
>>
>>        'divalueskan
>>        Sheets(1).Calculate
>>        .Value = .Value
>>        .Offset(0, 5).Value = .Offset(0, 5).Value
>>        .Offset(0, 6).Value = .Offset(0, 6).Value
>>       
>>        'atur format number
>>        .Offset(0, 6).NumberFormat = "[red]""Material sudah Expired"";;""Material normal"""
>>        With .Offset(0, 6).FormatConditions.Add(xlCellValue, xlEqual, 1)
>>            .Font.Bold = True
>>        End With
>>    End With
>>
>>Kid.
>>
>>
>>2012/6/12 rodhy hakim <[hidden email]>
>>
>> 
>>>Dear Master,
>>> 
>>>Sebelumnya saya ucapkan banyak terima kasih atas penjelasannya.
>>>Setelah saya mencoba masukkan listing ke dalam vba dan jalan, namun yang sebelumnya pd kolom : Tgl. sekarang, Kolom lama simpan
>>>kolom Keterangan Muncul otomatis, tapi sekarang tidk bisa muncul otomatis.
>>>Mohon Pencerahannya Para Master.
>>>
>>>Regards,
>>>Odhy_
>>>
>>>
>>
>>
>>
>
>
>

Loading...