Kamis, 20 Februari 2014

[belajar-excel] Digest Number 2797

15 Messages

Digest #2797
2d
Re: Mari kita do'akan tuk kesembuhan Pak Alif Akbar by "Ahmad Syaifullah Lubis" syaifullah
3a
Re: Extract Data dari Database by "ChordJR" indra_gustian
4
5a
perkalian di VBA by "aisyah zahrah"
5b
Trs: [belajar-excel] perkalian di VBA [1 Attachment] by "Andy Ajhis Ramadhan" andy_ajhis37
7a
Re: Hitung Lembur & HK by agungdotcom13
7b
Re: Hitung Lembur & HK by "Bagus" bagus4bls

Messages

Thu Feb 20, 2014 7:27 pm (PST) . Posted by:

"Jan Raisin"

waduh.. kalo diMerge susah atuh ko @_@

tapi coba script yang ini ya..

Private Sub Worksheet_Change(ByVal Target As Range)

' (0-0) deklarasi semua variable yang diperlukan
Dim sRowHeight As Single, sColWidth As Single, sMergeWidth As Single
Dim rgCell As Range, rgEachCell As Range, rgMerge As Range

' (1) fokus pada cel 1 kolom di sebelah kanan target
With Target.Offset(, 1)

' (2) cek apakah cel tersebut diMerge
If .MergeCells Then

' (3) jika masuk ke baris ini maka cel diMerge
' set lokasi cel pertama yang diMerge
' yaitu cel paling kiri atas
Set rgCell = .Cells(1, 1)

' (4) simpan lebar kolom ke variabel sColWidth
sColWidth = rgCell.ColumnWidth

' (5) set area yang diMerge
Set rgMerge = rgCell.MergeArea

' (6) simpan lebar kolom hasil Merge
For Each rgEachCell In rgMerge.Cells
sMergeWidth = sMergeWidth + rgEachCell.ColumnWidth
Next

' (7) matikan screen update
Application.ScreenUpdating = False

' (8) hilangkan dahulu Merge Cel-nya
rgMerge.MergeCells = False

' (9) ubah lebar cell yang paling kiri atas
' yang tadi sudah di set pada script (3)
' dengan total lebar kolom Merge Cell pada script (6)
rgCell.ColumnWidth = sMergeWidth

' (10) atur tinggi baris secara otomatis
rgCell.EntireRow.AutoFit

' (11) simpan nilai tinggi baris ke dalam variabel sRowHeight
sRowHeight = rgCell.RowHeight

' (12) kembalikan ukuran lebar kolom yang paling kiri atas
rgCell.ColumnWidth = sColWidth

' (13) kembalikan lagi cel yang diMerge
rgMerge.MergeCells = True

' (14) atur tinggi baris cel yang diMerge sesuai script (11)
rgMerge.RowHeight = sRowHeight

' (15) tampilkan hasil perubahan
Application.ScreenUpdating = True

' (16) akhir pengecekan Merge Cel
End If

' (17) akhir bekerja pada 1 kolom di sebelah kanan target
End With

' (18) akhir dari prosedur event
End Sub

Wassalam,

-Miss Jan Raisin-

Pada 20 Februari 2014 16.19, Liem Suliem <liemsuliem@yahoo.co.id> menulis:

>
>
> maaf mis ternyata datanya formatnya marge centre (3 cel jadi 1)
> makro sudah saya rubah
>
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Not Intersect(Target, Range("D11:D40")) Is Nothing Then
> Target.MergeCells = True
>
> Target.WrapText = True
> Target.EntireRow.AutoFit
> End If
> End Sub
>
>
> masih belum bisa.. mohon pecerahan..
>
>
>
>

Thu Feb 20, 2014 7:27 pm (PST) . Posted by:

"Bagus" bagus4bls

Wa'alaykum salam..

Alhamdulillah..

Semoga sehat selalu pak..
Aamiin..

Wassalam

~ Bagus ~

----- Original Message -----
From: Aliif Akbar
To: belajar-excel@yahoogroups.com
Sent: Friday, February 21, 2014 10:21 AM
Subject: Re: RE: [belajar-excel] Mari kita do'akan tuk kesembuhan Pak Alif Akbar

Assalamualaikum,
Selamat pagi rekan2 semua,

Terimakasih untuk doanya, alhamdulillah, dokter visit sudah mengijinkan saya pulang dari RS.
In syaa Allah siang ini bisa pulang dri RS.
Sekali lagi terimakasih.

Aliif Akbar
Sent from Yahoo Mail on Android


----------------------------------------------------------
From: Ahmad Syaifullah Lubis <syaifullah@hotmail.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: RE: [belajar-excel] Mari kita do'akan tuk kesembuhan Pak Alif Akbar
Sent: Fri, Feb 21, 2014 2:55:16 AM

Indahnya sebuah kebersamaan, meskipun saya tidak mengetahui sosok beliau, namun sebagai bentuk simpati saya pada millis/komunitas BeExcel, mohon titip salam saya untuk Pak Alif Akbar ya, semoga cepat sembuh.
salam,
ASL

----------------------------------------------------------
To: belajar-excel@yahoogroups.com
From: dwint.ruswanto@gmail.com
Date: Thu, 20 Feb 2014 21:13:37 +0700
Subject: Re: [belajar-excel] Mari kita do'akan tuk kesembuhan Pak Alif Akbar

Rekans,
Ada yang mau jenguk pak Aliif? Insya Allah saya bisa hari sabtu atau hari minggu.
Wassalam,
-dwint-

On Feb 20, 2014 9:05 PM, "indradjaja80an@yahoo.com" <indradjaja80an@yahoo.com> wrote:

Dear para member milis excel,

Mari kita do'akan tuk kesembuhan Pak Alif akbar yg sdh 2 hr ini sedang sakit thypus.

Sy mengetahuinya dr picpro WA beliau. Sptnya beliau dirawat di RS.

Dikirim dari Yahoo Mail pada Android


Thu Feb 20, 2014 7:31 pm (PST) . Posted by:

"Jan Raisin"

Wa'alaikumsalam wr. wb.,

Alhamdulillah pak Aliif sudah boleh pulang dari rumah sakit..
semoga cepat pulih dan segera bisa beraktifitas kembali pak.. Aamiin

Wassalam,

-Miss Jan Raisin-

Pada 21 Februari 2014 10.21, Aliif Akbar <aliif.akbar@yahoo.co.id> menulis:

>
>
> Assalamualaikum,
> Selamat pagi rekan2 semua,
>
> Terimakasih untuk doanya, alhamdulillah, dokter visit sudah mengijinkan
> saya pulang dari RS.
> In syaa Allah siang ini bisa pulang dri RS.
> Sekali lagi terimakasih.
>
> Aliif Akbar
> Sent from Yahoo Mail on Android<https://overview.mail.yahoo.com/mobile/?.src=Android>
>
> ------------------------------
> * From: * Ahmad Syaifullah Lubis <syaifullah@hotmail.com>;
> * To: * <belajar-excel@yahoogroups.com>;
> * Subject: * RE: [belajar-excel] Mari kita do'akan tuk kesembuhan Pak
> Alif Akbar
> * Sent: * Fri, Feb 21, 2014 2:55:16 AM
>
>
>
> Indahnya sebuah kebersamaan, meskipun saya tidak mengetahui sosok beliau,
> namun sebagai bentuk simpati saya pada millis/komunitas BeExcel, mohon
> titip salam saya untuk Pak Alif Akbar ya, semoga cepat sembuh.
> salam,
> ASL
>
> ------------------------------
> To: belajar-excel@yahoogroups.com
> From: dwint.ruswanto@gmail.com
> Date: Thu, 20 Feb 2014 21:13:37 +0700
> Subject: Re: [belajar-excel] Mari kita do'akan tuk kesembuhan Pak Alif
> Akbar
>
>
>
> Rekans,
> Ada yang mau jenguk pak Aliif? Insya Allah saya bisa hari sabtu atau hari
> minggu.
> Wassalam,
> -dwint-
> On Feb 20, 2014 9:05 PM, "indradjaja80an@yahoo.com" <
> indradjaja80an@yahoo.com> wrote:
>
>
>
> Dear para member milis excel,
>
> Mari kita do'akan tuk kesembuhan Pak Alif akbar yg sdh 2 hr ini sedang
> sakit thypus.
>
> Sy mengetahuinya dr picpro WA beliau. Sptnya beliau dirawat di RS.
>
> Dikirim dari Yahoo Mail pada Android<https://id.overview.mail.yahoo.com/mobile/?.src=Android>
>
>
>
>

Thu Feb 20, 2014 8:11 pm (PST) . Posted by:

"aksan kurdin" aksankurdin

mi cacingnya tok cer ya pa alif ?
;p

aksan kurdin

On 2/21/2014 10:31 AM, Jan Raisin wrote:
> Wa'alaikumsalam wr. wb.,
>
> Alhamdulillah pak Aliif sudah boleh pulang dari rumah sakit..
> semoga cepat pulih dan segera bisa beraktifitas kembali pak.. Aamiin
>
> Wassalam,
>
> -Miss Jan Raisin-
>
>
>
> Pada 21 Februari 2014 10.21, Aliif Akbar <aliif.akbar@yahoo.co.id
> <mailto:aliif.akbar@yahoo.co.id>> menulis:
>
> Assalamualaikum,
> Selamat pagi rekan2 semua,
>
> Terimakasih untuk doanya, alhamdulillah, dokter visit sudah
> mengijinkan saya pulang dari RS.
> In syaa Allah siang ini bisa pulang dri RS.
> Sekali lagi terimakasih.
>
> Aliif Akbar
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
>
> ----------------------------------------------------------
> *From: * Ahmad Syaifullah Lubis <syaifullah@hotmail.com
> <mailto:syaifullah@hotmail.com>>;
> *To: * <belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>>;
> *Subject: * RE: [belajar-excel] Mari kita do'akan tuk kesembuhan
> Pak Alif Akbar
> *Sent: * Fri, Feb 21, 2014 2:55:16 AM
>
> Indahnya sebuah kebersamaan, meskipun saya tidak mengetahui sosok
> beliau, namun sebagai bentuk simpati saya pada millis/komunitas
> BeExcel, mohon titip salam saya untuk Pak Alif Akbar ya, semoga
> cepat sembuh.
> salam,
> ASL
>
> ----------------------------------------------------------
> To: belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>
> From: dwint.ruswanto@gmail.com <mailto:dwint.ruswanto@gmail.com>
> Date: Thu, 20 Feb 2014 21:13:37 +0700
> Subject: Re: [belajar-excel] Mari kita do'akan tuk kesembuhan Pak
> Alif Akbar
>
>
> Rekans,
> Ada yang mau jenguk pak Aliif? Insya Allah saya bisa hari sabtu
> atau hari minggu.
> Wassalam,
> -dwint-
> On Feb 20, 2014 9:05 PM, "indradjaja80an@yahoo.com"
> <indradjaja80an@yahoo.com> wrote:
>
> Dear para member milis excel,
>
> Mari kita do'akan tuk kesembuhan Pak Alif akbar yg sdh 2 hr
> ini sedang sakit thypus.
>
> Sy mengetahuinya dr picpro WA beliau. Sptnya beliau dirawat di RS.
>
> Dikirim dari Yahoo Mail pada Android
> <https://id.overview.mail.yahoo.com/mobile/?.src=Android>
>
>
>
>

Thu Feb 20, 2014 8:15 pm (PST) . Posted by:

"Ahmad Syaifullah Lubis" syaifullah

Alhamdulillah, Pak Alif sudah diizinkan pulang dari RS. Mudah2an sehat2 selalu ya pak.
Wassalamua&#39;laikum wr wb.

ASL

To: belajar-excel@yahoogroups.com
From: aliif.akbar@yahoo.co.id
Date: Fri, 21 Feb 2014 11:21:31 +0800
Subject: Re: RE: [belajar-excel] Mari kita do'akan tuk kesembuhan Pak Alif Akbar

Assalamualaikum,

Selamat pagi rekan2 semua,

Terimakasih untuk doanya, alhamdulillah, dokter visit sudah mengijinkan saya pulang dari RS.

In syaa Allah siang ini bisa pulang dri RS.

Sekali lagi terimakasih.
Aliif Akbar

Sent from Yahoo Mail on Android




From:

Ahmad Syaifullah Lubis <syaifullah@hotmail.com>;

To:

<belajar-excel@yahoogroups.com>;

Subject:

RE: [belajar-excel] Mari kita do'akan tuk kesembuhan Pak Alif Akbar

Sent:

Fri, Feb 21, 2014 2:55:16 AM

Indahnya sebuah kebersamaan, meskipun saya tidak mengetahui sosok beliau, namun sebagai bentuk simpati saya pada millis/komunitas BeExcel, mohon titip salam saya untuk Pak Alif Akbar ya, semoga cepat sembuh.salam,ASLTo: belajar-excel@yahoogroups.comFrom: dwint.ruswanto@gmail.comDate: Thu, 20 Feb 2014 21:13:37 +0700Subject: Re: [belajar-excel] Mari kita do'akan tuk kesembuhan Pak Alif Akbar

Rekans,
Ada yang mau jenguk pak Aliif? Insya Allah saya bisa hari sabtu atau hari minggu.
Wassalam,
-dwint-
On Feb 20, 2014 9:05 PM, "indradjaja80an@yahoo.com" <indradjaja80an@yahoo.com> wrote:

Dear para member milis excel,
Mari kita do'akan tuk kesembuhan Pak Alif akbar yg sdh 2 hr ini sedang sakit thypus.
Sy mengetahuinya dr picpro WA beliau. Sptnya beliau dirawat di RS.
Dikirim dari Yahoo Mail pada Android



Thu Feb 20, 2014 9:57 pm (PST) . Posted by:

"Darman Maulani"

Semoga cepat sembuh

Pada tanggal 20/02/14, aksan kurdin <aksan.kurdin@gmail.com> menulis:
> mi cacingnya tok cer ya pa alif ?
> ;p
>
>
> aksan kurdin
>
> On 2/21/2014 10:31 AM, Jan Raisin wrote:
>> Wa'alaikumsalam wr. wb.,
>>
>> Alhamdulillah pak Aliif sudah boleh pulang dari rumah sakit..
>> semoga cepat pulih dan segera bisa beraktifitas kembali pak.. Aamiin
>>
>> Wassalam,
>>
>> -Miss Jan Raisin-
>>
>>
>>
>> Pada 21 Februari 2014 10.21, Aliif Akbar <aliif.akbar@yahoo.co.id
>> <mailto:aliif.akbar@yahoo.co.id>> menulis:
>>
>> Assalamualaikum,
>> Selamat pagi rekan2 semua,
>>
>> Terimakasih untuk doanya, alhamdulillah, dokter visit sudah
>> mengijinkan saya pulang dari RS.
>> In syaa Allah siang ini bisa pulang dri RS.
>> Sekali lagi terimakasih.
>>
>> Aliif Akbar
>> Sent from Yahoo Mail on Android
>> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>>
>>
>>
>> ----------------------------------------------------------
>> *From: * Ahmad Syaifullah Lubis <syaifullah@hotmail.com
>> <mailto:syaifullah@hotmail.com>>;
>> *To: * <belajar-excel@yahoogroups.com
>> <mailto:belajar-excel@yahoogroups.com>>;
>> *Subject: * RE: [belajar-excel] Mari kita do'akan tuk kesembuhan
>> Pak Alif Akbar
>> *Sent: * Fri, Feb 21, 2014 2:55:16 AM
>>
>> Indahnya sebuah kebersamaan, meskipun saya tidak mengetahui sosok
>> beliau, namun sebagai bentuk simpati saya pada millis/komunitas
>> BeExcel, mohon titip salam saya untuk Pak Alif Akbar ya, semoga
>> cepat sembuh.
>> salam,
>> ASL
>>
>>
>> ----------------------------------------------------------
>> To: belajar-excel@yahoogroups.com
>> <mailto:belajar-excel@yahoogroups.com>
>> From: dwint.ruswanto@gmail.com <mailto:dwint.ruswanto@gmail.com>
>> Date: Thu, 20 Feb 2014 21:13:37 +0700
>> Subject: Re: [belajar-excel] Mari kita do'akan tuk kesembuhan Pak
>> Alif Akbar
>>
>>
>> Rekans,
>> Ada yang mau jenguk pak Aliif? Insya Allah saya bisa hari sabtu
>> atau hari minggu.
>> Wassalam,
>> -dwint-
>> On Feb 20, 2014 9:05 PM, "indradjaja80an@yahoo.com"
>> <indradjaja80an@yahoo.com> wrote:
>>
>> Dear para member milis excel,
>>
>> Mari kita do'akan tuk kesembuhan Pak Alif akbar yg sdh 2 hr
>> ini sedang sakit thypus.
>>
>> Sy mengetahuinya dr picpro WA beliau. Sptnya beliau dirawat di
>> RS.
>>
>> Dikirim dari Yahoo Mail pada Android
>> <https://id.overview.mail.yahoo.com/mobile/?.src=Android>
>>
>>
>>
>>
>
>

Thu Feb 20, 2014 10:41 pm (PST) . Posted by:

"Komarudin Samsudin"

Moga bisa beraktifitas kembali seperti biasa

Pada tanggal 20/02/14, Darman Maulani <darmanmaulani@gmail.com> menulis:
> Semoga cepat sembuh
>
> Pada tanggal 20/02/14, aksan kurdin <aksan.kurdin@gmail.com> menulis:
>> mi cacingnya tok cer ya pa alif ?
>> ;p
>>
>>
>> aksan kurdin
>>
>> On 2/21/2014 10:31 AM, Jan Raisin wrote:
>>> Wa'alaikumsalam wr. wb.,
>>>
>>> Alhamdulillah pak Aliif sudah boleh pulang dari rumah sakit..
>>> semoga cepat pulih dan segera bisa beraktifitas kembali pak.. Aamiin
>>>
>>> Wassalam,
>>>
>>> -Miss Jan Raisin-
>>>
>>>
>>>
>>> Pada 21 Februari 2014 10.21, Aliif Akbar <aliif.akbar@yahoo.co.id
>>> <mailto:aliif.akbar@yahoo.co.id>> menulis:
>>>
>>> Assalamualaikum,
>>> Selamat pagi rekan2 semua,
>>>
>>> Terimakasih untuk doanya, alhamdulillah, dokter visit sudah
>>> mengijinkan saya pulang dari RS.
>>> In syaa Allah siang ini bisa pulang dri RS.
>>> Sekali lagi terimakasih.
>>>
>>> Aliif Akbar
>>> Sent from Yahoo Mail on Android
>>> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>>>
>>>
>>>
>>> ----------------------------------------------------------
>>> *From: * Ahmad Syaifullah Lubis <syaifullah@hotmail.com
>>> <mailto:syaifullah@hotmail.com>>;
>>> *To: * <belajar-excel@yahoogroups.com
>>> <mailto:belajar-excel@yahoogroups.com>>;
>>> *Subject: * RE: [belajar-excel] Mari kita do'akan tuk kesembuhan
>>> Pak Alif Akbar
>>> *Sent: * Fri, Feb 21, 2014 2:55:16 AM
>>>
>>> Indahnya sebuah kebersamaan, meskipun saya tidak mengetahui sosok
>>> beliau, namun sebagai bentuk simpati saya pada millis/komunitas
>>> BeExcel, mohon titip salam saya untuk Pak Alif Akbar ya, semoga
>>> cepat sembuh.
>>> salam,
>>> ASL
>>>
>>>
>>> ----------------------------------------------------------
>>> To: belajar-excel@yahoogroups.com
>>> <mailto:belajar-excel@yahoogroups.com>
>>> From: dwint.ruswanto@gmail.com <mailto:dwint.ruswanto@gmail.com>
>>> Date: Thu, 20 Feb 2014 21:13:37 +0700
>>> Subject: Re: [belajar-excel] Mari kita do'akan tuk kesembuhan Pak
>>> Alif Akbar
>>>
>>>
>>> Rekans,
>>> Ada yang mau jenguk pak Aliif? Insya Allah saya bisa hari sabtu
>>> atau hari minggu.
>>> Wassalam,
>>> -dwint-
>>> On Feb 20, 2014 9:05 PM, "indradjaja80an@yahoo.com"
>>> <indradjaja80an@yahoo.com> wrote:
>>>
>>> Dear para member milis excel,
>>>
>>> Mari kita do'akan tuk kesembuhan Pak Alif akbar yg sdh 2 hr
>>> ini sedang sakit thypus.
>>>
>>> Sy mengetahuinya dr picpro WA beliau. Sptnya beliau dirawat di
>>> RS.
>>>
>>> Dikirim dari Yahoo Mail pada Android
>>> <https://id.overview.mail.yahoo.com/mobile/?.src=Android>
>>>
>>>
>>>
>>>
>>
>>
>

Thu Feb 20, 2014 7:32 pm (PST) . Posted by:

"ChordJR" indra_gustian

Mohon maaf karena belum ada jawaban saya angkat kembali topik
permasalahan yang saya kerjakan...

Berikut contoh file yang terjadi error pada VBA...

Mohon bantuan dari pada master untuk coding macro yang sudah ada sebelum
saya bekerja,karena ilmu saya yang masih awam mohon di berikan coding
yang tepat...karena saya mencoba untuk membuat file baru dengan bagan
yang sama tapi tidak bisa bekerja...saya rasa mungkin ada kekurangan
pada macro ini...

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 2 And Target.Column = 4 Then
'calculate criteria cell in case calculation mode is manual
Sheets("DATA").Range("Criteria").Calculate
Worksheets("DATA").Range("database") _
.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("DATA").Range("criteria"), _
CopyToRange:=Range("A8:Ay8"), Unique:=False
End If
End Sub

Pada sheet Selected Data,menggunakan workbook change...pada saat merubah
Job Number otomatis akan mengambil data dari Database

Pertanyaan saya :
Apa yang membuat macro ini error,sedangkan tanpa merubah format dan
isi"nya pada file sebelumnya bisa running??Mohon di jelaskan juga
bagaimana prosesnya...

Salam,

Indra

On 2/14/2014 5:43 PM, ChordJR wrote:
>
> Saya lupa menjelaskan menjalankan prosedurnya :
> Pada sheet Selected Data,menggunakan workbook change...pada saat
> merubah Job Number otomatis akan mengambil data dari Database
>
> Salam,
>
> Indra
>
> On 2/14/2014 3:42 PM, Mr. Kid wrote:
>> Hai Indra,
>>
>> Boleh ndak kalo BeExceller diberi penjelasan yang lebih detil tentang
>> datanya ada dimana, mau diapakan, hasilnya seperti apa (minimal hasil
>> kerja manualnya), yang sudah dicoba apa saja, script tersebut
>> rencananya buat apa dan segalanya lah.
>>
>> File lampiran akan membantu. Cukup contoh data, ndak perlu seluruh
>> data kerja, yang penting mewakili kasus. Jangan sampai lebih dari
>> 250KB ya...
>>
>> Penjelasan singkatnya bisa diletakkan di body email. Penjelasan detil
>> dalam workbook yang dilampirkan akan lebih baik lagi.
>>
>> Kalau ndak ada keterangan lebih lanjut, bisa-bisa ndak akan ada yang
>> reply nanti...
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>>
>>
>> 2014-02-13 10:29 GMT+07:00 ChordJR <vendeta_06@yahoo.co.id
>> <mailto:vendeta_06@yahoo.co.id>>:
>>
>> Assalamualaikum Wr. Wb.
>>
>> Minta bantuan dari pada master untuk coding macro yang sudah ada
>> sebelum
>> saya bekerja,karena ilmu saya yang masih awam mohon di berikan
>> coding
>> yang tepat...karena saya mencoba untuk membuat file baru dengan
>> bagan
>> yang sama tapi tidak bisa bekerja...saya rasa mungkin ada kekurangan
>> pada macro ini...
>>
>> Option Explicit
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> If Target.Row = 2 And Target.Column = 4 Then
>> 'calculate criteria cell in case calculation mode is manual
>> Sheets("DATA").Range("Criteria").Calculate
>> Worksheets("DATA").Range("database") _
>> .AdvancedFilter Action:=xlFilterCopy, _
>> CriteriaRange:=Sheets("DATA").Range("criteria"), _
>> CopyToRange:=Range("A8:Ay8"), Unique:=False
>> End If
>> End Sub
>>
>> *Untuk Name Range pada sheet Data :
>> criteria=DATA!$B$1:$B$2
>> database=DATA!$B$4:$DJ$30000
>>
>> Saya rasa dengan penjelasan singkat ini dapat di mengerti oleh para
>> master...karena untuk mengupload file terlalu besar sizenya...
>>
>> Wassalam,
>>
>> Indra
>>
>> ----- Mods -----
>> Sample data dengan ukuran <= 250 KB akan lebih memudahkan calon
>> penanggap
>> silakan kirim sample workbook, tidak harus data asli, jumlah data
>> tidak perlu banyak
>> yang penting mewakili kasus yang ditanyakan.
>>
>> Berikan juga keterangan, apa2 saja yang diinginkan termasuk
>> contoh hasil manual
>> ____________
>>
>>
>
>

Thu Feb 20, 2014 8:15 pm (PST) . Posted by:

agungdotcom13

Dear All Master, bagaimana Rumus Ambil Datanya Pada 2 Sheets, Mungkin Bisa pakai Macro VBA agar Form Cetak Terisi Sesuai Data,Periode 1 dan 2,
Mohon Maaf Jika sya Posting hanya bisa memberi masalah,Sekalian Saya Belajar, , ,






Thanks,B'Regards
-Agunk-

Thu Feb 20, 2014 10:24 pm (PST) . Posted by:

"aisyah zahrah"

Assalamu`alaikum Dear Master Excel.... saya masih awam mengenai VBA,jadi
saya mohon bantuan para master untuk menyelesaikan kasus saya ini mengenai
perkalian/pembagian di VBA

Thu Feb 20, 2014 11:02 pm (PST) . Posted by:

"Andy Ajhis Ramadhan" andy_ajhis37

Hay,
Aisyah...

Menggunakan Cinta maksudnya CInt. dan kalau checkboxya di visible = false aja ya ^^

Berikut terlampir penyelesaiannya...
Hehe ini juga diberikan oleh Miss Jan Raisin penjelasan tentang CInt'nya. ^^

Salam,
Andy

Pada Jumat, 21 Februari 2014 13:24, aisyah zahrah <aisyahzahrah00@gmail.com> menulis:

 
Assalamu`alaikum
Dear Master Excel….
saya masih awam mengenai VBA,jadi saya mohon bantuan para master untuk menyelesaikan kasus saya ini
mengenai perkalian/pembagian di VBA

Thu Feb 20, 2014 11:01 pm (PST) . Posted by:

"Ahmad Syaifullah Lubis" syaifullah



Mr De Premor,
saya jalankan macronya,
tetapi ada pesan error "Sh.Copy Workbooks(StrTemp).Sheets(Rekap.Sheets.Count)"
terima kasih,
ASL

To: belajar-excel@yahoogroups.com
From: de@premor.net
Date: Fri, 21 Feb 2014 10:22:06 +0700
Subject: Re: [belajar-excel] copy sheet dari beberapa file lain ke file utama dengan masing2 sheet yang berbeda. [1 Attachment]

Silahkan dicoba lagi, maaf ada yang kurang, tadi malem sambil
ngantuk2 tak cobain sih bisa, kok pagi ini nga bisa juga, hhehhehe

[dp]

On 21-02-2014 9:43, Ahmad Syaifullah
Lubis wrote:

Dear Mr De Premor,

lagi pada happy2 nih.

saya jalankan macronya sepertinya gak ada terjadi
penggabungan datanya. cuman message "Selesai" yang muncul.

file yang ada tetap file1.xlsx, file2.xlsx, file3.xlsx dan
Gabungan.xlsm

padahal file target menjadi file_gabung_pro1,
file_gabung_pro2, file_gabung_pro3, file_gabung_pro4 dst
sesuai dengan sheet2 dari file sumber yang ada.

supaya gak mis macro, saya detailkan aja ya.

1. file sumber = file1.xlsx, file2.xlsx, file3.xlsx
(sheetnya rata2 terdiri dari pro1,pro2,pro3 dan terkadang
ada file yang mempunyai sheet pro4)

2. target yang diharapkan = file_gabung_pro1 yang akan
menampung sheet-sheet yang diambil dari file1.xlsx sampai
dengan file3.xlsx khusus untuk sheet pro1 saja. sehingga
sheetnya terdiri dari pro1,pro1,pro1,pro1. (tentu ini
tidak bisa dieksekusi oleh excel, karena nama-nama
sheetnya sama, pastilah excel akan membentuk sheet
pro1,pro1(2),pro1(3) dan pro1(4).

begitulah proses pembentukan file_gabung_pro1 sampai
dengan sheet yang sama dicopy. Demikian juga proses untuk
file_gabung_pro2 s/d file_gabung_pro4.xlsx.

mudah2n dapat dimengerti ilustrasi saya ini.

terima kasih Mr De_Premor.

ASL

To: belajar-excel@yahoogroups.com

From: de@premor.net

Date: Fri, 21 Feb 2014 01:52:21 +0700

Subject: Re: [belajar-excel] copy sheet dari beberapa
file lain ke file utama dengan masing2 sheet yang
berbeda.

Ada yang manggil2 sepertinya
:D

Kabarnya datar-datar aja mas

Ni lagi mojok bersama Diajeng php, Neng
JavaScript, Ayunda CSS dan Adinda MySQL :x

On 20-02-2014
13:06, Ahmad Syaifullah Lubis wrote:

Udah lama nih gak dapat solusi
dari Mr De Premor ....

Gimana kabarnya ya Mr De Premor...

mohon dibantu dibantu ya...

salam hormat,

ASL.

From: syaifullah@hotmail.com

To: belajar-excel@yahoogroups.com

Date: Mon, 17 Feb 2014 09:57:59 +0000

Subject: RE: [belajar-excel] copy sheet
dari beberapa file lain ke file utama
dengan masing2 sheet yang berbeda. [1
Attachment]

Dear Mr HK,

terima kasih sangat membantu macro
file gabungnya.

saya sudah jalankan macronya.
file2 file_1.xlsx, file_2.xlsx dan
file_3.xlsx yang memiliki sheet
pro1, pro2, dan pro3 telah
digabungkan ke file
file_gabung.xlsx. ke masing2 sheet
yang sama dan berjalan saya
jalankan macronya.

sepertinya macro akan semakin
kompleks bila kriterianya melihat
email saya yang kemarin, yang mana
dalam file_gabung.xlsx tsb
dicreate menjadi
file_gabung_pro1.xlsx yang akan
menampung nama2 sheet pro1 yang
ada pada file_1.xlsx, file_2.xlsx
dan file _3.xlsx. tidak
digabungkan sheetnya tetapi
dipindah ke sheet masing2. mungkin
kalau copy manualnya akan menjadi
pro1, pro1(2),pro1(3).

sheet pro1 berasal dari
file_1.xlsx, pro1(2) berasal dari
file_2.xlsx dan pro1(3) berasal
dari file_3.xlsx.

mudah2an Mr HK tidak kewalahan
mencarikan solusi macronya.
terlampir file2 dimaksud.

dari semua macro2 yang Mr HK
berikan semua sangat dapat saya
terapkan pada tugas2 saya yang
bekerja di bagian data akuntansi.
sangat membantu.

terima kasih Mr HK,

ASL.

To: belajar-excel@yahoogroups.com

From: hendrikkarnadi@yahoo.com

Date: Sat, 15 Feb 2014 09:48:17
-0800

Subject: Re: [belajar-excel]
copy sheet dari beberapa file
lain ke file utama dengan
masing2 sheet yang berbeda. [1
Attachment]

Pak ASL,
Berikut

adalah contoh
modifikasi dari file
yang lalu masing2
dengan 3 sheet,
kecuali File_Gabung
yang mempunyai
tambahan Sheet
"Prosesdata&quot;.


Untuk

menjalankannya coba
copy folder
HK_Belajar_Excel ke
Directory D:\.
Jika

Direktori D:\ tidak
ada dan folder mau
dicopy ke Directory
E:\ atau F:\ maka
ganti string folder
yang ada pada File_Gabung Sheet
"Prosesdata&quot;
Range("C3") dari D:\
menjadi E:\ atau F:\


Kemudian

buka File_Gabung dan
lakukan ke tiga
langkah dalam tombol.


Coba

ganti Nama2 Sheet pada
masing2 file, mis.
Sheet1 menjadi Pro1,
dst.nya (sheet menjadi
Pro) dan update macro
pada VBE Sheet
dari

Sheets("Sheet"
& i).Select
menjadi Sheets("Pro"
& i).Select

Sebagai

catatan, nama2 sheet
pada File_Gabung (kecuali sheet "Prosedata&quot;) harus sama
dengan nama2 sheet
pada file yang
digabung, tetapi
nama2 file yang
digabung (.xlsx)
boleh berbeda-beda (tidak harus File_1.xlsx,

File_2.xlsx dan
File_3.xlsx),

sedangkan Range dari
tiap2 Sheet yang
digabung selalu
dimulai dari
Range("A1") dan
tidak ada sel
kosong. Jika tidak,
maka perlu dilakukan
penyesuaian pada
bagian sel yang
dicopy (Range("A1").CurrentRegion.Select)


Terakhir

sila coba untuk 12
bulan.


Semoga

berhasil.


Salam,
HK



On
Saturday, 15
February 2014,
14:25, Ahmad
Syaifullah
Lubis <syaifullah@hotmail.com>
wrote:

Dear

BeExceller,
Mohon bantuan
macronya atas
masalah saya
ini.
saya punya 4
file excel
(jan.xlsx,
feb.xlsx,
mar.xlsx dan
apr.xlsx ...
ini merupakan
data transaksi
per bulannya).
masing-masing
file tsb
mempunyai 4
sheet
(pro1,pro2,pro3,
dan pro4 ),
jadi file
jan.xlsx s/d
apr.xlsx tsb
sheetnya bisa
sama, kadang
gak mesti
setiap
bulannya
sheetnya sama
semua.
bagaimana
macronya
mengcopy sheet
yang sama dari
4 file tsb ke
file utama
(misal menjadi
file
utamapro1.xlsx,
utamapro2.xlsx,

utamapro3.xlsx,

dan
utamapro4.xlsx).
maka
utamapro1.xlsx
akan berisikan
sheet
pro1(fiel dari
jan),
pro1(file dari
feb),
pro1(file dari
mar) dan
pro1(file dari
apr), begitu
seterusnya
untuk file
utamapro yang
lainnya.

Mudah2an
rekan2
BeExceller
bermurah hati
untuk
membuatkan
macronya untuk
saya.

terima kasih,
ASL








Thu Feb 20, 2014 11:25 pm (PST) . Posted by:

"De Premor" de.premor

Kalau line yang error diganti menjadi

*Sh.Copy after:=Workbooks(StrTemp).Sheets(Rekap.Worksheets.Count)*
atau
*Sh.Copy after:=Rekap.Sheets(Rekap.Worksheets.Count)*
atau
*Sh.Copy after:=Rekap.Sheets(Rekap.Sheets.Count)*

bisa ga ya ? kalau di sini bisa semua

[dp]

On 21-02-2014 13:45, Ahmad Syaifullah Lubis wrote:
>
> Mr De Premor,
> saya jalankan macronya,
> tetapi ada pesan error "Sh.Copy
> Workbooks(StrTemp).Sheets(Rekap.Sheets.Count)"
> terima kasih,
> ASL
>
> ----------------------------------------------------------
> To: belajar-excel@yahoogroups.com
> From: de@premor.net
> Date: Fri, 21 Feb 2014 10:22:06 +0700
> Subject: Re: [belajar-excel] copy sheet dari beberapa file lain ke
> file utama dengan masing2 sheet yang berbeda. [1 Attachment]
>
> Silahkan dicoba lagi, maaf ada yang kurang, tadi malem sambil ngantuk2
> tak cobain sih bisa, kok pagi ini nga bisa juga, hhehhehe
>
> [dp]
>
>
> On 21-02-2014 9:43, Ahmad Syaifullah Lubis wrote:
>
>
> Dear Mr De Premor,
> lagi pada happy2 nih.
> saya jalankan macronya sepertinya gak ada terjadi penggabungan
> datanya. cuman message "Selesai" yang muncul.
> file yang ada tetap file1.xlsx, file2.xlsx, file3.xlsx dan
> Gabungan.xlsm
> padahal file target menjadi file_gabung_pro1, file_gabung_pro2,
> file_gabung_pro3, file_gabung_pro4 dst sesuai dengan sheet2 dari
> file sumber yang ada.
> supaya gak mis macro, saya detailkan aja ya.
> 1. file sumber = file1.xlsx, file2.xlsx, file3.xlsx (sheetnya
> rata2 terdiri dari pro1,pro2,pro3 dan terkadang ada file yang
> mempunyai sheet pro4)
> 2. target yang diharapkan = file_gabung_pro1 yang akan menampung
> sheet-sheet yang diambil dari file1.xlsx sampai dengan file3.xlsx
> khusus untuk sheet pro1 saja. sehingga sheetnya terdiri dari
> pro1,pro1,pro1,pro1. (tentu ini tidak bisa dieksekusi oleh excel,
> karena nama-nama sheetnya sama, pastilah excel akan membentuk
> sheet pro1,pro1(2),pro1(3) dan pro1(4).
> begitulah proses pembentukan file_gabung_pro1 sampai dengan sheet
> yang sama dicopy. Demikian juga proses untuk file_gabung_pro2 s/d
> file_gabung_pro4.xlsx.
> mudah2n dapat dimengerti ilustrasi saya ini.
> terima kasih Mr De_Premor.
> ASL
>
>
>
> ----------------------------------------------------------
> To: belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>
> From: de@premor.net <mailto:de@premor.net>
> Date: Fri, 21 Feb 2014 01:52:21 +0700
> Subject: Re: [belajar-excel] copy sheet dari beberapa file lain ke
> file utama dengan masing2 sheet yang berbeda.
>
> Ada yang manggil2 sepertinya :D
> Kabarnya datar-datar aja mas
> Ni lagi mojok bersama Diajeng php, Neng JavaScript, Ayunda CSS dan
> Adinda MySQL**:x*
> **
> *
> On 20-02-2014 13:06, Ahmad Syaifullah Lubis wrote:
>
>
> Udah lama nih gak dapat solusi dari Mr De Premor ....
> Gimana kabarnya ya Mr De Premor...
> mohon dibantu dibantu ya...
> salam hormat,
>
> ASL.
>
> ----------------------------------------------------------
> From: syaifullah@hotmail.com <mailto:syaifullah@hotmail.com>
> To: belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>
> Date: Mon, 17 Feb 2014 09:57:59 +0000
> Subject: RE: [belajar-excel] copy sheet dari beberapa file
> lain ke file utama dengan masing2 sheet yang berbeda. [1
> Attachment]
>
>
> Dear Mr HK,
> terima kasih sangat membantu macro file gabungnya.
> saya sudah jalankan macronya. file2 file_1.xlsx, file_2.xlsx
> dan file_3.xlsx yang memiliki sheet pro1, pro2, dan pro3 telah
> digabungkan ke file file_gabung.xlsx. ke masing2 sheet yang
> sama dan berjalan saya jalankan macronya.
>
> sepertinya macro akan semakin kompleks bila kriterianya
> melihat email saya yang kemarin, yang mana dalam
> file_gabung.xlsx tsb dicreate menjadi file_gabung_pro1.xlsx
> yang akan menampung nama2 sheet pro1 yang ada pada
> file_1.xlsx, file_2.xlsx dan file _3.xlsx. tidak digabungkan
> sheetnya tetapi dipindah ke sheet masing2. mungkin kalau copy
> manualnya akan menjadi pro1, pro1(2),pro1(3).
> sheet pro1 berasal dari file_1.xlsx, pro1(2) berasal dari
> file_2.xlsx dan pro1(3) berasal dari file_3.xlsx.
>
> mudah2an Mr HK tidak kewalahan mencarikan solusi macronya.
> terlampir file2 dimaksud.
>
> dari semua macro2 yang Mr HK berikan semua sangat dapat saya
> terapkan pada tugas2 saya yang bekerja di bagian data
> akuntansi. sangat membantu.
>
> terima kasih Mr HK,
> ASL.
>
>
>
>
>
>
> ----------------------------------------------------------
> To: belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>
> From: hendrikkarnadi@yahoo.com <mailto:hendrikkarnadi@yahoo.com>
> Date: Sat, 15 Feb 2014 09:48:17 -0800
> Subject: Re: [belajar-excel] copy sheet dari beberapa file
> lain ke file utama dengan masing2 sheet yang berbeda. [1
> Attachment]
>
>
> Pak ASL,
> Berikut adalah contoh modifikasi dari file yang lalu masing2
> dengan 3 sheet, kecuali File_Gabung yang mempunyai tambahan
> Sheet "Prosesdata&quot;.
>
> Untuk menjalankannya coba copy folder HK_Belajar_Excel ke
> Directory D:\.
> Jika Direktori D:\ tidak ada dan folder mau dicopy ke
> Directory E:\ atau F:\ maka ganti string folder yang ada pada
> File_Gabung Sheet "Prosesdata&quot; Range("C3") dari D:\ menjadi
> E:\ atau F:\
>
> Kemudian buka File_Gabung dan lakukan ke tiga langkah dalam
> tombol.
>
> Coba ganti Nama2 Sheet pada masing2 file, mis. Sheet1 menjadi
> Pro1, dst.nya (sheet menjadi Pro) dan update macro pada VBE Sheet
> dari Sheets("Sheet" & i).Select
> menjadi Sheets("Pro" & i).Select
> Sebagai catatan, nama2 sheet pada File_Gabung (kecuali sheet
> "Prosedata&quot;) harus sama dengan nama2 sheet pada file yang
> digabung, tetapi nama2 file yang digabung (.xlsx) boleh
> berbeda-beda (tidak harus File_1.xlsx, File_2.xlsx dan
> File_3.xlsx), sedangkan Range dari tiap2 Sheet yang digabung
> selalu dimulai dari Range("A1") dan tidak ada sel kosong. Jika
> tidak, maka perlu dilakukan penyesuaian pada bagian sel yang
> dicopy (Range("A1").CurrentRegion.Select)
>
> Terakhir sila coba untuk 12 bulan.
>
> Semoga berhasil.
>
> Salam,
> HK
>
>
> On Saturday, 15 February 2014, 14:25, Ahmad Syaifullah Lubis
> <syaifullah@hotmail.com> <mailto:syaifullah@hotmail.com> wrote:
> Dear BeExceller,
> Mohon bantuan macronya atas masalah saya ini.
> saya punya 4 file excel (jan.xlsx, feb.xlsx, mar.xlsx dan
> apr.xlsx ... ini merupakan data transaksi per bulannya).
> masing-masing file tsb mempunyai 4 sheet (pro1,pro2,pro3, dan
> pro4 ), jadi file jan.xlsx s/d apr.xlsx tsb sheetnya bisa
> sama, kadang gak mesti setiap bulannya sheetnya sama semua.
> bagaimana macronya mengcopy sheet yang sama dari 4 file tsb ke
> file utama (misal menjadi file utamapro1.xlsx, utamapro2.xlsx,
> utamapro3.xlsx, dan utamapro4.xlsx).
> maka utamapro1.xlsx akan berisikan sheet pro1(fiel dari jan),
> pro1(file dari feb), pro1(file dari mar) dan pro1(file dari
> apr), begitu seterusnya untuk file utamapro yang lainnya.
>
> Mudah2an rekan2 BeExceller bermurah hati untuk membuatkan
> macronya untuk saya.
>
> terima kasih,
> ASL
>
>
>
>
>
>
>
>
>

Thu Feb 20, 2014 11:09 pm (PST) . Posted by:

agungdotcom13

Dear Mas Bagus, Tadi Habis Balas Email tak otak - atik sendiri ketmu mas,
nih mau tanya lagi jika data yang kosong diganti dengan angka nol (0), bisa gak mas & Rumusnya jadi berubah gimana??




Thanks,B'Regards
-Agunk-

Thu Feb 20, 2014 11:40 pm (PST) . Posted by:

"Bagus" bagus4bls

Coba begini:

=IF(H2="",0,IF(ROUNDDOWN(1*(H2-F2)*24,1)<0.5,0,IF(1*H2>0.77,ROUNDDOWN(1*(H2-F2)*24,1)-0.5,ROUNDDOWN(1*(H2-F2)*24,1))))

Wassalam

~ Bagus ~

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of agungdotcom13@yahoo.com
Sent: Friday, February 21, 2014 1:33 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] RE: Hitung Lembur & HK

Dear Mas Bagus,

Tadi Habis Balas Email tak otak - atik sendiri ketmu mas,

nih mau tanya lagi jika data yang kosong diganti dengan angka nol (0), bisa gak mas & Rumusnya jadi berubah gimana??

Thanks,B'Regards

-Agunk-

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