4 Messages
Digest #4480
Messages
Tue Apr 10, 2018 4:52 pm (PDT) . Posted by:
"Cari Kebenaran"
Pak Toby Kenzo, terima kasih atas responnya.
Code saya ubah jadi seperti berikut ini:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("L13:L17"), Range(Target.Address)) Is
Nothing Then
If Range(Target.Address) > 0 Then
Worksheets("INVOICE").Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-1,
-2)).Copy
Worksheets("INVOICE").Cells(21, 1).End(xlUp).Offset(1, 0).PasteSpecial
xlPasteValues
Application.CutCopyMode = False
Range(Target.Address).Offset(0, -1) = ""
Range(Target.Address).Offset(0, 0) = ""
Worksheets("INVOICE").Range("K12").Select
End If
End If
End Sub
Yang belum terpecahkan adalah: apabila baris ke 21 sudah terisi, pinginnya
aktivitas copy paste berhenti karena sudah tidak tempat kosong lagi. Ini
sebagai antisipasi salah input . Code VBA ini yang masih belum bisa saya
susun.
Terima kasih
On Tue, Apr 10, 2018 at 4:55 PM, Toby kenzo tobykenzo@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Coba ganti scriptnya :
>
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> On Error GoTo 0
> If Not Intersect(Target, Range("L13:L17")) Is Nothing Then
> Sheet1.Range("A" & (Target.Row - 6)).Value = Cells(Target.Row,
> Target.Column - 2).Value
> Sheet1.Range("B" & (Target.Row - 6)).Value = Cells(Target.Row,
> Target.Column - 1).Value
> Sheet1.Range("C" & (Target.Row - 6)).Value = Cells(Target.Row,
> Target.Column).Value
> On Error Resume Next
> If Target.Value < 7 Then
> Sheet1.Range("A" & (Target.Row - 6)).Value = ""
> Sheet1.Range("B" & (Target.Row - 6)).Value = ""
> Sheet1.Range("C" & (Target.Row - 6)).Value = ""
> If Target.Value = "" Then
> Sheet1.Range("A" & (Target.Row - 6)).Value = ""
> Sheet1.Range("B" & (Target.Row - 6)).Value = ""
> Sheet1.Range("C" & (Target.Row - 6)).Value = ""
> Else
> End If
> End If
> End If
> End Sub
>
>
> TerimaKasih
>
>
>
>
>
>
>
>
> Pada Senin, 9 April 2018 14:15, "Cari Kebenaran cahayailmu71@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Assalamu'alaikum warahmatullahi wabarakatuh
>
> Kepada Para Master dan segenap anggota
>
> Saya ingin mengcopy data antar cell dalam worksheet dengan ketentuan
> sebagai berikut:
>
> apabila saya mengetikkan nilai di atas 6 pada salah satu cell yang ada di
> range L13 sampai dengan L17, maka dari cell yang bersangkutan berikut 2
> cell disebelah kanannya akan tercopy (VALUE) secara otomatis ke range A7
> sampai C7 (dibawah baris yang sudah terisi data). Dan apabila baris A21
> sampai dengan C7 sudah terisi data (record), maka perintah (code VBA) tidak
> boleh dijalankan lagi. VBA Code yang ada cuma bisa di 1 cell saja , yaitu
> cell "L13".
>
> Atas perhatian dan bantuannya, saya mengucapkan terima kasih
>
> Wassalamu'alaikum warahmatullahi wabarakatuh
>
>
>
>
>
>
Code saya ubah jadi seperti berikut ini:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("L13:L17"), Range(Target.Address)) Is
Nothing Then
If Range(Target.Address) > 0 Then
Worksheets("INVOICE").Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-1,
-2)).Copy
Worksheets("INVOICE").Cells(21, 1).End(xlUp).Offset(1, 0).PasteSpecial
xlPasteValues
Application.CutCopyMode = False
Range(Target.Address).Offset(0, -1) = ""
Range(Target.Address).Offset(0, 0) = ""
Worksheets("INVOICE").Range("K12").Select
End If
End If
End Sub
Yang belum terpecahkan adalah: apabila baris ke 21 sudah terisi, pinginnya
aktivitas copy paste berhenti karena sudah tidak tempat kosong lagi. Ini
sebagai antisipasi salah input . Code VBA ini yang masih belum bisa saya
susun.
Terima kasih
On Tue, Apr 10, 2018 at 4:55 PM, Toby kenzo tobykenzo@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Coba ganti scriptnya :
>
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> On Error GoTo 0
> If Not Intersect(Target, Range("L13:L17")) Is Nothing Then
> Sheet1.Range("A" & (Target.Row - 6)).Value = Cells(Target.Row,
> Target.Column - 2).Value
> Sheet1.Range("B" & (Target.Row - 6)).Value = Cells(Target.Row,
> Target.Column - 1).Value
> Sheet1.Range("C" & (Target.Row - 6)).Value = Cells(Target.Row,
> Target.Column).Value
> On Error Resume Next
> If Target.Value < 7 Then
> Sheet1.Range("A" & (Target.Row - 6)).Value = ""
> Sheet1.Range("B" & (Target.Row - 6)).Value = ""
> Sheet1.Range("C" & (Target.Row - 6)).Value = ""
> If Target.Value = "" Then
> Sheet1.Range("A" & (Target.Row - 6)).Value = ""
> Sheet1.Range("B" & (Target.Row - 6)).Value = ""
> Sheet1.Range("C" & (Target.Row - 6)).Value = ""
> Else
> End If
> End If
> End If
> End Sub
>
>
> TerimaKasih
>
>
>
>
>
>
>
>
> Pada Senin, 9 April 2018 14:15, "Cari Kebenaran cahayailmu71@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Assalamu'
>
> Kepada Para Master dan segenap anggota
>
> Saya ingin mengcopy data antar cell dalam worksheet dengan ketentuan
> sebagai berikut:
>
> apabila saya mengetikkan nilai di atas 6 pada salah satu cell yang ada di
> range L13 sampai dengan L17, maka dari cell yang bersangkutan berikut 2
> cell disebelah kanannya akan tercopy (VALUE) secara otomatis ke range A7
> sampai C7 (dibawah baris yang sudah terisi data). Dan apabila baris A21
> sampai dengan C7 sudah terisi data (record), maka perintah (code VBA) tidak
> boleh dijalankan lagi. VBA Code yang ada cuma bisa di 1 cell saja , yaitu
> cell "L13"
>
> Atas perhatian dan bantuannya, saya mengucapkan terima kasih
>
> Wassalamu'
>
>
>
>
>
>
Tue Apr 10, 2018 7:39 pm (PDT) . Posted by:
"Toby kenzo" tobykenzo
Yang anda inginkan sebenarnya seperti apa...Coba kirim filenya lagi dan hasil yang anda inginkan semuanya biar teman-teman disini juga mengerti..
TerimaKasih
Pada Rabu, 11 April 2018 6:52, "Cari Kebenaran cahayailmu71@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Pak Toby Kenzo, terima kasih atas responnya.
Code saya ubah jadi seperti berikut ini:
Private Sub Worksheet_Change(ByVal Target As Range)If Not Application.Intersect(Range("L13:L17"), Range(Target..Address)) Is Nothing ThenIf Range(Target.Address) > 0 ThenWorksheets("INVOICE").Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-1, -2)).CopyWorksheets("INVOICE").Cells(21, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValuesApplication.CutCopyMode = FalseRange(Target.Address).Offset(0, -1) = ""Range(Target.Address).Offset(0, 0) = ""Worksheets("INVOICE").Range("K12").SelectEnd IfEnd IfEnd Sub
Yang belum terpecahkan adalah: apabila baris ke 21 sudah terisi, pinginnya aktivitas copy paste berhenti karena sudah tidak tempat kosong lagi. Ini sebagai antisipasi salah input . Code VBA ini yang masih belum bisa saya susun.
Terima kasih
On Tue, Apr 10, 2018 at 4:55 PM, Toby kenzo tobykenzo@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Coba ganti scriptnya :
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 0If Not Intersect(Target, Range("L13:L17")) IsNothing ThenSheet1.Range("A" & (Target.Row - 6)).Value =Cells(Target..Row, Target.Column - 2).ValueSheet1.Range("B" & (Target.Row - 6)).Value =Cells(Target.Row, Target.Column - 1).ValueSheet1.Range("C" & (Target.Row - 6)).Value =Cells(Target.Row, Target.Column).ValueOn Error Resume NextIf Target.Value < 7 ThenSheet1.Range("A" & (Target.Row - 6)).Value =""Sheet1.Range("B" & (Target.Row - 6)).Value =""Sheet1.Range("C" & (Target.Row - 6)).Value =""If Target.Value = "" ThenSheet1.Range("A" & (Target.Row - 6)).Value =""Sheet1.Range("B" & (Target.Row - 6))..Value =""Sheet1.Range("C" & (Target.Row - 6)).Value =""ElseEnd IfEnd IfEnd IfEnd Sub
TerimaKasih
Pada Senin, 9 April 2018 14:15, "Cari Kebenaran cahayailmu71@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com > menulis:
Assalamu'alaikum warahmatullahi wabarakatuh
Kepada Para Master dan segenap anggota
Saya ingin mengcopy data antar cell dalam worksheet dengan ketentuan sebagai berikut:
apabila sayamengetikkan nilai di atas 6 pada salah satu cell yang ada di range L13 sampaidengan L17, maka dari cell yang bersangkutan berikut 2 celldisebelah kanannya akan tercopy (VALUE) secara otomatis ke range A7sampai C7 (dibawah baris yang sudah terisi data). Dan apabila baris A21 sampai dengan C7 sudah terisi data(record), maka perintah (code VBA) tidak boleh dijalankan lagi. VBA Code yangada cuma bisa di 1 cell saja , yaitu cell "L13".
Atas perhatian dan bantuannya, saya mengucapkan terima kasih
Wassalamu'alaikum warahmatullahi wabarakatuh
#yiv5868833588 #yiv5868833588 -- #yiv5868833588ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5868833588 #yiv5868833588ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5868833588 #yiv5868833588ygrp-mkp #yiv5868833588hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5868833588 #yiv5868833588ygrp-mkp #yiv5868833588ads {margin-bottom:10px;}#yiv5868833588 #yiv5868833588ygrp-mkp .yiv5868833588ad {padding:0 0;}#yiv5868833588 #yiv5868833588ygrp-mkp .yiv5868833588ad p {margin:0;}#yiv5868833588 #yiv5868833588ygrp-mkp .yiv5868833588ad a {color:#0000ff;text-decoration:none;}#yiv5868833588 #yiv5868833588ygrp-sponsor #yiv5868833588ygrp-lc {font-family:Arial;}#yiv5868833588 #yiv5868833588ygrp-sponsor #yiv5868833588ygrp-lc #yiv5868833588hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5868833588 #yiv5868833588ygrp-sponsor #yiv5868833588ygrp-lc .yiv5868833588ad {margin-bottom:10px;padding:0 0;}#yiv5868833588 #yiv5868833588actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5868833588 #yiv5868833588activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5868833588 #yiv5868833588activity span {font-weight:700;}#yiv5868833588 #yiv5868833588activity span:first-child {text-transform:uppercase;}#yiv5868833588 #yiv5868833588activity span a {color:#5085b6;text-decoration:none;}#yiv5868833588 #yiv5868833588activity span span {color:#ff7900;}#yiv5868833588 #yiv5868833588activity span .yiv5868833588underline {text-decoration:underline;}#yiv5868833588 .yiv5868833588attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5868833588 .yiv5868833588attach div a {text-decoration:none;}#yiv5868833588 .yiv5868833588attach img {border:none;padding-right:5px;}#yiv5868833588 .yiv5868833588attach label {display:block;margin-bottom:5px;}#yiv5868833588 .yiv5868833588attach label a {text-decoration:none;}#yiv5868833588 blockquote {margin:0 0 0 4px;}#yiv5868833588 .yiv5868833588bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5868833588 .yiv5868833588bold a {text-decoration:none;}#yiv5868833588 dd.yiv5868833588last p a {font-family:Verdana;font-weight:700;}#yiv5868833588 dd.yiv5868833588last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5868833588 dd.yiv5868833588last p span.yiv5868833588yshortcuts {margin-right:0;}#yiv5868833588 div.yiv5868833588attach-table div div a {text-decoration:none;}#yiv5868833588 div.yiv5868833588attach-table {width:400px;}#yiv5868833588 div.yiv5868833588file-title a, #yiv5868833588 div.yiv5868833588file-title a:active, #yiv5868833588 div.yiv5868833588file-title a:hover, #yiv5868833588 div.yiv5868833588file-title a:visited {text-decoration:none;}#yiv5868833588 div.yiv5868833588photo-title a, #yiv5868833588 div.yiv5868833588photo-title a:active, #yiv5868833588 div.yiv5868833588photo-title a:hover, #yiv5868833588 div.yiv5868833588photo-title a:visited {text-decoration:none;}#yiv5868833588 div#yiv5868833588ygrp-mlmsg #yiv5868833588ygrp-msg p a span.yiv5868833588yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5868833588 .yiv5868833588green {color:#628c2a;}#yiv5868833588 .yiv5868833588MsoNormal {margin:0 0 0 0;}#yiv5868833588 o {font-size:0;}#yiv5868833588 #yiv5868833588photos div {float:left;width:72px;}#yiv5868833588 #yiv5868833588photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv5868833588 #yiv5868833588photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5868833588 #yiv5868833588reco-category {font-size:77%;}#yiv5868833588 #yiv5868833588reco-desc {font-size:77%;}#yiv5868833588 .yiv5868833588replbq {margin:4px;}#yiv5868833588 #yiv5868833588ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5868833588 #yiv5868833588ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5868833588 #yiv5868833588ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5868833588 #yiv5868833588ygrp-mlmsg select, #yiv5868833588 input, #yiv5868833588 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5868833588 #yiv5868833588ygrp-mlmsg pre, #yiv5868833588 code {font:115% monospace;}#yiv5868833588 #yiv5868833588ygrp-mlmsg * {line-height:1.22em;}#yiv5868833588 #yiv5868833588ygrp-mlmsg #yiv5868833588logo {padding-bottom:10px;}#yiv5868833588 #yiv5868833588ygrp-msg p a {font-family:Verdana;}#yiv5868833588 #yiv5868833588ygrp-msg p#yiv5868833588attach-count span {color:#1E66AE;font-weight:700;}#yiv5868833588 #yiv5868833588ygrp-reco #yiv5868833588reco-head {color:#ff7900;font-weight:700;}#yiv5868833588 #yiv5868833588ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5868833588 #yiv5868833588ygrp-sponsor #yiv5868833588ov li a {font-size:130%;text-decoration:none;}#yiv5868833588 #yiv5868833588ygrp-sponsor #yiv5868833588ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5868833588 #yiv5868833588ygrp-sponsor #yiv5868833588ov ul {margin:0;padding:0 0 0 8px;}#yiv5868833588 #yiv5868833588ygrp-text {font-family:Georgia;}#yiv5868833588 #yiv5868833588ygrp-text p {margin:0 0 1em 0;}#yiv5868833588 #yiv5868833588ygrp-text tt {font-size:120%;}#yiv5868833588 #yiv5868833588ygrp-vital ul li:last-child {border-right:none !important;}#yiv5868833588
TerimaKasih
Pada Rabu, 11 April 2018 6:52, "Cari Kebenaran cahayailmu71@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Pak Toby Kenzo, terima kasih atas responnya.
Code saya ubah jadi seperti berikut ini:
Private Sub Worksheet_Change(ByVal Target As Range)If Not Application.Intersect(Range("L13:L17"), Range(Target..Address)) Is Nothing ThenIf Range(Target.Address) > 0 ThenWorksheets("INVOICE").Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-1, -2)).CopyWorksheets("INVOICE").Cells(21, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValuesApplication.CutCopyMode = FalseRange(Target.Address).Offset(0, -1) = ""Range(Target.Address).Offset(0, 0) = ""Worksheets("INVOICE").Range("K12").SelectEnd IfEnd IfEnd Sub
Yang belum terpecahkan adalah: apabila baris ke 21 sudah terisi, pinginnya aktivitas copy paste berhenti karena sudah tidak tempat kosong lagi. Ini sebagai antisipasi salah input . Code VBA ini yang masih belum bisa saya susun.
Terima kasih
On Tue, Apr 10, 2018 at 4:55 PM, Toby kenzo tobykenzo@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Coba ganti scriptnya :
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 0If Not Intersect(Target, Range("L13:L17")) IsNothing ThenSheet1.Range("A" & (Target.Row - 6)).Value =Cells(Target..Row, Target.Column - 2).ValueSheet1.Range("B" & (Target.Row - 6)).Value =Cells(Target.Row, Target.Column - 1).ValueSheet1.Range("C" & (Target.Row - 6)).Value =Cells(Target.Row, Target.Column).ValueOn Error Resume NextIf Target.Value < 7 ThenSheet1.Range("A" & (Target.Row - 6)).Value =""Sheet1.Range("B" & (Target.Row - 6)).Value =""Sheet1.Range("C" & (Target.Row - 6)).Value =""If Target.Value = "" ThenSheet1.Range("A" & (Target.Row - 6)).Value =""Sheet1.Range("B" & (Target.Row - 6))..Value =""Sheet1.Range("C" & (Target.Row - 6)).Value =""ElseEnd IfEnd IfEnd IfEnd Sub
TerimaKasih
Pada Senin, 9 April 2018 14:15, "Cari Kebenaran cahayailmu71@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com > menulis:
Assalamu'
Kepada Para Master dan segenap anggota
Saya ingin mengcopy data antar cell dalam worksheet dengan ketentuan sebagai berikut:
apabila sayamengetikkan nilai di atas 6 pada salah satu cell yang ada di range L13 sampaidengan L17, maka dari cell yang bersangkutan berikut 2 celldisebelah kanannya akan tercopy (VALUE) secara otomatis ke range A7sampai C7 (dibawah baris yang sudah terisi data). Dan apabila baris A21 sampai dengan C7 sudah terisi data(record)
Atas perhatian dan bantuannya, saya mengucapkan terima kasih
Wassalamu'
#yiv5868833588 #yiv5868833588 -- #yiv5868833588ygrp-
Wed Apr 11, 2018 12:31 am (PDT) . Posted by:
"odong nando"
bos kid, klo senggang mau dunk di contoh ken pivot consolidation nya...berikut penjelasannya yak....hehe,,,
br,
odong nando
Dari: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Selasa, 10 April 2018 20:21
Judul: Re: [belajar-excel] Rincian PO
Pakai pivot consolidation juga bisa.
2018-04-05 10:02 GMT+07:00 Pak Cik Lukman pakciklukman@gmail.com [belajar-excel] <belajar-excel@yahoogroups..com>:
Wahh terima kasih pak Ghozi,
Sekalian mau tanya juga dongJika tabel tsb di balik, dari tabel menyamping menjadi runut ke bawah (transpose), formulanya spt apa ya pak...
Terima kasih atas bantuannya
Salam, PCL
Sent from my iPhone
On Apr 5, 2018, at 9:40 AM, ghozi alkatiri ghozialkatiri@yahoo..co.id [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
tulis di G4 (formula array)
=IFERROR(INDEX($B$3:$B$9, MATCH(,COUNTIF(G$3:G3,$B$3:$B$ 9),0)),"")
copy ke bawah
tulis di H4 (formula array)
=IFERROR(INDEX($C$3:$C$9, SMALL(IF($B$3:$B$9=$G4,ROW($B$ 3:$B$9)-2),COLUMN(A:A))),"")
copy ke kanan dan ke bawah
wassalam
Ghozi Alkatiri Pada Kamis, 5 April 2018 07.31.48 GMT+7, Kusnadi Bin zain kbinzain@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com > menulis:
dear pakar Excell
mohon bantuaanya untuk kasus Rician PO kesamping seperti ini rumusnya bagaimana ya
#yiv2330154427 #yiv2330154427 -- #yiv2330154427ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2330154427 #yiv2330154427ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2330154427 #yiv2330154427ygrp-mkp #yiv2330154427hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2330154427 #yiv2330154427ygrp-mkp #yiv2330154427ads {margin-bottom:10px;}#yiv2330154427 #yiv2330154427ygrp-mkp .yiv2330154427ad {padding:0 0;}#yiv2330154427 #yiv2330154427ygrp-mkp .yiv2330154427ad p {margin:0;}#yiv2330154427 #yiv2330154427ygrp-mkp .yiv2330154427ad a {color:#0000ff;text-decoration:none;}#yiv2330154427 #yiv2330154427ygrp-sponsor #yiv2330154427ygrp-lc {font-family:Arial;}#yiv2330154427 #yiv2330154427ygrp-sponsor #yiv2330154427ygrp-lc #yiv2330154427hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2330154427 #yiv2330154427ygrp-sponsor #yiv2330154427ygrp-lc .yiv2330154427ad {margin-bottom:10px;padding:0 0;}#yiv2330154427 #yiv2330154427actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2330154427 #yiv2330154427activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2330154427 #yiv2330154427activity span {font-weight:700;}#yiv2330154427 #yiv2330154427activity span:first-child {text-transform:uppercase;}#yiv2330154427 #yiv2330154427activity span a {color:#5085b6;text-decoration:none;}#yiv2330154427 #yiv2330154427activity span span {color:#ff7900;}#yiv2330154427 #yiv2330154427activity span .yiv2330154427underline {text-decoration:underline;}#yiv2330154427 .yiv2330154427attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2330154427 .yiv2330154427attach div a {text-decoration:none;}#yiv2330154427 .yiv2330154427attach img {border:none;padding-right:5px;}#yiv2330154427 .yiv2330154427attach label {display:block;margin-bottom:5px;}#yiv2330154427 .yiv2330154427attach label a {text-decoration:none;}#yiv2330154427 blockquote {margin:0 0 0 4px;}#yiv2330154427 .yiv2330154427bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2330154427 .yiv2330154427bold a {text-decoration:none;}#yiv2330154427 dd.yiv2330154427last p a {font-family:Verdana;font-weight:700;}#yiv2330154427 dd.yiv2330154427last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2330154427 dd.yiv2330154427last p span.yiv2330154427yshortcuts {margin-right:0;}#yiv2330154427 div.yiv2330154427attach-table div div a {text-decoration:none;}#yiv2330154427 div.yiv2330154427attach-table {width:400px;}#yiv2330154427 div.yiv2330154427file-title a, #yiv2330154427 div.yiv2330154427file-title a:active, #yiv2330154427 div.yiv2330154427file-title a:hover, #yiv2330154427 div.yiv2330154427file-title a:visited {text-decoration:none;}#yiv2330154427 div.yiv2330154427photo-title a, #yiv2330154427 div.yiv2330154427photo-title a:active, #yiv2330154427 div.yiv2330154427photo-title a:hover, #yiv2330154427 div.yiv2330154427photo-title a:visited {text-decoration:none;}#yiv2330154427 div#yiv2330154427ygrp-mlmsg #yiv2330154427ygrp-msg p a span.yiv2330154427yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2330154427 .yiv2330154427green {color:#628c2a;}#yiv2330154427 .yiv2330154427MsoNormal {margin:0 0 0 0;}#yiv2330154427 o {font-size:0;}#yiv2330154427 #yiv2330154427photos div {float:left;width:72px;}#yiv2330154427 #yiv2330154427photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv2330154427 #yiv2330154427photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2330154427 #yiv2330154427reco-category {font-size:77%;}#yiv2330154427 #yiv2330154427reco-desc {font-size:77%;}#yiv2330154427 .yiv2330154427replbq {margin:4px;}#yiv2330154427 #yiv2330154427ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2330154427 #yiv2330154427ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2330154427 #yiv2330154427ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2330154427 #yiv2330154427ygrp-mlmsg select, #yiv2330154427 input, #yiv2330154427 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2330154427 #yiv2330154427ygrp-mlmsg pre, #yiv2330154427 code {font:115% monospace;}#yiv2330154427 #yiv2330154427ygrp-mlmsg * {line-height:1.22em;}#yiv2330154427 #yiv2330154427ygrp-mlmsg #yiv2330154427logo {padding-bottom:10px;}#yiv2330154427 #yiv2330154427ygrp-msg p a {font-family:Verdana;}#yiv2330154427 #yiv2330154427ygrp-msg p#yiv2330154427attach-count span {color:#1E66AE;font-weight:700;}#yiv2330154427 #yiv2330154427ygrp-reco #yiv2330154427reco-head {color:#ff7900;font-weight:700;}#yiv2330154427 #yiv2330154427ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2330154427 #yiv2330154427ygrp-sponsor #yiv2330154427ov li a {font-size:130%;text-decoration:none;}#yiv2330154427 #yiv2330154427ygrp-sponsor #yiv2330154427ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2330154427 #yiv2330154427ygrp-sponsor #yiv2330154427ov ul {margin:0;padding:0 0 0 8px;}#yiv2330154427 #yiv2330154427ygrp-text {font-family:Georgia;}#yiv2330154427 #yiv2330154427ygrp-text p {margin:0 0 1em 0;}#yiv2330154427 #yiv2330154427ygrp-text tt {font-size:120%;}#yiv2330154427 #yiv2330154427ygrp-vital ul li:last-child {border-right:none !important;}#yiv2330154427
br,
odong nando
Dari: "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Selasa, 10 April 2018 20:21
Judul: Re: [belajar-excel] Rincian PO
Pakai pivot consolidation juga bisa.
2018-04-05 10:02 GMT+07:00 Pak Cik Lukman pakciklukman@gmail.com [belajar-excel] <belajar-excel@yahoogroups..com>:
Wahh terima kasih pak Ghozi,
Sekalian mau tanya juga dongJika tabel tsb di balik, dari tabel menyamping menjadi runut ke bawah (transpose), formulanya spt apa ya pak...
Terima kasih atas bantuannya
Salam, PCL
Sent from my iPhone
On Apr 5, 2018, at 9:40 AM, ghozi alkatiri ghozialkatiri@yahoo..co.id [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
tulis di G4 (formula array)
=IFERROR(INDEX($B$3:$B$9, MATCH(,COUNTIF(G$3:G3,$B$3:$B$ 9),0)),"")
copy ke bawah
tulis di H4 (formula array)
=IFERROR(INDEX($C$3:$C$9, SMALL(IF($B$3:$B$9=$G4,ROW($B$ 3:$B$9)-2),COLUMN(A:A))),"")
copy ke kanan dan ke bawah
wassalam
Ghozi Alkatiri Pada Kamis, 5 April 2018 07.31.48 GMT+7, Kusnadi Bin zain kbinzain@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com > menulis:
dear pakar Excell
mohon bantuaanya untuk kasus Rician PO kesamping seperti ini rumusnya bagaimana ya
#yiv2330154427 #yiv2330154427 -- #yiv2330154427ygrp-
Wed Apr 11, 2018 12:41 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Sila
*** sorry ya om momod, file size gak bisa dikurangi. Kebanyakan gambar
kali. Tapi kalo gambarnya dikurangi, nanti jadi sulit dipelajari...
statusnya jangan diturunin jadi di-moderasi ya... plis...
On Wed, Apr 11, 2018 at 2:31 PM, odong nando odongnando@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> bos kid,
> klo senggang mau dunk di contoh ken pivot consolidation nya...
> berikut penjelasannya yak....
> hehe,,,
>
> [image: *:D tersenyum lebar][image: *:D tersenyum lebar]
>
> br,
>
> odong nando
>
>
> ------------------------------
> *Dari:* "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> *Kepada:* BeExcel <belajar-excel@yahoogroups.com>
> *Dikirim:* Selasa, 10 April 2018 20:21
> *Judul:* Re: [belajar-excel] Rincian PO
>
>
> Pakai pivot consolidation juga bisa.
>
> 2018-04-05 10:02 GMT+07:00 Pak Cik Lukman pakciklukman@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups..com
> <belajar-excel@yahoogroups.com>>:
>
>
> Wahh terima kasih pak Ghozi,
>
> Sekalian mau tanya juga dong
> Jika tabel tsb di balik, dari tabel menyamping menjadi runut ke bawah
> (transpose), formulanya spt apa ya pak...
>
> Terima kasih atas bantuannya
>
> Salam,
> PCL
>
> Sent from my iPhone
>
> On Apr 5, 2018, at 9:40 AM, ghozi alkatiri ghozialkatiri@yahoo..co.id
> <ghozialkatiri@yahoo.co.id> [belajar-excel] <belajar-excel@yahoogroups.com
> > wrote:
>
>
> tulis di G4 (formula array)
>
> =IFERROR(INDEX($B$3:$B$9, MATCH(,COUNTIF(G$3:G3,$B$3:$B$ 9),0)),"")
> copy ke bawah
>
> tulis di H4 (formula array)
> =IFERROR(INDEX($C$3:$C$9, SMALL(IF($B$3:$B$9=$G4,ROW($B$
> 3:$B$9)-2),COLUMN(A:A))),"")
>
> copy ke kanan dan ke bawah
>
> wassalam
>
> Ghozi Alkatiri
> Pada Kamis, 5 April 2018 07.31.48 GMT+7, Kusnadi Bin zain
> kbinzain@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com >
> menulis:
>
>
>
> dear pakar Excell
>
> mohon bantuaanya untuk kasus Rician PO kesamping seperti ini rumusnya
> bagaimana ya
>
>
>
>
>
>
*** sorry ya om momod, file size gak bisa dikurangi. Kebanyakan gambar
kali. Tapi kalo gambarnya dikurangi, nanti jadi sulit dipelajari...
statusnya jangan diturunin jadi di-moderasi ya... plis...
On Wed, Apr 11, 2018 at 2:31 PM, odong nando odongnando@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> bos kid,
> klo senggang mau dunk di contoh ken pivot consolidation nya...
> berikut penjelasannya yak....
> hehe,,,
>
> [image: *:D tersenyum lebar][image: *:D tersenyum lebar]
>
> br,
>
> odong nando
>
>
> ------------------------------
> *Dari:* "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> *Kepada:* BeExcel <belajar-excel@yahoogroups.com>
> *Dikirim:* Selasa, 10 April 2018 20:21
> *Judul:* Re: [belajar-excel] Rincian PO
>
>
> Pakai pivot consolidation juga bisa.
>
> 2018-04-05 10:02 GMT+07:00 Pak Cik Lukman pakciklukman@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups..com
> <belajar-excel@yahoogroups.com>>:
>
>
> Wahh terima kasih pak Ghozi,
>
> Sekalian mau tanya juga dong
> Jika tabel tsb di balik, dari tabel menyamping menjadi runut ke bawah
> (transpose), formulanya spt apa ya pak...
>
> Terima kasih atas bantuannya
>
> Salam,
> PCL
>
> Sent from my iPhone
>
> On Apr 5, 2018, at 9:40 AM, ghozi alkatiri ghozialkatiri@yahoo..co.id
> <ghozialkatiri@yahoo.co.id> [belajar-excel] <belajar-excel@yahoogroups.com
> > wrote:
>
>
> tulis di G4 (formula array)
>
> =IFERROR(INDEX($B$3:$B$9, MATCH(,COUNTIF(G$3:G3,$B$3:$B$ 9),0)),"")
> copy ke bawah
>
> tulis di H4 (formula array)
> =IFERROR(INDEX($C$3:$C$9, SMALL(IF($B$3:$B$9=$G4,ROW($B$
> 3:$B$9)-2),COLUMN(A:A))),"")
>
> copy ke kanan dan ke bawah
>
> wassalam
>
> Ghozi Alkatiri
> Pada Kamis, 5 April 2018 07.31.48 GMT+7, Kusnadi Bin zain
> kbinzain@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com >
> menulis:
>
>
>
> dear pakar Excell
>
> mohon bantuaanya untuk kasus Rician PO kesamping seperti ini rumusnya
> bagaimana ya
>
>
>
>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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