15 New Messages
Digest #1784
| 5b Re: Tanya rumus (Mods :: [apa ?] : distribusi stok antar warehouse) by "Yudi Dwiyono" yudi_dwiyono |
Messages
Sun Sep 16, 2012 9:33 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Pak Asseggaf,
Agar tidak mengganggu data aslinya, copy data yang belum tersortir dari Sheet1 ke Sheet2
File terlampir memanfaatkan Event WorkSheet_BeforeDoubleClick berikut ini pada Sheet2.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)'macro ini dicopy ke sheet2 pada Sheet VBA
Call nyortir 'mamanggil macro "nyortir"
Cancel = True
End Sub
Sub nyortir() 'macro ini dicopy ke Module1(setelah insert module) pada Sheet VBA
Dim Rng As Range
Set Rng = Sheets("Sheet2").Range("A1").CurrentRegion
Range("A1").Select
For i = 1 To Rng.Rows.Count
ActiveCell.Resize(1, 5).Select
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Selection, _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet2").Sort
.SetRange Selection
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
ActiveCell.Offset(1, 0).Select
Next
End Sub
Untuk menyortir, cukup klik salah satu sel yang ada di Sheet2.
Salam,
Hendrik Karnadi
________________________________
From: Mohammed Asseggaf <seggaf@sbtcgroup.com >
To: belajar-excel@yahoogroups.com
Sent: Sunday, 16 September 2012, 19:48
Subject: [belajar-excel] cara sort per row
Halo semua,….
lagi bingung nih mau nge sort row ,.. tapi ada beberapa row,…
Bagaimana yah caranya
Agar tidak mengganggu data aslinya, copy data yang belum tersortir dari Sheet1 ke Sheet2
File terlampir memanfaatkan Event WorkSheet_BeforeDou
Private Sub Worksheet_BeforeDou
Call nyortir 'mamanggil macro "nyortir"
Cancel = True
End Sub
Sub nyortir() 'macro ini dicopy ke Module1(setelah insert module) pada Sheet VBA
Dim Rng As Range
Set Rng = Sheets("Sheet2"
Range("A1").
For i = 1 To Rng.Rows.Count
ActiveCell.Resize(
ActiveWorkbook.
ActiveWorkbook.
SortOn:=xlSortOnVal
With ActiveWorkbook.
.SetRange Selection
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
ActiveCell.Offset(
Next
End Sub
Untuk menyortir, cukup klik salah satu sel yang ada di Sheet2.
Salam,
Hendrik Karnadi
____________
From: Mohammed Asseggaf <seggaf@sbtcgroup.
To: belajar-excel@
Sent: Sunday, 16 September 2012, 19:48
Subject: [belajar-excel] cara sort per row
Halo semua,….
lagi bingung nih mau nge sort row ,.. tapi ada beberapa row,…
Bagaimana yah caranya
Sun Sep 16, 2012 9:47 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Hai Asseggaf,
Salah satu cara menghasilkan data terurut *disuatu tempat lain* adalah
dengan *array formula* sorting.
Salah satu array formula sorting untuk mengurutkan data di C2:G2 adalah :
(hasil diletakkan di baris 20 mulai kolom C juga [C2:G20])
(misal untuk hasil di G20 -> hasil terkahir untuk memproses C2:G2)
*
=INDEX($C2:$G2,1,MOD(SMALL(COUNTIF($C2:$G2,"<"&$C2:$G2)*10+COLUMN($C2:$G2)-COLUMN($B2),COLUMN()-COLUMN($B20)),10))
*
(copy formula ke cell hasil lainnya)
>> Bagi yang masih asing dengan array formula <<
- Tulis formula dan jangan tekan ENTER
- tapi tekan 3 tombol berikut bersamaan
CTRL SHIFT ENTER
>> ----------------------------------------------------- <<
*-- Data di C2:G2 --*
*z* *f* *a* *t* *e*
*-- Mengurutkan Data --*
Mengurutkan data bisa dilakukan dengan mengetahui jumlah cacah data yang
kurang dari dirinya.
Contoh : berapa jumlah cacah data di C2:G2 yang kurang dari
- nilai 'z' ? >> jawabnya : 4, yaitu f a t e
- nilai 'f' ? >> jawabnya : 2, yaitu a e
- nilai 'a' ? >> jawabnya : 0
- nilai 't' ? >> jawabnya : 3, yaitu f a e
- nilai 'e' ? >> jawabnya : 1, yaitu a
Maka jika disusun, jumlah cacah data yang kurang dari setiap nilai di C2:G2
:
*data : z f a t e
n : 4 2 0 3 1*
Bagaimana cara mendapatkan nilai-nilai n tersebut ?
Fungsi CountIF dapat digunakan untuk hal ini. Perhatikan bagian CountIF
pada array formula di atas :
*COUNTIF($C2:$G2,"<"&$C2:$G2)*
Bahas manusianya :
"Hitung jumlah cacah di C2:G2 yang kurang dari ("<") dirinya sendiri (*
&$C2:$G2*)"
karena kriteria dalam fungsi CountIF adalah *berupa banyak nilai data
kriteria yang diproses*, maka *hasilnya akan ada banyak nilai *juga. Ini
sering *disebut* *array*.
Hasil CountIF bisa digunakan untuk mengurutkan (perhatikan yang
di-*merah*[larik data dan larik n]
)
*- Jika ingin diurutkan Ascending, siapakah data c2:g2 yang harusnya
menjadi hasil pertama dalam pengurutan ? *
>> karakter 'a'
*- kenapa ? *
>> karena nilai n (jumlah data yang kurang dari karakter 'a') adalah 0
alias karakter 'a' adalah yang terkecil.
*- kok tahu, kalau 0 itu punyanya si 'a' ?*
>> karena nilai *0* di *larik n* memiliki nilai *'a'* di *larik data*.
Jadi untuk hasil sort urutan ke-2 dan seterusnya juga bisa didapat.
larik n bisa diurutkan Ascending dengan Small hingga menjadi :
n : 0 1 2 3 4
tapi, antara larik data dengan larik n jadi gak klop lagi. Yang 0 sekarang
ada di bawahnya 'z' dan yang 4 ada di bawahnya 'e'
*jadi, pengurutan larik n harus disertai larik data.*
Berhubung si Small itu bisanya hanya mengurutkan data numerik, maka untuk
nilai larik data yang tidak numerik ndak bisa diurutkan dengan small,
kecuali jika diganti dulu dengan angka. *Salah satu caranya adalah dengan
memanfaatkan nomor indeks kolom data.*
Kalau data di C2:G2 diganti dengan indeks kolom data, maka nilai di C2 bisa
diberi angka indeks kolom data 1 dan D2 bernilai 2 dan seterusnya.
Larik data dan larik n akan berteman dengan larik C sebagai berikut :
*C : 1 2 3 4 5
data : z f a t e
n : 4 2 0 3 1*
Sekarang data sudah bisa diwakili dengan nilai numerik. Sekarang, harus
disusun format gabungan larik C dan N yang mewakili hasil pengurutan.
Jika akan diurutkan ascending, harusnya nanti jadinya :
*C : 3 5 2 4 1
data : a e f t z
n : 0 1 2 3 4 *
Oh ternya dasar pengurutannya tetap berdasar larik N, yang diikuti dengan
larik C. Jadi kalau larik C nilainya 2, pasti nilainya data adalah 'f'
Untuk kebutuhan ini, maka dibuatlah format gabungannya, seperti N diikuti C
[NC] dan untuk kasus ini, masing-masing cukup 1 digit.
Contoh :
NC = 03 -> jumlah cacah datanya 0, dan indeks kolom datanya 3, maka data
yang bisa didapat untuk C bernilai 3 di C2:G2 adalah karakter 'a'
NC = 34 -> jumlah cacah datanya 3, dan indeks kolom datanya 4, maka data
yang bisa didapat untuk C bernilai 4 di C2:G2 adalah karakter 't'
Formulasi untuk menyusun NC ini adalah :
*nilai N* kemudian *dibuatkan ruang 1 digit dibelakangnya* yang kemudian *diisi
dengan nilai C*.
*N *** 10* *+ C*
*Data seperti gabungan NC ini sering disebut Composite Key.*
> Nilai N sudah diketahui didapat dari CountIF yang berbunyi :
* COUNTIF($C2:$G2,"<"&$C2:$G2)
*> Nilai C didapat dari indeks kolom Excel lokasi si data dikurangi indeks
kolom Excel dari 1 kolom sebelum data pertama (sebelum C2) yang berarti
indeks kolom Excel di kolom B2. Formulasinya :
* Column() - Column( $b2 )*
> jadi formulasi untuk menyusun NC sesuai kaidahnya : *N *** 10* *+ C*
*COUNTIF($C2:$G2,"<"&$C2:$G2) * 10 + **Column() - Column( $b2 )*
Larik NC akan berupa :
*C : 1 2 3 4 5
data : z f a t e
n : 4 2 0 3 1*
*NC : 41 22 03 34 15*
*Nilai *03 *akan tampak sebagai nilai *3* saja.
Sekarang, fungsi Small bisa digunakan untuk mengurutkan data secara
Ascending, sekaligus mengambil hasil pengurutan yang terkecil *ke-X*.
Nilai *X* sangat tergantung posisi cell hasil. Untuk hasil di G20 (sudah
disepakati di atas sana tentang lokasi hasilnya),
maka nilai X-nya adalah 5 karena C20 indeks kolom datanya adalah 1.
Jadi, nilai X juga bisa menggunakan formulasi penyusun larik C, tetapi
untuk baris Excel *20 *(baris Excel lokasi hasil)
*Column() - Column( $b20 )*
Lengkap sudah proses pengurutan dan pengambilan nilai berformat NC
menggunakan fungsi Small, yaitu : (potongan array formula yang berbunyi)
*SMALL( COUNTIF($C2:$G2,"<"&$C2:$G2) *10 + COLUMN($C2:$G2)-COLUMN($B2)
,COLUMN()-COLUMN($B20))*
*-- Mengekstrak data Composite Key --*
Kita sudah mendapatkan data composite key bernama NC yang merupakan
gabungan nilai jumlah cacah data disandingkan dengan 1 digit indeks kolom
data.
Formulasi penyusunnya adalah *N *** 10* *+ C* (perhatikan ** 10*)
Kunci struktur NC adalah dibagian ** 10*
Jika ingin mengambil nilai N, maka cukup dengan mengambil bilangan bulat
hasil pembagian NC dengan 10.
*Untuk kasus ini, yang dibutuhkan justru nilai C, karena nilai C akan
membawa kita ke nilai data di C2:G2.*
Banyak cara untuk mengambil nilai C dari composite key NC di atas. Salah
satunya adalah memanfaatkan fungsi Mod.
Fungsi Mod dapat mengambil nilai sisa bagi suatu bilangan data yang dibagi
dengan suatu bilangan pembagi.
Contoh :
- Nilai 5 yang dibagi dengan 2 akan menyisakan nilai 1 -> 2 x 2 = 4, untuk
mencapai 5 masih butuh 1 satuan lagi. :: di Excel >> =Mod( 5 , 2 ) ::
hasilnya 1
- Nilai 6 yang dibagi dengan 3 akan menyisakan nilai 0 -> 3 x 2 = 6, untuk
mencapai 6 masih butuh 0 satuan lagi. :: di Excel >> =Mod( 6 , 3 ) ::
hasilnya 0
Pada kasus ini,
- bilangan yang *dibagi *adalah hasil formula Small :
* SMALL( COUNTIF($C2:$G2,"<"&$C2:$G2) *10 +
COLUMN($C2:$G2)-COLUMN($B2) ,COLUMN()-COLUMN($B20))*
- bilangan *pembagi*nya adalah *10* yang menjadi pembentuk ruang digit C
pada formulasi NC : *N *** 10* *+ C*
Jadi formulasi untuk mengekstrak nilai C dari composite key NC adalah :
*Mod( bilangan yang dibagi , bilangan pembagi )*
yaitu :
*Mod( SMALL( COUNTIF($C2:$G2,"<"&$C2:$G2) *10 +
COLUMN($C2:$G2)-COLUMN($B2) ,COLUMN()-COLUMN($B20)) , 10 )*
*-- Mengambil data berdasar indeks kolom datanya --*
Sampai sejauh ini, telah didapatkan nilai indeks kolom data yang menjadi
akan menjadi hasil akhir. Indeks kolom data ini berupa posisi data pada
kolom tertentu relatif terhadap titik awal data. Untuk keperluan
pengambilan data dengan diketahui indeks kolom datanya, bisa memanfaatkan
fungsi Index.
*Index( referensi datanya , indeks baris data yang akan diambil , [indeks
kolom data yang akan diambil] )*
Pada kasus ini,
*referensi datanya *adalah data C2:G2
*indeks baris data yang akan diambil *adalah *1* (karena data hanya berisi
1 baris)
*[indeks kolom data yang akan diambil] *adalah nilai C hasil ekstrak data
composite key yang berbunyi :
*Mod( SMALL( COUNTIF($C2:$G2,"<"&$C2:$G2) *10 +
COLUMN($C2:$G2)-COLUMN($B2) ,COLUMN()-COLUMN($B20)) , 10 )*
Maka susunan formula pengambil datanya :
*Index( **C2:G2 , 1 , **Mod( SMALL( COUNTIF($C2:$G2,"<"&$C2:$G2) *10 +
COLUMN($C2:$G2)-COLUMN($B2) , COLUMN()-COLUMN($B20) ) , 10 ) )*
yang berupa array formula, karena bagian CountIF memproses banyak data
sekaligus dan menghasilkan banyak data juga yang berupa larik data (array).
-----------------------------------------------
File terlampir adalah contohnya.
Wassalamualaikum Wr. Wb.
Kid.
2012/9/16 Mohammed Asseggaf <seggaf@sbtcgroup.com >
> **
>
>
> Halo semua,�.
>
> lagi bingung nih mau nge sort row ,.. tapi ada beberapa row,�****
>
> ** **
>
> Bagaimana yah caranya****
>
>
>
>
Salah satu cara menghasilkan data terurut *disuatu tempat lain* adalah
dengan *array formula* sorting.
Salah satu array formula sorting untuk mengurutkan data di C2:G2 adalah :
(hasil diletakkan di baris 20 mulai kolom C juga [C2:G20])
(misal untuk hasil di G20 -> hasil terkahir untuk memproses C2:G2)
*
=INDEX($C2:$
*
(copy formula ke cell hasil lainnya)
>> Bagi yang masih asing dengan array formula <<
- Tulis formula dan jangan tekan ENTER
- tapi tekan 3 tombol berikut bersamaan
CTRL SHIFT ENTER
>> ------------
*-- Data di C2:G2 --*
*z* *f* *a* *t* *e*
*-- Mengurutkan Data --*
Mengurutkan data bisa dilakukan dengan mengetahui jumlah cacah data yang
kurang dari dirinya.
Contoh : berapa jumlah cacah data di C2:G2 yang kurang dari
- nilai 'z' ? >> jawabnya : 4, yaitu f a t e
- nilai 'f' ? >> jawabnya : 2, yaitu a e
- nilai 'a' ? >> jawabnya : 0
- nilai 't' ? >> jawabnya : 3, yaitu f a e
- nilai 'e' ? >> jawabnya : 1, yaitu a
Maka jika disusun, jumlah cacah data yang kurang dari setiap nilai di C2:G2
:
*data : z f a t e
n : 4 2 0 3 1*
Bagaimana cara mendapatkan nilai-nilai n tersebut ?
Fungsi CountIF dapat digunakan untuk hal ini. Perhatikan bagian CountIF
pada array formula di atas :
*COUNTIF($C2:
Bahas manusianya :
"Hitung jumlah cacah di C2:G2 yang kurang dari ("<") dirinya sendiri (*
&$C2:$G2*)"
karena kriteria dalam fungsi CountIF adalah *berupa banyak nilai data
kriteria yang diproses*, maka *hasilnya akan ada banyak nilai *juga. Ini
sering *disebut* *array*.
Hasil CountIF bisa digunakan untuk mengurutkan (perhatikan yang
di-*merah*[larik data dan larik n]
)
*- Jika ingin diurutkan Ascending, siapakah data c2:g2 yang harusnya
menjadi hasil pertama dalam pengurutan ? *
>> karakter 'a'
*- kenapa ? *
>> karena nilai n (jumlah data yang kurang dari karakter 'a') adalah 0
alias karakter 'a' adalah yang terkecil.
*- kok tahu, kalau 0 itu punyanya si 'a' ?*
>> karena nilai *0* di *larik n* memiliki nilai *'a'* di *larik data*.
Jadi untuk hasil sort urutan ke-2 dan seterusnya juga bisa didapat.
larik n bisa diurutkan Ascending dengan Small hingga menjadi :
n : 0 1 2 3 4
tapi, antara larik data dengan larik n jadi gak klop lagi. Yang 0 sekarang
ada di bawahnya 'z' dan yang 4 ada di bawahnya 'e'
*jadi, pengurutan larik n harus disertai larik data.*
Berhubung si Small itu bisanya hanya mengurutkan data numerik, maka untuk
nilai larik data yang tidak numerik ndak bisa diurutkan dengan small,
kecuali jika diganti dulu dengan angka. *Salah satu caranya adalah dengan
memanfaatkan nomor indeks kolom data.*
Kalau data di C2:G2 diganti dengan indeks kolom data, maka nilai di C2 bisa
diberi angka indeks kolom data 1 dan D2 bernilai 2 dan seterusnya.
Larik data dan larik n akan berteman dengan larik C sebagai berikut :
*C : 1 2 3 4 5
data : z f a t e
n : 4 2 0 3 1*
Sekarang data sudah bisa diwakili dengan nilai numerik. Sekarang, harus
disusun format gabungan larik C dan N yang mewakili hasil pengurutan.
Jika akan diurutkan ascending, harusnya nanti jadinya :
*C : 3 5 2 4 1
data : a e f t z
n : 0 1 2 3 4 *
Oh ternya dasar pengurutannya tetap berdasar larik N, yang diikuti dengan
larik C. Jadi kalau larik C nilainya 2, pasti nilainya data adalah 'f'
Untuk kebutuhan ini, maka dibuatlah format gabungannya, seperti N diikuti C
[NC] dan untuk kasus ini, masing-masing cukup 1 digit.
Contoh :
NC = 03 -> jumlah cacah datanya 0, dan indeks kolom datanya 3, maka data
yang bisa didapat untuk C bernilai 3 di C2:G2 adalah karakter 'a'
NC = 34 -> jumlah cacah datanya 3, dan indeks kolom datanya 4, maka data
yang bisa didapat untuk C bernilai 4 di C2:G2 adalah karakter 't'
Formulasi untuk menyusun NC ini adalah :
*nilai N* kemudian *dibuatkan ruang 1 digit dibelakangnya* yang kemudian *diisi
dengan nilai C*.
*N *** 10* *+ C*
*Data seperti gabungan NC ini sering disebut Composite Key.*
> Nilai N sudah diketahui didapat dari CountIF yang berbunyi :
* COUNTIF($C2:
*> Nilai C didapat dari indeks kolom Excel lokasi si data dikurangi indeks
kolom Excel dari 1 kolom sebelum data pertama (sebelum C2) yang berarti
indeks kolom Excel di kolom B2. Formulasinya :
* Column() - Column( $b2 )*
> jadi formulasi untuk menyusun NC sesuai kaidahnya : *N *** 10* *+ C*
*COUNTIF($C2:
Larik NC akan berupa :
*C : 1 2 3 4 5
data : z f a t e
n : 4 2 0 3 1*
*NC : 41 22 03 34 15*
*Nilai *03 *akan tampak sebagai nilai *3* saja.
Sekarang, fungsi Small bisa digunakan untuk mengurutkan data secara
Ascending, sekaligus mengambil hasil pengurutan yang terkecil *ke-X*.
Nilai *X* sangat tergantung posisi cell hasil. Untuk hasil di G20 (sudah
disepakati di atas sana tentang lokasi hasilnya),
maka nilai X-nya adalah 5 karena C20 indeks kolom datanya adalah 1.
Jadi, nilai X juga bisa menggunakan formulasi penyusun larik C, tetapi
untuk baris Excel *20 *(baris Excel lokasi hasil)
*Column() - Column( $b20 )*
Lengkap sudah proses pengurutan dan pengambilan nilai berformat NC
menggunakan fungsi Small, yaitu : (potongan array formula yang berbunyi)
*SMALL( COUNTIF($C2:
,COLUMN()-COLUMN(
*-- Mengekstrak data Composite Key --*
Kita sudah mendapatkan data composite key bernama NC yang merupakan
gabungan nilai jumlah cacah data disandingkan dengan 1 digit indeks kolom
data.
Formulasi penyusunnya adalah *N *** 10* *+ C* (perhatikan ** 10*)
Kunci struktur NC adalah dibagian ** 10*
Jika ingin mengambil nilai N, maka cukup dengan mengambil bilangan bulat
hasil pembagian NC dengan 10.
*Untuk kasus ini, yang dibutuhkan justru nilai C, karena nilai C akan
membawa kita ke nilai data di C2:G2.*
Banyak cara untuk mengambil nilai C dari composite key NC di atas. Salah
satunya adalah memanfaatkan fungsi Mod.
Fungsi Mod dapat mengambil nilai sisa bagi suatu bilangan data yang dibagi
dengan suatu bilangan pembagi.
Contoh :
- Nilai 5 yang dibagi dengan 2 akan menyisakan nilai 1 -> 2 x 2 = 4, untuk
mencapai 5 masih butuh 1 satuan lagi. :: di Excel >> =Mod( 5 , 2 ) ::
hasilnya 1
- Nilai 6 yang dibagi dengan 3 akan menyisakan nilai 0 -> 3 x 2 = 6, untuk
mencapai 6 masih butuh 0 satuan lagi. :: di Excel >> =Mod( 6 , 3 ) ::
hasilnya 0
Pada kasus ini,
- bilangan yang *dibagi *adalah hasil formula Small :
* SMALL( COUNTIF($C2:
COLUMN($C2:$
- bilangan *pembagi*nya adalah *10* yang menjadi pembentuk ruang digit C
pada formulasi NC : *N *** 10* *+ C*
Jadi formulasi untuk mengekstrak nilai C dari composite key NC adalah :
*Mod( bilangan yang dibagi , bilangan pembagi )*
yaitu :
*Mod( SMALL( COUNTIF($C2:
COLUMN($C2:$
*-- Mengambil data berdasar indeks kolom datanya --*
Sampai sejauh ini, telah didapatkan nilai indeks kolom data yang menjadi
akan menjadi hasil akhir. Indeks kolom data ini berupa posisi data pada
kolom tertentu relatif terhadap titik awal data. Untuk keperluan
pengambilan data dengan diketahui indeks kolom datanya, bisa memanfaatkan
fungsi Index.
*Index( referensi datanya , indeks baris data yang akan diambil , [indeks
kolom data yang akan diambil] )*
Pada kasus ini,
*referensi datanya *adalah data C2:G2
*indeks baris data yang akan diambil *adalah *1* (karena data hanya berisi
1 baris)
*[indeks kolom data yang akan diambil] *adalah nilai C hasil ekstrak data
composite key yang berbunyi :
*Mod( SMALL( COUNTIF($C2:
COLUMN($C2:$
Maka susunan formula pengambil datanya :
*Index( **C2:G2 , 1 , **Mod( SMALL( COUNTIF($C2:
COLUMN($C2:$
yang berupa array formula, karena bagian CountIF memproses banyak data
sekaligus dan menghasilkan banyak data juga yang berupa larik data (array).
------------
File terlampir adalah contohnya.
Wassalamualaikum Wr. Wb.
Kid.
2012/9/16 Mohammed Asseggaf <seggaf@sbtcgroup.
> **
>
>
> Halo semua,�.
>
> lagi bingung nih mau nge sort row ,.. tapi ada beberapa row,�****
>
> ** **
>
> Bagaimana yah caranya****
>
>
>
>
Sun Sep 16, 2012 10:02 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
VBA dengan metode Sort juga bisa disusun seperti dalam prosedur SortPerRow
berikut :
Public Sub SortPerRow()
Dim rng As Range, rngData As Range
Dim lCols As Long
Set rngData = Selection
lCols = rngData.Columns.Count
For Each rng In rngData.Resize(, 1)
rng.Resize(1, lCols).Sort rng, xlAscending, Header:=xlNo,
Orientation:=xlSortRows
Next rng
End Sub
Cara pasang :
1. ke VBE (dari worksheet, tekan ALT F11)
2. menu Insert -> pilih Module
3. copas script di atas ke lembar module yang disediakan
4. kembali ke worksheet (ALT F11)
5. save as file dan pastikan pilih ekstensi .xlsm atau .xlsb atau .xls
Cara pakai
1. blok data yang akan di-sort
2. jalankan macro bernama SortPerRow
>> backup data asli bila perlu.
Wassalam,
Kid.
On Sun, Sep 16, 2012 at 11:33 PM, hendrik karnadi
<hendrikkarnadi@yahoo.com >wrote:
> **
>
>
> Pak Asseggaf,
> Agar tidak mengganggu data aslinya, copy data yang belum tersortir dari
> Sheet1 ke Sheet2
>
> File terlampir memanfaatkan Event WorkSheet_BeforeDoubleClick berikut ini
> pada Sheet2.
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
> Boolean) 'macro ini dicopy ke sheet2 pada Sheet VBA
> Call nyortir 'mamanggil macro "nyortir"
> Cancel = True
> End Sub
>
> Sub nyortir() 'macro ini dicopy ke Module1(setelah insert module) pada
> Sheet VBA
> Dim Rng As Range
> Set Rng = Sheets("Sheet2").Range("A1").CurrentRegion
> Range("A1").Select
> For i = 1 To Rng.Rows.Count
> ActiveCell.Resize(1, 5).Select
> ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
> ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add
> Key:=Selection, _
> SortOn:=xlSortOnValues, Order:=xlAscending,
> DataOption:=xlSortNormal
> With ActiveWorkbook.Worksheets("Sheet2").Sort
> .SetRange Selection
> .Header = xlGuess
> .MatchCase = False
> .Orientation = xlLeftToRight
> .SortMethod = xlPinYin
> .Apply
> End With
> ActiveCell.Offset(1, 0).Select
> Next
> End Sub
>
> Untuk menyortir, cukup klik salah satu sel yang ada di Sheet2.
>
> Salam,
> Hendrik Karnadi
>
>
> ------------------------------
> *From:* Mohammed Asseggaf <seggaf@sbtcgroup.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Sunday, 16 September 2012, 19:48
> *Subject:* [belajar-excel] cara sort per row
>
>
> Halo semua,�.
>
> lagi bingung nih mau nge sort row ,.. tapi ada beberapa row,�
>
> Bagaimana yah caranya
>
>
>
>
berikut :
Public Sub SortPerRow()
Dim rng As Range, rngData As Range
Dim lCols As Long
Set rngData = Selection
lCols = rngData.Columns.
For Each rng In rngData.Resize(
rng.Resize(1, lCols).Sort rng, xlAscending, Header:=xlNo,
Orientation:
Next rng
End Sub
Cara pasang :
1. ke VBE (dari worksheet, tekan ALT F11)
2. menu Insert -> pilih Module
3. copas script di atas ke lembar module yang disediakan
4. kembali ke worksheet (ALT F11)
5. save as file dan pastikan pilih ekstensi .xlsm atau .xlsb atau .xls
Cara pakai
1. blok data yang akan di-sort
2. jalankan macro bernama SortPerRow
>> backup data asli bila perlu.
Wassalam,
Kid.
On Sun, Sep 16, 2012 at 11:33 PM, hendrik karnadi
<hendrikkarnadi@
> **
>
>
> Pak Asseggaf,
> Agar tidak mengganggu data aslinya, copy data yang belum tersortir dari
> Sheet1 ke Sheet2
>
> File terlampir memanfaatkan Event WorkSheet_BeforeDou
> pada Sheet2.
> Private Sub Worksheet_BeforeDou
> Boolean) 'macro ini dicopy ke sheet2 pada Sheet VBA
> Call nyortir 'mamanggil macro "nyortir"
> Cancel = True
> End Sub
>
> Sub nyortir() 'macro ini dicopy ke Module1(setelah insert module) pada
> Sheet VBA
> Dim Rng As Range
> Set Rng = Sheets("Sheet2"
> Range("A1").
> For i = 1 To Rng.Rows.Count
> ActiveCell.Resize(
> ActiveWorkbook.
> ActiveWorkbook.
> Key:=Selection, _
> SortOn:=xlSortOnVal
> DataOption:=
> With ActiveWorkbook.
> .SetRange Selection
> .Header = xlGuess
> .MatchCase = False
> .Orientation = xlLeftToRight
> .SortMethod = xlPinYin
> .Apply
> End With
> ActiveCell.Offset(
> Next
> End Sub
>
> Untuk menyortir, cukup klik salah satu sel yang ada di Sheet2.
>
> Salam,
> Hendrik Karnadi
>
>
> ------------
> *From:* Mohammed Asseggaf <seggaf@sbtcgroup.
> *To:* belajar-excel@
> *Sent:* Sunday, 16 September 2012, 19:48
> *Subject:* [belajar-excel] cara sort per row
>
>
> Halo semua,�.
>
> lagi bingung nih mau nge sort row ,.. tapi ada beberapa row,�
>
> Bagaimana yah caranya
>
>
>
>
Sun Sep 16, 2012 11:25 am (PDT) . Posted by:
"Tjahya Hartono" tjahyahartono
Terima kasih mbak Siti,
Aku ga akan lupa semua kebaikan yang mbak siti kasihkan kepadaq,mbak Siti orang yang care banget,
kalo kasih penjelasan bagus banget, orang yang ga ngerti excel jadi bisa gara2 beliau.
Saya yakin mbak Siti dapat tempat disisinya atas semua kebaikannya. Selamat jalan mbak Siti
Kami semua akan merindukanmu...Pasti
Aku ga akan lupa semua kebaikan yang mbak siti kasihkan kepadaq,mbak Siti orang yang care banget,
kalo kasih penjelasan bagus banget, orang yang ga ngerti excel jadi bisa gara2 beliau.
Saya yakin mbak Siti dapat tempat disisinya atas semua kebaikannya. Selamat jalan mbak Siti
Kami semua akan merindukanmu.
Sun Sep 16, 2012 6:18 pm (PDT) . Posted by:
"RAHMAT NUGROHO" arifstikes
baru sempat buka.........
innalillahi wa inna ilaihi rojiun............
اَللَّهُمَّ اغْفِرْ لَهُ وَارْحَمْهُ وَعَافِهِ وَاعْفُ عَنْهُ،
وَأَكْرِمْ نُزُلَهُ، وَوَسِّعْ مَدْخَلَهُ، وَاغْسِلْهُ بِالْمَاءِ
وَالثَّلْجِ وَالْبَرَدِ، وَنَقِّهِ مِنَ الْخَطَايَا كَمَا نَقَّيْتَ
الثَّوْبَ اْلأَبْيَضَ مِنَ الدَّنَسِ، وَأَبْدِلْهُ دَارًا خَيْرًا مِنْ
دَارِهِ، وَأَهْلاً خَيْرًا مِنْ أَهْلِهِ، وَزَوْجًا خَيْرًا مِنْ
زَوْجِهِ، وَأَدْخِلْهُ الْجَنَّةَ، وَأَعِذْهُ مِنْ عَذَابِ الْقَبْرِ
[وَعَذَابِ النَّارِ
ya Allah, Ampunilah dia (dari beberapa hal yang tidak disukai),
maafkanlah dia dan tempat-kanlah di tempat yang mulia (Surga), luaskan
kuburannya, mandikan dia dengan air salju dan air es. Bersihkan dia dari segala kesalahan, sebagaimana Engkau membersihkan baju yang putih dari
kotoran, berilah rumah yang lebih baik dari rumahnya (di dunia), berilah keluarga (atau istri di Surga) yang lebih baik daripada keluarganya (di dunia), istri (atau suami) yang lebih baik daripada istrinya (atau
suaminya), dan masukkan dia ke Surga, jagalah dia dari siksa kubur dan
Neraka." (HR. Muslim 2/663)
selamat jalan mbak siti vi, walaupun baru sekejap aku mrasakan bkenalan dengan mbak, namun begitu akrab kau membimbingku.......trima kasih atas smua bimbingan yang begitu jelas gamblang, smoga menjadi amal jariyah mbak....amin...
innalillahi wa inna ilaihi rojiun......
اَللَّهُمَّ اغْفِرْ لَهُ وَارْحَمْهُ وَعَافِهِ وَاعْفُ عَنْهُ،
وَأَكْرِمْ نُزُلَهُ، وَوَسِّعْ مَدْخَلَهُ، وَاغْسِلْهُ بِالْمَاءِ
وَالثَّلْجِ وَالْبَرَدِ، وَنَقِّهِ مِنَ الْخَطَايَا كَمَا نَقَّيْتَ
الثَّوْبَ اْلأَبْيَضَ مِنَ الدَّنَسِ، وَأَبْدِلْهُ دَارًا خَيْرًا مِنْ
دَارِهِ، وَأَهْلاً خَيْرًا مِنْ أَهْلِهِ، وَزَوْجًا خَيْرًا مِنْ
زَوْجِهِ، وَأَدْخِلْهُ الْجَنَّةَ، وَأَعِذْهُ مِنْ عَذَابِ الْقَبْرِ
[وَعَذَابِ النَّارِ
ya Allah, Ampunilah dia (dari beberapa hal yang tidak disukai),
maafkanlah dia dan tempat-kanlah di tempat yang mulia (Surga), luaskan
kuburannya, mandikan dia dengan air salju dan air es. Bersihkan dia dari segala kesalahan, sebagaimana Engkau membersihkan baju yang putih dari
kotoran, berilah rumah yang lebih baik dari rumahnya (di dunia), berilah keluarga (atau istri di Surga) yang lebih baik daripada keluarganya (di dunia), istri (atau suami) yang lebih baik daripada istrinya (atau
suaminya), dan masukkan dia ke Surga, jagalah dia dari siksa kubur dan
Neraka." (HR. Muslim 2/663)
selamat jalan mbak siti vi, walaupun baru sekejap aku mrasakan bkenalan dengan mbak, namun begitu akrab kau membimbingku.
Sun Sep 16, 2012 7:14 pm (PDT) . Posted by:
"BOBY CHUA" boby66_chua
Mbak Siti Vi
telah memberi banyak pengetahuan dan pencerahan kepada kita semua
Kepergiannya semoga mendapat tempat yang layak di sisi Nya
dan semoga keluarga yang ditanggalkan diberi ketabahan......
Turut berduka cita yang mendalam
Selamat Jalan Guru
Kasuma
________________________________
Dari: RAHMAT NUGROHO <arifstikes@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Senin, 17 September 2012 8:15
Judul: [belajar-excel] Re: Selamat Jalan Mbak Siti
baru sempat buka.........
innalillahi wa inna ilaihi rojiun............
اَللَّهُمَّ اغْفِرْ لَهُ وَارْحَمْهُ وَعَافِهِ وَاعْفُ عَنْهُ،
وَأَكْرِمْ نُزُلَهُ، وَوَسِّعْ مَدْخَلَهُ، وَاغْسِلْهُ بِالْمَاءِ
وَالثَّلْجِ وَالْبَرَدِ، وَنَقِّهِ مِنَ الْخَطَايَا كَمَا نَقَّيْتَ
الثَّوْبَ اْلأَبْيَضَ مِنَ الدَّنَسِ، وَأَبْدِلْهُ دَارًا خَيْرًا مِنْ
دَارِهِ، وَأَهْلاً خَيْرًا مِنْ أَهْلِهِ، وَزَوْجًا خَيْرًا مِنْ
زَوْجِهِ، وَأَدْخِلْهُ الْجَنَّةَ، وَأَعِذْهُ مِنْ عَذَابِ الْقَبْرِ
[وَعَذَابِ النَّارِ
ya Allah, Ampunilah dia (dari beberapa hal yang tidak disukai),
maafkanlah dia dan tempat-kanlah di tempat yang mulia (Surga), luaskan
kuburannya, mandikan dia dengan air salju dan air es. Bersihkan dia dari segala kesalahan, sebagaimana Engkau membersihkan baju yang putih dari
kotoran, berilah rumah yang lebih baik dari rumahnya (di dunia), berilah keluarga (atau istri di Surga) yang lebih baik daripada keluarganya (di dunia), istri (atau suami) yang lebih baik daripada istrinya (atau
suaminya), dan masukkan dia ke Surga, jagalah dia dari siksa kubur dan
Neraka." (HR. Muslim 2/663)
selamat jalan mbak siti vi, walaupun baru sekejap aku mrasakan bkenalan dengan mbak, namun begitu akrab kau membimbingku.......trima kasih atas smua bimbingan yang begitu jelas gamblang, smoga menjadi amal jariyah mbak....amin...
telah memberi banyak pengetahuan dan pencerahan kepada kita semua
Kepergiannya semoga mendapat tempat yang layak di sisi Nya
dan semoga keluarga yang ditanggalkan diberi ketabahan...
Turut berduka cita yang mendalam
Selamat Jalan Guru
Kasuma
____________
Dari: RAHMAT NUGROHO <arifstikes@yahoo.
Kepada: "belajar-excel@
Dikirim: Senin, 17 September 2012 8:15
Judul: [belajar-excel] Re: Selamat Jalan Mbak Siti
baru sempat buka........
innalillahi wa inna ilaihi rojiun......
اَللَّهُمَّ اغْفِرْ لَهُ وَارْحَمْهُ وَعَافِهِ وَاعْفُ عَنْهُ،
وَأَكْرِمْ نُزُلَهُ، وَوَسِّعْ مَدْخَلَهُ، وَاغْسِلْهُ بِالْمَاءِ
وَالثَّلْجِ وَالْبَرَدِ، وَنَقِّهِ مِنَ الْخَطَايَا كَمَا نَقَّيْتَ
الثَّوْبَ اْلأَبْيَضَ مِنَ الدَّنَسِ، وَأَبْدِلْهُ دَارًا خَيْرًا مِنْ
دَارِهِ، وَأَهْلاً خَيْرًا مِنْ أَهْلِهِ، وَزَوْجًا خَيْرًا مِنْ
زَوْجِهِ، وَأَدْخِلْهُ الْجَنَّةَ، وَأَعِذْهُ مِنْ عَذَابِ الْقَبْرِ
[وَعَذَابِ النَّارِ
ya Allah, Ampunilah dia (dari beberapa hal yang tidak disukai),
maafkanlah dia dan tempat-kanlah di tempat yang mulia (Surga), luaskan
kuburannya, mandikan dia dengan air salju dan air es. Bersihkan dia dari segala kesalahan, sebagaimana Engkau membersihkan baju yang putih dari
kotoran, berilah rumah yang lebih baik dari rumahnya (di dunia), berilah keluarga (atau istri di Surga) yang lebih baik daripada keluarganya (di dunia), istri (atau suami) yang lebih baik daripada istrinya (atau
suaminya), dan masukkan dia ke Surga, jagalah dia dari siksa kubur dan
Neraka." (HR. Muslim 2/663)
selamat jalan mbak siti vi, walaupun baru sekejap aku mrasakan bkenalan dengan mbak, namun begitu akrab kau membimbingku.
Sun Sep 16, 2012 7:24 pm (PDT) . Posted by:
"erik ardiansyah" erikzahran
innalillahi wa inna ilaihi rojiun,
turut berduka cita sedalamnya,
semoga Allah SWT menerima semua amal ibadahnya dan memberikan tempat terbaik baginya,
betapa ilmu yang diberikannya sangat saya rasakan, semoga pahalanya terus mengalir...
aamiin YRA..
Erik
____________
From: BOBY CHUA <boby66_chua@
To: "belajar-excel@
Sent: Monday, September 17, 2012 9:08 AM
Subject: Bls: [belajar-excel] Re: Selamat Jalan Mbak Siti
Mbak Siti Vi
telah memberi banyak pengetahuan dan pencerahan kepada kita semua
Kepergiannya semoga mendapat tempat yang layak di sisi Nya
dan semoga keluarga yang ditanggalkan diberi ketabahan...
Turut berduka cita yang mendalam
Selamat Jalan Guru
Kasuma
____________
Dari: RAHMAT NUGROHO <arifstikes@yahoo.
Kepada: "belajar-excel@
Dikirim: Senin, 17 September 2012 8:15
Judul: [belajar-excel] Re: Selamat Jalan Mbak Siti
baru sempat buka........
innalillahi wa inna ilaihi rojiun......
اَللَّهُمَّ اغْفِرْ لَهُ وَارْحَمْهُ وَعَافِهِ وَاعْفُ عَنْهُ،
وَأَكْرِمْ نُزُلَهُ، وَوَسِّعْ مَدْخَلَهُ، وَاغْسِلْهُ بِالْمَاءِ
وَالثَّلْجِ وَالْبَرَدِ، وَنَقِّهِ مِنَ الْخَطَايَا كَمَا نَقَّيْتَ
الثَّوْبَ اْلأَبْيَضَ مِنَ الدَّنَسِ، وَأَبْدِلْهُ دَارًا خَيْرًا مِنْ
دَارِهِ، وَأَهْلاً خَيْرًا مِنْ أَهْلِهِ، وَزَوْجًا خَيْرًا مِنْ
زَوْجِهِ، وَأَدْخِلْهُ الْجَنَّةَ، وَأَعِذْهُ مِنْ عَذَابِ الْقَبْرِ
[وَعَذَابِ النَّارِ
ya Allah, Ampunilah dia (dari beberapa hal yang tidak disukai),
maafkanlah dia dan tempat-kanlah di tempat yang mulia (Surga), luaskan
kuburannya, mandikan dia dengan air salju dan air es. Bersihkan dia dari segala kesalahan, sebagaimana Engkau membersihkan baju yang putih dari
kotoran, berilah rumah yang lebih baik dari rumahnya (di dunia), berilah keluarga (atau istri di Surga) yang lebih baik daripada keluarganya (di dunia), istri (atau suami) yang lebih baik daripada istrinya (atau
suaminya), dan masukkan dia ke Surga, jagalah dia dari siksa kubur dan
Neraka." (HR. Muslim 2/663)
selamat jalan mbak siti vi, walaupun baru sekejap aku mrasakan bkenalan dengan mbak, namun begitu akrab kau membimbingku.
Sun Sep 16, 2012 11:04 pm (PDT) . Posted by:
"Yudi Dwiyono" yudi_dwiyono
Selamat jalan mbak siti,
Semoga Allah memberikan tempat terbaik untuk mu.
Amin....
Regards,
Yudi
________________________________
From: erik ardiansyah <erikzahran@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, September 17, 2012 9:18 AM
Subject: Re: Bls: [belajar-excel] Re: Selamat Jalan Mbak Siti
innalillahi wa inna ilaihi rojiun,
turut berduka cita sedalamnya,
semoga Allah SWT menerima semua amal ibadahnya dan memberikan tempat terbaik baginya,
betapa ilmu yang diberikannya sangat saya rasakan, semoga pahalanya terus mengalir...
aamiin YRA..
Erik
________________________________
From: BOBY CHUA <boby66_chua@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, September 17, 2012 9:08 AM
Subject: Bls: [belajar-excel] Re: Selamat Jalan Mbak Siti
Mbak Siti Vi
telah memberi banyak pengetahuan dan pencerahan kepada kita semua
Kepergiannya semoga mendapat tempat yang layak di sisi Nya
dan semoga keluarga yang ditanggalkan diberi ketabahan......
Turut berduka cita yang mendalam
Selamat Jalan Guru
Kasuma
________________________________
Dari: RAHMAT NUGROHO <arifstikes@yahoo.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Senin, 17 September 2012 8:15
Judul: [belajar-excel] Re: Selamat Jalan Mbak Siti
baru sempat buka.........
innalillahi wa inna ilaihi rojiun............
اَللَّهُمَّ اغْفِرْ لَهُ وَارْحَمْهُ وَعَافِهِ وَاعْفُ عَنْهُ،
وَأَكْرِمْ نُزُلَهُ، وَوَسِّعْ مَدْخَلَهُ، وَاغْسِلْهُ بِالْمَاءِ
وَالثَّلْجِ وَالْبَرَدِ، وَنَقِّهِ مِنَ الْخَطَايَا كَمَا نَقَّيْتَ
الثَّوْبَ اْلأَبْيَضَ مِنَ الدَّنَسِ، وَأَبْدِلْهُ دَارًا خَيْرًا مِنْ
دَارِهِ، وَأَهْلاً خَيْرًا مِنْ أَهْلِهِ، وَزَوْجًا خَيْرًا مِنْ
زَوْجِهِ، وَأَدْخِلْهُ الْجَنَّةَ، وَأَعِذْهُ مِنْ عَذَابِ الْقَبْرِ
[وَعَذَابِ النَّارِ
ya Allah, Ampunilah dia (dari beberapa hal yang tidak disukai),
maafkanlah dia dan tempat-kanlah di tempat yang mulia (Surga), luaskan
kuburannya, mandikan dia dengan air salju dan air es. Bersihkan dia dari segala kesalahan, sebagaimana Engkau membersihkan baju yang putih dari
kotoran, berilah rumah yang lebih baik dari rumahnya (di dunia), berilah keluarga (atau istri di Surga) yang lebih baik daripada keluarganya (di dunia), istri (atau suami) yang lebih baik daripada istrinya (atau
suaminya), dan masukkan dia ke Surga, jagalah dia dari siksa kubur dan
Neraka." (HR. Muslim 2/663)
selamat jalan mbak siti vi, walaupun baru sekejap aku mrasakan bkenalan dengan mbak, namun begitu akrab kau membimbingku.......trima kasih atas smua bimbingan yang begitu jelas gamblang, smoga menjadi amal jariyah mbak....amin...
Semoga Allah memberikan tempat terbaik untuk mu.
Amin....
Regards,
Yudi
____________
From: erik ardiansyah <erikzahran@yahoo.
To: "belajar-excel@
Sent: Monday, September 17, 2012 9:18 AM
Subject: Re: Bls: [belajar-excel] Re: Selamat Jalan Mbak Siti
innalillahi wa inna ilaihi rojiun,
turut berduka cita sedalamnya,
semoga Allah SWT menerima semua amal ibadahnya dan memberikan tempat terbaik baginya,
betapa ilmu yang diberikannya sangat saya rasakan, semoga pahalanya terus mengalir...
aamiin YRA..
Erik
____________
From: BOBY CHUA <boby66_chua@
To: "belajar-excel@
Sent: Monday, September 17, 2012 9:08 AM
Subject: Bls: [belajar-excel] Re: Selamat Jalan Mbak Siti
Mbak Siti Vi
telah memberi banyak pengetahuan dan pencerahan kepada kita semua
Kepergiannya semoga mendapat tempat yang layak di sisi Nya
dan semoga keluarga yang ditanggalkan diberi ketabahan...
Turut berduka cita yang mendalam
Selamat Jalan Guru
Kasuma
____________
Dari: RAHMAT NUGROHO <arifstikes@yahoo.
Kepada: "belajar-excel@
Dikirim: Senin, 17 September 2012 8:15
Judul: [belajar-excel] Re: Selamat Jalan Mbak Siti
baru sempat buka........
innalillahi wa inna ilaihi rojiun......
اَللَّهُمَّ اغْفِرْ لَهُ وَارْحَمْهُ وَعَافِهِ وَاعْفُ عَنْهُ،
وَأَكْرِمْ نُزُلَهُ، وَوَسِّعْ مَدْخَلَهُ، وَاغْسِلْهُ بِالْمَاءِ
وَالثَّلْجِ وَالْبَرَدِ، وَنَقِّهِ مِنَ الْخَطَايَا كَمَا نَقَّيْتَ
الثَّوْبَ اْلأَبْيَضَ مِنَ الدَّنَسِ، وَأَبْدِلْهُ دَارًا خَيْرًا مِنْ
دَارِهِ، وَأَهْلاً خَيْرًا مِنْ أَهْلِهِ، وَزَوْجًا خَيْرًا مِنْ
زَوْجِهِ، وَأَدْخِلْهُ الْجَنَّةَ، وَأَعِذْهُ مِنْ عَذَابِ الْقَبْرِ
[وَعَذَابِ النَّارِ
ya Allah, Ampunilah dia (dari beberapa hal yang tidak disukai),
maafkanlah dia dan tempat-kanlah di tempat yang mulia (Surga), luaskan
kuburannya, mandikan dia dengan air salju dan air es. Bersihkan dia dari segala kesalahan, sebagaimana Engkau membersihkan baju yang putih dari
kotoran, berilah rumah yang lebih baik dari rumahnya (di dunia), berilah keluarga (atau istri di Surga) yang lebih baik daripada keluarganya (di dunia), istri (atau suami) yang lebih baik daripada istrinya (atau
suaminya), dan masukkan dia ke Surga, jagalah dia dari siksa kubur dan
Neraka." (HR. Muslim 2/663)
selamat jalan mbak siti vi, walaupun baru sekejap aku mrasakan bkenalan dengan mbak, namun begitu akrab kau membimbingku.
Sun Sep 16, 2012 5:39 pm (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
solusi formula alternatif (formula array)
{=INDEX($C2:$G2;MATCH(SMALL(COUNTIF($C2:$G2;"<"&$C2:$G2);COLUMN(A1));COUNTIF($C2:$G2;"<"&$C2:$G2);0))}
copy ke kanan dan ke bawah
lihat attachment
wassalam
Ghozi Alkatiri
________________________________
Dari: Mohammed Asseggaf <seggaf@sbtcgroup.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 16 September 2012 19:48
Judul: [belajar-excel] cara sort per row
Halo semua,….
lagi bingung nih mau nge sort row ,.. tapi ada beberapa row,…
Bagaimana yah caranya
{=INDEX($C2:
copy ke kanan dan ke bawah
lihat attachment
wassalam
Ghozi Alkatiri
____________
Dari: Mohammed Asseggaf <seggaf@sbtcgroup.
Kepada: belajar-excel@
Dikirim: Minggu, 16 September 2012 19:48
Judul: [belajar-excel] cara sort per row
Halo semua,….
lagi bingung nih mau nge sort row ,.. tapi ada beberapa row,…
Bagaimana yah caranya
Sun Sep 16, 2012 6:31 pm (PDT) . Posted by:
"neza ibaneza" nezaibaneza
Semoga Kakek Mabrur Masyud (STDV) diterima disisinya..
Salam
Neza
________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 13 September 2012 6:16
Judul: Re: [belajar-excel] Selamat jalan mbak Siti...
Allahhummaghfir lahu warhamhu wa'aafihi wa'fu anhu
mas Zam,
Beliau (almarhum - red : aslinya adalah seorang kakek bernama Mabrur Masyhud),
sudah sakit sejak lama dan sering masuk rumah sakit opname lalu boleh pulang dan begitu terus.
Saya kurang tahu persis sakitnya apa karena beliau juga gak mau cerita.
Semenjak kelahiran cucunya dari anak pertamanya (sekitar November tahun 2011), sakitnya mungkin semakin parah dan lebih sering butuh opname di rumah sakit.
Beliau juga sering rasan-rasan kalau kayanya sakitnya kok gak mau pergi dan kerasan didalam diri beliau.
Jadi beliau sejak tahun baru 2012 mulai pamit untuk tidak terlalu aktif dimilis dan akan lebih fokus menghadapi sakitnya.
Mungkin ada rekan BeExceller yang mengetahui lebih banyak tentang beliau.
Wassalam,
Kid.
2012/9/13 Ahmad Zamroni <ahzam05@gmail.com >
>
>InnaliLlahi wa inna ilaihi roji'un..
>Allohummaghfirlaha warhamha wa'afiha wa'fuanha...
>
>Maaf ini yang meninggal Mbak Siti Vi, kah? aka villager.girl@gmail.com setiyowati.devi@gmail.com
>
>salah satu guru excel terbaik saya..
>
>Kenapa?
>
>Jujur, hati ini berharap bukan dia
>
>
>2012/9/13 <belajar-excel-owner@yahoogroups.com >
>
>Inna lillahi wa inna ilaihi raji'un
>>
>>Semoga seluruh amal kebaikan mbah Mabrur (aka mbak Siti) diterima Allah SWT.
>>Semoga beliau mendapatkan rahmat ampunan Allah SWT.
>>Semoga iman islamnya diterima Allah SWT.
>>
>>
>>Selamat jalan.
>>
>>
>>
>>
>>--- Dear BeExceller ---
>>Salah seorang Exceller sejati negeri ini telah mendahului kita.
>>Mari kita kenang seluruh kebaikan yang telah diberikannya untuk kita semua.
>>Mari kita amalkan seluruh ilmu yang telah dibaginya untuk kita semua.
>>
>>Thread ini adalah untuk ungkapan cinta kasih yang penuh kerinduan kita kepada mbak Siti.
>>-----------------------
>>
>>
>>
>>
------------------------------------
>>
>>
>>----------------------------------------------------------
>>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
>>
>>----------------------------------------------------------Yahoo! Groups Links
>>
>>
>>
>>
>
Salam
Neza
____________
Dari: Kid Mr. <mr.nmkid@gmail.
Kepada: belajar-excel@
Dikirim: Kamis, 13 September 2012 6:16
Judul: Re: [belajar-excel] Selamat jalan mbak Siti...
Allahhummaghfir lahu warhamhu wa'aafihi wa'fu anhu
mas Zam,
Beliau (almarhum - red : aslinya adalah seorang kakek bernama Mabrur Masyhud),
sudah sakit sejak lama dan sering masuk rumah sakit opname lalu boleh pulang dan begitu terus.
Saya kurang tahu persis sakitnya apa karena beliau juga gak mau cerita.
Semenjak kelahiran cucunya dari anak pertamanya (sekitar November tahun 2011), sakitnya mungkin semakin parah dan lebih sering butuh opname di rumah sakit.
Beliau juga sering rasan-rasan kalau kayanya sakitnya kok gak mau pergi dan kerasan didalam diri beliau.
Jadi beliau sejak tahun baru 2012 mulai pamit untuk tidak terlalu aktif dimilis dan akan lebih fokus menghadapi sakitnya.
Mungkin ada rekan BeExceller yang mengetahui lebih banyak tentang beliau.
Wassalam,
Kid.
2012/9/13 Ahmad Zamroni <ahzam05@gmail.
>
>InnaliLlahi wa inna ilaihi roji'un..
>Allohummaghfirlaha warhamha wa'afiha wa'fuanha...
>
>Maaf ini yang meninggal Mbak Siti Vi, kah? aka villager.girl@
>
>salah satu guru excel terbaik saya..
>
>Kenapa?
>
>Jujur, hati ini berharap bukan dia
>
>
>2012/9/13 <belajar-excel-
>
>Inna lillahi wa inna ilaihi raji'un
>>
>>Semoga seluruh amal kebaikan mbah Mabrur (aka mbak Siti) diterima Allah SWT.
>>Semoga beliau mendapatkan rahmat ampunan Allah SWT.
>>Semoga iman islamnya diterima Allah SWT.
>>
>>
>>Selamat jalan.
>>
>>
>>
>>
>>--- Dear BeExceller ---
>>Salah seorang Exceller sejati negeri ini telah mendahului kita.
>>Mari kita kenang seluruh kebaikan yang telah diberikannya untuk kita semua.
>>Mari kita amalkan seluruh ilmu yang telah dibaginya untuk kita semua.
>>
>>Thread ini adalah untuk ungkapan cinta kasih yang penuh kerinduan kita kepada mbak Siti.
>>----------
>>
>>
>>
>>
------------
>>
>>
>>----------
>>bergabung ke milis (subscribe), kirim mail kosong ke:
>>belajar-excel-
>>
>>posting ke milis, kirimkan ke:
>>belajar-excel@
>>
>>berkunjung ke web milis
>>http://tech.
>>
>>melihat file archive / mendownload lampiran
>>http://www.mail-
>>atau (sejak 25-Apr-2011) bisa juga di :
>>http://milis-
>>
>>menghubungi moderators & owners: belajar-excel-
>>
>>keluar dari membership milis (UnSubscribe)
>>kirim mail kosong ke belajar-excel-
>>
>>----------
>>
>>
>>
>>
>
Sun Sep 16, 2012 6:49 pm (PDT) . Posted by:
"benedictus sonny" yoe_sonny
Selamat jalan mbak Siti, jasamu sungguh sangat berarti buat kami ..
________________________________
Dari: Debby <dbpermatasari@gmail.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Minggu, 16 September 2012 14:07
Judul: Re: [belajar-excel] Selamat jalan mbak Siti...
Kami di Malaysia, ikut berduka cita di atas pemergian guru kita yg disayangi mbak siti. Semoga apa yg diajarkan kepada kita semua akan menjadi amal jariah untuk beliau. Amin.
Mansor
Kuala Lumpur
Sent from my iPhone
On 15/09/2012, at 3:29 PM, nor hidayat <dayatshogun46@yahoo.co.id > wrote:
>Selamat jalan, guru, banyak karya hebatmu yang mempermudah kesulitan kami, banyak rahasia dari milis mengenai profilemu, tapi yang pasti meski kau tak pernah muncul sebagai sosok sebenarnya, namun kami mengenalmu sebagau Siti Vi gadis judes yang pintar dan lakon lucumu akan mengingatkan kami dan kami merindukanmu, sungguh sangat merindukanmu dan sangat begitu kehilangan mu. ya Allah tuhan kami tinggikanlah sosok beliau di sisimu.
>
>Salam cinta kami untuk Siti Vi, selamat jalan Bpk Mabrur Masyhud, dirimu akan selalu ada di hati kami
>
>Regard's
>Muridmu
>Nor Hidayat
>
>--- Mods ---
>Imagenya dibuat berupa link saja ya.
>------------
>
>--- Pada Sab, 15/9/12, lapendosol opik <lapendosol@yahoo.com > menulis:
>
>Dari: lapendosol opik <lapendosol@yahoo.com >
>Judul: Re: [belajar-excel] Selamat jalan mbak Siti...
>Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>Tanggal: Sabtu, 15 September, 2012, 6:22 AM
>
>
>
>Innalillahi wainnailaihi roji'unSemoga seluruh amal dan kebaikan mbak sitiVi terhadap kita semua menjadi bekal disanaSemoga diterima disisiNya dan mendapat tempat yang terbaikMari kita relakan kepergian salah satu Exceller terbaik yang pernah kita kenal
>Hampir ga percaya ketika dengar kabar kepergian beliau, yg telah banyak membantu kita semua.Meskipun belum sempat bertatap muka, tapi sudah kami anggap sebagai saudara.Mengenang semua kebaikan dan ilmu yang disharing dibagikan kepada kita, apalagi secara pribadi salah satu ID yang pernah dipakai beliau ikut membantu persoalan yang saya postingkan disini.Tapi memang sudah waktunya untuk dipanggil, yang tak pandang usia. Harapan terbesar kita akan muncul sitiVi-sitiVi yang lain.Selamat Jalan sitiVi
>From: "belajar-excel-owner@yahoogroups.com " <belajar-excel-owner@yahoogroups.com >
>To: belajar-excel@yahoogroups.com
>Sent: Thursday, September 13, 2012 12:31 AM
>Subject: [belajar-excel] Selamat jalan mbak Siti...
>
>
>
>
>Inna lillahi wa inna ilaihi raji'un
>
>Semoga seluruh amal kebaikan mbah Mabrur (aka mbak Siti) diterima Allah SWT.
>
>Semoga beliau mendapatkan rahmat ampunan Allah SWT.
>
>Semoga iman islamnya diterima Allah SWT.
>
>Selamat jalan.
>
>--- Dear BeExceller ---
>
>Salah seorang Exceller sejati negeri ini telah mendahului kita.
>
>Mari kita kenang seluruh kebaikan yang telah diberikannya untuk kita semua.
>
>Mari kita amalkan seluruh ilmu yang telah dibaginya untuk kita semua.
>
>Thread ini adalah untuk ungkapan cinta kasih yang penuh kerinduan kita kepada mbak Siti.
>
>-----------------------
>
>
____________
Dari: Debby <dbpermatasari@
Kepada: "belajar-excel@
Dikirim: Minggu, 16 September 2012 14:07
Judul: Re: [belajar-excel] Selamat jalan mbak Siti...
Kami di Malaysia, ikut berduka cita di atas pemergian guru kita yg disayangi mbak siti. Semoga apa yg diajarkan kepada kita semua akan menjadi amal jariah untuk beliau. Amin.
Mansor
Kuala Lumpur
Sent from my iPhone
On 15/09/2012, at 3:29 PM, nor hidayat <dayatshogun46@
>Selamat jalan, guru, banyak karya hebatmu yang mempermudah kesulitan kami, banyak rahasia dari milis mengenai profilemu, tapi yang pasti meski kau tak pernah muncul sebagai sosok sebenarnya, namun kami mengenalmu sebagau Siti Vi gadis judes yang pintar dan lakon lucumu akan mengingatkan kami dan kami merindukanmu, sungguh sangat merindukanmu dan sangat begitu kehilangan mu. ya Allah tuhan kami tinggikanlah sosok beliau di sisimu.
>
>Salam cinta kami untuk Siti Vi, selamat jalan Bpk Mabrur Masyhud, dirimu akan selalu ada di hati kami
>
>Regard's
>Muridmu
>Nor Hidayat
>
>--- Mods ---
>Imagenya dibuat berupa link saja ya.
>-----------
>
>--- Pada Sab, 15/9/12, lapendosol opik <lapendosol@yahoo.
>
>Dari: lapendosol opik <lapendosol@yahoo.
>Judul: Re: [belajar-excel] Selamat jalan mbak Siti...
>Kepada: "belajar-excel@
>Tanggal: Sabtu, 15 September, 2012, 6:22 AM
>
>
>
>Innalillahi wainnailaihi roji'unSemoga seluruh amal dan kebaikan mbak sitiVi terhadap kita semua menjadi bekal disanaSemoga diterima disisiNya dan mendapat tempat yang terbaikMari kita relakan kepergian salah satu Exceller terbaik yang pernah kita kenal
>Hampir ga percaya ketika dengar kabar kepergian beliau, yg telah banyak membantu kita semua.Meskipun belum sempat bertatap muka, tapi sudah kami anggap sebagai saudara.Mengenang semua kebaikan dan ilmu yang disharing dibagikan kepada kita, apalagi secara pribadi salah satu ID yang pernah dipakai beliau ikut membantu persoalan yang saya postingkan disini.Tapi memang sudah waktunya untuk dipanggil, yang tak pandang usia. Harapan terbesar kita akan muncul sitiVi-sitiVi yang lain.Selamat Jalan sitiVi
>From: "belajar-excel-
>To: belajar-excel@
>Sent: Thursday, September 13, 2012 12:31 AM
>Subject: [belajar-excel] Selamat jalan mbak Siti...
>
>
>
>
>Inna lillahi wa inna ilaihi raji'un
>
>Semoga seluruh amal kebaikan mbah Mabrur (aka mbak Siti) diterima Allah SWT.
>
>Semoga beliau mendapatkan rahmat ampunan Allah SWT.
>
>Semoga iman islamnya diterima Allah SWT.
>
>Selamat jalan.
>
>--- Dear BeExceller ---
>
>Salah seorang Exceller sejati negeri ini telah mendahului kita.
>
>Mari kita kenang seluruh kebaikan yang telah diberikannya untuk kita semua.
>
>Mari kita amalkan seluruh ilmu yang telah dibaginya untuk kita semua.
>
>Thread ini adalah untuk ungkapan cinta kasih yang penuh kerinduan kita kepada mbak Siti.
>
>-----------
>
>
Sun Sep 16, 2012 7:18 pm (PDT) . Posted by:
"Yudi Dwiyono" yudi_dwiyono
Dear Master excel,
Saya mau tanya , bagaimana rumus yang logis jika,
Ada 2 data yang berbeda, pertama data recomended order dan yang ke dua data excess stock bagaimana rumusnya nya agar data excess stock dapat di supply pada warehouse tertentu yang membutuhkan stock dari warehouse yang kelebihan stock dengan quantity yang mencukupi atau minimal mendekati atau jika warehouse A membutuhkan 70 Pcs semetara warehouse B kelebihan 50 Pc? Data terlampir...
Thanks.
Regards,
Yudi
--- Mods ---
mbok yao subject emailnya yang mencerminkan kasusnya.
Subject email akan menjadi judul thread baru jika belum ada thread dengan judul yang sama dengan subject email.
Dengan subject email yang mencerminkan kasus yang diungkapkan, akan memudahkan pencarian terhadap thread lawas.
------------
Saya mau tanya , bagaimana rumus yang logis jika,
Ada 2 data yang berbeda, pertama data recomended order dan yang ke dua data excess stock bagaimana rumusnya nya agar data excess stock dapat di supply pada warehouse tertentu yang membutuhkan stock dari warehouse yang kelebihan stock dengan quantity yang mencukupi atau minimal mendekati atau jika warehouse A membutuhkan 70 Pcs semetara warehouse B kelebihan 50 Pc? Data terlampir...
Thanks.
Regards,
Yudi
--- Mods ---
mbok yao subject emailnya yang mencerminkan kasusnya.
Subject email akan menjadi judul thread baru jika belum ada thread dengan judul yang sama dengan subject email.
Dengan subject email yang mencerminkan kasus yang diungkapkan, akan memudahkan pencarian terhadap thread lawas.
------------
Sun Sep 16, 2012 7:25 pm (PDT) . Posted by:
"Yudi Dwiyono" yudi_dwiyono
Dear master excel,
Ya benar pak / bu, ini mengenai redistribusi stock antar warehouse. Mohon maaf ..
Thanks.
Regards,
Yudi
________________________________
From: Yudi Dwiyono <yudi_dwiyono@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Monday, September 17, 2012 9:12 AM
Subject: [belajar-excel] Tanya rumus (Mods :: [apa ?] : distribusi stok antar warehouse)
Dear Master excel,
Saya mau tanya , bagaimana rumus yang logis jika,
Ada 2 data yang berbeda, pertama data recomended order dan yang ke dua data excess stock bagaimana rumusnya nya agar data excess stock dapat di supply pada warehouse tertentu yang membutuhkan stock dari warehouse yang kelebihan stock dengan quantity yang mencukupi atau minimal mendekati atau jika warehouse A membutuhkan 70 Pcs semetara warehouse B kelebihan 50 Pc? Data terlampir...
Thanks.
Regards,
Yudi
--- Mods ---
mbok yao subject emailnya yang mencerminkan kasusnya.
Subject email akan menjadi judul thread baru jika belum ada thread dengan judul yang sama dengan subject email.
Dengan subject email yang mencerminkan kasus yang diungkapkan, akan memudahkan pencarian terhadap thread lawas.
------------
Ya benar pak / bu, ini mengenai redistribusi stock antar warehouse. Mohon maaf ..
Thanks.
Regards,
Yudi
____________
From: Yudi Dwiyono <yudi_dwiyono@
To: "belajar-excel@
Sent: Monday, September 17, 2012 9:12 AM
Subject: [belajar-excel] Tanya rumus (Mods :: [apa ?] : distribusi stok antar warehouse)
Dear Master excel,
Saya mau tanya , bagaimana rumus yang logis jika,
Ada 2 data yang berbeda, pertama data recomended order dan yang ke dua data excess stock bagaimana rumusnya nya agar data excess stock dapat di supply pada warehouse tertentu yang membutuhkan stock dari warehouse yang kelebihan stock dengan quantity yang mencukupi atau minimal mendekati atau jika warehouse A membutuhkan 70 Pcs semetara warehouse B kelebihan 50 Pc? Data terlampir...
Thanks.
Regards,
Yudi
--- Mods ---
mbok yao subject emailnya yang mencerminkan kasusnya.
Subject email akan menjadi judul thread baru jika belum ada thread dengan judul yang sama dengan subject email.
Dengan subject email yang mencerminkan kasus yang diungkapkan, akan memudahkan pencarian terhadap thread lawas.
------------
Sun Sep 16, 2012 8:58 pm (PDT) . Posted by:
"Niky_Nugraha@manulife.com"
Terima kasih kasih Mr Kid dan para suhu lainnya, maaf baru bisa balas
karena kesibukan pekerjaan dan baru hari ini bisa buka lagi milis
thx
niky n
From:
"Kid Mr." <mr.nmkid@gmail.com >
To:
belajar-excel@yahoogroups.com
Date:
05-09-2012 03:06 AM
Subject:
Re: [belajar-excel] Gabung data 2 kolom menjadi 1 kolom
Sent by:
belajar-excel@yahoogroups.com
Coba file terlampir.
Prosedur PakeVBA :
Public Sub PakeVBA(Optional bState As Boolean = False)
Dim lVer As Long, lRecA As Long, lRecB As Long
Dim rngA As Range, rngB As Range, rngDT As Range, rngAdvF As Range
'init object range data
'sesuaikan rujukan lokasi header data dan object sheet-nya
Set rngA = Sheet1.Range("a3").CurrentRegion.Resize(, 1).Offset(1)
Set rngB = Sheet1.Range("c3").CurrentRegion.Resize(, 1).Offset(1)
lRecA = rngA.Rows.Count - 1
lRecB = rngB.Rows.Count - 1
'init object range hasil (header kolom pertama saja sebagai anchor)
Set rngDT = Sheet3.Range("a1")
With rngDT
.CurrentRegion.Offset(1).EntireRow.Delete 'hapus
data lama
'satukan data
If lRecA > 0 Then
rngA.Copy .Offset(1, 1) 'selalu
paste ke baris ke-2 di sheet hasil di kolom B
.Offset(1).Resize(lRecA).Value = "Data1"
End If
lRecA = .CurrentRegion.Rows.Count 'ganti isi
dengan jumlah baris di sheet hasil
If lRecB > 0 Then
rngB.Copy .Offset(lRecA, 1) 'paste ke baris baru dari data
yang sudah ada di hasil
.Offset(lRecA).Resize(lRecB).Value = "Data2"
End If
.CurrentRegion.Name = "myVBAData" 'beri nama
range (siapa tahu nanti mau dipakai oleh pivot table)
.CurrentRegion.Sort .Offset(0, 1), xlAscending, Header:=xlYes
'sort data
'advanced filter
Set rngAdvF = Sheet3.Range("g1")
rngAdvF.CurrentRegion.Offset(1).Delete xlShiftUp 'delete
hasil filter lama
.CurrentRegion.Offset(0, 1).Resize(, 1).AdvancedFilter
xlFilterCopy, copytorange:=rngAdvF, unique:=True
End With
MsgBox "Done.", vbInformation, "GetData"
End Sub
Wassalam,
Kid.
2012/9/4 <Niky_Nugraha@manulife.com >
Dear Mr. Kid,
Bagaimana caranya kalo menggunakan macro apakah bisa?
ttd
niky n
From:
"Kid Mr." <mr.nmkid@gmail.com >
To:
belajar-excel@yahoogroups.com
Date:
03-09-2012 09:32 PM
Subject:
[Caution: Message contains Suspicious URL content] Re: [belajar-excel]
Gabung data 2 kolom menjadi 1 kolom
Sent by:
belajar-excel@yahoogroups.com
Pakai susun ulang datanya saja ya (copy paste ke sheet lain) seperti file
terlampir.
Wassalam,
Kid.
2012/9/3 <Niky_Nugraha@manulife.com >
Dear Para Master Excel,
Saya ingin menggabungkan data dari 2 kolom menjadi 1 kolom dan gabungan
tersebut datanya menjadi terurut.
Untuk lebih jelasnya dapat dilihat dari datanya di excel yang saya
lampirkan
terima kasih,
niky n
[attachment "re-gabungan kolom.xls" deleted by Niky Nugraha/Asia
Division/Manulife]
[attachment "re-gabungan kolom_r1.xls" deleted by Niky
Nugraha/Asia Division/Manulife]
karena kesibukan pekerjaan dan baru hari ini bisa buka lagi milis
thx
niky n
From:
"Kid Mr." <mr.nmkid@gmail.
To:
belajar-excel@
Date:
05-09-2012 03:06 AM
Subject:
Re: [belajar-excel] Gabung data 2 kolom menjadi 1 kolom
Sent by:
belajar-excel@
Coba file terlampir.
Prosedur PakeVBA :
Public Sub PakeVBA(Optional bState As Boolean = False)
Dim lVer As Long, lRecA As Long, lRecB As Long
Dim rngA As Range, rngB As Range, rngDT As Range, rngAdvF As Range
'init object range data
'sesuaikan rujukan lokasi header data dan object sheet-nya
Set rngA = Sheet1.Range(
Set rngB = Sheet1.Range(
lRecA = rngA.Rows.Count - 1
lRecB = rngB.Rows.Count - 1
'init object range hasil (header kolom pertama saja sebagai anchor)
Set rngDT = Sheet3.Range(
With rngDT
.CurrentRegion.
data lama
'satukan data
If lRecA > 0 Then
rngA.Copy .Offset(1, 1) 'selalu
paste ke baris ke-2 di sheet hasil di kolom B
.Offset(1).Resize(
End If
lRecA = .CurrentRegion.
dengan jumlah baris di sheet hasil
If lRecB > 0 Then
rngB.Copy .Offset(lRecA, 1) 'paste ke baris baru dari data
yang sudah ada di hasil
.Offset(lRecA)
End If
.CurrentRegion.
range (siapa tahu nanti mau dipakai oleh pivot table)
.CurrentRegion.
'sort data
'advanced filter
Set rngAdvF = Sheet3.Range(
rngAdvF.CurrentRegi
hasil filter lama
.CurrentRegion.
xlFilterCopy, copytorange:
End With
MsgBox "Done.", vbInformation, "GetData"
End Sub
Wassalam,
Kid.
2012/9/4 <Niky_Nugraha@
Dear Mr. Kid,
Bagaimana caranya kalo menggunakan macro apakah bisa?
ttd
niky n
From:
"Kid Mr." <mr.nmkid@gmail.
To:
belajar-excel@
Date:
03-09-2012 09:32 PM
Subject:
[Caution: Message contains Suspicious URL content] Re: [belajar-excel]
Gabung data 2 kolom menjadi 1 kolom
Sent by:
belajar-excel@
Pakai susun ulang datanya saja ya (copy paste ke sheet lain) seperti file
terlampir.
Wassalam,
Kid.
2012/9/3 <Niky_Nugraha@
Dear Para Master Excel,
Saya ingin menggabungkan data dari 2 kolom menjadi 1 kolom dan gabungan
tersebut datanya menjadi terurut.
Untuk lebih jelasnya dapat dilihat dari datanya di excel yang saya
lampirkan
terima kasih,
niky n
[attachment "re-gabungan kolom.xls" deleted by Niky Nugraha/Asia
Division/Manulife]
[attachment "re-gabungan kolom_r1.xls" deleted by Niky
Nugraha/Asia Division/Manulife]
Sun Sep 16, 2012 11:04 pm (PDT) . Posted by:
"RAHMAT NUGROHO" arifstikes
salam hangat.....
dear all admin, maaf mau tanya.....masih pemula
klau mau membuat daftar panggilan peserta untuk maju ke depan dengan sumber data 2 kelompok....gimana ya biar yang dipanggil nanti hasilnya siksak antar 2 kelompok tadi ( pangilan pertama no.urut 1 kelompok A trus panggilan ke-2 urutan pertama kelompok B )
trima kasih atas petunjuknya.....
dear all admin, maaf mau tanya.....masih pemula
klau mau membuat daftar panggilan peserta untuk maju ke depan dengan sumber data 2 kelompok....
trima kasih atas petunjuknya.
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