15 New Messages
Digest #1852
2c
Re: Bls: [belajar-excel] Menyembunyikan baris yang bernilai #NUM! by "hendrik karnadi" hendrikkarnadi
Messages
Wed Oct 17, 2012 9:47 am (PDT) . Posted by:
"aji mumpung"
masih salah ya..
coba yang ini.. mudah2an udah sesuai keinginan
wassalam,
-aji mumpung-
>>
>> 2012/10/17 sapicumi <sapicumi@rocketmail.com >
>>
>>> **
>>>
>>>
>>> trimakasih pak aji atas tanggapanya sya jg sudah mencoba saran pak aji
>>> dengan
>>> mengganti format "E3" dengan format text namun ttp saja tidak bisa maksut
>>> saya tidak bisa disini tidak sesuai dengan apa yang saya inginkan mungkin
>>> saya ulangi saja maksut saya sbb
>>>
>>> WR-004-001 >>kode
>>> -ketika saya mengetikan 001 di kolom E3 dia akan menemukan data
>>> -jika saya mengetikan WR atau WR-004 dia tidak akan pernah menemukan
>>> apapun
>>> -dengan kata lain saya hanya ingin 3 digit dibelakang yang bisa dicari
>>> dengan menghiraukan abjad didepanya
>>> jadi mungkin gini ya alurnya
>>> -ketika saya memasukan "001" maka akan ada misal msgbox data anda ada
>>> -ketika saya memasukan "WR" atau "WR-004" misal msgbox data anda tidak
>>> ada
>>>
>>> untuk lampiran bisa diambil dari lampiran saya di awal post
>>>
>>> trimakasih
>>>
>>> jojo
>>>
>>> --
>>> View this message in context:
>>> http://milis-belajar-excel.1048464.n5.nabble.com/Search-Kode-3-Digit-Dari-Kanan-tp5712605p5712620.html
>>>
>>> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>>>
>>>
>>
>>
>
>
coba yang ini.. mudah2an udah sesuai keinginan
wassalam,
-aji mumpung-
>>
>> 2012/10/17 sapicumi <sapicumi@rocketmail
>>
>>> **
>>>
>>>
>>> trimakasih pak aji atas tanggapanya sya jg sudah mencoba saran pak aji
>>> dengan
>>> mengganti format "E3" dengan format text namun ttp saja tidak bisa maksut
>>> saya tidak bisa disini tidak sesuai dengan apa yang saya inginkan mungkin
>>> saya ulangi saja maksut saya sbb
>>>
>>> WR-004-001 >>kode
>>> -ketika saya mengetikan 001 di kolom E3 dia akan menemukan data
>>> -jika saya mengetikan WR atau WR-004 dia tidak akan pernah menemukan
>>> apapun
>>> -dengan kata lain saya hanya ingin 3 digit dibelakang yang bisa dicari
>>> dengan menghiraukan abjad didepanya
>>> jadi mungkin gini ya alurnya
>>> -ketika saya memasukan "001" maka akan ada misal msgbox data anda ada
>>> -ketika saya memasukan "WR" atau "WR-004" misal msgbox data anda tidak
>>> ada
>>>
>>> untuk lampiran bisa diambil dari lampiran saya di awal post
>>>
>>> trimakasih
>>>
>>> jojo
>>>
>>> --
>>> View this message in context:
>>> http://milis-
>>>
>>> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>>>
>>>
>>
>>
>
>
Wed Oct 17, 2012 3:04 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba file terlampir
Wassalam,
Kid.
2012/10/17 sapicumi <sapicumi@rocketmail.com >
> **
>
>
> terimakasih pak kid dan pak aji mumpung telah membantu saya memecahkan
> masalah ini namun dari file terlampir dari pak aji ini saya sudah coba dan
> kenapa setelah saya masukan WR dia akan ttp menemukan record pertama yang
> berisi "WR"/"WR-004-001" maksut saya kl mengetikan WR saja seharusnya dia
> tidak akan menemukan apa2 begitu pak
>
> terima kasih
>
> jojo
>
> --
> View this message in context:
> http://milis-belajar-excel.1048464.n5.nabble.com/Search-Kode-3-Digit-Dari-Kanan-tp5712605p5712639.html
>
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
>
Wassalam,
Kid.
2012/10/17 sapicumi <sapicumi@rocketmail
> **
>
>
> terimakasih pak kid dan pak aji mumpung telah membantu saya memecahkan
> masalah ini namun dari file terlampir dari pak aji ini saya sudah coba dan
> kenapa setelah saya masukan WR dia akan ttp menemukan record pertama yang
> berisi "WR"/"WR-004-
> tidak akan menemukan apa2 begitu pak
>
> terima kasih
>
> jojo
>
> --
> View this message in context:
> http://milis-
>
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
>
Wed Oct 17, 2012 4:46 pm (PDT) . Posted by:
"Harry" hariansyahptk
Dear BeExceller,
Hendrik Kamadi
Terima kasih atas informasi dan rumusnya yang ok buanget.
Tolong sekalian cara sembunyikan kolom sesuai kreteria dan penjumlahan yang bersyarat dong.
Lampirannya sama.
Terima kasih,
Harry
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Rabu, 17 Oktober 2012 23:11
Judul: Re: [belajar-excel] Menyembunyikan baris yang bernilai #NUM!
Coba tulis macro ini pada Sheet VBA,
PadaSheet1Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call SembunyiAh'untuk menyembunyikanbaris yang ada #Num
Cancel = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$M$1" Then
Call BukaAh'untuk membukabaris yang disembunyikan
Cancel = True
End If
End Sub
PadaModule1 (insert module terlebih dahulu)
Sub SembunyiAh()
Dim rng As
Range
Set rng = Range("M4", Range("M4").End(xlDown))
For Each r In rng
If WorksheetFunction.IsNumber(r) = False Then
r.EntireRow.Hidden = True
End If
Next r
End Sub
Sub BukaAh()
Dim rng As Range
Set rng = Columns("M:M")
rng.EntireRow.Hidden = False
End Sub
Melaksanakan Macro:
- Untuk menyembunyikan baris yang ada #Num cukup doubleclick pada Sheet Aktif (di sel mana saja)
- Untuk membuka baris yang disembunyikan cukup klik sel M1
Salam,
Hendrik Karnadi
________________________________
From: Harry <hariansyahptk@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Wednesday, 17 October 2012, 19:39
Subject: [belajar-excel] Menyembunyikan baris yang bernilai #NUM!
Dear BeExceller,
Mohon bantuan dan solusi akan pertanyaan saya mengenai bagaimana caranya
menyembunyikan kolom yang diinginkan, menyembunyikan baris yang bernilai #NUM!, penjumlahan dengan kreteria, sebagaima file terlampir.
Terima kasih atas berkenan bantuan dan solusi dari teman-teman BeExceller sekalian.
Wassalam,
Harry
Hendrik Kamadi
Terima kasih atas informasi dan rumusnya yang ok buanget.
Tolong sekalian cara sembunyikan kolom sesuai kreteria dan penjumlahan yang bersyarat dong.
Lampirannya sama.
Terima kasih,
Harry
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Rabu, 17 Oktober 2012 23:11
Judul: Re: [belajar-excel] Menyembunyikan baris yang bernilai #NUM!
Coba tulis macro ini pada Sheet VBA,
PadaSheet1Private Sub Worksheet_BeforeDou
Call SembunyiAh'untuk menyembunyikanbaris yang ada #Num
Cancel = True
End Sub
Private Sub Worksheet_Selection
If Target.Address = "$M$1" Then
Call BukaAh'untuk membukabaris yang disembunyikan
Cancel = True
End If
End Sub
PadaModule1 (insert module terlebih dahulu)
Sub SembunyiAh()
Dim rng As
Range
Set rng = Range("M4", Range("M4").
For Each r In rng
If WorksheetFunction.
r.EntireRow.
End If
Next r
End Sub
Sub BukaAh()
Dim rng As Range
Set rng = Columns("M:M"
rng.EntireRow.
End Sub
Melaksanakan Macro:
- Untuk menyembunyikan baris yang ada #Num cukup doubleclick pada Sheet Aktif (di sel mana saja)
- Untuk membuka baris yang disembunyikan cukup klik sel M1
Salam,
Hendrik Karnadi
____________
From: Harry <hariansyahptk@
To: "belajar-excel@
Sent: Wednesday, 17 October 2012, 19:39
Subject: [belajar-excel] Menyembunyikan baris yang bernilai #NUM!
Dear BeExceller,
Mohon bantuan dan solusi akan pertanyaan saya mengenai bagaimana caranya
menyembunyikan kolom yang diinginkan, menyembunyikan baris yang bernilai #NUM!, penjumlahan dengan kreteria, sebagaima file terlampir.
Terima kasih atas berkenan bantuan dan solusi dari teman-teman BeExceller sekalian.
Wassalam,
Harry
Wed Oct 17, 2012 6:14 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba file terlampir.
Wassalam,
Kid.
2012/10/18 Harry <hariansyahptk@yahoo.com >
> **
>
>
> Dear BeExceller,
> Hendrik Kamadi
>
> Terima kasih atas informasi dan rumusnya yang ok buanget.
> Tolong sekalian cara sembunyikan kolom sesuai kreteria dan penjumlahan
> yang bersyarat dong.
> Lampirannya sama.
> Terima kasih,
>
>
> Harry
>
> ------------------------------
> *Dari:* hendrik karnadi <hendrikkarnadi@yahoo.com >
> *Kepada:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Dikirim:* Rabu, 17 Oktober 2012 23:11
> *Judul:* Re: [belajar-excel] Menyembunyikan baris yang bernilai #NUM!
>
>
> Coba tulis macro ini pada Sheet VBA,
>
> Pada Sheet1
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
> Boolean)
> Call SembunyiAh 'untuk menyembunyikan baris yang ada #Num
> Cancel = True
> End Sub
>
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> If Target.Address = "$M$1" Then
> Call BukaAh 'untuk membuka baris yang disembunyikan
> Cancel = True
> End If
> End Sub
>
> Pada Module1 (insert module terlebih dahulu)
> Sub SembunyiAh()
> Dim rng As Range
> Set rng = Range("M4", Range("M4").End(xlDown))
> For Each r In rng
> If WorksheetFunction.IsNumber(r) = False Then
> r.EntireRow.Hidden = True
> End If
> Next r
> End Sub
>
> Sub BukaAh()
> Dim rng As Range
> Set rng = Columns("M:M")
> rng.EntireRow.Hidden = False
> End Sub
>
> Melaksanakan Macro:
> - Untuk menyembunyikan baris yang ada #Num cukup doubleclick pada Sheet
> Aktif (di sel mana saja)
> - Untuk membuka baris yang disembunyikan cukup klik sel M1
>
> Salam,
> Hendrik Karnadi
>
> ------------------------------
> *From:* Harry <hariansyahptk@yahoo.com >
> *To:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Sent:* Wednesday, 17 October 2012, 19:39
> *Subject:* [belajar-excel] Menyembunyikan baris yang bernilai #NUM!
>
>
> Dear BeExceller,
>
> Mohon bantuan dan solusi akan pertanyaan saya mengenai bagaimana caranya
> menyembunyikan kolom yang diinginkan, menyembunyikan baris yang bernilai
> #NUM!, penjumlahan dengan kreteria, sebagaima file terlampir.
>
> Terima kasih atas berkenan bantuan dan solusi dari teman-teman
> BeExceller sekalian.
>
> Wassalam,
>
>
> Harry
>
>
>
>
>
>
Wassalam,
Kid.
2012/10/18 Harry <hariansyahptk@
> **
>
>
> Dear BeExceller,
> Hendrik Kamadi
>
> Terima kasih atas informasi dan rumusnya yang ok buanget.
> Tolong sekalian cara sembunyikan kolom sesuai kreteria dan penjumlahan
> yang bersyarat dong.
> Lampirannya sama.
> Terima kasih,
>
>
> Harry
>
> ------------
> *Dari:* hendrik karnadi <hendrikkarnadi@
> *Kepada:* "belajar-excel@
> *Dikirim:* Rabu, 17 Oktober 2012 23:11
> *Judul:* Re: [belajar-excel] Menyembunyikan baris yang bernilai #NUM!
>
>
> Coba tulis macro ini pada Sheet VBA,
>
> Pada Sheet1
> Private Sub Worksheet_BeforeDou
> Boolean)
> Call SembunyiAh 'untuk menyembunyikan baris yang ada #Num
> Cancel = True
> End Sub
>
> Private Sub Worksheet_Selection
> If Target.Address = "$M$1" Then
> Call BukaAh 'untuk membuka baris yang disembunyikan
> Cancel = True
> End If
> End Sub
>
> Pada Module1 (insert module terlebih dahulu)
> Sub SembunyiAh()
> Dim rng As Range
> Set rng = Range("M4", Range("M4").
> For Each r In rng
> If WorksheetFunction.
> r.EntireRow.
> End If
> Next r
> End Sub
>
> Sub BukaAh()
> Dim rng As Range
> Set rng = Columns("M:M"
> rng.EntireRow.
> End Sub
>
> Melaksanakan Macro:
> - Untuk menyembunyikan baris yang ada #Num cukup doubleclick pada Sheet
> Aktif (di sel mana saja)
> - Untuk membuka baris yang disembunyikan cukup klik sel M1
>
> Salam,
> Hendrik Karnadi
>
> ------------
> *From:* Harry <hariansyahptk@
> *To:* "belajar-excel@
> *Sent:* Wednesday, 17 October 2012, 19:39
> *Subject:* [belajar-excel] Menyembunyikan baris yang bernilai #NUM!
>
>
> Dear BeExceller,
>
> Mohon bantuan dan solusi akan pertanyaan saya mengenai bagaimana caranya
> menyembunyikan kolom yang diinginkan, menyembunyikan baris yang bernilai
> #NUM!, penjumlahan dengan kreteria, sebagaima file terlampir.
>
> Terima kasih atas berkenan bantuan dan solusi dari teman-teman
> BeExceller sekalian.
>
> Wassalam,
>
>
> Harry
>
>
>
>
>
>
Wed Oct 17, 2012 6:19 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Sama2.
Bukankah bagian ini "cara sembunyikan kolom sesuai kreteria dan penjumlahan yang bersyarat" sdh dibantu oleh Mr. Kid?
Kalau belum, kolom mana (sesuai kreteria dan penjumlahan yang bersyarat) yang mau disembunyikan?
Salam,
Hendrik Karnadi
________________________________
From: Harry <hariansyahptk@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Thursday, 18 October 2012, 6:41
Subject: Bls: [belajar-excel] Menyembunyikan baris yang bernilai #NUM!
Dear BeExceller,
Hendrik Kamadi
Terima kasih atas informasi dan rumusnya yang ok buanget.
Tolong sekalian cara sembunyikan kolom sesuai kreteria dan penjumlahan yang bersyarat dong.
Lampirannya sama.
Terima kasih,
Harry
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Rabu, 17 Oktober 2012 23:11
Judul: Re: [belajar-excel] Menyembunyikan baris yang bernilai #NUM!
Coba tulis macro ini pada Sheet VBA,
PadaSheet1Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call SembunyiAh'untuk menyembunyikanbaris yang ada #Num
Cancel = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$M$1" Then
Call BukaAh'untuk membukabaris yang disembunyikan
Cancel = True
End If
End Sub
PadaModule1 (insert module terlebih dahulu)
Sub SembunyiAh()
Dim rng As
Range
Set rng = Range("M4", Range("M4").End(xlDown))
For Each r In rng
If WorksheetFunction.IsNumber(r) = False Then
r.EntireRow.Hidden = True
End If
Next r
End Sub
Sub BukaAh()
Dim rng As Range
Set rng = Columns("M:M")
rng.EntireRow.Hidden = False
End Sub
Melaksanakan Macro:
- Untuk menyembunyikan baris yang ada #Num cukup doubleclick pada Sheet Aktif (di sel mana saja)
- Untuk membuka baris yang disembunyikan cukup klik sel M1
Salam,
Hendrik Karnadi
________________________________
From: Harry <hariansyahptk@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Wednesday, 17 October 2012, 19:39
Subject: [belajar-excel] Menyembunyikan baris yang bernilai #NUM!
Dear BeExceller,
Mohon bantuan dan solusi akan pertanyaan saya mengenai bagaimana caranya
menyembunyikan kolom yang diinginkan, menyembunyikan baris yang bernilai #NUM!, penjumlahan dengan kreteria, sebagaima file terlampir.
Terima kasih atas berkenan bantuan dan solusi dari teman-teman BeExceller sekalian.
Wassalam,
Harry
Bukankah bagian ini "cara sembunyikan kolom sesuai kreteria dan penjumlahan yang bersyarat" sdh dibantu oleh Mr. Kid?
Kalau belum, kolom mana (sesuai kreteria dan penjumlahan yang bersyarat) yang mau disembunyikan?
Salam,
Hendrik Karnadi
____________
From: Harry <hariansyahptk@
To: "belajar-excel@
Sent: Thursday, 18 October 2012, 6:41
Subject: Bls: [belajar-excel] Menyembunyikan baris yang bernilai #NUM!
Dear BeExceller,
Hendrik Kamadi
Terima kasih atas informasi dan rumusnya yang ok buanget.
Tolong sekalian cara sembunyikan kolom sesuai kreteria dan penjumlahan yang bersyarat dong.
Lampirannya sama.
Terima kasih,
Harry
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Rabu, 17 Oktober 2012 23:11
Judul: Re: [belajar-excel] Menyembunyikan baris yang bernilai #NUM!
Coba tulis macro ini pada Sheet VBA,
PadaSheet1Private Sub Worksheet_BeforeDou
Call SembunyiAh'untuk menyembunyikanbaris yang ada #Num
Cancel = True
End Sub
Private Sub Worksheet_Selection
If Target.Address = "$M$1" Then
Call BukaAh'untuk membukabaris yang disembunyikan
Cancel = True
End If
End Sub
PadaModule1 (insert module terlebih dahulu)
Sub SembunyiAh()
Dim rng As
Range
Set rng = Range("M4", Range("M4").
For Each r In rng
If WorksheetFunction.
r.EntireRow.
End If
Next r
End Sub
Sub BukaAh()
Dim rng As Range
Set rng = Columns("M:M"
rng.EntireRow.
End Sub
Melaksanakan Macro:
- Untuk menyembunyikan baris yang ada #Num cukup doubleclick pada Sheet Aktif (di sel mana saja)
- Untuk membuka baris yang disembunyikan cukup klik sel M1
Salam,
Hendrik Karnadi
____________
From: Harry <hariansyahptk@
To: "belajar-excel@
Sent: Wednesday, 17 October 2012, 19:39
Subject: [belajar-excel] Menyembunyikan baris yang bernilai #NUM!
Dear BeExceller,
Mohon bantuan dan solusi akan pertanyaan saya mengenai bagaimana caranya
menyembunyikan kolom yang diinginkan, menyembunyikan baris yang bernilai #NUM!, penjumlahan dengan kreteria, sebagaima file terlampir.
Terima kasih atas berkenan bantuan dan solusi dari teman-teman BeExceller sekalian.
Wassalam,
Harry
Wed Oct 17, 2012 10:26 pm (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
bagi yang tidak ingin menyembunyikan sesuatu atau tidak suka dengan yang makruh (macro), barangkali solusi dengan formula ini bisa menjadi alternatif.
langsung lihat di attachment.
wassalam
Ghozi Alkatiri
________________________________
Dari: Harry <hariansyahptk@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Rabu, 17 Oktober 2012 19:39
Judul: [belajar-excel] Menyembunyikan baris yang bernilai #NUM!
Dear BeExceller,
Mohon bantuan dan solusi akan pertanyaan saya mengenai bagaimana caranya
menyembunyikan kolom yang diinginkan, menyembunyikan baris yang bernilai #NUM!, penjumlahan dengan kreteria, sebagaima file terlampir.
Terima kasih atas berkenan bantuan dan solusi dari teman-teman BeExceller sekalian.
Wassalam,
Harry
langsung lihat di attachment.
wassalam
Ghozi Alkatiri
____________
Dari: Harry <hariansyahptk@
Kepada: "belajar-excel@
Dikirim: Rabu, 17 Oktober 2012 19:39
Judul: [belajar-excel] Menyembunyikan baris yang bernilai #NUM!
Dear BeExceller,
Mohon bantuan dan solusi akan pertanyaan saya mengenai bagaimana caranya
menyembunyikan kolom yang diinginkan, menyembunyikan baris yang bernilai #NUM!, penjumlahan dengan kreteria, sebagaima file terlampir.
Terima kasih atas berkenan bantuan dan solusi dari teman-teman BeExceller sekalian.
Wassalam,
Harry
Wed Oct 17, 2012 4:54 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pak Diko,
Mohon file lampirannya dikecilkan sampai <250KB. Cukup data tentang
kasusnya saja yang disertakan. Link ke workbook lain bisa divalueskan lebih
dulu. Sheet tidak terpakai juga dihapus.
Tentang kasus memberi nomor.
Maksud dari penyusunan sheet yang hanya berisi record yang ada nilainya
untuk apa ya ?
Jika sebagai media entry juga, berarti file terlampir tidak bisa digunakan
dan harus menggunakan VBA untuk hanya meng-hide blok record dengan nilai
stok dan delivery yang nol.
Jika sebagai media output, file terlampir masih bisa digunakan dengan
menyesuaikan formula pada cell-cell hariannya, dengan data yang diambil
dari sheet data. Tapi, sebaiknya media penyimpanan datanya (sheet data)
lebih disesuaikan susunannya agar berkaidah database.
Wassalam,
Kid.
2012/10/17 Diko Thea <diko6178@yahoo.co.id >
> **
>
>
> Dear Master,
> Maaf jika pertanyaan ini sudah ada.
>
> 1. Bagaimana cara memasukkan rumus di kolom NO agar yang muncul di row 6
> dan seterusnya hanya yang ada stock dan delivery saja?
> 2. Yang diinginkan ada di Sheet HOPE (Dengan Macro juga gak masalah)
>
> Untuk lebih jelas lihat attached.
>
> Wassalam,
> DIKO
>
>
>
Mohon file lampirannya dikecilkan sampai <250KB. Cukup data tentang
kasusnya saja yang disertakan. Link ke workbook lain bisa divalueskan lebih
dulu. Sheet tidak terpakai juga dihapus.
Tentang kasus memberi nomor.
Maksud dari penyusunan sheet yang hanya berisi record yang ada nilainya
untuk apa ya ?
Jika sebagai media entry juga, berarti file terlampir tidak bisa digunakan
dan harus menggunakan VBA untuk hanya meng-hide blok record dengan nilai
stok dan delivery yang nol.
Jika sebagai media output, file terlampir masih bisa digunakan dengan
menyesuaikan formula pada cell-cell hariannya, dengan data yang diambil
dari sheet data. Tapi, sebaiknya media penyimpanan datanya (sheet data)
lebih disesuaikan susunannya agar berkaidah database.
Wassalam,
Kid.
2012/10/17 Diko Thea <diko6178@yahoo.
> **
>
>
> Dear Master,
> Maaf jika pertanyaan ini sudah ada.
>
> 1. Bagaimana cara memasukkan rumus di kolom NO agar yang muncul di row 6
> dan seterusnya hanya yang ada stock dan delivery saja?
> 2. Yang diinginkan ada di Sheet HOPE (Dengan Macro juga gak masalah)
>
> Untuk lebih jelas lihat attached.
>
> Wassalam,
> DIKO
>
>
>
Wed Oct 17, 2012 5:39 pm (PDT) . Posted by:
"IHSAN NURDIN" ihsanmn
Pak Zainul, Pak Ghozi dan rekan milis Tk banyak atas sharing nya.
Salam excel
________________________________
From: ghozi alkatiri <ghozialkatiri@yahoo.co.id >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Wednesday, October 17, 2012 5:16 PM
Subject: Bls: [belajar-excel] convert ke jam dan pembulatan
misalkan angka jam yang ingin dibulatkan ada di A1 maka formulanya:
=IF(MINUTE(A1)<40;HOUR(A1);HOUR(A1)+1)
silahkan dicoba
wassalam
Ghozi Alkatiri
________________________________
Dari: IHSAN NURDIN <ihsanmn@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Rabu, 17 Oktober 2012 15:42
Judul: [belajar-excel] convert ke jam dan pembulatan
DH.
Mohon bantuan rekan-rekan, sy punya permasalahan tentang convert ke jam dan pembualatan pada waktu. Case nya sbb:
Misalnya saya punya data 3:30:00(yang berarti 3 jam, 30 menit lewat 0 detik). Kmdn pd menit sy membagi 60 sehingga 0,5 jam. Sehingga total jam akan menjadi 3,5 jam. Kemudian nilai jam tadi dibulatkan ke bawah menjadi 3 jam saja krn menitnya < 40. Jika menitnya > 40 maka dibulatkan ke atas. Sehingga total jam menjadi 4 jam. Dmkn.
Mohon bantuan rekan milis. TK banyak sebelumnya.
salam excel.
Salam excel
____________
From: ghozi alkatiri <ghozialkatiri@
To: "belajar-excel@
Sent: Wednesday, October 17, 2012 5:16 PM
Subject: Bls: [belajar-excel] convert ke jam dan pembulatan
misalkan angka jam yang ingin dibulatkan ada di A1 maka formulanya:
=IF(MINUTE(A1)
silahkan dicoba
wassalam
Ghozi Alkatiri
____________
Dari: IHSAN NURDIN <ihsanmn@yahoo.
Kepada: "belajar-excel@
Dikirim: Rabu, 17 Oktober 2012 15:42
Judul: [belajar-excel] convert ke jam dan pembulatan
DH.
Mohon bantuan rekan-rekan, sy punya permasalahan tentang convert ke jam dan pembualatan pada waktu. Case nya sbb:
Misalnya saya punya data 3:30:00(yang berarti 3 jam, 30 menit lewat 0 detik). Kmdn pd menit sy membagi 60 sehingga 0,5 jam. Sehingga total jam akan menjadi 3,5 jam. Kemudian nilai jam tadi dibulatkan ke bawah menjadi 3 jam saja krn menitnya < 40. Jika menitnya > 40 maka dibulatkan ke atas. Sehingga total jam menjadi 4 jam. Dmkn.
Mohon bantuan rekan milis. TK banyak sebelumnya.
salam excel.
Wed Oct 17, 2012 5:40 pm (PDT) . Posted by:
"Bagus" bagus4bls
Pak Amin,
File terlampir ada penambahan jam & jam Input.
semoga sesuai yg dimaksud
Bagus
----- Original Message -----
From: ngademin Thohari
To: belajar-excel@yahoogroups.com
Sent: Wednesday, October 17, 2012 4:20 PM
Subject: Bls: [belajar-excel] trial material substore gudang
Pak bagus,
caranya untuk menampilkan tanggal dan jam inputnya bagaimana ya?
terima kasih
Dwi Amin
----------------------------------------------------------
Dari: Bagus <bagus@kingjim.co.id >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 17 Oktober 2012 14:05
Judul: Re: [belajar-excel] trial material substore gudang
Dear Pak Thoha;
Apakah seperti file terlampir..?
Bagus
----- Original Message -----
From: ngademin Thohari
To: belajar-excel@yahoogroups.com
Sent: Monday, October 15, 2012 6:21 PM
Subject: [belajar-excel] trial material substore gudang
be-exceller
saya akan membuat data gudang, tapi belum mendapat bentuk yang sesuai dengan harapan, data ini hanya mewakili 1 konsumen saja, tapi konsumen ditempat saya ada beberapa, jadi mohon penjelantahannya
Terima kasih atas dukungannya
amin
File terlampir ada penambahan jam & jam Input.
semoga sesuai yg dimaksud
Bagus
----- Original Message -----
From: ngademin Thohari
To: belajar-excel@
Sent: Wednesday, October 17, 2012 4:20 PM
Subject: Bls: [belajar-excel] trial material substore gudang
Pak bagus,
caranya untuk menampilkan tanggal dan jam inputnya bagaimana ya?
terima kasih
Dwi Amin
------------
Dari: Bagus <bagus@kingjim.
Kepada: belajar-excel@
Dikirim: Rabu, 17 Oktober 2012 14:05
Judul: Re: [belajar-excel] trial material substore gudang
Dear Pak Thoha;
Apakah seperti file terlampir..?
Bagus
----- Original Message -----
From: ngademin Thohari
To: belajar-excel@
Sent: Monday, October 15, 2012 6:21 PM
Subject: [belajar-excel] trial material substore gudang
be-exceller
saya akan membuat data gudang, tapi belum mendapat bentuk yang sesuai dengan harapan, data ini hanya mewakili 1 konsumen saja, tapi konsumen ditempat saya ada beberapa, jadi mohon penjelantahannya
Terima kasih atas dukungannya
amin
Wed Oct 17, 2012 6:05 pm (PDT) . Posted by:
"ngademin Thohari" ngademinth
be-exceller
dengan tidak mengurangi rasa hormat, yang saya maksud kan otomatis mengisi tanggal dan jam pada waktu kolom A diisi dan tanggal dan jam akan diisi dikolom G
Terimakasih atas supportnya
amin
________________________________
Dari: Bagus <bagus@kingjim.co.id >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 18 Oktober 2012 7:38
Judul: Re: [belajar-excel] trial material substore gudang
Pak Amin,
File terlampir ada penambahan jam & jam
Input.
semoga sesuai yg dimaksud
Bagus
----- Original Message -----
>From: ngademin Thohari
>To: belajar-excel@yahoogroups.com
>Sent: Wednesday, October 17, 2012 4:20 PM
>Subject: Bls: [belajar-excel] trial material substore gudang
>
>
>Pak bagus,
>
>
>caranya untuk menampilkan tanggal dan jam inputnya bagaimana ya?
>
>
>terima kasih
>
>
>Dwi Amin
>
>
>
>________________________________
> Dari: Bagus <bagus@kingjim.co.id >
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Rabu, 17 Oktober 2012 14:05
>Judul: Re: [belajar-excel] trial material substore gudang
>
>
>
>
>Dear Pak Thoha;
>
>Apakah seperti file terlampir..?
>
>
>Bagus
>
>
>----- Original Message -----
>>From: ngademin Thohari
>>To: belajar-excel@yahoogroups.com
>>Sent: Monday, October 15, 2012 6:21 PM
>>Subject: [belajar-excel] trial material substore gudang
>>
>>
>>be-exceller
>>
>>
>>saya akan membuat data gudang, tapi belum mendapat bentuk yang sesuai dengan harapan, data ini hanya mewakili 1 konsumen saja, tapi konsumen ditempat saya ada beberapa, jadi mohon penjelantahannya
>>
>>
>>
>>
>>Terima kasih atas dukungannya
>>
>>
>>
>>
>>amin
>
>
dengan tidak mengurangi rasa hormat, yang saya maksud kan otomatis mengisi tanggal dan jam pada waktu kolom A diisi dan tanggal dan jam akan diisi dikolom G
Terimakasih atas supportnya
amin
____________
Dari: Bagus <bagus@kingjim.
Kepada: belajar-excel@
Dikirim: Kamis, 18 Oktober 2012 7:38
Judul: Re: [belajar-excel] trial material substore gudang
Pak Amin,
File terlampir ada penambahan jam & jam
Input.
semoga sesuai yg dimaksud
Bagus
----- Original Message -----
>From: ngademin Thohari
>To: belajar-excel@
>Sent: Wednesday, October 17, 2012 4:20 PM
>Subject: Bls: [belajar-excel] trial material substore gudang
>
>
>Pak bagus,
>
>
>caranya untuk menampilkan tanggal dan jam inputnya bagaimana ya?
>
>
>terima kasih
>
>
>Dwi Amin
>
>
>
>___________
> Dari: Bagus <bagus@kingjim.
>Kepada: belajar-excel@
>Dikirim: Rabu, 17 Oktober 2012 14:05
>Judul: Re: [belajar-excel] trial material substore gudang
>
>
>
>
>Dear Pak Thoha;
>
>Apakah seperti file terlampir..?
>
>
>Bagus
>
>
>----- Original Message -----
>>From: ngademin Thohari
>>To: belajar-excel@
>>Sent: Monday, October 15, 2012 6:21 PM
>>Subject: [belajar-excel] trial material substore gudang
>>
>>
>>be-exceller
>>
>>
>>saya akan membuat data gudang, tapi belum mendapat bentuk yang sesuai dengan harapan, data ini hanya mewakili 1 konsumen saja, tapi konsumen ditempat saya ada beberapa, jadi mohon penjelantahannya
>>
>>
>>
>>
>>Terima kasih atas dukungannya
>>
>>
>>
>>
>>amin
>
>
Wed Oct 17, 2012 6:25 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Biasanya dengan VBA memanfaatkan event change pada worksheet.
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count = 1 Then
If .Column = 1 Then
If .Row > 1 Then
.Offset(0, 3).Value = Now
End If
End If
End If
End With
End Sub
Wassalam,
Kid.
2012/10/18 ngademin Thohari <ngademinth@yahoo.co.id >
> **
>
>
> be-exceller
>
> dengan tidak mengurangi rasa hormat, yang saya maksud kan otomatis mengisi
> tanggal dan jam pada waktu kolom A diisi dan tanggal dan jam akan diisi
> dikolom G
>
> Terimakasih atas supportnya
>
>
> amin
>
>
> ------------------------------
> *Dari:* Bagus <bagus@kingjim.co.id >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 18 Oktober 2012 7:38
>
> *Judul:* Re: [belajar-excel] trial material substore gudang
>
>
> Pak Amin,
>
> File terlampir ada penambahan jam & jam Input.
> semoga sesuai yg dimaksud
>
>
> Bagus
>
>
>
> ----- Original Message -----
> *From:* ngademin Thohari <ngademinth@yahoo.co.id >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, October 17, 2012 4:20 PM
> *Subject:* Bls: [belajar-excel] trial material substore gudang
>
>
> Pak bagus,
>
> caranya untuk menampilkan tanggal dan jam inputnya bagaimana ya?
>
> terima kasih
>
> Dwi Amin
>
> ------------------------------
> *Dari:* Bagus <bagus@kingjim.co.id >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Rabu, 17 Oktober 2012 14:05
> *Judul:* Re: [belajar-excel] trial material substore gudang
>
>
> Dear Pak Thoha;
>
> Apakah seperti file terlampir..?
>
>
> Bagus
>
>
>
> ----- Original Message -----
> *From:* ngademin Thohari <ngademinth@yahoo.co.id >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, October 15, 2012 6:21 PM
> *Subject:* [belajar-excel] trial material substore gudang
>
>
> be-exceller
>
> saya akan membuat data gudang, tapi belum mendapat bentuk yang sesuai
> dengan harapan, data ini hanya mewakili 1 konsumen saja, tapi konsumen
> ditempat saya ada beberapa, jadi mohon penjelantahannya
>
>
> Terima kasih atas dukungannya
>
>
> amin
>
>
>
>
>
>
>
Private Sub Worksheet_Change(
With Target
If .Count = 1 Then
If .Column = 1 Then
If .Row > 1 Then
.Offset(0, 3).Value = Now
End If
End If
End If
End With
End Sub
Wassalam,
Kid.
2012/10/18 ngademin Thohari <ngademinth@yahoo.
> **
>
>
> be-exceller
>
> dengan tidak mengurangi rasa hormat, yang saya maksud kan otomatis mengisi
> tanggal dan jam pada waktu kolom A diisi dan tanggal dan jam akan diisi
> dikolom G
>
> Terimakasih atas supportnya
>
>
> amin
>
>
> ------------
> *Dari:* Bagus <bagus@kingjim.
> *Kepada:* belajar-excel@
> *Dikirim:* Kamis, 18 Oktober 2012 7:38
>
> *Judul:* Re: [belajar-excel] trial material substore gudang
>
>
> Pak Amin,
>
> File terlampir ada penambahan jam & jam Input.
> semoga sesuai yg dimaksud
>
>
> Bagus
>
>
>
> ----- Original Message -----
> *From:* ngademin Thohari <ngademinth@yahoo.
> *To:* belajar-excel@
> *Sent:* Wednesday, October 17, 2012 4:20 PM
> *Subject:* Bls: [belajar-excel] trial material substore gudang
>
>
> Pak bagus,
>
> caranya untuk menampilkan tanggal dan jam inputnya bagaimana ya?
>
> terima kasih
>
> Dwi Amin
>
> ------------
> *Dari:* Bagus <bagus@kingjim.
> *Kepada:* belajar-excel@
> *Dikirim:* Rabu, 17 Oktober 2012 14:05
> *Judul:* Re: [belajar-excel] trial material substore gudang
>
>
> Dear Pak Thoha;
>
> Apakah seperti file terlampir..?
>
>
> Bagus
>
>
>
> ----- Original Message -----
> *From:* ngademin Thohari <ngademinth@yahoo.
> *To:* belajar-excel@
> *Sent:* Monday, October 15, 2012 6:21 PM
> *Subject:* [belajar-excel] trial material substore gudang
>
>
> be-exceller
>
> saya akan membuat data gudang, tapi belum mendapat bentuk yang sesuai
> dengan harapan, data ini hanya mewakili 1 konsumen saja, tapi konsumen
> ditempat saya ada beberapa, jadi mohon penjelantahannya
>
>
> Terima kasih atas dukungannya
>
>
> amin
>
>
>
>
>
>
>
Wed Oct 17, 2012 6:26 pm (PDT) . Posted by:
"aji mumpung"
ikutan ya pak..
jika yang diinginkan adalah..
isi kolom A >>> otomatis kolom G akan muncul tanggal & waktu saat mengisi
kolom A, tanggal & waktu tidak akan berubah nilainya.
maka hal ini hanya bisa dilakukan dengan macro.
apakah seperti ini yang diinginkan?
wassalam,
-aji mumpung-
Pada 18 Oktober 2012 08:05, ngademin Thohari <ngademinth@yahoo.co.id >menulis:
> **
>
>
> be-exceller
>
> dengan tidak mengurangi rasa hormat, yang saya maksud kan otomatis mengisi
> tanggal dan jam pada waktu kolom A diisi dan tanggal dan jam akan diisi
> dikolom G
>
> Terimakasih atas supportnya
>
>
> amin
>
>
> ------------------------------
> *Dari:* Bagus <bagus@kingjim.co.id >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 18 Oktober 2012 7:38
>
> *Judul:* Re: [belajar-excel] trial material substore gudang
>
>
>
> Pak Amin,
>
> File terlampir ada penambahan jam & jam Input.
> semoga sesuai yg dimaksud
>
>
> Bagus
>
>
>
> ----- Original Message -----
> *From:* ngademin Thohari <ngademinth@yahoo.co.id >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, October 17, 2012 4:20 PM
> *Subject:* Bls: [belajar-excel] trial material substore gudang
>
>
> Pak bagus,
>
> caranya untuk menampilkan tanggal dan jam inputnya bagaimana ya?
>
> terima kasih
>
> Dwi Amin
>
> ------------------------------
> *Dari:* Bagus <bagus@kingjim.co.id >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Rabu, 17 Oktober 2012 14:05
> *Judul:* Re: [belajar-excel] trial material substore gudang
>
>
>
> Dear Pak Thoha;
>
> Apakah seperti file terlampir..?
>
>
> Bagus
>
>
>
> ----- Original Message -----
> *From:* ngademin Thohari <ngademinth@yahoo.co.id >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, October 15, 2012 6:21 PM
> *Subject:* [belajar-excel] trial material substore gudang
>
>
> be-exceller
>
> saya akan membuat data gudang, tapi belum mendapat bentuk yang sesuai
> dengan harapan, data ini hanya mewakili 1 konsumen saja, tapi konsumen
> ditempat saya ada beberapa, jadi mohon penjelantahannya
>
>
> Terima kasih atas dukungannya
>
>
> amin
>
>
>
>
>
>
>
jika yang diinginkan adalah..
isi kolom A >>> otomatis kolom G akan muncul tanggal & waktu saat mengisi
kolom A, tanggal & waktu tidak akan berubah nilainya.
maka hal ini hanya bisa dilakukan dengan macro.
apakah seperti ini yang diinginkan?
wassalam,
-aji mumpung-
Pada 18 Oktober 2012 08:05, ngademin Thohari <ngademinth@yahoo.
> **
>
>
> be-exceller
>
> dengan tidak mengurangi rasa hormat, yang saya maksud kan otomatis mengisi
> tanggal dan jam pada waktu kolom A diisi dan tanggal dan jam akan diisi
> dikolom G
>
> Terimakasih atas supportnya
>
>
> amin
>
>
> ------------
> *Dari:* Bagus <bagus@kingjim.
> *Kepada:* belajar-excel@
> *Dikirim:* Kamis, 18 Oktober 2012 7:38
>
> *Judul:* Re: [belajar-excel] trial material substore gudang
>
>
>
> Pak Amin,
>
> File terlampir ada penambahan jam & jam Input.
> semoga sesuai yg dimaksud
>
>
> Bagus
>
>
>
> ----- Original Message -----
> *From:* ngademin Thohari <ngademinth@yahoo.
> *To:* belajar-excel@
> *Sent:* Wednesday, October 17, 2012 4:20 PM
> *Subject:* Bls: [belajar-excel] trial material substore gudang
>
>
> Pak bagus,
>
> caranya untuk menampilkan tanggal dan jam inputnya bagaimana ya?
>
> terima kasih
>
> Dwi Amin
>
> ------------
> *Dari:* Bagus <bagus@kingjim.
> *Kepada:* belajar-excel@
> *Dikirim:* Rabu, 17 Oktober 2012 14:05
> *Judul:* Re: [belajar-excel] trial material substore gudang
>
>
>
> Dear Pak Thoha;
>
> Apakah seperti file terlampir..?
>
>
> Bagus
>
>
>
> ----- Original Message -----
> *From:* ngademin Thohari <ngademinth@yahoo.
> *To:* belajar-excel@
> *Sent:* Monday, October 15, 2012 6:21 PM
> *Subject:* [belajar-excel] trial material substore gudang
>
>
> be-exceller
>
> saya akan membuat data gudang, tapi belum mendapat bentuk yang sesuai
> dengan harapan, data ini hanya mewakili 1 konsumen saja, tapi konsumen
> ditempat saya ada beberapa, jadi mohon penjelantahannya
>
>
> Terima kasih atas dukungannya
>
>
> amin
>
>
>
>
>
>
>
Wed Oct 17, 2012 9:58 pm (PDT) . Posted by:
"luthfie_27" luthfie_27
ini macro saya copikan di excel yang laen gak mau,saya kasih warna merah
peruntah yg gak mau jalan..mohon dibantu
> Sub AnalisaRAB()
> Dim hdIdAhsDtl, hdIdAhsRab As Range
> Dim idxRowDtl, idxRowAHS As Long
> Dim r, RecNo, Htg As Long
>
> Application.ScreenUpdating = False
> Set hdIdAhsDtl = Sheet2.Range("b9")
> If Sheet2.Range("b9").Value = "" Then
> MsgBox "Data detail ARB tidak ditemukan", vbOKOnly, "Pesan"
> Exit Sub
> End If
> Set hdIdAhsRab = Sheet1.Range("c6")
> idxRowAHS = Sheet1.Cells.SpecialCells(xlCellTypeLastCell).Row
> idxRowDtl = Sheet2.Cells.SpecialCells(xlCellTypeLastCell).Row
> For r = 9 To idxRowDtl
> Sheet2.Select
> If Cells(r, 2) = "" Then
> Cells(r, 11).Value = Cells(r - 1, 11).Value
> Else
> Cells(r, 11).Value = Cells(r - 1, 11).Value + 1
> End If
> If Cells(r - 1, 11).Value = Cells(r, 11).Value Then
> Cells(r, 12).Value = Cells(r - 1, 12).Value
> Else
> Cells(r, 12).Value =
> Application.WorksheetFunction.Index(Range(Sheet1.Cells(6, 5),
> Sheet1.Cells(idxRowAHS, 5)), _
> Application.WorksheetFunction.Match(Sheet2.Cells(r, 2),
> Range(Sheet1.Cells(6, 3), Sheet1.Cells(idxRowAHS, 3)), 0))
> End If
> If Cells(r, 12).Value <> 0 Then
> Range(Cells(r, 2), Cells(r, 10)).Copy
> Sheet3.Select
> Range("c8").Select
> If ActiveCell.Offset(1, 0) = "" Then
> ActiveCell.Offset(1, -1).Select
> Else
> ActiveCell.End(xlDown).Offset(1, -1).Select
> End If
> ActiveCell.PasteSpecial (xlPasteValuesAndNumberFormats)
> Application.CutCopyMode = False
> End If
> Next r
> Sheet2.Select
> Range("k:l").Delete
> Application.ScreenUpdating = True
> End Sub
--- In belajar-excel@yahoogroups.com , aji mumpung <pupung1986@...>
wrote:
>
> ikutan..
> mungkin bukan solusi optimal, karena pake kolom bantu yang dijalankan
> dengan macro hehehe
> terakhir.. kolom bantunya dihapus lagi jadi di detail RAB bersih dari
kolom
> bantu
>
> cara ini terinspirasi dari solusi Master Kid yang sebelumnya
menawarkan
> solusi dengan formula
>
> codenya ditulis dalam sebuah modul dan dijalankan dengan menekan
sebuah
> tombol
>
> Option Explicit
> ' ======================================
> ' coded by: Aji Mumpung
> ' terinspirasi dari formula master Kid
> ' kaki gunung merbabu, 17 Oktober 2012
> ' sambil angon kambing & nyari rumput
> ' ======================================
> Sub AnalisaRAB()
> Dim hdIdAhsDtl, hdIdAhsRab As Range
> Dim idxRowDtl, idxRowAHS As Long
> Dim r, RecNo, Htg As Long
>
> Application.ScreenUpdating = False
> Set hdIdAhsDtl = Sheet2.Range("b9")
> If Sheet2.Range("b9").Value = "" Then
> MsgBox "Data detail ARB tidak ditemukan", vbOKOnly, "Pesan"
> Exit Sub
> End If
> Set hdIdAhsRab = Sheet1.Range("c6")
> idxRowAHS = Sheet1.Cells.SpecialCells(xlCellTypeLastCell).Row
> idxRowDtl = Sheet2.Cells.SpecialCells(xlCellTypeLastCell).Row
> For r = 9 To idxRowDtl
> Sheet2.Select
> If Cells(r, 2) = "" Then
> Cells(r, 11).Value = Cells(r - 1, 11).Value
> Else
> Cells(r, 11).Value = Cells(r - 1, 11).Value + 1
> End If
> If Cells(r - 1, 11).Value = Cells(r, 11).Value Then
> Cells(r, 12).Value = Cells(r - 1, 12).Value
> Else
> Cells(r, 12).Value =
> Application.WorksheetFunction.Index(Range(Sheet1.Cells(6, 5),
> Sheet1.Cells(idxRowAHS, 5)), _
> Application.WorksheetFunction.Match(Sheet2.Cells(r,
2),
> Range(Sheet1.Cells(6, 3), Sheet1.Cells(idxRowAHS, 3)), 0))
> End If
> If Cells(r, 12).Value <> 0 Then
> Range(Cells(r, 2), Cells(r, 10)).Copy
> Sheet3.Select
> Range("c8").Select
> If ActiveCell.Offset(1, 0) = "" Then
> ActiveCell.Offset(1, -1).Select
> Else
> ActiveCell.End(xlDown).Offset(1, -1).Select
> End If
> ActiveCell.PasteSpecial (xlPasteValuesAndNumberFormats)
> Application.CutCopyMode = False
> End If
> Next r
> Sheet2.Select
> Range("k:l").Delete
> Application.ScreenUpdating = True
> End Sub
>
>
> wassalam,
>
> -aji mumpung-
> #lagi angon sambil cari rumput#
>
> Pada 16 Oktober 2012 19:11, luthfi amin luthfie_27@... menulis:
>
> > **
> >
> >
> > waduh maaf master kid,filenya kegedean gak lihat,maklum baru jadi
> > anggota..
> >
> > dengan solusi sumproduct sudah sangat membantu,tapi analisa saya
banyak
> > master ada sekitar 650 analisa..
> >
> > ada tidak formula atau macro yang lebih efektif??
> >
> > trimakasih
> >
> >
> >
>
peruntah yg gak mau jalan..mohon dibantu
> Sub AnalisaRAB()
> Dim hdIdAhsDtl, hdIdAhsRab As Range
> Dim idxRowDtl, idxRowAHS As Long
> Dim r, RecNo, Htg As Long
>
> Application.
> Set hdIdAhsDtl = Sheet2.Range(
> If Sheet2.Range(
> MsgBox "Data detail ARB tidak ditemukan", vbOKOnly, "Pesan"
> Exit Sub
> End If
> Set hdIdAhsRab = Sheet1.Range(
> idxRowAHS = Sheet1.Cells.
> idxRowDtl = Sheet2.Cells.
> For r = 9 To idxRowDtl
> Sheet2.Select
> If Cells(r, 2) = "" Then
> Cells(r, 11).Value = Cells(r - 1, 11).Value
> Else
> Cells(r, 11).Value = Cells(r - 1, 11).Value + 1
> End If
> If Cells(r - 1, 11).Value = Cells(r, 11).Value Then
> Cells(r, 12).Value = Cells(r - 1, 12).Value
> Else
> Cells(r, 12).Value =
> Application.
> Sheet1.Cells(
> Application.
> Range(Sheet1.
> End If
> If Cells(r, 12).Value <> 0 Then
> Range(Cells(
> Sheet3.Select
> Range("c8").
> If ActiveCell.Offset(
> ActiveCell.Offset(
> Else
> ActiveCell.End(
> End If
> ActiveCell.PasteSpe
> Application.
> End If
> Next r
> Sheet2.Select
> Range("k:l")
> Application.
> End Sub
--- In belajar-excel@
wrote:
>
> ikutan..
> mungkin bukan solusi optimal, karena pake kolom bantu yang dijalankan
> dengan macro hehehe
> terakhir.. kolom bantunya dihapus lagi jadi di detail RAB bersih dari
kolom
> bantu
>
> cara ini terinspirasi dari solusi Master Kid yang sebelumnya
menawarkan
> solusi dengan formula
>
> codenya ditulis dalam sebuah modul dan dijalankan dengan menekan
sebuah
> tombol
>
> Option Explicit
> ' ============
> ' coded by: Aji Mumpung
> ' terinspirasi dari formula master Kid
> ' kaki gunung merbabu, 17 Oktober 2012
> ' sambil angon kambing & nyari rumput
> ' ============
> Sub AnalisaRAB()
> Dim hdIdAhsDtl, hdIdAhsRab As Range
> Dim idxRowDtl, idxRowAHS As Long
> Dim r, RecNo, Htg As Long
>
> Application.
> Set hdIdAhsDtl = Sheet2.Range(
> If Sheet2.Range(
> MsgBox "Data detail ARB tidak ditemukan", vbOKOnly, "Pesan"
> Exit Sub
> End If
> Set hdIdAhsRab = Sheet1.Range(
> idxRowAHS = Sheet1.Cells.
> idxRowDtl = Sheet2.Cells.
> For r = 9 To idxRowDtl
> Sheet2.Select
> If Cells(r, 2) = "" Then
> Cells(r, 11).Value = Cells(r - 1, 11).Value
> Else
> Cells(r, 11).Value = Cells(r - 1, 11).Value + 1
> End If
> If Cells(r - 1, 11).Value = Cells(r, 11).Value Then
> Cells(r, 12).Value = Cells(r - 1, 12).Value
> Else
> Cells(r, 12).Value =
> Application.
> Sheet1.Cells(
> Application.
2),
> Range(Sheet1.
> End If
> If Cells(r, 12).Value <> 0 Then
> Range(Cells(
> Sheet3.Select
> Range("c8").
> If ActiveCell.Offset(
> ActiveCell.Offset(
> Else
> ActiveCell.End(
> End If
> ActiveCell.PasteSpe
> Application.
> End If
> Next r
> Sheet2.Select
> Range("k:l")
> Application.
> End Sub
>
>
> wassalam,
>
> -aji mumpung-
> #lagi angon sambil cari rumput#
>
> Pada 16 Oktober 2012 19:11, luthfi amin luthfie_27@.
>
> > **
> >
> >
> > waduh maaf master kid,filenya kegedean gak lihat,maklum baru jadi
> > anggota..
> >
> > dengan solusi sumproduct sudah sangat membantu,tapi analisa saya
banyak
> > master ada sekitar 650 analisa..
> >
> > ada tidak formula atau macro yang lebih efektif??
> >
> > trimakasih
> >
> >
> >
>
Wed Oct 17, 2012 10:03 pm (PDT) . Posted by:
"aji mumpung"
bisa tolong di posting contoh wbknya.. >>> yang kode vbanya gak mau jalan..
cukup beberapa baris data saja, ukuran <250 kb
wassalam,
-aji mumpung-
Pada 18 Oktober 2012 11:35, luthfie_27 <luthfie_27@yahoo.co.id > menulis:
> **
>
>
> ini macro saya copikan di excel yang laen gak mau,saya kasih warna merah
> peruntah yg gak mau jalan..
> mohon dibantu
>
> > Sub AnalisaRAB()
> > Dim hdIdAhsDtl, hdIdAhsRab As Range
> > Dim idxRowDtl, idxRowAHS As Long
> > Dim r, RecNo, Htg As Long
> >
> > Application.ScreenUpdating = False
> > Set hdIdAhsDtl = Sheet2.Range("b9")
> > If Sheet2.Range("b9").Value = "" Then
> > MsgBox "Data detail ARB tidak ditemukan", vbOKOnly, "Pesan"
> > Exit Sub
> > End If
> > Set hdIdAhsRab = Sheet1.Range("c6")
> > idxRowAHS = Sheet1.Cells.SpecialCells(xlCellTypeLastCell).Row
> > idxRowDtl = Sheet2.Cells.SpecialCells(xlCellTypeLastCell).Row
> > For r = 9 To idxRowDtl
> > Sheet2.Select
> > If Cells(r, 2) = "" Then
> > Cells(r, 11).Value = Cells(r - 1, 11).Value
> > Else
> > Cells(r, 11).Value = Cells(r - 1, 11).Value + 1
> > End If
> > If Cells(r - 1, 11).Value = Cells(r, 11).Value Then
> > Cells(r, 12).Value = Cells(r - 1, 12).Value
> > Else
> > Cells(r, 12).Value =
> > Application.WorksheetFunction.Index(Range(Sheet1.Cells(6, 5),
> > Sheet1.Cells(idxRowAHS, 5)), _
> > Application.WorksheetFunction.Match(Sheet2.Cells(r, 2),
> > Range(Sheet1.Cells(6, 3), Sheet1.Cells(idxRowAHS, 3)), 0))
> > End If
> > If Cells(r, 12).Value <> 0 Then
> > Range(Cells(r, 2), Cells(r, 10)).Copy
> > Sheet3.Select
> > Range("c8").Select
> > If ActiveCell.Offset(1, 0) = "" Then
> > ActiveCell.Offset(1, -1).Select
> > Else
> > ActiveCell.End(xlDown).Offset(1, -1).Select
> > End If
> > ActiveCell.PasteSpecial (xlPasteValuesAndNumberFormats)
> > Application.CutCopyMode = False
> > End If
> > Next r
> > Sheet2.Select
> > Range("k:l").Delete
> > Application.ScreenUpdating = True
> > End Sub
>
>
>
> --- In belajar-excel@yahoogroups.com , aji mumpung <pupung1986@...> wrote:
> >
> > ikutan..
> > mungkin bukan solusi optimal, karena pake kolom bantu yang dijalankan
> > dengan macro hehehe
> > terakhir.. kolom bantunya dihapus lagi jadi di detail RAB bersih dari
> kolom
> > bantu
> >
> > cara ini terinspirasi dari solusi Master Kid yang sebelumnya menawarkan
> > solusi dengan formula
> >
> > codenya ditulis dalam sebuah modul dan dijalankan dengan menekan sebuah
> > tombol
> >
> > Option Explicit
> > ' ======================================
> > ' coded by: Aji Mumpung
> > ' terinspirasi dari formula master Kid
> > ' kaki gunung merbabu, 17 Oktober 2012
> > ' sambil angon kambing & nyari rumput
> > ' ======================================
> > Sub AnalisaRAB()
> > Dim hdIdAhsDtl, hdIdAhsRab As Range
> > Dim idxRowDtl, idxRowAHS As Long
> > Dim r, RecNo, Htg As Long
> >
> > Application.ScreenUpdating = False
> > Set hdIdAhsDtl = Sheet2.Range("b9")
> > If Sheet2.Range("b9").Value = "" Then
> > MsgBox "Data detail ARB tidak ditemukan", vbOKOnly, "Pesan"
> > Exit Sub
> > End If
> > Set hdIdAhsRab = Sheet1.Range("c6")
> > idxRowAHS = Sheet1.Cells.SpecialCells(xlCellTypeLastCell).Row
> > idxRowDtl = Sheet2.Cells.SpecialCells(xlCellTypeLastCell).Row
> > For r = 9 To idxRowDtl
> > Sheet2.Select
> > If Cells(r, 2) = "" Then
> > Cells(r, 11).Value = Cells(r - 1, 11).Value
> > Else
> > Cells(r, 11).Value = Cells(r - 1, 11).Value + 1
> > End If
> > If Cells(r - 1, 11).Value = Cells(r, 11).Value Then
> > Cells(r, 12).Value = Cells(r - 1, 12).Value
> > Else
> > Cells(r, 12).Value =
> > Application.WorksheetFunction.Index(Range(Sheet1.Cells(6, 5),
> > Sheet1.Cells(idxRowAHS, 5)), _
> > Application.WorksheetFunction.Match(Sheet2.Cells(r, 2),
> > Range(Sheet1.Cells(6, 3), Sheet1.Cells(idxRowAHS, 3)), 0))
> > End If
> > If Cells(r, 12).Value <> 0 Then
> > Range(Cells(r, 2), Cells(r, 10)).Copy
> > Sheet3.Select
> > Range("c8").Select
> > If ActiveCell.Offset(1, 0) = "" Then
> > ActiveCell.Offset(1, -1).Select
> > Else
> > ActiveCell.End(xlDown).Offset(1, -1).Select
> > End If
> > ActiveCell.PasteSpecial (xlPasteValuesAndNumberFormats)
> > Application.CutCopyMode = False
> > End If
> > Next r
> > Sheet2.Select
> > Range("k:l").Delete
> > Application.ScreenUpdating = True
> > End Sub
> >
> >
> > wassalam,
> >
> > -aji mumpung-
> > #lagi angon sambil cari rumput#
> >
> > Pada 16 Oktober 2012 19:11, luthfi amin luthfie_27@... menulis:
> >
> > > **
>
> > >
> > >
> > > waduh maaf master kid,filenya kegedean gak lihat,maklum baru jadi
> > > anggota..
> > >
> > > dengan solusi sumproduct sudah sangat membantu,tapi analisa saya banyak
> > > master ada sekitar 650 analisa..
> > >
> > > ada tidak formula atau macro yang lebih efektif??
> > >
> > > trimakasih
> > >
> > >
> > >
> >
>
>
>
cukup beberapa baris data saja, ukuran <250 kb
wassalam,
-aji mumpung-
Pada 18 Oktober 2012 11:35, luthfie_27 <luthfie_27@yahoo.
> **
>
>
> ini macro saya copikan di excel yang laen gak mau,saya kasih warna merah
> peruntah yg gak mau jalan..
> mohon dibantu
>
> > Sub AnalisaRAB()
> > Dim hdIdAhsDtl, hdIdAhsRab As Range
> > Dim idxRowDtl, idxRowAHS As Long
> > Dim r, RecNo, Htg As Long
> >
> > Application.
> > Set hdIdAhsDtl = Sheet2.Range(
> > If Sheet2.Range(
> > MsgBox "Data detail ARB tidak ditemukan", vbOKOnly, "Pesan"
> > Exit Sub
> > End If
> > Set hdIdAhsRab = Sheet1.Range(
> > idxRowAHS = Sheet1.Cells.
> > idxRowDtl = Sheet2.Cells.
> > For r = 9 To idxRowDtl
> > Sheet2.Select
> > If Cells(r, 2) = "" Then
> > Cells(r, 11).Value = Cells(r - 1, 11).Value
> > Else
> > Cells(r, 11).Value = Cells(r - 1, 11).Value + 1
> > End If
> > If Cells(r - 1, 11).Value = Cells(r, 11).Value Then
> > Cells(r, 12).Value = Cells(r - 1, 12).Value
> > Else
> > Cells(r, 12).Value =
> > Application.
> > Sheet1.Cells(
> > Application.
> > Range(Sheet1.
> > End If
> > If Cells(r, 12).Value <> 0 Then
> > Range(Cells(
> > Sheet3.Select
> > Range("c8").
> > If ActiveCell.Offset(
> > ActiveCell.Offset(
> > Else
> > ActiveCell.End(
> > End If
> > ActiveCell.PasteSpe
> > Application.
> > End If
> > Next r
> > Sheet2.Select
> > Range("k:l")
> > Application.
> > End Sub
>
>
>
> --- In belajar-excel@
> >
> > ikutan..
> > mungkin bukan solusi optimal, karena pake kolom bantu yang dijalankan
> > dengan macro hehehe
> > terakhir.. kolom bantunya dihapus lagi jadi di detail RAB bersih dari
> kolom
> > bantu
> >
> > cara ini terinspirasi dari solusi Master Kid yang sebelumnya menawarkan
> > solusi dengan formula
> >
> > codenya ditulis dalam sebuah modul dan dijalankan dengan menekan sebuah
> > tombol
> >
> > Option Explicit
> > ' ============
> > ' coded by: Aji Mumpung
> > ' terinspirasi dari formula master Kid
> > ' kaki gunung merbabu, 17 Oktober 2012
> > ' sambil angon kambing & nyari rumput
> > ' ============
> > Sub AnalisaRAB()
> > Dim hdIdAhsDtl, hdIdAhsRab As Range
> > Dim idxRowDtl, idxRowAHS As Long
> > Dim r, RecNo, Htg As Long
> >
> > Application.
> > Set hdIdAhsDtl = Sheet2.Range(
> > If Sheet2.Range(
> > MsgBox "Data detail ARB tidak ditemukan", vbOKOnly, "Pesan"
> > Exit Sub
> > End If
> > Set hdIdAhsRab = Sheet1.Range(
> > idxRowAHS = Sheet1.Cells.
> > idxRowDtl = Sheet2.Cells.
> > For r = 9 To idxRowDtl
> > Sheet2.Select
> > If Cells(r, 2) = "" Then
> > Cells(r, 11).Value = Cells(r - 1, 11).Value
> > Else
> > Cells(r, 11).Value = Cells(r - 1, 11).Value + 1
> > End If
> > If Cells(r - 1, 11).Value = Cells(r, 11).Value Then
> > Cells(r, 12).Value = Cells(r - 1, 12).Value
> > Else
> > Cells(r, 12).Value =
> > Application.
> > Sheet1.Cells(
> > Application.
> > Range(Sheet1.
> > End If
> > If Cells(r, 12).Value <> 0 Then
> > Range(Cells(
> > Sheet3.Select
> > Range("c8").
> > If ActiveCell.Offset(
> > ActiveCell.Offset(
> > Else
> > ActiveCell.End(
> > End If
> > ActiveCell.PasteSpe
> > Application.
> > End If
> > Next r
> > Sheet2.Select
> > Range("k:l")
> > Application.
> > End Sub
> >
> >
> > wassalam,
> >
> > -aji mumpung-
> > #lagi angon sambil cari rumput#
> >
> > Pada 16 Oktober 2012 19:11, luthfi amin luthfie_27@.
> >
> > > **
>
> > >
> > >
> > > waduh maaf master kid,filenya kegedean gak lihat,maklum baru jadi
> > > anggota..
> > >
> > > dengan solusi sumproduct sudah sangat membantu,tapi analisa saya banyak
> > > master ada sekitar 650 analisa..
> > >
> > > ada tidak formula atau macro yang lebih efektif??
> > >
> > > trimakasih
> > >
> > >
> > >
> >
>
>
>
Wed Oct 17, 2012 10:02 pm (PDT) . Posted by:
"rodhy hakim" odhyz83_assasaky
Dear Master,
Mohon bantuan membuat Rekapitulasi data dengan menggunakan Macro.
untuk penjelesannya pada file terlampir.
terimakasih,
odhy
Mohon bantuan membuat Rekapitulasi data dengan menggunakan Macro.
untuk penjelesannya pada file terlampir.
terimakasih,
odhy
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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