Kamis, 20 Oktober 2011

[belajar-excel] Digest Number 1369

Messages In This Digest (25 Messages)

Messages

1a.

Re: mengurutkan data

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Wed Oct 19, 2011 8:16 am (PDT)



maaf ada salah tulis, di bagian penjelasan baris ke 3 yg bisa menimbulkan
kesulitan menangkap maksud yg disampaikan.

tertulis:
Kelompok-depan namanya Pre (diharapkan berisi karakter-karakater Huruf)

seharusnya:
Kelompok-depan namanya Hrf (diharapkan berisi karakter-karakater Huruf)

terima kasih

2011/10/19 Haps <hapsari.stlizbeth@gmail.com>

> "Tunjek" point saja...:
>
> Sub Ubah_NrPO()
> ' hapsari / Oct 19, 2011
> ' beExcel Posting# 13632
> '--------------------------
> Dim Nmr As Long, n As Integer
> Dim Hrf As String, Itm As String
>
> Itm = Selection(1, 1)
> For *n* = Len(Itm) To 1 Step -1
> If Not IsNumeric(Mid(Itm, n, 1)) Then Exit For
> Next
> Hrf = Left(Itm, n)
> Nmr = Val(Right(Itm, Len(Itm) - n))
> For *n* = 1 To Selection.Rows.Count
> Selection(n, 1) = Hrf & *Nmr + n - 1*
> Next n
>
> End Sub
>
> Data pertama di daerah yg disorot (selection) dianggap mewakili semua data
> di bawahnya; data itu kita ingat sbg* Itm* dan kita penggal menjadi dua
> kelompok.
> Kelompok-depan namanya* Pre* (diharapkan berisi karakter-karakater Huruf)
> Kelompok belakang namanya *Nmr* (diharapkan berisi karakter-karakter
> Numeric)
>
> Untuk BISA membagi dua kelompok tsb diperlukan posisi (N) yaitu *letak
> karakter*
> *HURUF *(bukan angka)* yg terkanan*, untuk keperluan itu diperlukan loop
> (loop pertama)
> yg hanya mengunjungi semua karakter dlm string *Itm.*
>
> Setelah itu dilakukan loop lagi yg *mengunjungi semua cell dlm sorotan
> (selection)*
> tiap cell yg dikunjungi diisi DATA BARU yaitu *gabungan* dari *Hrf* dan *
> Nmr* tetapi
> setiap step* Nmr* *ditambah dengan nilai Counter (n) dikurangi 1*
>
> Pantas saja kalau hasilnya sepeti yg diharapkan (mudah-mudahanan sih...)
>
> -haps-
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
1b.

Fw: [belajar-excel] mengurutkan data

Posted by: "R T Gultom" ro_tag@yahoo.com   ro_tag

Wed Oct 19, 2011 6:08 pm (PDT)





Dear Pa' Hapsari

Mamtab...b
Tapi kayaknya ada yang kurang kalau boleh nambah seperti terlampir
dimana datanya akan semua diurutkan berdasarkan data teratas yang disorot kalau sekaligus di sorot
padahal patokannya adalah hanya dengan nilai teratas dengan nilai yang sama kalau sekaligus di sorot semua, tidak perlu yang sama saja
dan sebagai tambahan bagaimana agar angka misalnya 6 digit kalau kurang di tambah "0" di depang angka
Juga ada penambhan type item yang berbeda
mohon masukannya
Regards,
Gultom

----- Forwarded Message -----
From: Haps <hapsari.stlizbeth@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, October 19, 2011 10:16 PM
Subject: Re: [belajar-excel] mengurutkan data

maaf ada salah tulis, di bagian penjelasan baris ke 3 yg bisa menimbulkan
kesulitan menangkap maksud yg disampaikan.

tertulis: 
Kelompok-depan namanya Pre (diharapkan berisi karakter-karakater Huruf)

seharusnya:
Kelompok-depan namanya Hrf (diharapkan berisi karakter-karakater Huruf)

terima kasih

2011/10/19 Haps <hapsari.stlizbeth@gmail.com>

"Tunjek" point saja...:
>
>
>Sub Ubah_NrPO()
>  ' hapsari / Oct 19, 2011
>  ' beExcel Posting# 13632
>  '--------------------------
>   Dim Nmr As Long, n As Integer
>   Dim Hrf As String, Itm As String
>   
>   Itm = Selection(1, 1)
>   For n = Len(Itm) To 1 Step -1
>      If Not IsNumeric(Mid(Itm, n, 1)) Then Exit For
>   Next
>   Hrf = Left(Itm, n)
>   Nmr = Val(Right(Itm, Len(Itm) - n))
>   For n = 1 To Selection.Rows.Count
>      Selection(n, 1) = Hrf & Nmr + n - 1
>   Next n
>
>
>End Sub
>
>
>Data pertama di daerah yg disorot (selection) dianggap mewakili semua data 
>di bawahnya; data itu kita ingat sbgItm dan kita penggal menjadi dua kelompok.
>Kelompok-depan namanyaPre (diharapkan berisi karakter-karakater Huruf)
>Kelompok belakang namanya Nmr (diharapkan berisi karakter-karakter Numeric)
>
>
>Untuk BISA membagi dua kelompok tsb diperlukan posisi (N) yaitu letak karakter
>HURUF (bukan angka)yg terkanan, untuk keperluan itu diperlukan loop (loop pertama)
>yg hanya mengunjungi semua karakter dlm string Itm.
>
>
>Setelah itu dilakukan loop lagi yg mengunjungi semua cell dlm sorotan (selection)
>tiap cell yg dikunjungi diisi DATA BARU yaitu gabungan dari  Hrf dan Nmr tetapi 
>setiap stepNmr  ditambah dengan nilai Counter (n) dikurangi 1
>
>
>Pantas saja kalau hasilnya  sepeti yg diharapkan (mudah-mudahanan sih...)
>
>
>-haps-
>
>
 
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
1c.

Re: mengurutkan data

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com   jkssbma

Thu Oct 20, 2011 1:33 am (PDT)




Sub coba()
Range("D8").Select
nilaisebelumnya = Selection.Offset(0, 0)
Selection.Offset(0, 1) = nilaisebelumnya
jumbaris = Range("d8:d27").Rows.Count - 1
j = 1
For i = 1 To jumbaris
nilaisekarang = Range("D8").Offset(i, 0)
panjang = Len(nilaisekarang)
If nilaisekarang = nilaisebelumnya Then
If WorksheetFunction.IsText(nilaisebelumnya) Then
If IsNumeric(Mid(nilaisebelumnya, 2, 1)) Then' P1234567 maka semua utuh P1234567 & "-" & urut ( 1,2,3,...) Selection.Offset(i, 1) = Left(nilaisebelumnya, 1) & nilaisebelumnya & "-" & WorksheetFunction.Text(j + 1, "###")
ElseIf IsNumeric(Mid(nilaisebelumnya, 3, 1)) Then'AA123456 maka yg diambil 6 digit angka ( 8-2 ) Selection.Offset(i, 1) = Left(nilaisebelumnya, 2) & WorksheetFunction.Text(Mid(nilaisebelumnya, 3, panjang - 2) + j, WorksheetFunction.Rept("0", panjang - 2))
End If
Else
MsgBox "aturan lainya"
End If
j = j + 1
Else
nilaisebelumnya = nilaisekarang
Selection.Offset(i, 1) = nilaisekarang
j = 1
End If
Next i
End Sub

To: belajar-excel@yahoogroups.com
From: ro_tag@yahoo.com
Date: Thu, 20 Oct 2011 09:08:47 +0800
Subject: Fw: [belajar-excel] mengurutkan data

Dear Pa' Hapsari

Mamtab...b

Tapi kayaknya ada yang kurang kalau boleh nambah seperti terlampir

dimana datanya akan semua diurutkan berdasarkan data teratas yang disorot kalau sekaligus di sorot

padahal patokannya adalah hanya dengan nilai teratas dengan nilai yang sama kalau sekaligus di sorot semua, tidak perlu yang sama saja

dan sebagai tambahan bagaimana agar angka misalnya 6 digit kalau kurang di tambah "0" di depang angka

Juga ada penambhan type item yang berbeda

mohon masukannya

Regards,

Gultom

----- Forwarded Message -----

From: Haps <hapsari.stlizbeth@gmail.com>

To: belajar-excel@yahoogroups.com

Sent: Wednesday, October 19, 2011 10:16 PM

Subject: Re: [belajar-excel] mengurutkan data

maaf ada salah tulis, di bagian penjelasan baris ke 3 yg bisa menimbulkan

kesulitan menangkap maksud yg disampaikan.

tertulis:

Kelompok-depan namanya Pre (diharapkan berisi karakter-karakater Huruf)

seharusnya:

Kelompok-depan namanya Hrf (diharapkan berisi karakter-karakater Huruf)

terima kasih

2011/10/19 Haps <hapsari.stlizbeth@gmail.com>

"Tunjek" point saja...:

>

>

>Sub Ubah_NrPO()

> ' hapsari / Oct 19, 2011

> ' beExcel Posting# 13632

> '--------------------------

> Dim Nmr As Long, n As Integer

> Dim Hrf As String, Itm As String

>

> Itm = Selection(1, 1)

> For n = Len(Itm) To 1 Step -1

> If Not IsNumeric(Mid(Itm, n, 1)) Then Exit For

> Next

> Hrf = Left(Itm, n)

> Nmr = Val(Right(Itm, Len(Itm) - n))

> For n = 1 To Selection.Rows.Count

> Selection(n, 1) = Hrf & Nmr + n - 1

> Next n

>

>

>End Sub

>

>

>Data pertama di daerah yg disorot (selection) dianggap mewakili semua data

>di bawahnya; data itu kita ingat sbgItm dan kita penggal menjadi dua kelompok.

>Kelompok-depan namanyaPre (diharapkan berisi karakter-karakater Huruf)

>Kelompok belakang namanya Nmr (diharapkan berisi karakter-karakter Numeric)

>

>

>Untuk BISA membagi dua kelompok tsb diperlukan posisi (N) yaitu letak karakter

>HURUF (bukan angka)yg terkanan, untuk keperluan itu diperlukan loop (loop pertama)

>yg hanya mengunjungi semua karakter dlm string Itm.

>

>

>Setelah itu dilakukan loop lagi yg mengunjungi semua cell dlm sorotan (selection)

>tiap cell yg dikunjungi diisi DATA BARU yaitu gabungan dari Hrf dan Nmr tetapi

>setiap stepNmr ditambah dengan nilai Counter (n) dikurangi 1

>

>

>Pantas saja kalau hasilnya sepeti yg diharapkan (mudah-mudahanan sih...)

>

>

>-haps-

>

>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
1d.

Re: mengurutkan data

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com   jkssbma

Thu Oct 20, 2011 1:55 am (PDT)




Maaf ada sedikit koreksi yg akhirnya di test ulang . Sub coba()
Range("D8").Select
nilaisebelumnya = Selection.Offset(0, 0)
j = 0
If IsNumeric(Mid(nilaisebelumnya, 2, 1)) Then
Selection.Offset(i, 1) = Left(nilaisebelumnya, 1) & Mid(nilaisebelumnya, 2, panjang - 1) & "-" & WorksheetFunction.Text(j + 1, "###")
ElseIf IsNumeric(Mid(nilaisebelumnya, 3, 1)) Then
Selection.Offset(i, 1) = nilaisebelumnya
End If
jumbaris = Range("d8:d27").Rows.Count - 1 For i = 1 To jumbaris
j = j + 1
nilaisekarang = Range("D8").Offset(i, 0)
panjang = Len(nilaisekarang)
If nilaisekarang = nilaisebelumnya Then
If WorksheetFunction.IsText(nilaisebelumnya) Then
If IsNumeric(Mid(nilaisebelumnya, 2, 1)) Then
Selection.Offset(i, 1) = Left(nilaisebelumnya, 1) & Mid(nilaisebelumnya, 2, panjang - 1) & "-" & WorksheetFunction.Text(j + 1, "###")
ElseIf IsNumeric(Mid(nilaisebelumnya, 3, 1)) Then
Selection.Offset(i, 1) = Left(nilaisebelumnya, 2) & WorksheetFunction.Text(Mid(nilaisebelumnya, 3, panjang - 2) + j, WorksheetFunction.Rept("0", panjang - 2))
End If
Else
MsgBox "aturan lainya"
End If
Else
nilaisebelumnya = nilaisekarang
j = 0
If IsNumeric(Mid(nilaisebelumnya, 2, 1)) Then
Selection.Offset(i, 1) = Left(nilaisebelumnya, 1) & Mid(nilaisebelumnya, 2, panjang - 1) & "-" & WorksheetFunction.Text(j + 1, "###")
ElseIf IsNumeric(Mid(nilaisebelumnya, 3, 1)) Then
Selection.Offset(i, 1) = nilaisebelumnya
End If End If
Next iEnd Sub Dan ada hal yang juga cukup mengganggu :di sel D18 terisi : AA34556, apa seharusnya AA034556 ? karena jika dianggap sama maka perlu kdoing tambahan ?



'==== sebelumnya

Sub coba()
Range("D8").Select
nilaisebelumnya = Selection.Offset(0, 0)
Selection.Offset(0, 1) = nilaisebelumnya
jumbaris = Range("d8:d27").Rows.Count - 1
j = 1
For i = 1 To jumbaris
nilaisekarang = Range("D8").Offset(i, 0)
panjang = Len(nilaisekarang)
If nilaisekarang = nilaisebelumnya Then
If WorksheetFunction.IsText(nilaisebelumnya) Then
If IsNumeric(Mid(nilaisebelumnya, 2, 1)) Then
' P1234567 maka semua utuh P1234567 & "-" & urut ( 1,2,3,...)
Selection.Offset(i, 1) = Left(nilaisebelumnya, 1) & nilaisebelumnya & "-" & WorksheetFunction.Text(j + 1, "###")
ElseIf IsNumeric(Mid(nilaisebelumnya, 3, 1)) Then
'AA123456 maka yg diambil 6 digit angka ( 8-2 )
Selection.Offset(i, 1) = Left(nilaisebelumnya, 2) & WorksheetFunction.Text(Mid(nilaisebelumnya, 3, panjang - 2) + j, WorksheetFunction.Rept("0", panjang - 2))
End If
Else
MsgBox "aturan lainya"
End If
j = j + 1
Else
nilaisebelumnya = nilaisekarang
Selection.Offset(i, 1) = nilaisekarang
j = 1
End If
Next i
End Sub

To: belajar-excel@yahoogroups.com
From: ro_tag@yahoo.com
Date: Thu, 20 Oct 2011 09:08:47 +0800
Subject: Fw: [belajar-excel] mengurutkan data

Dear Pa' Hapsari

Mamtab...b

Tapi kayaknya ada yang kurang kalau boleh nambah seperti terlampir

dimana datanya akan semua diurutkan berdasarkan data teratas yang disorot kalau sekaligus di sorot

padahal patokannya adalah hanya dengan nilai teratas dengan nilai yang sama kalau sekaligus di sorot semua, tidak perlu yang sama saja

dan sebagai tambahan bagaimana agar angka misalnya 6 digit kalau kurang di tambah "0" di depang angka

Juga ada penambhan type item yang berbeda

mohon masukannya

Regards,

Gultom

----- Forwarded Message -----

From: Haps <hapsari.stlizbeth@gmail.com>

To: belajar-excel@yahoogroups.com

Sent: Wednesday, October 19, 2011 10:16 PM

Subject: Re: [belajar-excel] mengurutkan data

maaf ada salah tulis, di bagian penjelasan baris ke 3 yg bisa menimbulkan

kesulitan menangkap maksud yg disampaikan.

tertulis:

Kelompok-depan namanya Pre (diharapkan berisi karakter-karakater Huruf)

seharusnya:

Kelompok-depan namanya Hrf (diharapkan berisi karakter-karakater Huruf)

terima kasih

2011/10/19 Haps <hapsari.stlizbeth@gmail.com>

"Tunjek" point saja...:

>

>

>Sub Ubah_NrPO()

> ' hapsari / Oct 19, 2011

> ' beExcel Posting# 13632

> '--------------------------

> Dim Nmr As Long, n As Integer

> Dim Hrf As String, Itm As String

>

> Itm = Selection(1, 1)

> For n = Len(Itm) To 1 Step -1

> If Not IsNumeric(Mid(Itm, n, 1)) Then Exit For

> Next

> Hrf = Left(Itm, n)

> Nmr = Val(Right(Itm, Len(Itm) - n))

> For n = 1 To Selection.Rows.Count

> Selection(n, 1) = Hrf & Nmr + n - 1

> Next n

>

>

>End Sub

>

>

>Data pertama di daerah yg disorot (selection) dianggap mewakili semua data

>di bawahnya; data itu kita ingat sbgItm dan kita penggal menjadi dua kelompok.

>Kelompok-depan namanyaPre (diharapkan berisi karakter-karakater Huruf)

>Kelompok belakang namanya Nmr (diharapkan berisi karakter-karakter Numeric)

>

>

>Untuk BISA membagi dua kelompok tsb diperlukan posisi (N) yaitu letak karakter

>HURUF (bukan angka)yg terkanan, untuk keperluan itu diperlukan loop (loop pertama)

>yg hanya mengunjungi semua karakter dlm string Itm.

>

>

>Setelah itu dilakukan loop lagi yg mengunjungi semua cell dlm sorotan (selection)

>tiap cell yg dikunjungi diisi DATA BARU yaitu gabungan dari Hrf dan Nmr tetapi

>setiap stepNmr ditambah dengan nilai Counter (n) dikurangi 1

>

>

>Pantas saja kalau hasilnya sepeti yg diharapkan (mudah-mudahanan sih...)

>

>

>-haps-

>

>



Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
1e.

Re: mengurutkan data

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com   jkssbma

Thu Oct 20, 2011 2:04 am (PDT)




Maaf ada sedikit koreksi yg akhirnya di test ulang .

Sub coba()
jumbaris = Range("d8:d29").Rows.Count - 1
Range("D8").Select
nilaisebelumnya = Selection.Offset(0, 0)
panjang = Len(nilaisebelumnya)
j = 0
If IsNumeric(Mid(nilaisebelumnya, 2, 1)) Then
Selection.Offset(i, 1) = Left(nilaisebelumnya, 1) & Mid(nilaisebelumnya, 2, panjang - 1) & "-" & WorksheetFunction.Text(j + 1, "###")
ElseIf IsNumeric(Mid(nilaisebelumnya, 3, 1)) Then
Selection.Offset(i, 1) = nilaisebelumnya
End If
For i = 1 To jumbaris
j = j + 1
nilaisekarang = Range("D8").Offset(i, 0)
panjang = Len(nilaisekarang)
If nilaisekarang = nilaisebelumnya Then
If WorksheetFunction.IsText(nilaisebelumnya) Then
If IsNumeric(Mid(nilaisebelumnya, 2, 1)) Then
Selection.Offset(i, 1) = Left(nilaisebelumnya, 1) & Mid(nilaisebelumnya, 2, panjang - 1) & "-" & WorksheetFunction.Text(j + 1, "###")
ElseIf IsNumeric(Mid(nilaisebelumnya, 3, 1)) Then
Selection.Offset(i, 1) = Left(nilaisebelumnya, 2) & WorksheetFunction.Text(Mid(nilaisebelumnya, 3, panjang - 2) + j, WorksheetFunction.Rept("0", panjang - 2))
End If
Else
MsgBox "aturan lainya"
End If
Else
nilaisebelumnya = nilaisekarang
j = 0
If IsNumeric(Mid(nilaisebelumnya, 2, 1)) Then
Selection.Offset(i, 1) = Left(nilaisebelumnya, 1) & Mid(nilaisebelumnya, 2, panjang - 1) & "-" & WorksheetFunction.Text(j + 1, "###")
ElseIf IsNumeric(Mid(nilaisebelumnya, 3, 1)) Then
Selection.Offset(i, 1) = nilaisebelumnya
End If End If
Next iEnd Sub

Dan ada hal yang juga cukup mengganggu :
di sel D18 terisi : AA34556, apa seharusnya AA034556 ? karena jika dianggap sama maka perlu kdoing tambahan ?

'==== sebelumnya

Sub coba()
Range("D8").Select
nilaisebelumnya = Selection.Offset(0, 0)
Selection.Offset(0, 1) = nilaisebelumnya
jumbaris = Range("d8:d27").Rows.Count - 1
j = 1
For i = 1 To jumbaris
nilaisekarang = Range("D8").Offset(i, 0)
panjang = Len(nilaisekarang)
If nilaisekarang = nilaisebelumnya Then
If WorksheetFunction.IsText(nilaisebelumnya) Then
If IsNumeric(Mid(nilaisebelumnya, 2, 1)) Then
' P1234567 maka semua utuh P1234567 & "-" & urut ( 1,2,3,...)
Selection.Offset(i, 1) = Left(nilaisebelumnya, 1) & nilaisebelumnya & "-" & WorksheetFunction.Text(j + 1, "###")
ElseIf IsNumeric(Mid(nilaisebelumnya, 3, 1)) Then
'AA123456 maka yg diambil 6 digit angka ( 8-2 )
Selection.Offset(i, 1) = Left(nilaisebelumnya, 2) & WorksheetFunction.Text(Mid(nilaisebelumnya, 3, panjang - 2) + j, WorksheetFunction.Rept("0", panjang - 2))
End If
Else
MsgBox "aturan lainya"
End If
j = j + 1
Else
nilaisebelumnya = nilaisekarang
Selection.Offset(i, 1) = nilaisekarang
j = 1
End If
Next i
End Sub

To: belajar-excel@yahoogroups.com
From: ro_tag@yahoo.com
Date: Thu, 20 Oct 2011 09:08:47 +0800
Subject: Fw: [belajar-excel] mengurutkan data

Dear Pa' Hapsari

Mamtab...b

Tapi kayaknya ada yang kurang kalau boleh nambah seperti terlampir

dimana datanya akan semua diurutkan berdasarkan data teratas yang disorot kalau sekaligus di sorot

padahal patokannya adalah hanya dengan nilai teratas dengan nilai yang sama kalau sekaligus di sorot semua, tidak perlu yang sama saja

dan sebagai tambahan bagaimana agar angka misalnya 6 digit kalau kurang di tambah "0" di depang angka

Juga ada penambhan type item yang berbeda

mohon masukannya

Regards,

Gultom

----- Forwarded Message -----

From: Haps <hapsari.stlizbeth@gmail.com>

To: belajar-excel@yahoogroups.com

Sent: Wednesday, October 19, 2011 10:16 PM

Subject: Re: [belajar-excel] mengurutkan data

maaf ada salah tulis, di bagian penjelasan baris ke 3 yg bisa menimbulkan

kesulitan menangkap maksud yg disampaikan.

tertulis:

Kelompok-depan namanya Pre (diharapkan berisi karakter-karakater Huruf)

seharusnya:

Kelompok-depan namanya Hrf (diharapkan berisi karakter-karakater Huruf)

terima kasih

2011/10/19 Haps <hapsari.stlizbeth@gmail.com>

"Tunjek" point saja...:

>

>

>Sub Ubah_NrPO()

> ' hapsari / Oct 19, 2011

> ' beExcel Posting# 13632

> '--------------------------

> Dim Nmr As Long, n As Integer

> Dim Hrf As String, Itm As String

>

> Itm = Selection(1, 1)

> For n = Len(Itm) To 1 Step -1

> If Not IsNumeric(Mid(Itm, n, 1)) Then Exit For

> Next

> Hrf = Left(Itm, n)

> Nmr = Val(Right(Itm, Len(Itm) - n))

> For n = 1 To Selection.Rows.Count

> Selection(n, 1) = Hrf & Nmr + n - 1

> Next n

>

>

>End Sub

>

>

>Data pertama di daerah yg disorot (selection) dianggap mewakili semua data

>di bawahnya; data itu kita ingat sbgItm dan kita penggal menjadi dua kelompok.

>Kelompok-depan namanyaPre (diharapkan berisi karakter-karakater Huruf)

>Kelompok belakang namanya Nmr (diharapkan berisi karakter-karakter Numeric)

>

>

>Untuk BISA membagi dua kelompok tsb diperlukan posisi (N) yaitu letak karakter

>HURUF (bukan angka)yg terkanan, untuk keperluan itu diperlukan loop (loop pertama)

>yg hanya mengunjungi semua karakter dlm string Itm.

>

>

>Setelah itu dilakukan loop lagi yg mengunjungi semua cell dlm sorotan (selection)

>tiap cell yg dikunjungi diisi DATA BARU yaitu gabungan dari Hrf dan Nmr tetapi

>setiap stepNmr ditambah dengan nilai Counter (n) dikurangi 1

>

>

>Pantas saja kalau hasilnya sepeti yg diharapkan (mudah-mudahanan sih...)

>

>

>-haps-

>

>





Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
1f.

Fw: [belajar-excel] mengurutkan data

Posted by: "R T Gultom" ro_tag@yahoo.com   ro_tag

Thu Oct 20, 2011 4:27 am (PDT)



gile...e ketemu aza jalannya padahal semalaman di zikirin ngga ketemu2
Terima kasih banyak boss, walau masih ada yang kurang, mengingat alokasi datanya adalah tidak fix sehingga harus merubah2 cell addressVBA jika mau di run
Sebenarnya  terjadinya data yang sama adalah karena jumlah data itu tergantung daripada jumlah barang (karena satu PO terdiri dari 1 PO
tapi kadang kalau langsung main urutin aza, takut kalau tiba2 loncat jadinya loss kontrol
Sementara untuk memisah-misahkan adalah dengan insert row seusai dengan jumlah barang
misalnya ada barang 5 dengan po mulai urutan AA34556 maka akan saya insert rownya 4 kemudian saya copas sehingga timbul nomor yang sama

yang ada 0 di depan angka masing2 barang kadang mempunyai digit yang berbeda dengan angka yang rendah

Regards,
Gultom

----- Forwarded Message -----
From: jkssxls Sudarsono <jkssxls@hotmail.com>
To: Belajar-Excel Yahoo Groups <belajar-excel@yahoogroups.com>
Sent: Thursday, October 20, 2011 4:04 PM
Subject: RE: [belajar-excel] mengurutkan data

 
Maaf ada sedikit koreksi yg akhirnya di test ulang .
 
Sub coba()
    jumbaris = Range("d8:d29").Rows.Count - 1
    Range("D8").Select
    nilaisebelumnya = Selection.Offset(0, 0)
    panjang = Len(nilaisebelumnya)
    j = 0
    If IsNumeric(Mid(nilaisebelumnya, 2, 1)) Then
        Selection.Offset(i, 1) = Left(nilaisebelumnya, 1) & Mid(nilaisebelumnya, 2, panjang - 1) & "-" & WorksheetFunction.Text(j + 1, "###")
    ElseIf IsNumeric(Mid(nilaisebelumnya, 3, 1)) Then
        Selection.Offset(i, 1) = nilaisebelumnya
    End If

    For i = 1 To jumbaris
        j = j + 1
        nilaisekarang = Range("D8").Offset(i, 0)
        panjang = Len(nilaisekarang)
        If nilaisekarang = nilaisebelumnya Then
            If WorksheetFunction.IsText(nilaisebelumnya) Then
                If IsNumeric(Mid(nilaisebelumnya, 2, 1)) Then
                    Selection.Offset(i, 1) = Left(nilaisebelumnya, 1) & Mid(nilaisebelumnya, 2, panjang - 1) & "-" & WorksheetFunction.Text(j + 1, "###")
                ElseIf IsNumeric(Mid(nilaisebelumnya, 3, 1)) Then
                    Selection.Offset(i, 1) = Left(nilaisebelumnya, 2) & WorksheetFunction.Text(Mid(nilaisebelumnya, 3, panjang - 2) + j, WorksheetFunction.Rept("0", panjang - 2))
                End If
            Else
                MsgBox "aturan lainya"
            End If
        Else
            nilaisebelumnya = nilaisekarang
            j = 0
            If IsNumeric(Mid(nilaisebelumnya, 2, 1)) Then
                Selection.Offset(i, 1) = Left(nilaisebelumnya, 1) & Mid(nilaisebelumnya, 2, panjang - 1) & "-" & WorksheetFunction.Text(j + 1, "###")
            ElseIf IsNumeric(Mid(nilaisebelumnya, 3, 1)) Then
                Selection.Offset(i, 1) = nilaisebelumnya
            End If
        End If
    Next i
End Sub
 
Dan ada hal yang juga cukup mengganggu :
di sel D18 terisi  : AA34556, apa seharusnya AA034556 ? karena jika dianggap sama maka perlu kdoing tambahan ?

'==== sebelumnya
 

Sub coba()
    Range("D8").Select
    nilaisebelumnya = Selection.Offset(0, 0)
    Selection.Offset(0, 1) = nilaisebelumnya
    jumbaris = Range("d8:d27").Rows.Count - 1
    j = 1
    For i = 1 To jumbaris
        nilaisekarang = Range("D8").Offset(i, 0)
        panjang = Len(nilaisekarang)
        If nilaisekarang = nilaisebelumnya Then
            If WorksheetFunction.IsText(nilaisebelumnya) Then
                If IsNumeric(Mid(nilaisebelumnya, 2, 1)) Then
' P1234567   maka semua utuh P1234567 & "-" & urut ( 1,2,3,...)
                   Selection.Offset(i, 1) = Left(nilaisebelumnya, 1) & nilaisebelumnya & "-" & WorksheetFunction.Text(j + 1, "###")
                ElseIf IsNumeric(Mid(nilaisebelumnya, 3, 1)) Then
'AA123456  maka yg diambil 6 digit angka ( 8-2 )
                   Selection.Offset(i, 1) = Left(nilaisebelumnya, 2) & WorksheetFunction.Text(Mid(nilaisebelumnya, 3, panjang - 2) + j, WorksheetFunction.Rept("0", panjang - 2))
                End If
            Else
                MsgBox "aturan lainya"
            End If
            j = j + 1
        Else
            nilaisebelumnya = nilaisekarang
            Selection.Offset(i, 1) = nilaisekarang
            j = 1
        End If
    Next i
End Sub

 

________________________________
To: belajar-excel@yahoogroups.com
From: ro_tag@yahoo.com
Date: Thu, 20 Oct 2011 09:08:47 +0800
Subject: Fw: [belajar-excel] mengurutkan data

 

Dear Pa' Hapsari

Mamtab...b
Tapi kayaknya ada yang kurang kalau boleh nambah seperti terlampir
dimana datanya akan semua diurutkan berdasarkan data teratas yang disorot kalau sekaligus di sorot
padahal patokannya adalah hanya dengan nilai teratas dengan nilai yang sama kalau sekaligus di sorot semua, tidak perlu yang sama saja
dan sebagai tambahan bagaimana agar angka misalnya 6 digit kalau kurang di tambah "0" di depang angka
Juga ada penambhan type item yang berbeda
mohon masukannya
Regards,
Gultom

----- Forwarded Message -----
From: Haps <hapsari.stlizbeth@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, October 19, 2011 10:16 PM
Subject: Re: [belajar-excel] mengurutkan data

maaf ada salah tulis, di bagian penjelasan baris ke 3 yg bisa menimbulkan
kesulitan menangkap maksud yg disampaikan.

tertulis: 
Kelompok-depan namanya Pre (diharapkan berisi karakter-karakater Huruf)

seharusnya:
Kelompok-depan namanya Hrf (diharapkan berisi karakter-karakater Huruf)

terima kasih

2011/10/19 Haps <hapsari.stlizbeth@gmail.com>

"Tunjek" point saja...:
>
>
>Sub Ubah_NrPO()
>  ' hapsari / Oct 19, 2011
>  ' beExcel Posting# 13632
>  '--------------------------
>   Dim Nmr As Long, n As Integer
>   Dim Hrf As String, Itm As String
>   
>   Itm = Selection(1, 1)
>   For n = Len(Itm) To 1 Step -1
>      If Not IsNumeric(Mid(Itm, n, 1)) Then Exit For
>   Next
>   Hrf = Left(Itm, n)
>   Nmr = Val(Right(Itm, Len(Itm) - n))
>   For n = 1 To Selection.Rows.Count
>      Selection(n, 1) = Hrf & Nmr + n - 1
>   Next n
>
>
>End Sub
>
>
>Data pertama di daerah yg disorot (selection) dianggap mewakili semua data 
>di bawahnya; data itu kita ingat sbgItm dan kita penggal menjadi dua kelompok.
>Kelompok-depan namanyaPre (diharapkan berisi karakter-karakater Huruf)
>Kelompok belakang namanya Nmr (diharapkan berisi karakter-karakter Numeric)
>
>
>Untuk BISA membagi dua kelompok tsb diperlukan posisi (N) yaitu letak karakter
>HURUF (bukan angka)yg terkanan, untuk keperluan itu diperlukan loop (loop pertama)
>yg hanya mengunjungi semua karakter dlm string Itm.
>
>
>Setelah itu dilakukan loop lagi yg mengunjungi semua cell dlm sorotan (selection)
>tiap cell yg dikunjungi diisi DATA BARU yaitu gabungan dari  Hrf dan Nmr tetapi 
>setiap stepNmr  ditambah dengan nilai Counter (n) dikurangi 1
>
>
>Pantas saja kalau hasilnya  sepeti yg diharapkan (mudah-mudahanan sih...)
>
>
>-haps-
>
>
 

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
2a.

memindahkan data ke samping

Posted by: "Fadillah Siregar" fadillah_siregar@yahoo.com   fadillah_siregar

Wed Oct 19, 2011 7:23 pm (PDT)



Dear Masters Excel,

Bagaimana cara memindahkan data dari ke atas menjadi kesamping dengan cepat.
Saya sudah mencoba dengan paste special transpose, tetapi hasilnya tidak sesuai dengan yang diinginkan.
Contoh kasus terlampir.

best regards,
Fadil
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2b.

Re: memindahkan data ke samping

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Wed Oct 19, 2011 10:01 pm (PDT)



Tuliskan rumus ini di suatu cell di kolom A, misalnya di cell A18

=OFFSET($C$1,CEILING(COLUMN(),2)/2,MOD(COLUMN()+1,2))

Copy-paste ke cells di kanannya sesuai keperluan; ( dlm contoh ini A18
sampai di P18 )

Kalau kita perhatikan, di dalam fungsi OFFSET hanya hanya kita pakai 3
argument
dari 5 argument yg ada
Argument ke 4 dan 5 tidak dituliskan (ignored) karena tidak perlu, berhubung
*lebar dan*
*tinggi dan lebar range* yg dirujuk adalah sama dengan range referensinya
($C$1) yg
berdimensi 1 baris x 1 kolom

lengkapnya :
=OFFSET(*$C$1*, *CEILING(COLUMN(),2)/2*, *MOD(COLUMN()+1,2)*, *1*, *1*)

untuk mamahami rumus tsb mungkin (kalau mau) anda harus mencoba *rumus **
MerahMarun *
dan *rumus Ungu*, di cells terpisah ditulis di kolom A sampai P
[image: offset function arg.JPG]

2011/10/20 Fadillah Siregar <fadillah_siregar@yahoo.com>

> **
> Dear Masters Excel,
> Bagaimana cara memindahkan data dari ke atas menjadi kesamping dengan
> cepat.
> Saya sudah mencoba dengan paste special transpose, tetapi hasilnya tidak
> sesuai dengan yang diinginkan.
> Contoh kasus terlampir.
> best regards,
> Fadil
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2c.

Re: memindahkan data ke samping

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Wed Oct 19, 2011 10:04 pm (PDT)



maafkan file yg terkirim 253KB
harusnya mau kirim file yg sudah *di zipped* tapi salah pencet...

2011/10/20 Haps <hapsari.stlizbeth@gmail.com>

> Tuliskan rumus ini di suatu cell di kolom A, misalnya di cell A18
> =OFFSET($C$1,CEILING(COLUMN(),2)/2,MOD(COLUMN()+1,2))
> Copy-paste ke cells di kanannya sesuai keperluan; ( dlm contoh ini A18
> sampai di P18 )
>
>
> 2011/10/20 Fadillah Siregar <fadillah_siregar@yahoo.com>
>
>> **
>> Bagaimana cara memindahkan data dari ke atas menjadi kesamping dengan
>> cepat.
>> Fadil
>>
>>
>>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2d.

Re: memindahkan data ke samping

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com   jkssbma

Wed Oct 19, 2011 11:28 pm (PDT)




saya ikut nimbrung : untuk pemisahan menjadi 2 ( nama dan alamat ) kelompok 10 data : untuk kolom nama saja :{=INDEX(B2:B21,ROW(1:10)*2-1)}untuk kolom alamat saja :{=INDEX(B2:B21,ROW(1:10)*2)}
To: belajar-excel@yahoogroups.com
From: hapsari.stlizbeth@gmail.com
Date: Thu, 20 Oct 2011 12:04:18 +0700
Subject: Re: [belajar-excel] memindahkan data ke samping

maafkan file yg terkirim 253KB harusnya mau kirim file yg sudah di zipped tapi salah pencet...

2011/10/20 Haps <hapsari.stlizbeth@gmail.com>

Tuliskan rumus ini di suatu cell di kolom A, misalnya di cell A18

=OFFSET($C$1,CEILING(COLUMN(),2)/2,MOD(COLUMN()+1,2))Copy-paste ke cells di kanannya sesuai keperluan; ( dlm contoh ini A18 sampai di P18 )

2011/10/20 Fadillah Siregar <fadillah_siregar@yahoo.com>

Bagaimana cara memindahkan data dari ke atas menjadi kesamping dengan cepat.

Fadil

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2e.

Re: memindahkan data ke samping

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com   jkssbma

Thu Oct 20, 2011 12:26 am (PDT)




buat pada 16 kolom ( 2 x 8 baris data ) :{=INDEX(C2:D9,INT((1+COLUMN(1:16))/2),IF(MOD(COLUMN(1:16),2)=1,1,2))}
To: belajar-excel@yahoogroups.com
From: fadillah_siregar@yahoo.com
Date: Thu, 20 Oct 2011 10:23:12 +0800
Subject: [belajar-excel] memindahkan data ke samping

Dear Masters Excel,
Bagaimana cara memindahkan data dari ke atas menjadi kesamping dengan cepat.Saya sudah mencoba dengan paste special transpose, tetapi hasilnya tidak sesuai dengan yang diinginkan.Contoh kasus terlampir.
best regards,Fadil

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3a.

Table untuk Lookup berubah ubah

Posted by: "Mansor" dbpermatasari@gmail.com   nbmy1980

Wed Oct 19, 2011 7:44 pm (PDT)



Teman belajar Excel,

Saya punya masalah untuk lookup data dari 3 table yang berbeda ke satu table
yang lain.

File ada dilampirkan.

Terima kasih.

Mansor.
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
3b.

Re: Table untuk Lookup berubah ubah

Posted by: "M. Ferdiansyah" muh_ferdy@pusri.co.id   muh_f3rdi4n5yah

Thu Oct 20, 2011 1:32 am (PDT)



Coba menjawab.

file terlampir.

> Teman belajar Excel,
>
> Saya punya masalah untuk lookup data dari 3 table yang berbeda ke satu
> table
> yang lain.
>
> File ada dilampirkan.
>
>
> Terima kasih.
>
> Mansor.
>

____________ _________ _________ _________ _________ _________ _________
Notice : This e-mail (and any attachment) is strictly confidential and
is intended only for the addressee(s)above. Is strictly prohibited to
forward, print, copy, or otherwise reproduce this message that would
allow it to be viewed by any individual not originally listed as
a recipient(s). If you have received this e-mail in error, please
immediately notify the sender and delete this message. The opinions
expressed in this e-mail (and any attachment) are those of the individual
sender and may not necessarily reflect the views of PT Pusri.
____________ _________ _________ _________ _________ _________ _________
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
3c.

Re: Table untuk Lookup berubah ubah

Posted by: "Mansor" dbpermatasari@gmail.com   nbmy1980

Thu Oct 20, 2011 2:54 am (PDT)



Pak Ferdiansyah

Terima kasih karena coba menjawab.

Untuk masalah posting key (column H udah selesai), yang masih belum
dipecahkan ialah

field Account.Yang saya inginkan ialah di saat saya memilih ledger, option
yang ada di field Item ialah ABC,OPQ,XYZ (refer table Ledger), Bagitu juga
Sub Itemnya ikut berubah, iaitu 00,01,02
Seterusnua option untuk Code ialah
AU234,KJU777,OX667,NBG1117,NBMY11,HG22,KLIIU2,O98DD

Data No.

Account

Item

Sub item

Code

Amount

1

Debtor

001

02

00444

56.00

2

Debtor

AB

03

KLIIU2

57.00

3

Ledger

OPQ

00

NBG1117

16.00

4

Ledger

002

03

Data Ada Yang Keliru

5

Terima kasih.

On Thu, Oct 20, 2011 at 4:32 PM, M. Ferdiansyah <muh_ferdy@pusri.co.id>wrote:

> **
>
>
> Coba menjawab.
>
> file terlampir.
>
>
> > Teman belajar Excel,
> >
> > Saya punya masalah untuk lookup data dari 3 table yang berbeda ke satu
> > table
> > yang lain.
> >
> > File ada dilampirkan.
> >
> >
> > Terima kasih.
> >
> > Mansor.
> >
>
> ____________ _________ _________ _________ _________ _________ _________

> ____________ _________ _________ _________ _________ _________ _________
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
3d.

Re: Table untuk Lookup berubah ubah

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu Oct 20, 2011 4:34 am (PDT)



Dengan sedikit meng-utak-atik nama-nama range yang ada, dan mengubah list
source dari data validation, maka jadilah seperti file terlampir.

Wassalam.
Kid.

2011/10/20 Mansor <dbpermatasari@gmail.com>

> **
>
>
> Pak Ferdiansyah
>
>
>
> Terima kasih karena coba menjawab.
>
>
>
> Untuk masalah posting key (column H udah selesai), yang masih belum
> dipecahkan ialah
>
> field Account.Yang saya inginkan ialah di saat saya memilih ledger, option
> yang ada di field Item ialah ABC,OPQ,XYZ (refer table Ledger), Bagitu juga
> Sub Itemnya ikut berubah, iaitu 00,01,02
> Seterusnua option untuk Code ialah
> AU234,KJU777,OX667,NBG1117,NBMY11,HG22,KLIIU2,O98DD
>
>
>
> Data No.
>
> Account
>
> Item
>
> Sub item
>
> Code
>
> Amount
>
> 1
>
> Debtor
>
> 001
>
> 02
>
> 00444
>
> 56.00
>
> 2
>
> Debtor
>
> AB
>
> 03
>
> KLIIU2
>
> 57.00
>
> 3
>
> Ledger
>
> OPQ
>
> 00
>
> NBG1117
>
> 16.00
>
> 4
>
> Ledger
>
> 002
>
> 03
>
> Data Ada Yang Keliru
>
>
>
> 5
>
>
>
>
>
>
>
>
>
>
>
> Terima kasih.
>
>
>
> On Thu, Oct 20, 2011 at 4:32 PM, M. Ferdiansyah <muh_ferdy@pusri.co.id>wrote:
>
>> **
>>
>>
>> Coba menjawab.
>>
>> file terlampir.
>>
>>
>> > Teman belajar Excel,
>> >
>> > Saya punya masalah untuk lookup data dari 3 table yang berbeda ke satu
>> > table
>> > yang lain.
>> >
>> > File ada dilampirkan.
>> >
>> >
>> > Terima kasih.
>> >
>> > Mansor.
>> >
>>
>> ____________ _________ _________ _________ _________ _________ _________
>> _________
>>
>>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
4a.

Case Memindahkan Data (dari Kolom ke Baris)

Posted by: "Rachmad HIDAYAT" rachmad.hidayat@external.total.com

Wed Oct 19, 2011 8:22 pm (PDT)




Dear Para Pakar,

Saya punya data yang tersusun seperti terlampir.
Data tersebut pada kolom tertentu datanya tersusun di kolom yang sama.(misal di kolom B, Nama dan Alamat lengkap, di susun dalam satu kolom)
Nah, ada tidak cara praktis/rumus untuk memindahkan data di kolom tertentu ke Baris lain.
Lebih jelasnya mohon lihat di TKP :)

Terima Kasih,
Rachmad Hidayat

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
4b.

Re: Case Memindahkan Data (dari Kolom ke Baris)

Posted by: "Franciscus SOG" jclugbu@gmail.com   elijah_spirit

Wed Oct 19, 2011 9:45 pm (PDT)



Dear Rachmad,

Gunakan saja INDEX MATCH. Semoga membantu.

Blessings,

Fran'z

On 10/20/11, Rachmad HIDAYAT <rachmad.hidayat@external.total.com> wrote:
>
> Dear Para Pakar,
>
> Saya punya data yang tersusun seperti terlampir.
> Data tersebut pada kolom tertentu datanya tersusun di kolom yang sama.(misal
> di kolom B, Nama dan Alamat lengkap, di susun dalam satu kolom)
> Nah, ada tidak cara praktis/rumus untuk memindahkan data di kolom tertentu
> ke Baris lain.
> Lebih jelasnya mohon lihat di TKP :)
>
>
> Terima Kasih,
> Rachmad Hidayat
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
4c.

Re: Case Memindahkan Data (dari Kolom ke Baris)

Posted by: "Rachmad HIDAYAT" rachmad.hidayat@external.total.com

Wed Oct 19, 2011 11:42 pm (PDT)




Sangat membantu, Problem solved....
Terima kasih ya pak..

Rachmad Hidayat

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Franciscus SOG
Sent: 20 October 2011 12:45
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Case Memindahkan Data (dari Kolom ke Baris)

Dear Rachmad,

Gunakan saja INDEX MATCH. Semoga membantu.

Blessings,

Fran'z

On 10/20/11, Rachmad HIDAYAT <rachmad.hidayat@external.total.com<mailto:rachmad.hidayat%40external.total.com>> wrote:
>
> Dear Para Pakar,
>
> Saya punya data yang tersusun seperti terlampir.
> Data tersebut pada kolom tertentu datanya tersusun di kolom yang sama.(misal
> di kolom B, Nama dan Alamat lengkap, di susun dalam satu kolom)
> Nah, ada tidak cara praktis/rumus untuk memindahkan data di kolom tertentu
> ke Baris lain.
> Lebih jelasnya mohon lihat di TKP :)
>
>
> Terima Kasih,
> Rachmad Hidayat
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
4d.

Re: Case Memindahkan Data (dari Kolom ke Baris)

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Wed Oct 19, 2011 11:42 pm (PDT)



agak lain , sekedar variasi
rumus dasar lihat di A14 sheet2
=OFFSET(KASUS!$A$1,*ROW(A1)*2-1*,0)

Pada sheet hasil akan ada *3* J*ENIS rumus* mirip rumus di atas
Jika jenisnya sama (dlm contoh diberi warna font yg sama) boleh ditulis
dengan jalan mengCOPY

Setelah 13 rumus di satu barus pertama selesai ditulis, lalau dicopykan ke
baris-baris di bawahnya

2011/10/20 Rachmad HIDAYAT <rachmad.hidayat@external.total.com>
>
> Saya punya data yang tersusun seperti terlampir.
> Data tersebut pada kolom tertentu datanya tersusun di kolom yang
sama.(misal di kolom B,
> Nama dan Alamat lengkap, di susun dalam satu kolom)
> Nah, ada tidak cara praktis/rumus untuk memindahkan data di kolom
tertentu ke Baris lain.
> Lebih jelasnya mohon lihat di TKP J
>
> Terima Kasih,
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
5a.

How to use insert line (graphics)

Posted by: "Nurman Irawan" irawan94@gmail.com

Thu Oct 20, 2011 2:11 am (PDT)



dear master Excel yang berbahagia,

Sehubungan dg tugas paper dari kampus untuk membuat grafik Quality
Control, tentang Lower Class dan Upper Class. Kemudian hasilnya
diaplikasikan dalam bentuk graphic chart. Yg saya tahu sedikit adalah
dari flow graphic itu bisa ditentukan apakah masih dalam keadaan
normal atau bukan (melebihi garis Upper Class dan Lower Class). Apakah
fungsi ini bisa digunakan dalam fungsi"Create Sparkliness"? Mohon
kiranya saya diberikan contoh file-nya untuk memudahkan pemahaman
saya. Thank's.

Best regards,

Nurman .

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
5b.

Re: How to use insert line (graphics)

Posted by: "zainul_ulum[at]yahoo[dot]com" zainul_ulum@yahoo.com   zainul_ulum

Thu Oct 20, 2011 2:21 am (PDT)



Bisa,
gunakan type chart sesuai dengan keinginan anda misal ...untuk garis batas bawah dan atas, bisa menggunakan fasilitas error bars atau buat seri baru sbg secondary axis..

Lebih bagus lagi kalo, mas Nurman sertakan data dan hasil yang dimaksud
thanks
-zainul-
¤..belum pakai blackberry...¤

-original message-
Subject: [belajar-excel] How to use insert line (graphics)
From: Nurman Irawan <irawan94@gmail.com>
Date: 20/10/2011 4:07 PM

dear master Excel yang berbahagia,

Sehubungan dg tugas paper dari kampus untuk membuat grafik Quality
Control, tentang Lower Class dan Upper Class. Kemudian hasilnya
diaplikasikan dalam bentuk graphic chart. Yg saya tahu sedikit adalah
dari flow graphic itu bisa ditentukan apakah masih dalam keadaan
normal atau bukan (melebihi garis Upper Class dan Lower Class). Apakah
fungsi ini bisa digunakan dalam fungsi"Create Sparkliness"? Mohon
kiranya saya diberikan contoh file-nya untuk memudahkan pemahaman
saya. Thank's.

Best regards,

Nurman .

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
5c.

Re: How to use insert line (graphics)

Posted by: "Nurman Irawan" irawan94@gmail.com

Thu Oct 20, 2011 3:03 am (PDT)



Contohnya ada di buku Financial Management, jadi disana ada data dari
Dept QC, kemudian datanya diolah kemudian dihasilkan sebuah grafik dg
Lower Class sbg data minimum required, dan Upper Class sbg data
maximum required. Karenanya kalo ada yg bisa memberikan contoh
kemudian cara menggunakannya, waduh tengkyu berat deh hehehe...

Best regards,

Nurman I.

==================================================================
Mod Note:
Maksud Pak Nurman:
Para members yg ingin menolong, DISURUH cari-cari sendiri Buku tsb ??

Tentunya bukan itu maksud pak Nurman, tapi bisa ditangkap spt itu.
sebab: pertanyaan tanpa ada contoh set data dan contoh gambaran hasil,
sulit dimengerti maksudnya (hal ini sudah sering kali diingatkan).

Melampirkan contoh bukan kewajiban, tetapi bila ingin memudahkan
members lain menangkap maksud (dan kemudian memberi bantuan); lampiran
menjadi perlu (terutama akan menguntungkan bagi penanya sendiri)
===================================================================

On 10/20/11, zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com> wrote:
> Bisa,
> gunakan type chart sesuai dengan keinginan anda misal ...untuk garis batas
> bawah dan atas, bisa menggunakan fasilitas error bars atau buat seri baru
> sbg secondary axis..
>
> Lebih bagus lagi kalo, mas Nurman sertakan data dan hasil yang dimaksud
> thanks
> -zainul-
> ¤..belum pakai blackberry...¤
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
6a.

Re: ubah format pdf menjadi xls .. bisakah?

Posted by: "..:: priel ::.." XAVREIL@GMAIL.COM   magganjenk

Thu Oct 20, 2011 2:25 am (PDT)



kemarin sempat dapat gratis, dari www.wondershare.com
sebenarnya program berbayar, tapi kemarin pas dapat gift of the day, jadi
gratis

harganya juga lebih murah, hanya 14.99$

salam
priel

2011/10/19 Undang Satrianie <und4nk@rocketmail.com>

> **
>
>
> Coba Pake Able2extract
>
> Untuk Versi trial bisa di Download Disini<http://www.investintech.com/prod_downloadsa2e.htm>,
> Ini Sudah Versi Terbaru ( Versi 7.0)
> Untuk Versi 6,..... dulu harganya ± 1,8 jt
>
> Mudah-mudahan bisa Bermanfaat
>
> ------------------------------
> *
> *
>

--
http://www.facebook.com/maspriel
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
7a.

Data Validasi yg source data range dinamis

Posted by: "Riska Wahyu Nirmalasari" Riska.Nirmalasari@danone.com

Thu Oct 20, 2011 3:26 am (PDT)



Dear para suhu excel,
bagaimana cara membuat validasi yg source data range dinamis yg sudah
ditentukan.
Mohon maaf tidak dapat menjelaskan.
File terlampir.

Terimakasih.

Regards,
Riska

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
7b.

Re: Data Validasi yg source data range dinamis

Posted by: "Kid Mr." mr.nmkid@gmail.com   nmkid.family@ymail.com

Thu Oct 20, 2011 5:07 am (PDT)



Hai Riska,

Coba dengan fungsi Offset yang disertai Match. Tabel referensi yang sudah
baik tersebut, sebaiknya disusun berkaidah tabel database.

Regards.
Kid.

2011/10/20 Riska Wahyu Nirmalasari <Riska.Nirmalasari@danone.com>

> **
>
>
>
> Dear para suhu excel,
> bagaimana cara membuat validasi yg source data range dinamis yg sudah
> ditentukan.
> Mohon maaf tidak dapat menjelaskan.
> File terlampir.
>
>
> Terimakasih.
>
> Regards,
> Riska
>
>
> Ce message x000E9;lectronique et tous les fichiers attachx000E9;s qu'il
> contient sont confidentiels et destinx000E9;s exclusivement x000E0; l'usage
> de la personne x000E0; laquelle ils sont adressx000E9;s. Si vous avez
> rex000E7;u ce message par erreur, merci de le retourner x000E0; son
> x000E9;metteur. Les idx000E9;es et opinions prx000E9;sentx000E9;es dans ce
> message sont celles de son auteur, et ne reprx000E9;sentent pas
> nx000E9;cessairement celles de DANONE ou d'une quelconque de ses filiales.
> La publication, l'usage, la distribution, l'impression ou la copie non
> autorisx000E9;e de ce message et des attachements qu'il contient sont
> strictement interdits.
>
> This e-mail and any files transmitted with it are confidential and intended
> solely for the use of the individual to whom it is addressed. If you have
> received this email in error please send it back to the person that sent it
> to you. Any views or opinions presented are solely those of its author and
> do not necessarily represent those of DANONE or any of its subsidiary
> companies. Unauthorized publication, use, dissemination, forwarding,
> printing or copying of this email and its associated attachments is strictly
> prohibited.
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
Recent Activity
Visit Your Group
Dog Groups

on Yahoo! Groups

Share pictures &

stories about dogs.

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Find helpful tips

for Moderators

on the Yahoo!

Groups team blog.

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web
---------------------------------------------------------------------
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
---------------------------------------------------------------------
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Diposting oleh EXCEL FEED LEARNING di 05.07

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)