15 Messages
Digest #2866
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
Mohon info bantuan formula untuk dari sheet "data" yang berupa data vertikaldiubah menjadi data horizontal pertanggalseperti pada sheet "hitung"
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"
>
> 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
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"
>
>
>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
>
>
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"
>
> 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
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"
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
=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"
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
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, ""
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-
Chest Freezer - EC 4109 N ChestFreezer-
Chest Freezer - EC 5109 N ChestFreezer-
Chest Freezer - ECF 1190 ChestFreezer-
COFFEE MAKER EES 200 COFFEEMAKEREES
Cooker Hoods - EFC 9500 X CookerHoods-
Cooker Hoods - EFT 9460 X CookerHoods-
Cooker Hoods - ZHT 60W CookerHoods-
Cooker Hoods - ZHT 610W CookerHoods-
Cooker Hoods - ZHT 90W CookerHoods-
Dishwasher - ESF 6150 SX Dishwasher-ESFSX
ESPRESSO MAKERS ECF 250 ESPRESSOMAKERSECF
Gas Cooker - 96 GX-T GasCooker-GX-
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
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.
For Each sht In Worksheets
If sht.Name <> "jadi file terpisah" Then
newNm = wbPath & "ex-" & sht.Name
sht.Move
ActiveWorkbook.
Filename:=newNm, FileFormat:=
ThisWorkbook.
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
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.
For Each sht In Worksheets
If sht.Name <> "jadi file terpisah" Then
newNm = wbPath & "ex-" & sht.Name
sht.Move
ActiveWorkbook.
Filename:=newNm, FileFormat:=
ThisWorkbook.
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
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, ""
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-
Chest Freezer - EC 4109 N ChestFreezer-
Chest Freezer - EC 5109 N ChestFreezer-
Chest Freezer - ECF 1190 ChestFreezer-
COFFEE MAKER EES 200 COFFEEMAKEREES
Cooker Hoods - EFC 9500 X CookerHoods-
Cooker Hoods - EFT 9460 X CookerHoods-
Cooker Hoods - ZHT 60W CookerHoods-
Cooker Hoods - ZHT 610W CookerHoods-
Cooker Hoods - ZHT 90W CookerHoods-
Dishwasher - ESF 6150 SX Dishwasher-ESFSX
ESPRESSO MAKERS ECF 250 ESPRESSOMAKERSECF
Gas Cooker - 96 GX-T GasCooker-GX-
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
>
>
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, ""
> 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-
>Chest Freezer - EC 4109 N ChestFreezer-
>Chest Freezer - EC 5109 N ChestFreezer-
>Chest Freezer - ECF 1190 ChestFreezer-
>COFFEE MAKER EES 200 COFFEEMAKEREES
>Cooker Hoods - EFC 9500 X CookerHoods-
>Cooker Hoods - EFT 9460 X CookerHoods-
>Cooker Hoods - ZHT 60W CookerHoods-
>Cooker Hoods - ZHT 610W CookerHoods-
>Cooker Hoods - ZHT 90W CookerHoods-
>Dishwasher - ESF 6150 SX Dishwasher-ESFSX
>ESPRESSO MAKERS ECF 250 ESPRESSOMAKERSECF
>Gas Cooker - 96 GX-T GasCooker-GX-
>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.
___________
Saya punya masalah nih dalam formula SUMIF dan VLOOKUP pake macro VBA
Sheet "database"
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.
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
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,
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...
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
---------------------------------------------------------------------
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