11 New Messages
Digest #2600
Messages
Tue May 7, 2013 9:05 pm (PDT) . Posted by:
"Marcell Clevy Salamony"
Rekan Adi,
Mungkin bisa coba cara ini:
1. Select/blok datanya dulu (B8 sampai B25)
2. Tekan Ctrl G untuk memunculkan dialog box Go To, lalu klik tombol Special...
[cid:image003.png@01CE4BD5.2E192480 ]
3. Di dialog box Go To Special pilih Constants dan klik OK
[cid:image001.png@01CE4BD6.0428CB70 ]
4. Kemudian copy datanya dengan menggunakan Ctrl C dan silahkan paste di tempat yang diinginkan.
Semoga bisa membantu...
Catatan: saya mencoba ini dengan Excel 2013, tapi harusnya caranya sama dengan di Excel 2003.
Regards,
Marcell Salamony
ExecuTrain of Jakarta
From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com ] On Behalf Of Adi Idrus
Sent: Monday, April 29, 2013 7:27 PM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ Menangkap Hewan Ternak
Dear All Master Excel..
Mohon dibantu para master, Saya ingin menangkap hewan hewan-hewan ternak saya yang lepas dan terpencar lalu memasukan mereka kembali ke kandang (Saya pakai excel 2003). Detailnya mohon lihat pada attachment ya.
Terimakasih
Best regard
Adi Idrus.
PT. Bridgestone Tire Indonesia | QA Dept
Together to be The Best
Mungkin bisa coba cara ini:
1. Select/blok datanya dulu (B8 sampai B25)
2. Tekan Ctrl G untuk memunculkan dialog box Go To, lalu klik tombol Special...
[cid:image003.png@
3. Di dialog box Go To Special pilih Constants dan klik OK
[cid:image001.png@
4. Kemudian copy datanya dengan menggunakan Ctrl C dan silahkan paste di tempat yang diinginkan.
Semoga bisa membantu...
Catatan: saya mencoba ini dengan Excel 2013, tapi harusnya caranya sama dengan di Excel 2003.
Regards,
Marcell Salamony
ExecuTrain of Jakarta
From: XL-mania@yahoogroup
Sent: Monday, April 29, 2013 7:27 PM
To: XL-mania@yahoogroup
Subject: ]] XL-mania [[ Menangkap Hewan Ternak
Dear All Master Excel..
Mohon dibantu para master, Saya ingin menangkap hewan hewan-hewan ternak saya yang lepas dan terpencar lalu memasukan mereka kembali ke kandang (Saya pakai excel 2003). Detailnya mohon lihat pada attachment ya.
Terimakasih
Best regard
Adi Idrus.
PT. Bridgestone Tire Indonesia | QA Dept
Together to be The Best
Tue May 7, 2013 9:10 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba jaring array berikut : (megangnya pakai CTRL SHIFT ENTER ya)
=INDEX($B$8:$B$25,SMALL(IF(LEN($B$8:$B$25),ROW($B$8:$B$25)-ROW($B$8)+1),ROW(1:1)))
Wassalam,
Kid.
2013/4/29 Adi Idrus <adi.idrus@bridgestone.co.id >
> **
>
>
> ** **
>
> ** **
>
> Dear All Master Excel..****
>
> ** **
>
> Mohon dibantu para master, Saya ingin menangkap hewan hewan-hewan ternak
> saya yang lepas dan terpencar lalu memasukan mereka kembali ke kandang
> (Saya pakai excel 2003). Detailnya mohon lihat pada attachment ya.****
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
> Terimakasih****
>
> Best regard****
>
> ** **
>
> Adi Idrus.****
>
> PT. Bridgestone Tire Indonesia | QA Dept ****
>
> Together to be The Best****
>
> ** **
>
>
>
=INDEX($B$8:
Wassalam,
Kid.
2013/4/29 Adi Idrus <adi.idrus@bridgesto
> **
>
>
> ** **
>
> ** **
>
> Dear All Master Excel..****
>
> ** **
>
> Mohon dibantu para master, Saya ingin menangkap hewan hewan-hewan ternak
> saya yang lepas dan terpencar lalu memasukan mereka kembali ke kandang
> (Saya pakai excel 2003). Detailnya mohon lihat pada attachment ya.****
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
> ** **
>
> Terimakasih*
>
> Best regard****
>
> ** **
>
> Adi Idrus.****
>
> PT. Bridgestone Tire Indonesia | QA Dept ****
>
> Together to be The Best****
>
> ** **
>
>
>
Tue May 7, 2013 9:11 pm (PDT) . Posted by:
"Bagus" bagus4bls
Dear Pak Adi;
File terlampir pakai Array Formula
Semoga sesuai harapan
Wassalam
~ Bagus ~
----- Original Message -----
From: Adi Idrus
To: XL-mania@yahoogroups.com
Sent: Monday, April 29, 2013 5:26 PM
Subject: ]] XL-mania [[ Menangkap Hewan Ternak
Dear All Master Excel..
Mohon dibantu para master, Saya ingin menangkap hewan hewan-hewan ternak saya yang lepas dan terpencar lalu memasukan mereka kembali ke kandang (Saya pakai excel 2003). Detailnya mohon lihat pada attachment ya.
Terimakasih
Best regard
Adi Idrus.
PT. Bridgestone Tire Indonesia | QA Dept
Together to be The Best
File terlampir pakai Array Formula
Semoga sesuai harapan
Wassalam
~ Bagus ~
----- Original Message -----
From: Adi Idrus
To: XL-mania@yahoogroup
Sent: Monday, April 29, 2013 5:26 PM
Subject: ]] XL-mania [[ Menangkap Hewan Ternak
Dear All Master Excel..
Mohon dibantu para master, Saya ingin menangkap hewan hewan-hewan ternak saya yang lepas dan terpencar lalu memasukan mereka kembali ke kandang (Saya pakai excel 2003). Detailnya mohon lihat pada attachment ya.
Terimakasih
Best regard
Adi Idrus.
PT. Bridgestone Tire Indonesia | QA Dept
Together to be The Best
Tue May 7, 2013 9:08 pm (PDT) . Posted by:
"Yogi Pratama" yogi_doank86
dear para master
saya baru mengenal xl
jadi belum bisa buat formula. mohon diberi pencerahanya terima kasih.
file terlampir.
yogi pratama
saya baru mengenal xl
jadi belum bisa buat formula. mohon diberi pencerahanya terima kasih.
file terlampir.
yogi pratama
Tue May 7, 2013 9:09 pm (PDT) . Posted by:
"Riska Natalia" nataliariska27
dear para pakar XL yang baik hati,
saya ingin menanyakan kembali kasus yang pernah ditanyakan sebelumnya beberapa tahun yang lalu oleh pendahulu karena belum berhasil menemukan solusi/jawabannya di file XL mania, dan juga saya kesulitan menghubungi beliau untuk berguru, hehehe
saya copas pertanyaan beliau, sbb :
"Para Pakar Excel,
Adakah formula yang bisa mengkombinasikan tanggal mulai dan akhir dari kolom proses sebelah kiri (lampiran, Y axis) dengan tanggal hari kerja (X axis) sehingga muncul X menjadi tampilan sebagai grafik. Terima kasih "
saya lampirkan juga lampiran yang dilampirkan oleh beliau
mohon pencerahannya
terimakasih,
Riska
saya ingin menanyakan kembali kasus yang pernah ditanyakan sebelumnya beberapa tahun yang lalu oleh pendahulu karena belum berhasil menemukan solusi/jawabannya di file XL mania, dan juga saya kesulitan menghubungi beliau untuk berguru, hehehe
saya copas pertanyaan beliau, sbb :
"Para Pakar Excel,
Adakah formula yang bisa mengkombinasikan tanggal mulai dan akhir dari kolom proses sebelah kiri (lampiran, Y axis) dengan tanggal hari kerja (X axis) sehingga muncul X menjadi tampilan sebagai grafik. Terima kasih "
saya lampirkan juga lampiran yang dilampirkan oleh beliau
mohon pencerahannya
terimakasih,
Riska
Tue May 7, 2013 9:09 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba :
=LOOKUP(2,1/(($A$2:$A$719=G6)*($C$2:$C$719<=I6)),$B$2:$B$719)
Wassalam,
Kid.
2013/4/22 Aing Tea <aingtea613@yahoo.com >
> **
>
>
> Bagaimana cara cepat nya mengambil no entry terakhir tiap nama berdasarkan
> tanggal?
> Terlampir kasus nya.
> Mohon bantuannya, terima kasih.
>
> Burhan
>
>
>
=LOOKUP(2,1/
Wassalam,
Kid.
2013/4/22 Aing Tea <aingtea613@yahoo.
> **
>
>
> Bagaimana cara cepat nya mengambil no entry terakhir tiap nama berdasarkan
> tanggal?
> Terlampir kasus nya.
> Mohon bantuannya, terima kasih.
>
> Burhan
>
>
>
Tue May 7, 2013 9:09 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba gunakan script prosedur Hapus berikut ini :
Public Sub Hapus()
Dim sht As Worksheet 'var object sheet yang dikerjakan
For Each sht In ThisWorkbook.Worksheets 'di setiap sheet
With sht 'pada sht kerja
.AutoFilterMode = False 'turnoff autofilter
With .Range("a1") 'pada range a1 nya
'sort kolom C (offset 2 kolom dari kolom A) : descending
.CurrentRegion.Sort .Offset(0, 2), xlDescending,
Header:=xlYes, Orientation:=xlSortColumns
'autofilter kolom C (kolom ke-3) : <1
.CurrentRegion.AutoFilter 3, "<1"
'hapus baris hasil filter berdasar data yang tampak di
kolom C
.CurrentRegion.Resize(, 1).Offset(1,
2).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
.AutoFilterMode = False 'turnoff autofilter
End With
Next sht 'ke sheet berikutnya
End Sub
Wassalam,
Kid.
2013/4/25 Samsul Arifin <syemy88@yahoo.co.id >
> **
>
>
> Para master-master excel semua
> Bagaimana Script Macro Untuk Short Qty yang kurang dari 1 ( < 1 ) Dan
> mendelete baris data yang Qty'nya < 1 secara otomatis Karena Saya hanya
> membutuhkan Data dengan Qty 1 ke atas Data Saya dalam 1 excel ada 31
> Sheet, setiap sheet minimal 75ribu baris.
> Saya ngerjain manual 3 bulan saja sudah lelah Mohon di bantu.
> Terima Kasih
>
> Hormat Saya
> Samsul Aripin
>
>
>
Public Sub Hapus()
Dim sht As Worksheet 'var object sheet yang dikerjakan
For Each sht In ThisWorkbook.
With sht 'pada sht kerja
.AutoFilterMode = False 'turnoff autofilter
With .Range("
'sort kolom C (offset 2 kolom dari kolom A) : descending
.CurrentRegion.
Header:=xlYes, Orientation:
'autofilter kolom C (kolom ke-3) : <1
.CurrentRegion.
'hapus baris hasil filter berdasar data yang tampak di
kolom C
.CurrentRegion.
2).SpecialCells(
End With
.AutoFilterMode = False 'turnoff autofilter
End With
Next sht 'ke sheet berikutnya
End Sub
Wassalam,
Kid.
2013/4/25 Samsul Arifin <syemy88@yahoo.
> **
>
>
> Para master-master excel semua
> Bagaimana Script Macro Untuk Short Qty yang kurang dari 1 ( < 1 ) Dan
> mendelete baris data yang Qty'nya < 1 secara otomatis Karena Saya hanya
> membutuhkan Data dengan Qty 1 ke atas Data Saya dalam 1 excel ada 31
> Sheet, setiap sheet minimal 75ribu baris.
> Saya ngerjain manual 3 bulan saja sudah lelah Mohon di bantu.
> Terima Kasih
>
> Hormat Saya
> Samsul Aripin
>
>
>
Tue May 7, 2013 9:11 pm (PDT) . Posted by:
"Paijo Iseng" paijo.iseng
Coba saja ini:
Sub Urutkan_Bersihkan()
Dim HitungBaris As Long, N As Long
Dim Totalbaris As Long, TotalKolom As Long, Alamat As String
ActiveCell.SpecialCells(xlLastCell).Select
Totalbaris = ActiveCell.Row - 1
TotalKolom = ActiveCell.Column
Range("A1").Select
Selection.End(xlToRight).Select
Range("C2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="4DDDD88977", RefersToR1C1:="=" & _
ActiveSheet.Name & "!R2C" & TotalKolom & ":R" & Totalbaris + 1 & "C" & TotalKolom
HitungBaris = ActiveWorkbook.Names("4DDDD88977").RefersToRange.Rows.Count
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Add Key:=Range("4DDDD88977"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Alamat = "A1:" & Chr$(64 + TotalKolom) & Totalbaris
With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort
.SetRange Range(Alamat)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Names("4DDDD88977").Delete
Range("C2").Select
For N = 1 To HitungBaris
If ActiveCell.Value < 1 Then
Selection.EntireRow.Delete
End If
Next N
End Sub
________________________________
From: Samsul Arifin <syemy88@yahoo.co.id >
To: "XL-mania@yahoogroups.com " <XL-mania@yahoogroups.com >
Sent: Thursday, April 25, 2013 7:26 PM
Subject: ]] XL-mania [[ Short Dat dan Delete Baris Hasil Short
Para master-master excel semua
Bagaimana Script Macro
Untuk Short Qty yang kurang dari 1 ( < 1 )
Dan mendelete baris data yang Qty'nya < 1 secara otomatis
Karena Saya hanya membutuhkan Data dengan Qty 1 ke atas
Data Saya dalam 1 excel ada 31 Sheet, setiap sheet minimal 75ribu baris.
Saya ngerjain manual 3 bulan saja sudah lelah
Mohon di bantu.
Terima Kasih
Hormat Saya
Samsul Aripin
Sub Urutkan_Bersihkan(
Dim HitungBaris As Long, N As Long
Dim Totalbaris As Long, TotalKolom As Long, Alamat As String
ActiveCell.SpecialC
Totalbaris = ActiveCell.Row - 1
TotalKolom = ActiveCell.Column
Range("
Selection.End(
Range("
Range(Selection, Selection.End(
ActiveWorkbook.
ActiveSheet.
HitungBaris = ActiveWorkbook.
Range("
Range(Selection, Selection.End(
Range(Selection, Selection.End(
ActiveWorkbook.
ActiveWorkbook.
SortOn:=xlSortOnVal
Alamat = "A1:" & Chr$(64 + TotalKolom) & Totalbaris
With ActiveWorkbook.
.SetRange Range(Alamat)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.
Range("
For N = 1 To HitungBaris
If ActiveCell.Value < 1 Then
Selection.EntireRow
End If
Next N
End Sub
____________
From: Samsul Arifin <syemy88@yahoo.
To: "XL-mania@yahoogroup
Sent: Thursday, April 25, 2013 7:26 PM
Subject: ]] XL-mania [[ Short Dat dan Delete Baris Hasil Short
Para master-master excel semua
Bagaimana Script Macro
Untuk Short Qty yang kurang dari 1 ( < 1 )
Dan mendelete baris data yang Qty'nya < 1 secara otomatis
Karena Saya hanya membutuhkan Data dengan Qty 1 ke atas
Data Saya dalam 1 excel ada 31 Sheet, setiap sheet minimal 75ribu baris.
Saya ngerjain manual 3 bulan saja sudah lelah
Mohon di bantu.
Terima Kasih
Hormat Saya
Samsul Aripin
Tue May 7, 2013 9:10 pm (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
misalkan data pertama ada di A1
maka formulanya
=SUBSTITUTE(A1,".","/")
copy ke bawah
wasalam
Ghozi Alkatiri
________________________________
Dari: "setya_budi@app.co.id " <setya_budi@app.co.id >
Kepada: XL-Mania <XL-mania@yahoogroups.com >
Dikirim: Selasa, 23 April 2013 8:35
Judul: ]] XL-mania [[ mengubah menjadi format DATE
Rekan xl-mania
saya ada satu masalah, bagaimana ya mengubah
menjadi format DATE
menjadi
09/03/2013
13/03/2013
Mohon pembelajaran dari rekan yang sudah
lebih dahulu mengetahui
thnks ya
Best Regards.
Budi/PPIC
PT. Indah Kiat Pulp & Paper Tbk.
Jl. Raya Serang KM 76, Kragilan Serang 42184
Banten - Indonesia
Phone: +62.254.280088 Ext: 3068
maka formulanya
=SUBSTITUTE(
copy ke bawah
wasalam
Ghozi Alkatiri
____________
Dari: "setya_budi@app.
Kepada: XL-Mania <XL-mania@yahoogroup
Dikirim: Selasa, 23 April 2013 8:35
Judul: ]] XL-mania [[ mengubah menjadi format DATE
Rekan xl-mania
saya ada satu masalah, bagaimana ya mengubah
menjadi format DATE
menjadi
09/03/2013
13/03/2013
Mohon pembelajaran dari rekan yang sudah
lebih dahulu mengetahui
thnks ya
Best Regards.
Budi/PPIC
PT. Indah Kiat Pulp & Paper Tbk.
Jl. Raya Serang KM 76, Kragilan Serang 42184
Banten - Indonesia
Phone: +62.254.280088 Ext: 3068
Tue May 7, 2013 9:10 pm (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
formula array (C+S+E)
{=INDEX($B$8:$B$25;SMALL(IF(LEN($B$8:$B$25);ROW($B$8:$B$25)-7);ROW(1:1)))}
copy ke bawah
wassalam
Ghozi Alkatiri
________________________________
Dari: Adi Idrus <adi.idrus@bridgestone.co.id >
Kepada: "XL-mania@yahoogroups.com " <XL-mania@yahoogroups.com >
Dikirim: Senin, 29 April 2013 17:26
Judul: ]] XL-mania [[ Menangkap Hewan Ternak
Dear All Master Excel..
Mohon dibantu para master, Saya ingin menangkap hewan hewan-hewan
ternak saya yang lepas dan terpencar lalu memasukan mereka kembali ke kandang
(Saya pakai excel 2003). Detailnya mohon lihat pada attachment ya.
Terimakasih
Best regard
Adi Idrus.
PT. Bridgestone Tire Indonesia | QA Dept
Together to be The Best
{=INDEX($B$8:
copy ke bawah
wassalam
Ghozi Alkatiri
____________
Dari: Adi Idrus <adi.idrus@bridgesto
Kepada: "XL-mania@yahoogroup
Dikirim: Senin, 29 April 2013 17:26
Judul: ]] XL-mania [[ Menangkap Hewan Ternak
Dear All Master Excel..
Mohon dibantu para master, Saya ingin menangkap hewan hewan-hewan
ternak saya yang lepas dan terpencar lalu memasukan mereka kembali ke kandang
(Saya pakai excel 2003). Detailnya mohon lihat pada attachment ya.
Terimakasih
Best regard
Adi Idrus.
PT. Bridgestone Tire Indonesia | QA Dept
Together to be The Best
Tue May 7, 2013 9:11 pm (PDT) . Posted by:
"Daya Devi" dayadevi88
Dear xl mania,
Selamat malam....
Saya punya kesulitan dalam membuat VBA/ makro untuk HPP FIFO, mohon bantuan para master xl mania.Contoh file terlampir di sheet Keluar
Terima kasih atas bantuannya.
Regards,
Devi
Selamat malam....
Saya punya kesulitan dalam membuat VBA/ makro untuk HPP FIFO, mohon bantuan para master xl mania.Contoh file terlampir di sheet Keluar
Terima kasih atas bantuannya.
Regards,
Devi
GROUP FOOTER MESSAGE
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Maaf moderasi terlambat karena yahoogroups sering error |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| Maaf moderasi terlambat karena yahoogroups sering error |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
Tidak ada komentar:
Posting Komentar