Selasa, 08 April 2014

[belajar-excel] Digest Number 2866

Milis Belajar Microsoft Excel

15 Messages

Digest #2866
1a
(no subject) by "Ferry Alexander"
1b
Re: (unknown) [1 Attachment] by "Heri Pamungkas ( Gmail )" dchoosen88
1d
Re: (unknown) by "Jan Raisin"
1e
Re: (unknown) [1 Attachment] by "Bagus" bagus4bls
1f
Re: (unknown) [1 Attachment] by "Bagus" bagus4bls
2
Memisahkan text dengan makro by "Emi" emilestariklcc
3a
3b
Re: tanya macro memberi nama file by "hendrik karnadi" hendrikkarnadi
4b
Re: Memisahkan text dengan makro by "Emi" emilestariklcc
6
Baris menyesuaikan jumlah data by "Joko Suryaningrat" joko369
8
Rumus IF berdasarkan tanggal by "Imam Ibnu Hazar" ibnuhadzar@ymail.com

Messages

Mon Apr 7, 2014 1:02 pm (PDT) . Posted by:

"Ferry Alexander"

Dear Be-Excelers,

Mohon info bantuan formula untuk dari sheet "data" yang berupa data vertikaldiubah menjadi data horizontal pertanggalseperti pada sheet "hitung". terima kasih

file terlampir

rgds,
Ferry 

Mon Apr 7, 2014 5:17 pm (PDT) . Posted by:

"Heri Pamungkas ( Gmail )" dchoosen88


?????????? ?????????? ?????????? ????? ?????????????
Semangat pagi,.

Mungkin cara tercepatnya menggunakan Pivot,
Karena saya belum begitu mahir, pakai 2 kolom bantu boleh iaa ?!

Tapi sepertinya datanya ada yang mesti di check ulang, karena ada
Value selain "Clok In" dan "Clock Out".

???????????? ?????????? ?????????? ????? ?????????????

Warm Regards,

On 08/04/2014 0:46, Ferry Alexander wrote:
> Dear Be-Excelers,
>
> Mohon info bantuan formula untuk dari sheet "data" yang berupa data
> vertikaldiubah menjadi data horizontal pertanggalseperti pada sheet
> "hitung". terima kasih
>
> file terlampir
>
> rgds,
> Ferry
>

Mon Apr 7, 2014 7:01 pm (PDT) . Posted by:

"Ferry Alexander"

Trims mas Heri Pamungkas, 
apa kira2 ada alternatif lain ya untuk hal ini ,mengingat saya newbie belum belajar pivot...hehehe

rgds,
Ferry
Pada Selasa, 8 April 2014 7:17, Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com> menulis:

 

السÙ'َلَامُ عَلَيÙ'كُمÙ' وَرَحÙ'مَةُ اللهِ وَبَرَكَاتُهُ
Semangat pagi,. Mungkin cara tercepatnya menggunakan Pivot,
Karena saya belum begitu mahir, pakai 2 kolom bantu boleh iaa ?! Tapi sepertinya datanya ada yang mesti di check ulang, karena ada
Value selain "Clok In" dan "Clock Out". وَالسÙ'َلَامُ عَلَيÙ'كُمÙ' وَرَحÙ'مَةُ اللهِ وَبَرَكَاتُهُ Warm Regards,
On 08/04/2014 0:46, Ferry Alexander wrote:

 
>Dear Be-Excelers,
>
>
>Mohon info bantuan formula untuk dari sheet "data" yang berupa data vertikaldiubah menjadi data horizontal pertanggalseperti pada sheet "hitung". terima kasih
>
>
>file terlampir
>
>
>rgds,
>Ferry 

Mon Apr 7, 2014 9:10 pm (PDT) . Posted by:

"Jan Raisin"

ikutan..

solusi dari mas Heri itu adalah solusi terbaik, terbaik menurut Jan berarti
paling simple, paling cepat, dan paling mudah dipelajari dan dikerjakan.
yang dibutuhkan hanya kemauan keras untuk mempelajari hal-hal baru. Kalau
sebelumnya mas Fery belum pernah belajar pivot, maka sekarang adalah saat
yang tepat untuk belajar Pivot.

silakan luangkan waktu untuk mengintip tulisan mr Kid tentang Pivot Table
di link ini<http://excel-mr-kid.blogspot.com/2013/04/pivot-table-1-kenalan.html>
sebagai bocoran dari hasil chat Jan dengan salah satu moderator milis,
fitur PT ini membantu menghemat waktu beliau saat membuat laporan dari
sekitar 3 hari menjadi beberapa menit saja.

Semangat ^_^

Wassalam,

-Miss Jan Raisin-

Pada 8 April 2014 08.46, Ferry Alexander <ferry_hr@yahoo.com> menulis:

>
>
> Trims mas Heri Pamungkas,
> apa kira2 ada alternatif lain ya untuk hal ini ,mengingat saya newbie
> belum belajar pivot...hehehe
>
> rgds,
> Ferry
> Pada Selasa, 8 April 2014 7:17, Heri Pamungkas ( Gmail ) <
> ghery.dharma@gmail.com> menulis:
>
>
> ÇáÓøóáóÇãõ Úóáóíúßõãú æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
> Semangat pagi,.
>
> Mungkin cara tercepatnya menggunakan Pivot,
> Karena saya belum begitu mahir, pakai 2 kolom bantu boleh iaa ?!
>
> Tapi sepertinya datanya ada yang mesti di check ulang, karena ada
> Value selain "Clok In" dan "Clock Out".
>
>
>
> æóÇáÓøóáóÇãõ Úóáóíúßõãú æóÑóÍúãóÉõ Çááåö æóÈóÑóßóÇÊõåõ
>
> Warm Regards,
>
> On 08/04/2014 0:46, Ferry Alexander wrote:
>
>
> Dear Be-Excelers,
>
> Mohon info bantuan formula untuk dari sheet "data" yang berupa data
> vertikaldiubah menjadi data horizontal pertanggalseperti pada sheet
> "hitung". terima kasih
>
> file terlampir
>
> rgds,
> Ferry
>
>

Mon Apr 7, 2014 9:50 pm (PDT) . Posted by:

"Bagus" bagus4bls

Hai Ferry;

Maunya pakai formula ya..
Sila lihat file terlampir..
semoga sesuai harapan

Wassalam
~ Bagus ~

----- Original Message -----
From: Ferry Alexander
To: belajar-excel@yahoogroups.com
Sent: Tuesday, April 08, 2014 12:46 AM
Subject: [belajar-excel] (unknown) [1 Attachment]

Dear Be-Excelers,

Mohon info bantuan formula untuk dari sheet "data" yang berupa data vertikaldiubah menjadi data horizontal pertanggalseperti pada sheet "hitung". terima kasih

file terlampir

rgds,
Ferry

Mon Apr 7, 2014 10:00 pm (PDT) . Posted by:

"Bagus" bagus4bls

Untuk menghindari adanya nama yang sama,
=IFERROR(INDEX(MID(data!$D$2:$D$108,FIND(" ",data!$D$2:$D$108,1)+1,5),MATCH(IF(LEN(D$3),D$3&D$4&$B5,C$3&D$4&$B5),DATEVALUE(data!$D$2:$D$108)&MID(data!$E$2:$E$108,FIND(" ",data!$E$2:$E$108,1)+1,3)&data!$B$2:$B$108,0)),"")

ganti yang yang warna merah diatas menjadi:
=IFERROR(INDEX(MID(data!$D$2:$D$108,FIND(" ",data!$D$2:$D$108,1)+1,5),MATCH(IF(LEN(D$3),D$3&D$4&$A5,C$3&D$4&$A5),DATEVALUE(data!$D$2:$D$108)&MID(data!$E$2:$E$108,FIND(" ",data!$E$2:$E$108,1)+1,3)&data!$A$2:$A$108,0)),"")

Wassalam

~ Bagus ~

----- Original Message -----
From: Bagus
To: belajar-excel@yahoogroups.com
Sent: Tuesday, April 08, 2014 12:09 PM
Subject: Re: [belajar-excel] (unknown) [1 Attachment]

Hai Ferry;

Maunya pakai formula ya..
Sila lihat file terlampir..
semoga sesuai harapan

Wassalam
~ Bagus ~

----- Original Message -----
From: Ferry Alexander
To: belajar-excel@yahoogroups.com
Sent: Tuesday, April 08, 2014 12:46 AM
Subject: [belajar-excel] (unknown) [1 Attachment]

Dear Be-Excelers,

Mohon info bantuan formula untuk dari sheet "data" yang berupa data vertikaldiubah menjadi data horizontal pertanggalseperti pada sheet "hitung". terima kasih

file terlampir

rgds,
Ferry

Mon Apr 7, 2014 6:33 pm (PDT) . Posted by:

"Emi" emilestariklcc

Saya menggunakan makro  yang ditulis oleh Alm  SitiV untuk memisahkan text.
Tetapi  hasil textnya tanpa spasi tidak seperti  di dalam data asli.

Mohon teman dan guru beExcel membuat sedikit modifikasi supaya output nya seperti  yang diinginkan.

Function AbcOnly(s As String) As String
   Dim n As Integer, X As String, K As String
   For n = 1 To Len(s)
      K = Mid(s, n, 1)
      X = X & IIf(Asc(K) > 47 And Asc(K) < 58, "", Trim(K))
   Next n
   AbcOnly = X
End Function

Terima kasih.

-Emi Lestari

Data Asal Textnya tanpa spasi

Air Cleaner Z 7015 AirCleanerZ
Built in Oven - EOB 3610W BuiltinOven-EOBW
Chest Freezer - EC 4109 N ChestFreezer-ECN
Chest Freezer - EC 5109 N ChestFreezer-ECN
Chest Freezer - ECF 1190 ChestFreezer-ECF
COFFEE MAKER EES 200 COFFEEMAKEREES
Cooker Hoods - EFC 9500 X CookerHoods-EFCX
Cooker Hoods - EFT 9460 X CookerHoods-EFTX
Cooker Hoods - ZHT 60W CookerHoods-ZHTW
Cooker Hoods - ZHT 610W CookerHoods-ZHTW
Cooker Hoods - ZHT 90W CookerHoods-ZHTW
Dishwasher - ESF 6150 SX Dishwasher-ESFSX
ESPRESSO MAKERS ECF 250 ESPRESSOMAKERSECF
Gas Cooker - 96 GX-T GasCooker-GX-T
Gas Cooker -EHG 7720X GasCooker-EHGX
Gas Cooker -EHG 7755 G GasCooker-EHGG
Gas Cooker -EHG 7979X GasCooker-EHGX

Mon Apr 7, 2014 6:34 pm (PDT) . Posted by:

"rizald al kaaf"

salam rekan2
mohon bantuannya,
langsung saja
saya lagi make macro sheetToNewBook yg banyak beredar di arsip milis ini
secara umum sudah sesuai keinginan saya, cuma ada sedikit yg saya kurang
pahami yaitu cara penamaan file yg baru
kira2 coding-nya
===

Sub SheetsToBook()

Dim sht As Worksheet

Dim wbPath As String

Dim newNm As String

wbPath = ThisWorkbook.Path & "\"

For Each sht In Worksheets

If sht.Name <> "jadi file terpisah" Then

newNm = wbPath & "ex-" & sht.Name

sht.Move

ActiveWorkbook.SaveAs _

Filename:=newNm, FileFormat:=xlNormal

ThisWorkbook.Activate

End If

Next sht
End Sub
=====
di new.Nm itu saya yg kurang paham
misalnya nih di cell(A1) dr worksheet yg akan dipindah isinya "NAMA FILE"
nah gimana coding supaya workbook yg akan dipindah namanya sesuai cell(A1)
tersebut ??
trims, semoga dapat dimengerti
--
~Rizald D AlKaaf

Mon Apr 7, 2014 8:52 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Coba ganti code:

newNm = wbPath & "ex-" & sht.Name

dengan

newNm = wbPath & "ex-" & sht.Range("A1")

Salam,
HK

On Tuesday, 8 April 2014, 8:34, rizald al kaaf <r.alkaaf@gmail.com> wrote:

 
salam rekan2
mohon bantuannya,
langsung saja
saya lagi make macro sheetToNewBook yg banyak beredar di arsip milis ini
secara umum sudah sesuai keinginan saya, cuma ada sedikit yg saya kurang pahami yaitu cara penamaan file yg baru
kira2 coding-nya
===

Sub SheetsToBook()
   Dim sht As Worksheet
   Dim wbPath As String
   Dim newNm As String
  
   wbPath = ThisWorkbook.Path & "\"
  
   For Each sht In Worksheets
      If sht.Name <> "jadi file terpisah" Then
      newNm = wbPath & "ex-" & sht.Name
      sht.Move
      ActiveWorkbook.SaveAs _
      Filename:=newNm, FileFormat:=xlNormal
      ThisWorkbook.Activate
      End If
   Next sht
End Sub
=====
di new.Nm itu saya yg kurang paham
misalnya nih di cell(A1) dr worksheet yg akan dipindah isinya "NAMA FILE"
nah gimana coding supaya workbook yg akan dipindah namanya sesuai cell(A1) tersebut ??

trims, semoga dapat dimengerti

--
~Rizald D AlKaaf

Mon Apr 7, 2014 6:47 pm (PDT) . Posted by:

"Bagus" bagus4bls

Hai Emi;

coba pada baris ini:
X = X & IIf(Asc(K) > 47 And Asc(K) < 58, "", Trim(K))

dihilangkan fungsi trim-nya menjadi:
X = X & IIf(Asc(K) > 47 And Asc(K) < 58, "", K)

Wassalam

~ Bagus ~

----- Original Message -----
From: Emi
To: belajar-excel@yahoogroups.com
Sent: Tuesday, April 08, 2014 8:20 AM
Subject: [belajar-excel] Memisahkan text dengan makro [1 Attachment]

Saya menggunakan makro yang ditulis oleh Alm SitiV untuk memisahkan text.
Tetapi hasil textnya tanpa spasi tidak seperti di dalam data asli.

Mohon teman dan guru beExcel membuat sedikit modifikasi supaya output nya seperti yang diinginkan.

Function AbcOnly(s As String) As String
Dim n As Integer, X As String, K As String
For n = 1 To Len(s)
K = Mid(s, n, 1)
X = X & IIf(Asc(K) > 47 And Asc(K) < 58, "", Trim(K))
Next n
AbcOnly = X
End Function

Terima kasih.

-Emi Lestari

Data Asal Textnya tanpa spasi

Air Cleaner Z 7015 AirCleanerZ
Built in Oven - EOB 3610W BuiltinOven-EOBW
Chest Freezer - EC 4109 N ChestFreezer-ECN
Chest Freezer - EC 5109 N ChestFreezer-ECN
Chest Freezer - ECF 1190 ChestFreezer-ECF
COFFEE MAKER EES 200 COFFEEMAKEREES
Cooker Hoods - EFC 9500 X CookerHoods-EFCX
Cooker Hoods - EFT 9460 X CookerHoods-EFTX
Cooker Hoods - ZHT 60W CookerHoods-ZHTW
Cooker Hoods - ZHT 610W CookerHoods-ZHTW
Cooker Hoods - ZHT 90W CookerHoods-ZHTW
Dishwasher - ESF 6150 SX Dishwasher-ESFSX
ESPRESSO MAKERS ECF 250 ESPRESSOMAKERSECF
Gas Cooker - 96 GX-T GasCooker-GX-T
Gas Cooker -EHG 7720X GasCooker-EHGX
Gas Cooker -EHG 7755 G GasCooker-EHGG
Gas Cooker -EHG 7979X GasCooker-EHGX

Mon Apr 7, 2014 7:35 pm (PDT) . Posted by:

"Emi" emilestariklcc

Terima kasih Mr Bagus sudah berhasil sesuai keinginan.

Emi Lestari.

On Tuesday, April 8, 2014 9:48 AM, Bagus <bagus@kingjim.co.id> wrote:

 
Hai Emi;
 
coba pada baris ini:
X = X & IIf(Asc(K) > 47 And Asc(K) < 58, "",
Trim(K))
 
dihilangkan fungsi trim-nya menjadi:
X = X & IIf(Asc(K) > 47 And Asc(K) < 58, "",
K)
 
 
 
Wassalam
~
Bagus ~
 
----- Original Message -----
>From: Emi
>To: belajar-excel@yahoogroups.com
>Sent: Tuesday, April 08, 2014 8:20 AM
>Subject: [belajar-excel] Memisahkan text dengan makro [1 Attachment]
>

>Saya menggunakan makro  yang ditulis oleh Alm  SitiV untuk memisahkan text.
>Tetapi  hasil textnya tanpa spasi tidak seperti 
di dalam data asli.
>
>Mohon teman dan guru beExcel membuat sedikit
modifikasi supaya output nya seperti  yang diinginkan.
>
>Function
AbcOnly(s As String) As String
>   Dim n As Integer, X As String,
K As String
>   For n = 1 To
Len(s)
>      K = Mid(s, n,
1)
>      X = X & IIf(Asc(K) > 47 And Asc(K)
< 58, "", Trim(K))
>   Next n
>   AbcOnly =
X
>End Function
>
>
>Terima kasih.
>
>-Emi Lestari
>
>
>
>Data Asal Textnya tanpa spasi
>
>
>Air Cleaner Z 7015 AirCleanerZ
>Built in Oven - EOB 3610W BuiltinOven-EOBW
>Chest Freezer - EC 4109 N ChestFreezer-ECN
>Chest Freezer - EC 5109 N ChestFreezer-ECN
>Chest Freezer - ECF 1190 ChestFreezer-ECF
>COFFEE MAKER EES 200 COFFEEMAKEREES
>Cooker Hoods - EFC 9500 X CookerHoods-EFCX
>Cooker Hoods - EFT 9460 X CookerHoods-EFTX
>Cooker Hoods - ZHT 60W CookerHoods-ZHTW
>Cooker Hoods - ZHT 610W CookerHoods-ZHTW
>Cooker Hoods - ZHT 90W CookerHoods-ZHTW
>Dishwasher - ESF 6150 SX Dishwasher-ESFSX
>ESPRESSO MAKERS ECF 250 ESPRESSOMAKERSECF
>Gas Cooker - 96 GX-T GasCooker-GX-T
>Gas Cooker -EHG 7720X GasCooker-EHGX
>Gas Cooker -EHG 7755 G GasCooker-EHGG
>Gas Cooker -EHG 7979X GasCooker-EHGX
>
>

Mon Apr 7, 2014 7:04 pm (PDT) . Posted by:

dya27_biznies

Dear Master and Member
Saya punya masalah nih dalam formula SUMIF dan VLOOKUP pake macro VBA
Sheet "database"; sebagai sumber data dan sheet "laporan" dijadikan untuk menerapkan formula SUMIF/VLOOKUP dengan menggunakan macro. Masalahnya gini,kalau database dan laporan gabung dalam 1 sheet rumus SUMIF/VLOOKUP berfungsi tapi kalau database dengan laporan berbeda sheet maka formula SUMIF/VLOOKUP macro tidak berfungsi
Mohon pencerahannya dari para Master dan member Bexcel. Terima kasih

----- Mod -----
sebuah sample workbook yang berisi contoh data, dengan hasil yang diinginkan
dan sepotong script yang digunakan akan memudahkan Be-Exceller yang ingin
membantu memberikan solusi.
Silakan sertakan sample workbook < 250 KB dengan cara me-reply email ini.
___________

Mon Apr 7, 2014 7:20 pm (PDT) . Posted by:

"Joko Suryaningrat" joko369

Assalamualaikum, selamat pagi semua, mohon bantuannya mengenai cara agar jumlah baris dapat ditentukan dengan jumlah data yang diinginkan dengan batas maksimum data tertentu. Berapapun jumlah data, dibawah baris terakhir data tersebut terdapat signature.

Sebenarnya masalah ini sudah pernah ditanyakan pada "Row bertambah otomatis sesuai jumlah data", namun belum tuntas dan saya belum mendapat jawaban yang sesuai, maka saya buat thread baru ini.

Mohon bantuan teman-teman semua.

Mon Apr 7, 2014 9:42 pm (PDT) . Posted by:

"ferry_hr"

Hello Miss Jan,
Iya nih saya msh hrs bljr ttg lookup dan pivot table. Trims utk pencerahannya dan link bwt bljr.

Warm Rgds,
Ferry Alexander
Ferry_hr@yahoo.com
Insanity is doing the same over & over again and expecting a different result <Einstein>

Jan Raisin <miss.jan.raisin@gmail.com> menulis:

>ikutan..solusidarimasHeriituadalahsolusiterbaik,terbaikmenurutJanberartipalingsimple,palingcepat,danpalingmudahdipelajaridandikerjakan.yangdibutuhkanhanyakemauankerasuntukmempelajarihal-halbaru.KalausebelumnyamasFerybelumpernahbelajarpivot,makasekarangadalahsaatyangtepatuntukbelajarPivot.silakanluangkanwaktuuntukmengintiptulisanmrKidtentangPivotTabledilinkinisebagaibocorandarihasilchatJandengansalahsatumoderatormilis,fiturPTinimembantumenghematwaktubeliausaatmembuatlaporandarisekitar3harimenjadibeberapamenitsaja.Semangat^_^Wassalam,-MissJanRaisin-Pada8April201408.46,FerryAlexanderferry_hr@yahoo.commenulis: TrimsmasHeriPamungkas, apakira2adaalternatiflainyauntukhalini,mengingatsayanewbiebelumbelajarpivot...hehehergds,FerryPadaSelasa,8April20147:17,HeriPamungkas(Gmail)ghery.dharma@gmail.commenulis: السÙ'َلَامُعَلَيÙ'كُمÙ'وَرَحÙ'مَةُاللهِوَبَرَكَاتُهُSemangatpagi,.MungkincaratercepatnyamenggunakanPivot,Karenasayabelumbegitumahir,pakai2kolombantubolehiaa?!Tapisepertinyadatanyaadayangmestidicheckulang,karenaadaValueselainClokIndanClockOut.وَالسÙ'َلَامُعَلَيÙ'كُمÙ'وَرَحÙ'مَةُاللهِوَبَرَكَاتُهُWarmRegards,On08/04/20140:46,FerryAlexanderwrote:<blockqu

Tue Apr 8, 2014 1:45 am (PDT) . Posted by:

"Imam Ibnu Hazar" ibnuhadzar@ymail.com

Dear Be-Exceller,


saya sedang membuat input data calon siswa baru, bagimana caranya membuat rumus IF berdasarkan kriteria tanggal ya?



ex: jika melewati tanggal 16/5/2014, maka masuk gelombang "II" dan jika sebelum tanggal tsb masuk gelombang "I"


Terlampir adalah sample workbook untuk memperjelas kasus saya.


Terimakasih...



=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar