3 New Messages
Digest #2520
Messages
Sat Sep 7, 2013 7:20 pm (PDT) . Posted by:
hartini_80
Begitu ya pak, berarti emang dari sononya perhitungan excel begitu ya, baiklah jika begitu, saya tambahkan +1 agar bisa sesuai.
Terima kasih pak ghozi atas informasi dan bantuannya
Salam
Tiny
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Sun, 8 Sep 2013 10:09:38
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Bls: Bls: Bls: [belajar-excel] Menentukan hari perjalanan
kalau begitu yang diinginkan memang hasil akhir dari pengurangan harus ditambah dengan
wassalam
Ghozi Alkatiri
________________________________
Dari: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 8 September 2013 8:14
Judul: Re: Bls: Bls: [belajar-excel] Menentukan hari perjalanan
Benar pak ghozi rumus yg diberikan telah sesuai dgn yg diinginkan, tetapi saya baru lihat ternyata antara pengurangan tsb tidak sesuai dgn jumlah hari yg sebenarnya, 1 Feb - 10 Feb, bukannya itu adalah 10 hari ya pak, mengapa jika dikurangkan menggunakan excel jadi 9 hari ya, saya juga bingung pak.
Sedangkan yg saya butuhkan jumlah hari aktual yaitu 10 hari, apakah di belakang rumus hanya perlu ditambahkan angka +1 saja atau bisa digunakan rumus lain
Demikian yg saya maksud pak, maaf jika penjelasan saya kurang berkenan
Terima kasih
Salam
Tiny
Powered by Telkomsel BlackBerry®
________________________________
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Sun, 8 Sep 2013 09:12:30 +0800 (SGT)
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Bls: Bls: [belajar-excel] Menentukan hari perjalanan
rumus yang kami berikan itu berdasarkan hasil manual yang anda inginkan, dan sudah sesuai dengan hasil yang diharapakan. kalau ada yang kurang pas coba anda tambahkan lagi contoh lain dan hasil yang anda inginkan .
wasalam
Ghozi Alkatiri
________________________________
Dari: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 8 September 2013 7:55
Judul: Re: Bls: [belajar-excel] Menentukan hari perjalanan
Pak Ghozi, sudah saya coba, tetapi hari perjalanan jadi berkurang satu, tdk berdasarkan jumlah hari perjalanan aktual
Mohon pencerahan
Salam
Tiny
Powered by Telkomsel BlackBerry®
________________________________
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Sun, 8 Sep 2013 08:45:25 +0800 (SGT)
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Menentukan hari perjalanan
tulis di E2
=MAX(A2:D2)-A2
copy ke bawah
wassalam
Ghozi Alkatiri
________________________________
Dari: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Sabtu, 7 September 2013 14:21
Judul: [belajar-excel] Menentukan hari perjalanan
Dear All,
Saya ingin menentukan banyaknya hari perjalanan, jika menggunakan pengurangan biasa, maka hasilnya bisa #name,
Bagaimana formulanya agar jika kolom yg dimaksud kosong maka bisa menghitung dari kolom yg ada isinya,
Penjelasan detail ada di attach
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
Terima kasih pak ghozi atas informasi dan bantuannya
Salam
Tiny
Powered by Telkomsel BlackBerry®
-----Original Message-----
From: ghozi alkatiri <ghozialkatiri@
Sender: belajar-excel@
Date: Sun, 8 Sep 2013 10:09:38
To: belajar-excel@
Reply-To: belajar-excel@
Subject: Bls: Bls: Bls: [belajar-excel] Menentukan hari perjalanan
kalau begitu yang diinginkan memang hasil akhir dari pengurangan harus ditambah dengan
wassalam
Ghozi Alkatiri
____________
Dari: "hartini_80@yahoo.
Kepada: belajar-excel@
Dikirim: Minggu, 8 September 2013 8:14
Judul: Re: Bls: Bls: [belajar-excel] Menentukan hari perjalanan
Benar pak ghozi rumus yg diberikan telah sesuai dgn yg diinginkan, tetapi saya baru lihat ternyata antara pengurangan tsb tidak sesuai dgn jumlah hari yg sebenarnya, 1 Feb - 10 Feb, bukannya itu adalah 10 hari ya pak, mengapa jika dikurangkan menggunakan excel jadi 9 hari ya, saya juga bingung pak.
Sedangkan yg saya butuhkan jumlah hari aktual yaitu 10 hari, apakah di belakang rumus hanya perlu ditambahkan angka +1 saja atau bisa digunakan rumus lain
Demikian yg saya maksud pak, maaf jika penjelasan saya kurang berkenan
Terima kasih
Salam
Tiny
Powered by Telkomsel BlackBerry®
____________
From: ghozi alkatiri <ghozialkatiri@
Sender: belajar-excel@
Date: Sun, 8 Sep 2013 09:12:30 +0800 (SGT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: Bls: Bls: [belajar-excel] Menentukan hari perjalanan
rumus yang kami berikan itu berdasarkan hasil manual yang anda inginkan, dan sudah sesuai dengan hasil yang diharapakan. kalau ada yang kurang pas coba anda tambahkan lagi contoh lain dan hasil yang anda inginkan .
wasalam
Ghozi Alkatiri
____________
Dari: "hartini_80@yahoo.
Kepada: belajar-excel@
Dikirim: Minggu, 8 September 2013 7:55
Judul: Re: Bls: [belajar-excel] Menentukan hari perjalanan
Pak Ghozi, sudah saya coba, tetapi hari perjalanan jadi berkurang satu, tdk berdasarkan jumlah hari perjalanan aktual
Mohon pencerahan
Salam
Tiny
Powered by Telkomsel BlackBerry®
____________
From: ghozi alkatiri <ghozialkatiri@
Sender: belajar-excel@
Date: Sun, 8 Sep 2013 08:45:25 +0800 (SGT)
To: belajar-excel@
ReplyTo: belajar-excel@
Subject: Bls: [belajar-excel] Menentukan hari perjalanan
tulis di E2
=MAX(A2:D2)-
copy ke bawah
wassalam
Ghozi Alkatiri
____________
Dari: "hartini_80@yahoo.
Kepada: belajar-excel@
Dikirim: Sabtu, 7 September 2013 14:21
Judul: [belajar-excel] Menentukan hari perjalanan
Dear All,
Saya ingin menentukan banyaknya hari perjalanan, jika menggunakan pengurangan biasa, maka hasilnya bisa #name,
Bagaimana formulanya agar jika kolom yg dimaksud kosong maka bisa menghitung dari kolom yg ada isinya,
Penjelasan detail ada di attach
Terima kasih sebelumnya
Salam
Tiny
Powered by Telkomsel BlackBerry®
Sat Sep 7, 2013 9:52 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Pak Dwint,
Jika iCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value) diganti dengan iCount = Evaluate("=CountIf(rgCount, cel.Value") maka ketika macro dijalankan akan timbul error "Type mismatch".
Salam,
HK
________________________________
From: dwint ruswanto <dwint.ruswanto@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Sunday, 8 September 2013, 5:34
Subject: Re: [belajar-excel] rumus yang tidak running
mungkin seperti ini
Cells("alamat_celnya").Value = Evaluate("=formulanya";)
jadi script yang berbunyi
Application.WorksheetFuntion.Formulanya(blablabla)
langsung diganti dengan Evaluate
secara logika script tersebut akan berjalan lebih cepat karena:
memangkas waktu yang digunakan untuk memanggil formula di worksheet untuk diaplikasikan ke dalam vba, karena prosesnya langsung digantikan oleh fungsi internal vba itu sendiri
kira2 seperti itu.. untuk pembuktian mungkin dapat diuji kecepatan proses dengan beberapa baris data yabg lebih banyak.
maaf jika penjelasannya berantakan, karena diketik menggunakan handphone.
cmiiw.
-dwint-
On Sep 7, 2013 10:17 PM, "hendrik karnadi" <hendrikkarnadi@yahoo.com> wrote:
>
>Btw, gimana codenya Mr. Kid karena saya belum kenal baik dengan teman kita yang bernama "Evaluate";.
>
>
>Salam,
>HK
>
>
>
>________________________________
> From: Mr. Kid <mr.nmkid@gmail.com>
>To: BeExcel <belajar-excel@yahoogroups.com>
>Sent: Saturday, 7 September 2013, 19:10
>Subject: Re: [belajar-excel] rumus yang tidak running
>
>
>
>
>Kalau pakai loop, coba pakai Evaluate daripada worksheetfunction. Sapa tahu bisa lebih cepat.
>
>Wassalam,
>Kid.
>
>
>
>
>
>On Sat, Sep 7, 2013 at 4:54 PM, hendrik karnadi <hendrikkarnadi@yahoo.com> wrote:
>
>
>>
>>Mumpung lagi senggang dan Mr Kid. baru saja membahas looping dengan For....., dengan meminjam codes dari MJR (boleh kan Miss?),
>>maka saya coba mainkan dengan Event Worksheet_Change pada sel U5 tempat dimana No. NPB, No. PR dan No. PO mau diletakkan.
>>
>>
>>Codes pada VBE Sheet3(tabel):
>>Option Explicit
>>
>>
>>
>>Private Sub Worksheet_Change(ByVal Target As Range)
>> If Target.Address = "$U$5" Then
>> If Target.Count = 1 Then
>> With Target
>> If .Value = "No. NPB" Then
>> Call NPB
>> ElseIf .Value = "No. PR" Then
>> Call PR
>> ElseIf .Value = "No. PO" Then
>> Call PO
>>
>> End If
>> End With
>> End If
>> End If
>>End Sub
>>
>>
>>Codes pada Module1 (setelah insert module):
>>Option Explicit
>>
>>
>>
>>Sub NPB()
>> Dim rgNpb As Range, cel As Range, rgCount As Range
>> Dim lRow As Long, lCel As Long
>> Dim iCount As Integer
>>
>> lRow = Cells(Rows.Count, 2).End(xlUp).Row
>> Set rgNpb = Range(Cells(6, 2), Cells(lRow, 2))
>> For Each cel In rgNpb
>> lCel = cel.Row
>> Set rgCount = Range(Cells(6, 2), Cells(lCel, 2))
>> iCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value)
>> cel.Offset(, 19).Value = cel.Value & "-" & iCount '20 diganti 19 (sebelumnya tertulis 20)
>> Next cel
>>End Sub
>>
>>
>>Sub PR()
>> Dim rgPR As Range, cel As Range, rgCount As Range
>> Dim lRow As Long, lCel As Long
>> Dim iCount As Integer
>>
>> lRow = Cells(Rows.Count, 10).End(xlUp).Row '2 diganti 10
>> Set rgPR = Range(Cells(6, 10), Cells(lRow, 10)) '2 diganti 10
>> For Each cel In rgPR
>> lCel = cel.Row
>> Set rgCount = Range(Cells(6, 10), Cells(lCel, 10)) '2 diganti 10
>> iCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value)
>> cel.Offset(, 11).Value = cel.Value & "-" & iCount '19 diganti 11
>> Next cel
>>End Sub
>>
>>
>>Sub PO()
>> Dim rgPO As Range, cel As Range, rgCount As Range
>> Dim lRow As Long, lCel As Long
>> Dim iCount As Integer
>>
>> lRow = Cells(Rows.Count, 16).End(xlUp).Row '2 diganti 16
>> Set rgPO = Range(Cells(6, 16), Cells(lRow, 16)) '2 diganti 16
>> For Each cel In rgPO
>> lCel = cel.Row
>> Set rgCount = Range(Cells(6, 16), Cells(lCel, 16)) '2 diganti 16
>> iCount = Application.WorksheetFunction.CountIf(rgCount, cel.Value)
>> cel.Offset(, 5).Value = cel.Value & "-" & iCount '19 diganti 5
>> Next cel
>>End Sub
>>
>>
>>Semoga bermanfaat (pinjam slogan pak Anton).
>>
>>
>>Salam,
>>HK
>>
>>
>>File dilampirkan untuk uji materi
>>
>>
>>
>>________________________________
>> From: neza ibaneza <nezaibaneza@yahoo.co.id>
>>To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
>>Sent: Friday, 6 September 2013, 7:19
>>Subject: [belajar-excel] rumus yang tidak running
>>
>>
>>
>>
>>Salam B-Excel
>>
>>
>>Master-master yang baik hati, saya coba buat rumus VBA, tp kok ada sebagian yang tidak running
>>masalahnya dimana ya?
>>
>>
>>Salam
>>Neza
>>
>>
>
>
>
Jika iCount = Application.
Salam,
HK
____________
From: dwint ruswanto <dwint.ruswanto@
To: belajar-excel@
Sent: Sunday, 8 September 2013, 5:34
Subject: Re: [belajar-excel] rumus yang tidak running
mungkin seperti ini
Cells("
jadi script yang berbunyi
Application.
langsung diganti dengan Evaluate
secara logika script tersebut akan berjalan lebih cepat karena:
memangkas waktu yang digunakan untuk memanggil formula di worksheet untuk diaplikasikan ke dalam vba, karena prosesnya langsung digantikan oleh fungsi internal vba itu sendiri
kira2 seperti itu.. untuk pembuktian mungkin dapat diuji kecepatan proses dengan beberapa baris data yabg lebih banyak.
maaf jika penjelasannya berantakan, karena diketik menggunakan handphone.
cmiiw.
-dwint-
On Sep 7, 2013 10:17 PM, "hendrik karnadi" <hendrikkarnadi@
>
>Btw, gimana codenya Mr. Kid karena saya belum kenal baik dengan teman kita yang bernama "Evaluate"
>
>
>Salam,
>HK
>
>
>
>________
> From: Mr. Kid <mr.nmkid@gmail.
>To: BeExcel <belajar-excel@
>Sent: Saturday, 7 September 2013, 19:10
>Subject: Re: [belajar-excel] rumus yang tidak running
>
>
>
>
>Kalau pakai loop, coba pakai Evaluate daripada worksheetfunction. Sapa tahu bisa lebih cepat.
>
>Wassalam,
>Kid.
>
>
>
>
>
>On Sat, Sep 7, 2013 at 4:54 PM, hendrik karnadi <hendrikkarnadi@
>
>
>>
>>Mumpung lagi senggang dan Mr Kid. baru saja membahas looping dengan For....., dengan meminjam codes dari MJR (boleh kan Miss?),
>>maka saya coba mainkan dengan Event Worksheet_Change pada sel U5 tempat dimana No. NPB, No. PR dan No. PO mau diletakkan.
>>
>>
>>Codes pada VBE Sheet3(tabel)
>>Option Explicit
>>
>>
>>
>>Private Sub Worksheet_Change(
>> If Target.Address = "$U$5" Then
>> If Target.Count = 1 Then
>> With Target
>> If .Value = "No. NPB" Then
>> Call NPB
>> ElseIf .Value = "No. PR" Then
>> Call PR
>> ElseIf .Value = "No. PO" Then
>> Call PO
>>
>> End If
>> End With
>> End If
>> End If
>>End Sub
>>
>>
>>Codes pada Module1 (setelah insert module):
>>Option Explicit
>>
>>
>>
>>Sub NPB()
>> Dim rgNpb As Range, cel As Range, rgCount As Range
>> Dim lRow As Long, lCel As Long
>> Dim iCount As Integer
>>
>> lRow = Cells(Rows.Count, 2).End(xlUp)
>> Set rgNpb = Range(Cells(
>> For Each cel In rgNpb
>> lCel = cel.Row
>> Set rgCount = Range(Cells(
>> iCount = Application.
>> cel.Offset(, 19).Value = cel.Value & "-" & iCount '20 diganti 19 (sebelumnya tertulis 20)
>> Next cel
>>End Sub
>>
>>
>>Sub PR()
>> Dim rgPR As Range, cel As Range, rgCount As Range
>> Dim lRow As Long, lCel As Long
>> Dim iCount As Integer
>>
>> lRow = Cells(Rows.Count, 10).End(xlUp)
>> Set rgPR = Range(Cells(
>> For Each cel In rgPR
>> lCel = cel.Row
>> Set rgCount = Range(Cells(
>> iCount = Application.
>> cel.Offset(, 11).Value = cel.Value & "-" & iCount '19 diganti 11
>> Next cel
>>End Sub
>>
>>
>>Sub PO()
>> Dim rgPO As Range, cel As Range, rgCount As Range
>> Dim lRow As Long, lCel As Long
>> Dim iCount As Integer
>>
>> lRow = Cells(Rows.Count, 16).End(xlUp)
>> Set rgPO = Range(Cells(
>> For Each cel In rgPO
>> lCel = cel.Row
>> Set rgCount = Range(Cells(
>> iCount = Application.
>> cel.Offset(, 5).Value = cel.Value & "-" & iCount '19 diganti 5
>> Next cel
>>End Sub
>>
>>
>>Semoga bermanfaat (pinjam slogan pak Anton).
>>
>>
>>Salam,
>>HK
>>
>>
>>File dilampirkan untuk uji materi
>>
>>
>>
>>____
>> From: neza ibaneza <nezaibaneza@
>>To: "belajar-excel@
>>Sent: Friday, 6 September 2013, 7:19
>>Subject: [belajar-excel] rumus yang tidak running
>>
>>
>>
>>
>>Salam B-Excel
>>
>>
>>Master-
>>masalahnya dimana ya?
>>
>>
>>Salam
>>Neza
>>
>>
>
>
>
Sun Sep 8, 2013 12:36 am (PDT) . Posted by:
hartini_80
Dear all,
Bagaimana cara menghilangkan simbol pagar pada kolom yg berformula, saya sudah berusaha tambahkan Iserror tetapi masih tidak bisa blank
Mohon bantuan dan pencerahannya, attach terlampir
Terima kasih
Salam
Tiny
Powered by Telkomsel BlackBerry�
Bagaimana cara menghilangkan simbol pagar pada kolom yg berformula, saya sudah berusaha tambahkan Iserror tetapi masih tidak bisa blank
Mohon bantuan dan pencerahannya, attach terlampir
Terima kasih
Salam
Tiny
Powered by Telkomsel BlackBerry�
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