Senin, 19 Desember 2011

[belajar-excel] Digest Number 1443

Messages In This Digest (19 Messages)

Messages

1a.

Bls: [belajar-excel] kode macro untuk mengcopy range berfomula ke ko

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id   ghozialkatiri

Sun Dec 18, 2011 7:52 am (PST)



terima kasih atas tanggapannya. 
sebenanrnya solusi yang bapak kirimkan hampir mendekati yang saya inginkan tapi rupanya ada kesalahan teknis pada hasil di kolom ke dua dan ke tiga dari hasil yang  diharapkan.
misalkan saya menginput data 123456 di kolom A hasil yang saya inginkan adalah kopi formula dari range rujukan
seharusnya menghasilkan nilai di kolom B 12 di kolom C 34 dan di kolom D 56 tapi pada  kenyataanya yang benar hanya hasil pada kolom B saja. sedangkan di kolom B dan C nilai apapun yang dimasukkan hasilnya selalu  cd dan ef.  
kalau tidak merepotkan saya tunggu koreksinya.
sekali lagi terima kasih.

wassalam

________________________________
Dari: Edy Wiyono <edy.wiyono@yahoo.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 18 Desember 2011 17:51
Judul: RE: [belajar-excel] kode macro untuk mengcopy range berfomula ke kolom di kanan cell input


 
Waalaikumsalam, Pak Ghozi
Saya menggunakan vba untuk file contohnya.
Mudah-mudahan bisa membantu.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("sheet1").Activate Then
If ActiveCell.Column = 1 Then
If Len(Cells((ActiveCell.Row - 1), ActiveCell.Column)) >= 6 Then
a = ActiveCell.Row
b = ActiveCell.Column

If a = Cells(1, 100) And b = Cells(1, 101) Then
Exit Sub
End If

Range("formula").Select
Selection.Copy
Cells(a - 1, b + 1).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Cells(1, 100) = a
Cells(1, 101) = b
Cells(a, b).Select
Application.CutCopyMode = False
ActiveWorkbook.Save

End If
End If
End If
End Sub

From: belajar-excel@yahoogroups.com
On Behalf Of ghozi alkatiri
Sent: Saturday, December 17, 2011 8:34 PM

terima kasih atas tanggapan dari mr kid dan mbak haps, semuanya akan saya simpan sebagai referensi dan akan saya pelajari lebih lanjut.

khusus mengenai tanggapan dari mbak haps sudah mendekati yang saya inginkan .

cuma yang saya inginkan adalah proses satu demi satu tidak secara keseluruhan seperti yang dicontohkan mbak haps.

jelasnya begini

misalkan saya menginput nilai ABCDEF di A10 maka ketika saya enter akan terjadi proses pengcopyan dari range formula yang sudah disiapkan. dan meninggalkan nilai valuenya saja di AB,CD dan EF di cell C10, D10 dan E10

demikian juga ketika saya lanjutkan dengan baris berikutnya. proses pengcopian akan terjadi sesaat setelah saya menekan enter. tanpa harus menekan run macro atau klik tombol.

wassalam

Ghozi Alkatiri

_____

Dari: Haps <hapsari.stlizbeth@gmail.com>
Dikirim: Sabtu, 17 Desember 2011 20:17
Sub Cara_Satu()
Sub Cara_Dua()

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

Re: kode macro untuk mengcopy range berfomula ke kolom di kanan cell

Posted by: "i Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Mon Dec 19, 2011 12:49 am (PST)



Pak Ghozi ysh,

Berikut ini dua cara makro

*A *
*(mengenai cara yg ditempuh untuk menuju tercapainya hasil (algoritma) *

Cara 1
tetap menggunakan action/indakan copy paste cell / range / formula
dari range contoh (yg sudah diisi contoh formula), ke range TARGET
a. copy formulanya (ke Target)
b hasil copy >> di copy VALUESnya ke dirinya (Target) sendiri

Cara 2.
tidak memerlukan range contoh formula tetapi memerlukan
informasi logika dan kalkulasi yg dikehendaki (sering disebut :* expressi*)

jadi makronya tidak melakukan tindakan copy paste object cell, melainkan
langsung
mengAssigned beberapa buah cell dengan hasil* Expressi* tadi.

*B *
*(Mengenai Bagaimana, kapan Makro harus dijalankan / jalan otomatis)*

Hal kedua adalah mengatur KAPAN /&berdasarkan apa MAKRO MAU OTOMATIS JALAN
Dikehendaki : Makro Jalan ketika data DI-INPUTKAN ke Range INPUT (yaitu
Range A10:A65536,
kalau excelnya = XL2003)

Hal seperti ini di VBA maupun VB dikenal sebagai memanfaatkan EVENTs
Kebetulan : jika suatu cell di suatu sheet diubah VALUES nya (dengan cara
apapun, CMIIW)
maka akan terjadi Event yg benama Sheet_Change

Nah oleh sebab itulah makro harus ditulis di dalam *PROSEDUR EVENT
Sheet_Change*
(Prosedur yg memanfaatkan adanya perubahan yg terjadi pada sheet)

Untuk menjalankannya pun sering kita harus memberi BATASAN / Syarat, dengan
tujuan
agar makro tidak semena-mena / semaunya / kapan saja jalan: jika terjadi
event
(Padahal setiap kita menyentuh sheet sebagian sentuhan itu berupa Events)

Di dalam kedua makro (yg ditulis di module sheet 1 dan module Sheet2 )
itu, kita
*memberi *
*batasan: Makro hanya boleh jalan JIKA:*

* Target ( = rangel yg berubah nilainya) = hanya berupa cell tunggal
* Kolom yg ditempati Target harus KOLOM 1 (kolom A)
* Baris yg ditempati Target harus di dibawah (lnilai row-nya ebih besar)
daripada BARIS 9
* Target harus bukan cell kosong
(jika target = cell kosong; makro tidak mengisi hasil tetapi diatur agar
mengosongkan 3 cell di kanannya)

Private Sub Worksheet_Change(ByVal Target As Range)
' iHaps // 19 dec , 2001
' assignment hasil expressi ke suatu cell/range
'---------------------------------------------
If Target.Count = 1 Then
If Target.Column = 1 Then
If Target.Row > 9 Then
If Not Target.Value = vbNullString Then
Range(Target(1, 2), Target(1, 4)).NumberFormat = "@"
Target(1, 2) = Mid(Target.Value, 1, 2)
Target(1, 3) = Mid(Target.Value, 3, 2)
Target(1, 4) = Mid(Target.Value, 5, 2)
Application.CutCopyMode = False
Else
Range(Target(1, 2), Target(1, 4)).ClearContents
End If
End If
End If
End If
End Sub

'--------------

Private Sub Worksheet_Change(ByVal Target As Range)
' iHaps // 19 dec , 2001
' CARA 2 : copy paste cells/formula
'-----------------------------------
If Target.Count = 1 Then
If Target.Column = 1 Then
If Target.Row > 9 Then
If Not Target.Value = vbNullString Then
*Range("B1:D1")*.Copy
Target(1, 2).PasteSpecial xlPaste*Formulas*AndNumberFormats
Target(1, 2).Resize(1, 3).Copy
Target(1, 2).Resize(1, 3).PasteSpecial xlPaste*Values*
Else
Target(1, 2).Resize(1, 3).ClearContents
End If
End If
End If
End If
End Sub
'------------------

Demikain Pak, mudah-mudahan menjadi semakin jelas.

Oiya, dlm bermakro, seringkali kita harus mempertimbangkan kecepatan
jalannya makro
(runningttimenya).
Seperti kemarin telah dibahas, tindakan select / copy / paste terhadap
cells / range itu cukup
memerlukan waktu. Oleh karena itu, jika prosedur mengandung banyak tugas,
kita lebih baik
menghindari cara /tindakan select / copy / paste cells tsb.
(dan itulah yg kita tunjukkan sebagai perbedaan di kedua makro di atas )

Wassalamu 'alaikum wr wb
i Haps.

2011/12/18 ghozi alkatiri <ghozialkatiri@yahoo.co.id>

> **
> terima kasih atas tanggapannya.
> sebenanrnya solusi yang bapak kirimkan hampir mendekati yang saya inginkan
> tapi rupanya ada kesalahan teknis pada hasil di kolom ke dua dan ke tiga
> dari hasil yang diharapkan.
> misalkan saya menginput data 123456 di kolom A hasil yang saya inginkan
> adalah kopi formula dari range rujukan
> seharusnya menghasilkan nilai di kolom B 12 di kolom C 34 dan di kolom D
> 56 tapi pada kenyataanya yang benar hanya hasil pada kolom B saja.
> sedangkan di kolom B dan C nilai apapun yang dimasukkan hasilnya selalu cd
> dan ef.
> kalau tidak merepotkan saya tunggu koreksinya.
> sekali lagi terima kasih.
>
> wassalam
>
> ------------------------------
> *Dari:* Edy Wiyono <edy.wiyono@yahoo.co.id>
> *Dikirim:* Minggu, 18 Desember 2011 17:51
>
> Waalaikumsalam, Pak Ghozi
> Saya menggunakan vba untuk file contohnya.
> Mudah-mudahan bisa membantu.
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> If Sheets("sheet1").Activate Then
> If ActiveCell.Column = 1 Then
> If Len(Cells((ActiveCell.Row - 1), ActiveCell.Column)) >= 6 Then
> a = ActiveCell.Row
> b = ActiveCell.Column
> If a = Cells(1, 100) And b = Cells(1, 101) Then
> Exit Sub
> End If
>
> Range("formula").Select
> Selection.Copy
> Cells(a - 1, b + 1).Select
> Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone,
> SkipBlanks:=False, Transpose:=False
> Selection.Copy
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> SkipBlanks:=False, Transpose:=False
>
> Cells(1, 100) = a
> Cells(1, 101) = b
> Cells(a, b).Select
> Application.CutCopyMode = False
> ActiveWorkbook.Save
>
> End If
> End If
> End If
> End Sub
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
1c.

Bls: [belajar-excel] kode macro untuk mengcopy range berfomula ke ko

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id   ghozialkatiri

Mon Dec 19, 2011 2:18 am (PST)



terima kasih mbak haps.
akhirnya dengan modifikasi pada beberapa baris kode dengan referensi yang sudah diberikan mbak haps dan beberpa kawan lainnya saya berhasil mendapatkan yang saya harapkan.
untuk koreksi di bawah ini saya tuliskan  code dari mbak haps dan modifikasi yang saya lakukan.

kode dari mbak haps

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   ' iHaps // 19 dec , 2001
   ' CARA 2  : copy paste cells/formula
   '-----------------------------------
   Dim ContohRumus As Range
   Set ContohRumus = Range("B1:D1")
   If Target.Count = 1 Then
      If Target.Column = 1 Then
         If Target.Row > 9 Then
            If Not Target.Value = vbNullString Then
               ContohRumus.Copy
               Target(1, 2).PasteSpecial xlPasteFormulasAndNumberFormats
               Application.CutCopyMode = False
               ActiveCell.Offset(1, -1).Range("A1").Select
            Else
               Target(1, 2).Resize(1, 3).ClearContents
            End If
         End If
      End If
   End If
End Sub

modifikasi Ghozi
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   ' iHaps // 19 dec , 2001
   ' CARA 2  : copy paste cells/formula
   '-----------------------------------
   Dim formula As Range
   Set formula = Range("B1:D1")
   If Target.Count = 1 Then
      If Target.Column = 1 Then
         If Target.Row > 9 Then
            If Not Target.Value = vbNullString Then
               formula.Copy
               Target(1, 2).PasteSpecial xlPasteFormulasAndNumberFormats
               Application.CutCopyMode = False
               ActiveCell.Offset(1, -1).Range("A1").Select
            Else
               Target(1, 2).Resize(1, 3).ClearContents
            End If
         End If
      End If
   End If
End Sub

hasil dari modifikasi ini sangat pas dengan yang saya inginkan. tetapi karena saya masih sangat awam sekali tentang macro saya ingin mendapatkan koreksi dari mbak haps dan teman teman lainnya  apa kode hasil modifikasi di atas ini sudah aman untuk digunakan tanpa efek samping saya tunggu tanggapannya.

pertanyaan tambahan 
bagaimana kalau dalam set hasil copy juga di pastekan format dari range asal 
jadi yang akan tercopy di samping nilai hasil formula juga format dari range asal misalkan border warna dll.
ini efisiensi supaya tidak menggunakan conditional formating.

wassalam

Ghozi Alkatiri

________________________________
Dari: i Haps <hapsari.stlizbeth@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 19 Desember 2011 15:48
Judul: Re: [belajar-excel] kode macro untuk mengcopy range berfomula ke kolom di kanan cell input


 
Pak Ghozi ysh,

Berikut ini dua cara makro

A 
(mengenai cara yg ditempuh untuk menuju tercapainya hasil (algoritma) 

Cara 1
tetap menggunakan action/indakancopy paste cell / range / formula
dari range contoh (yg sudah diisi contoh formula), ke  range TARGET
a. copy formulanya (ke Target)
b hasil copy >> di copy VALUESnya ke dirinya (Target) sendiri 

Cara 2.
tidak memerlukan range contoh formula tetapi memerlukan
informasi logika dan kalkulasi yg dikehendaki (sering disebut :expressi)

jadi makronya tidak melakukan tindakan copy paste object cell, melainkan langsung
mengAssignedbeberapa buah cell dengan hasilExpressi tadi.

B 
(Mengenai Bagaimana, kapan Makro harus dijalankan / jalan otomatis)

Hal kedua adalah mengatur KAPAN /&berdasarkan apa MAKRO MAU OTOMATIS JALAN 
Dikehendaki : Makro Jalan ketika data DI-INPUTKAN ke Range INPUT (yaitu Range A10:A65536,  
kalau excelnya = XL2003)

Hal seperti ini di VBA maupun VB dikenal sebagai memanfaatkan EVENTs
Kebetulan : jika suatu cell di suatu sheet diubah VALUES nya (dengan cara apapun, CMIIW)
maka akan terjadi Event yg benama Sheet_Change

Nah oleh sebab itulah makro harus ditulis di dalam PROSEDUR EVENT Sheet_Change
(Prosedur yg memanfaatkan adanya perubahan yg terjadi pada sheet)

Untuk menjalankannya pun sering kita harus memberi BATASAN / Syarat, dengan tujuan
agar makro tidak semena-mena / semaunya / kapan saja jalan:  jika terjadi event
(Padahal setiap kita menyentuh sheet sebagian sentuhan itu berupa Events)

Di dalam kedua makro (yg ditulis di module sheet 1 dan module Sheet2 ) itu, kita memberi 
batasan: Makro hanya boleh jalan JIKA:

* Target ( = rangel yg berubah nilainya) = hanya berupa cell tunggal
* Kolom yg ditempati Target harus KOLOM 1 (kolom A)
* Baris yg ditempati Target harus di dibawah (lnilai row-nya ebih besar) daripada BARIS 9
* Target harus bukan cell kosong
(jika target = cell kosong; makro tidak mengisi hasil tetapi diatur agar mengosongkan 3 cell di kanannya)

Private Sub Worksheet_Change(ByVal Target As Range)
   ' iHaps // 19 dec , 2001
   ' assignment hasil expressi ke suatu cell/range
   '---------------------------------------------
   If Target.Count = 1 Then
      If Target.Column = 1 Then
         If Target.Row > 9 Then
            If Not Target.Value = vbNullString Then
               Range(Target(1, 2), Target(1, 4)).NumberFormat = "@"
               Target(1, 2) = Mid(Target.Value, 1, 2)
               Target(1, 3) = Mid(Target.Value, 3, 2)
               Target(1, 4) = Mid(Target.Value, 5, 2)
               Application.CutCopyMode = False
            Else
               Range(Target(1, 2), Target(1, 4)).ClearContents
            End If
         End If
      End If
   End If
End Sub

'--------------

Private Sub Worksheet_Change(ByVal Target As Range)
   ' iHaps // 19 dec , 2001
   ' CARA 2  : copy paste cells/formula
   '-----------------------------------
   If Target.Count = 1 Then
      If Target.Column = 1 Then
         If Target.Row > 9 Then
            If Not Target.Value = vbNullString Then
               Range("B1:D1").Copy
               Target(1, 2).PasteSpecial xlPasteFormulasAndNumberFormats
               Target(1, 2).Resize(1, 3).Copy
               Target(1, 2).Resize(1, 3).PasteSpecial xlPasteValues
            Else
               Target(1, 2).Resize(1, 3).ClearContents
            End If
         End If
      End If
   End If
End Sub
'------------------

Demikain Pak, mudah-mudahan menjadi semakin jelas.

Oiya, dlm bermakro, seringkali kita harus mempertimbangkan kecepatan jalannya makro 
(runningttimenya).
Seperti kemarin telah dibahas, tindakan select / copy / paste terhadap cells / range itu cukup 
memerlukan waktu. Oleh karena itu, jika prosedur mengandung banyak tugas, kita lebih baik 
menghindari cara /tindakan select / copy / paste cells tsb.
(dan itulah yg kita tunjukkan sebagai perbedaan di kedua makro di atas )

Wassalamu 'alaikum wr wb
i Haps.

2011/12/18 ghozi alkatiri <ghozialkatiri@yahoo.co.id>

>terima kasih atas tanggapannya. 
>sebenanrnya solusi yang bapak kirimkan hampir mendekati yang saya inginkan tapi rupanya ada kesalahan teknis pada hasil di kolom ke dua dan ke tiga dari hasil yang  diharapkan.
>misalkan saya menginput data 123456 di kolom A hasil yang saya inginkan adalah kopi formula dari range rujukan
>seharusnya menghasilkan nilai di kolom B 12 di kolom C 34 dan di kolom D 56 tapi pada  kenyataanya yang benar hanya hasil pada kolom B saja. sedangkan di kolom B dan C nilai apapun yang dimasukkan hasilnya selalu  cd dan ef.  
>kalau tidak merepotkan saya tunggu koreksinya.
>sekali lagi terima kasih.
>
>
>wassalam
>
>
>
>________________________________
> Dari: Edy Wiyono <edy.wiyono@yahoo.co.id>
>Dikirim: Minggu, 18 Desember 2011 17:51
>
> 
>Waalaikumsalam, Pak Ghozi
>Saya menggunakan vba untuk file contohnya.
>Mudah-mudahan bisa membantu.
>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>If Sheets("sheet1").Activate Then
>If ActiveCell.Column = 1 Then
>If Len(Cells((ActiveCell.Row - 1), ActiveCell.Column)) >= 6 Then
>a = ActiveCell.Row
>b = ActiveCell.Column
> If a = Cells(1, 100) And b = Cells(1, 101) Then
>Exit Sub
>End If
>
>Range("formula").Select
>Selection.Copy
>Cells(a - 1, b + 1).Select
>Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
>Selection.Copy
>Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
>
>Cells(1, 100) = a
>Cells(1, 101) = b
>Cells(a, b).Select
>Application.CutCopyMode = False
>ActiveWorkbook.Save
>
>End If
>End If
>End If
>End Sub
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
1d.

Re: kode macro untuk mengcopy range berfomula ke kolom di kanan cell

Posted by: "i Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Mon Dec 19, 2011 3:35 am (PST)



Ysh pak Ghozi,

*( A )*

Ada hal yg perlu mendapat perhatian; yaitu object Range : *TARGET* dan *
ActiveCell*
Keduanya (dalam Event Sheet_Change) punya address yg berbeda, bisa berbeda
jauh &
tidak tertentu perbandingan jraknya

Jika target adalah sudah FIXED yaitu *cell yg berubah *
Misalnya cell B4 di ubah dari kosong menjadi berisi data "X"
maka yg disebut sebagai TARGET (objet Range) adalah cell B4

Sedangkan *ActiveCell* adalah *cell dimana cellpointer berda ketika terjadi
perubahan.*
(*perubahan dianggap terjadi* bila *cell sudah diENTER atau cell pointer
telah meninggalkan cell target*.)
Hal ini sering lupt dari perhatian penulis VBA Excel di tahap-tahap awal.

Kita ketahui bahwa di *[ Excel Option ]* bisa diset gerakan cell ketika
kita mengenter pengisian cell
bisa = DOWN / ke CELL DI BAWAHnya bisa RIGHT / ke CELL DI KANANNYA
Tentunya emakai makro kita tidak bisa kita paksa untuk menyeragamkan
setting tsb.

Selain itu, Malah kita bisa* menyudahi penulisan di cell dengan mengklik
CELL LAIN mana saja*
yang mungkin JAUH sekali dari cell TARGET dan tempatnya pun tidak terduga !!

Jika sudah kita ketahui seperti itu keadaannya, maka pemakaiam Object *
ActiveCell*
rasanya tidak aman lagi, karena "beada di mana-kah ActiveCell saat itu",
kita tidak bisa menduganya.

Maka itu di kedua Prosedur yg Haps kirimkan tadi, tidak ada keyword
Activecell, yang ada hanya Target
yaitu demi *amannya (yakinnya) letak dan Dimensi Range* yg akan
diolah/proses,

Modifikasi dari pak Ghozi
ActiveCell.Offset(1, -1).Range("A1").Select
jika maksudnya *menSelect INPUT cell berikutnya* (cell yg berada di bawah
target yg baru saja
selesai diisi); mungkin bisa diganti dengan kode seperti ini
Target(2,1).Select
(ingat bahwa object Range Target sendiri (jika ia berupa cell tunggal) bisa
disebut dengan *Target(1,1)*
Dua buah parameter itu adalah index untuk baris dan kolom dilihat dari
titik pusatnya = Target)

Terlampir makro yg membuktikan bahwa Aktivecell *bisa tidak FIXED jaraknya
jika dilihat dari TARGET*
karena 3 (tiga) alasan tadi (bisa di kanannya, bisa dibawahnya, dan kalau
user mengakhiri pengisian cell
dengan mengklik cell lain mana saja, maka ActiveCell bisa di mana saja)

----ditulis di Module Sheet----
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
MsgBox "TARGET = " & Target.Address & vbCrLf & _
"CellAktif = " & ActiveCell.Address
End If
End Sub

adakan percobaan:
1. mengedit cell B4 / mengisi cell B4 dengan data baru
2* lalu di enter*
3. lihat MsgBox

4 ubah setting di* excel option* (mengenai arah berpindahnya cell ketika
dienter (Down / Right)
5 ulangi 1 s/d 3
6 ulangi 1
7 akhiri dengan *mengklik cell lain yg jauh dari target*
8 Lihat MessageBox

*( B )*
*
*
*VBA Code: Mengcopy range Asal ke Range Tujuan*
yang copy: Formulanya, FormatNumbers nya dan FORMAT nya

' Range ASAL di copy
Range("B1:E11").Copy

' Range Tujuan di PASTE SPECIAL: formula, & *NumberFormats*
Range("B10:E10").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats

' Range Tujuan di PASTE SPECIAL:* Formats*
Range("B10:E10").PasteSpecial Paste:=xlPasteFormats
' menghilangkan garis las vegas (range yg masih diingat di clip board
memory)
Application.CutCopyMode = xlCopy

Jika kemudian hasilnya di copy ke dirinya sendiri (VALUES nya saja)
pengcopyan format numbers dan FORMAT tidak perlu diulang
karena tidak akan terhapus oleh copy VALUES only.

Mohon di coba coba lagi, barangkali masih ada hal yg belum pass benar..

wassalamualaikum wr wb
-iHaps-

2011/12/19 ghozi alkatiri <ghozialkatiri@yahoo.co.id>

> **
> terima kasih mbak haps.
> akhirnya dengan modifikasi pada beberapa baris kode dengan referensi yang
> sudah diberikan mbak haps dan beberpa kawan lainnya saya berhasil
> mendapatkan yang saya harapkan.
> untuk koreksi di bawah ini saya tuliskan code dari mbak haps dan
> modifikasi yang saya lakukan.
>
> kode dari mbak haps
>
> Option Explicit
> Private Sub Worksheet_Change(ByVal Target As Range)
> ' iHaps // 19 dec , 2001
> ' CARA 2 : copy paste cells/formula
> '-----------------------------------
> Dim ContohRumus As Range
> Set ContohRumus = Range("B1:D1")
> If Target.Count = 1 Then
> If Target.Column = 1 Then
> If Target.Row > 9 Then
> If Not Target.Value = vbNullString Then
> ContohRumus.Copy
> Target(1, 2).PasteSpecial xlPasteFormulasAndNumberFormats
> Application.CutCopyMode = False
> ActiveCell.Offset(1, -1).Range("A1").Select ' =(bukan
> dari haps)
> Else
> Target(1, 2).Resize(1, 3).ClearContents
> End If
> End If
> End If
> End If
> End Sub
>
> modifikasi Ghozi
> Option Explicit
> Private Sub Worksheet_Change(ByVal Target As Range)
> ' iHaps // 19 dec , 2001
> ' CARA 2 : copy paste cells/formula
> '-----------------------------------
> Dim formula As Range
> Set formula = Range("B1:D1")
> If Target.Count = 1 Then
> If Target.Column = 1 Then
> If Target.Row > 9 Then
> If Not Target.Value = vbNullString Then
> formula.Copy
> Target(1, 2).PasteSpecial xlPasteFormulasAndNumberFormats
> Application.CutCopyMode = False
> *ActiveCell.*Offset(1, -1).Range("A1").Select
> Else
> Target(1, 2).Resize(1, 3).ClearContents
> End If
> End If
> End If
> End If
> End Sub
>
> hasil dari modifikasi ini sangat pas dengan yang saya inginkan. tetapi
> karena saya masih sangat awam sekali tentang macro saya ingin mendapatkan
> koreksi dari mbak haps dan teman teman lainnya apa kode hasil modifikasi
> di atas ini sudah aman untuk digunakan tanpa efek samping saya tunggu
> tanggapannya.
>
> *pertanyaan tambahan *
> bagaimana kalau dalam set hasil copy juga di pastekan format dari range
> asal
> jadi yang akan tercopy di samping nilai hasil formula juga format dari
> range asal misalkan border warna dll.
> ini efisiensi supaya tidak menggunakan conditional formating.
>
> wassalam
>
> Ghozi Alkatiri
>
> *Dari:* i Haps <hapsari.stlizbeth@gmail.com>
> *Dikirim:* Senin, 19 Desember 2011 15:48
>
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> ' iHaps // 19 dec , 2001
> ' assignment hasil expressi ke suatu cell/range
> '---------------------------------------------
> If Target.Count = 1 Then
> If Target.Column = 1 Then
> If Target.Row > 9 Then
> If Not Target.Value = vbNullString Then
> Range(Target(1, 2), Target(1, 4)).NumberFormat = "@"
> Target(1, 2) = Mid(Target.Value, 1, 2)
> Target(1, 3) = Mid(Target.Value, 3, 2)
> Target(1, 4) = Mid(Target.Value, 5, 2)
> Application.CutCopyMode = False
> Else
> *Range(Target(1, 2), Target(1, 4)).ClearContents*
> End If
> End If
> End If
> End If
> End Sub
>
> '--------------
>
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> ' iHaps // 19 dec , 2001
> ' CARA 2 : copy paste cells/formula
> '-----------------------------------
> If Target.Count = 1 Then
> If Target.Column = 1 Then
> If Target.Row > 9 Then
> If Not Target.Value = vbNullString Then
> *Range("B1:D1")*.Copy
> Target(1, 2).PasteSpecial xlPaste*Formulas*AndNumberFormats
> Target(1, 2).Resize(1, 3).Copy
> Target(1, 2).Resize(1, 3).PasteSpecial xlPaste*Values*
> Else
> *Target(1, 2).Resize(1, 3).ClearContents*
> End If
> End If
> End If
> End If
> End Sub
> '------------------
>
> Demikain Pak, mudah-mudahan menjadi semakin jelas.
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
1e.

Bls: [belajar-excel] kode macro untuk mengcopy range berfomula ke ko

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id   ghozialkatiri

Mon Dec 19, 2011 4:51 am (PST)



sekali lagi terima kasih atas pencerahan dari mbak haps yang demikian detail, jauh lebih mudah saya pahami dari pada kebanyakan buku buku referensi yang ada di pasaran.  Alkhamdulillah sebagian sudah saya terapkan dan hasilnya oke semuanya. 

wassalam

Ghozi Alkatiri

________________________________
Dari: i Haps <hapsari.stlizbeth@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 19 Desember 2011 18:35
Judul: Re: [belajar-excel] kode macro untuk mengcopy range berfomula ke kolom di kanan cell input


 
Ysh pak Ghozi,
( A )

Ada hal yg perlu mendapat perhatian; yaitu object Range : TARGET dan ActiveCell
Keduanya (dalam Event Sheet_Change)  punya address yg berbeda, bisa berbeda jauh & 
tidak tertentu perbandingan jraknya

Jika target adalah sudah FIXED yaitu cell yg berubah 
Misalnya cell B4 di ubah dari kosong menjadi berisi data "X"
maka yg disebut sebagai TARGET (objet Range) adalah cell B4

Sedangkan ActiveCelladalah cell dimana cellpointer berda ketika terjadi perubahan.
(perubahan dianggap terjadi bila cell sudah diENTER atau cell pointer telah meninggalkan cell target.)
Hal ini sering lupt dari perhatian penulis VBA Excel di tahap-tahap awal.

Kita ketahui bahwa di [ Excel Option ] bisa diset  gerakan cell ketika kita mengenter pengisian cell
bisa  = DOWN / ke CELL DI BAWAHnya  bisa RIGHT / ke CELL DI KANANNYA
Tentunya emakai makro kita tidak bisa kita paksa untuk menyeragamkan setting tsb.

Selain itu, Malah kita bisamenyudahi penulisan di cell dengan mengklik CELL LAIN mana saja
yang mungkin JAUH sekali dari cell TARGET dan tempatnya pun tidak terduga !!

Jika sudah kita ketahui seperti itu keadaannya, maka pemakaiam Object ActiveCell
rasanya tidak aman lagi, karena "beada di mana-kah ActiveCell saat itu",  kita tidak bisa menduganya.

Maka itu di kedua Prosedur yg Haps kirimkan tadi,  tidak ada keyword Activecell, yang ada hanya Target
yaitu demi amannya (yakinnya) letak dan Dimensi Range yg akan diolah/proses,

Modifikasi dari pak Ghozi
  ActiveCell.Offset(1, -1).Range("A1").Select
jika maksudnya menSelect INPUT cell berikutnya(cell yg berada di bawah target yg baru saja
selesai diisi);  mungkin bisa diganti dengan kode seperti ini
  Target(2,1).Select
(ingat bahwa object Range Target sendiri (jika ia berupa cell tunggal) bisa disebut dengan Target(1,1)
Dua buah parameter itu adalah index untuk baris dan kolom dilihat dari titik pusatnya = Target)

Terlampir makro yg membuktikan bahwa Aktivecell bisa tidak FIXED jaraknya jika dilihat dari TARGET
karena 3 (tiga) alasan tadi (bisa di kanannya, bisa dibawahnya, dan kalau user mengakhiri pengisian cell
dengan mengklik cell lain mana saja, maka ActiveCell bisa di mana saja)

----ditulis di Module Sheet----
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Count = 1 Then
      MsgBox "TARGET  = " & Target.Address & vbCrLf & _
           "CellAktif = " & ActiveCell.Address
   End If
End Sub

adakan percobaan:
1. mengedit cell B4 / mengisi cell B4 dengan data baru
2lalu di enter
3. lihat MsgBox

4 ubah setting diexcel option (mengenai arah berpindahnya cell ketika dienter (Down / Right)
5 ulangi 1 s/d 3
6 ulangi 1 
7 akhiri dengan mengklik cell lain yg jauh dari target
8 Lihat MessageBox

( B )

VBA Code: Mengcopy range Asal ke Range Tujuan
yang copy:  Formulanya, FormatNumbers nya dan FORMAT nya

   ' Range ASAL di copy
    Range("B1:E11").Copy

   'Range Tujuan di PASTE SPECIAL: formula, & NumberFormats
    Range("B10:E10").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats

   ' Range Tujuan di PASTE SPECIAL:Formats 
    Range("B10:E10").PasteSpecial Paste:=xlPasteFormats
   ' menghilangkan garis las vegas (range yg masih diingat di clip board memory) 
  Application.CutCopyMode = xlCopy

Jika kemudian hasilnya di copy ke dirinya sendiri (VALUES nya saja)
pengcopyan format numbers dan FORMAT tidak perlu diulang
karena tidak akan terhapus oleh copy VALUES only.

Mohon di coba coba lagi, barangkali masih ada hal yg belum pass benar..

wassalamualaikum wr wb
-iHaps-

2011/12/19 ghozi alkatiri <ghozialkatiri@yahoo.co.id>

>terima kasih mbak haps.
>akhirnya dengan modifikasi pada beberapa baris kode dengan referensi yang sudah diberikan mbak haps dan beberpa kawan lainnya saya berhasil mendapatkan yang saya harapkan.
>untuk koreksi di bawah ini saya tuliskan  code dari mbak haps dan modifikasi yang saya lakukan.
>
>
>kode dari mbak haps
>
>
>Option Explicit
>Private Sub Worksheet_Change(ByVal Target As Range)
>   ' iHaps // 19 dec , 2001
>   ' CARA 2  : copy paste cells/formula
>   '-----------------------------------
>   Dim ContohRumus As Range
>   Set ContohRumus = Range("B1:D1")
>   If Target.Count = 1 Then
>      If Target.Column = 1 Then
>         If Target.Row > 9 Then
>            If Not Target.Value = vbNullString Then
>               ContohRumus.Copy
>               Target(1, 2).PasteSpecial xlPasteFormulasAndNumberFormats
>               Application.CutCopyMode = False
>               ActiveCell.Offset(1, -1).Range("A1").Select  ' =(bukan dari haps)
>            Else
>               Target(1, 2).Resize(1, 3).ClearContents
>            End If
>         End If
>      End If
>   End If
>End Sub
>
>
>modifikasi Ghozi
>Option Explicit
>Private Sub Worksheet_Change(ByVal Target As Range)
>   ' iHaps // 19 dec , 2001
>   ' CARA 2  : copy paste cells/formula
>   '-----------------------------------
>   Dim formula As Range
>   Set formula = Range("B1:D1")
>   If Target.Count = 1 Then
>      If Target.Column = 1 Then
>         If Target.Row > 9 Then
>            If Not Target.Value = vbNullString Then
>               formula.Copy
>               Target(1, 2).PasteSpecial xlPasteFormulasAndNumberFormats
>               Application.CutCopyMode = False
>               ActiveCell.Offset(1, -1).Range("A1").Select
>            Else
>               Target(1, 2).Resize(1, 3).ClearContents
>            End If
>         End If
>      End If
>   End If
>End Sub
>
>
>hasil dari modifikasi ini sangat pas dengan yang saya inginkan. tetapi karena saya masih sangat awam sekali tentang macro saya ingin mendapatkan koreksi dari mbak haps dan teman teman lainnya  apa kode hasil modifikasi di atas ini sudah aman untuk digunakan tanpa efek samping saya tunggu tanggapannya.
>
>
>pertanyaan tambahan 
>bagaimana kalau dalam set hasil copy juga di pastekan format dari range asal 
>jadi yang akan tercopy di samping nilai hasil formula juga format dari range asal misalkan border warna dll.
>ini efisiensi supaya tidak menggunakan conditional formating.
>
>
>wassalam
>
>
>Ghozi Alkatiri
>
>
>Dari: i Haps <hapsari.stlizbeth@gmail.com>
>Dikirim: Senin, 19 Desember 2011 15:48
>
> 
>
>
>Private Sub Worksheet_Change(ByVal Target As Range)
>   ' iHaps // 19 dec , 2001
>   ' assignment hasil expressi ke suatu cell/range
>   '---------------------------------------------
>   If Target.Count = 1 Then
>      If Target.Column = 1 Then
>         If Target.Row > 9 Then
>            If Not Target.Value = vbNullString Then
>               Range(Target(1, 2), Target(1, 4)).NumberFormat = "@"
>               Target(1, 2) = Mid(Target.Value, 1, 2)
>               Target(1, 3) = Mid(Target.Value, 3, 2)
>               Target(1, 4) = Mid(Target.Value, 5, 2)
>               Application.CutCopyMode = False
>            Else
>               Range(Target(1, 2), Target(1, 4)).ClearContents
>            End If
>         End If
>      End If
>   End If
>End Sub
>
>
>'--------------
>
>
>
>
>Private Sub Worksheet_Change(ByVal Target As Range)
>   ' iHaps // 19 dec , 2001
>   ' CARA 2  : copy paste cells/formula
>   '-----------------------------------
>   If Target.Count = 1 Then
>      If Target.Column = 1 Then
>         If Target.Row > 9 Then
>            If Not Target.Value = vbNullString Then
>               Range("B1:D1").Copy
>               Target(1, 2).PasteSpecial xlPasteFormulasAndNumberFormats
>               Target(1, 2).Resize(1, 3).Copy
>               Target(1, 2).Resize(1, 3).PasteSpecial xlPasteValues
>            Else
>               Target(1, 2).Resize(1, 3).ClearContents
>            End If
>         End If
>      End If
>   End If
>End Sub
>'------------------
>
>
>Demikain Pak, mudah-mudahan menjadi semakin jelas.
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
2a.

Menambah ROW dengan Automatic

Posted by: "Sugeng Subagio" sugsuek96@gmail.com

Sun Dec 18, 2011 8:51 am (PST)



Selamat malam,
Saya ingin menambahkan ROW secara auto tanpa manual. Kalau saya drug maka
secara automatic ROW baru akan muncul diatasnya. Yang saya inginkan adalah
dengan menambahkan ROW baru diantara A3,A4 dan seterusnya. Untuk itu saya
tambahkan attachment sebagai bahan referensi. Atas bantuannya saya ucapkan
terima kasih.

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

Re: Menambah ROW dengan Automatic

Posted by: "i Haps" hapsari.stlizbeth@gmail.com   liz_indri_haps

Sun Dec 18, 2011 2:25 pm (PST)



Drag And Drop<http://www.dummies.com/how-to/content/using-drag-and-drop-in-excel-2007.html>
Mohon maaf saya belum mengetahui benar,maksud pertanyaan.

Terima kasih, Pak Sugeng dengan bagus telah menggambarkan Range yg akan di
SERET (GESER)
/ di - D R A G, yaitu baris 3 sampai baris 6 (entireRow)
Tetapi di-seret-nya ke arah mana?, kemudian setelah di DROP di
range-tujuan; gambaran hasil yg
diinginkan seperti apa ??

( Catatan, kalau ndak salah: dengan Selected Range berupa ENTIRE ROW
seperti itu, maka
Selected-Range itu hanya bisa di-DRAG ke arah ATAS atau BAWAH (tidak bisa
ke arah Kanan atau Kiri),
karena *lebar *SelectedRange sudah sama dgn Jumlah Kolom yg ada pada sheet
yg sedang diobok-obok..)

Dalam penjelasannya, pak Sugeng menginginkan ketika se-Area range (dlm
ukuran Entire Row) *di DRAG*
*tanpa di DROP, (jadi ada proses yg belum selesai)* maka antara cell A3
dan A4 disisipkan BARIS BARU
secara otomatis.
Permintaan ini (khusus bagi saya) belum dapat tertangkap maksudnya

Atau..
Mungkin yg dimaksud *bukan menggeser Range yg telah diblok*, melainkan
menggeser (drag)
*Fill-Handle* yg ada pada Selected Range tsb ??
Mohan tambahan penjelasan pak Sugeng;

atau pak Sugeng punya arti tersendiri untuk istilah *"DRUG"* itu ?
Jangan-jangan Istilah yg bapak gunakan (DRUG) ternyata lain sama sekali
dengan DRAG & DROP <http://en.wikipedia.org/wiki/Drag-and-drop> yg
saya duga / "tebak" di atas.

Walaupun begitu, ini dicoba membuat mainan:

*Otomatis menyisipkan baris baru *
*JIKA :*
- terjadi SELECTION *(bukan terjadi DRAG / DRUG(?)*
di mana selected range berukuran MINIMAL 2 BARIS, dan
JUMLAH KOLOM nya = sebaris PENUH (sebanyak kolom yg ada di sheet) /
(EntireRow)

Mohon dicoba, misalnya dengan *MenSelect / mengeBlok :* Header Baris 2
sampai 7
Mainan spt ini menurut pendapatku harus dibantu makro, yg kira-kira spt
ini coding-nya

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' coded by indri hapsari
' smg, dec 19, 2011, after-subuhan-prayer-time
'---------------------------------------------
If Target.Columns.Count = Columns.Count Then
If Target.Rows.Count > 1 Then
Target(2, 1).EntireRow.Insert
End If
End If
End Sub

-iHaps-

catatan:
Tidak semua excel bisa diajak ber Drag & Drop, karena setiap pemakai
excel bebas
menentukan
preferensinya sendiri, misalnya : "tak-ingin ada operasi draft & drop
menghasilkan
pemndahan &
pengcopyan data di excel nya"
Lihat "Excel Options" >> Tab Advance > checkbox "Enable *Fill Handale*
and*'Drag-and-Drop
*'
[image: fill handel & cell drag and drop.PNG]

2011/12/18 Sugeng Subagio <sugsuek96@gmail.com>

> **
>
> Selamat malam,
> Saya ingin menambahkan ROW secara auto tanpa manual. Kalau saya *drug *maka
> secara automatic ROW baru akan muncul diatasnya. Yang saya inginkan adalah
> dengan menambahkan ROW baru diantara A3,A4 dan seterusnya. Untuk itu saya
> tambahkan attachment sebagai bahan referensi. Atas bantuannya saya ucapkan
> terima kasih.
>
> Wass,
> Sugeng
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
3a.

Bls: [belajar-excel] Menampilkan data sesuai kategori dan karakter s

Posted by: "Winda Miranti" winda_1504@yahoo.co.id   winda_1504

Sun Dec 18, 2011 6:50 pm (PST)



Dear Mr.Kid

Trimakasi atas jawabanya Mr.Kid..

Data tersebut bukan merupakan hasil pivot tabel..
Pisang dan bebek tidak ikut diambil karena data yg berada dibawah data yg memiliki spasi tidak di ambil..
Dan bgmn kah cara agar data tersebut muncul sesuai dengan kategori nya?

Mohon pencerahanya sekali lagi Mr.Kid :)

Regards,
Winda

________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Sabtu, 17 Desember 2011 13:46
Judul: Re: [belajar-excel] Menampilkan data sesuai kategori dan karakter spasi


 
Dear Winda,

Sebaiknya, datanya diberi penanda, kemudian susun dengan cara yang lebih standar, misal menjadi per kolom. Lebih baik lagi jika berupa tabek yang baik.
Jika data adalah hasil dari pivot table, kenapa Pisang dan bebek tidak ikut diambil ya. Mungkin bukan hasil pivot table.

Kid.

2011/12/17 Winda Miranti <winda_1504@yahoo.co.id>

> 
>Dear Pakar-pakar XL,
> 
>Saya mau bertanya lagi mengenai memfilteran data..
>Bgmn caranya untuk memfilter data yg <2 spasi dan data yg berada setelah spasi tersebut tidak ditampilkan..
>Kemudian dikelompokan berdasarkan kategorinya..
>Trimkasi pakar-pakar XL :D
> 
>Regards,
>Winda

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

Re: Menampilkan data sesuai kategori dan karakter spasi

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

Sun Dec 18, 2011 6:51 pm (PST)



Bisa dijelaskan lebih detil, karakteristik data yang masuk sebagai kategori
itu apa saja.

Kid.

2011/12/19 Winda Miranti <winda_1504@yahoo.co.id>

> **
>
>
> Dear Mr.Kid
>
> Trimakasi atas jawabanya Mr.Kid..
> Data tersebut bukan merupakan hasil pivot tabel..
> Pisang dan bebek tidak ikut diambil karena data yg berada dibawah data yg
> memiliki spasi tidak di ambil..
> Dan bgmn kah cara agar data tersebut muncul sesuai dengan kategori nya?
>
> Mohon pencerahanya sekali lagi Mr.Kid :)
>
>
> Regards,
> Winda
>
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Sabtu, 17 Desember 2011 13:46
> *Judul:* Re: [belajar-excel] Menampilkan data sesuai kategori dan
> karakter spasi
>
>
> Dear Winda,
>
> Sebaiknya, datanya diberi penanda, kemudian susun dengan cara yang lebih
> standar, misal menjadi per kolom. Lebih baik lagi jika berupa tabek yang
> baik.
> Jika data adalah hasil dari pivot table, kenapa Pisang dan bebek tidak
> ikut diambil ya. Mungkin bukan hasil pivot table.
>
> Kid.
>
> 2011/12/17 Winda Miranti <winda_1504@yahoo.co.id>
>
> **
>
> Dear Pakar-pakar XL,
>
> Saya mau bertanya lagi mengenai memfilteran data..
> Bgmn caranya untuk memfilter data yg <2 spasi dan data yg berada setelah
> spasi tersebut tidak ditampilkan..
> Kemudian dikelompokan berdasarkan kategorinya..
> Trimkasi pakar-pakar XL :D
>
> Regards,
> Winda
>
>
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
3c.

Bls: [belajar-excel] Menampilkan data sesuai kategori dan karakter s

Posted by: "Winda Miranti" winda_1504@yahoo.co.id   winda_1504

Sun Dec 18, 2011 7:36 pm (PST)



Jadi data yang keluar itu sesuai dengan kategorinya, hewan atau buah
setelah difilter dari jumlah spasi
kl jumlah spasinya lebih atau sama dengan 2 tidak dimunculkan (kelinci)

bgtu juga data  yg ada setelah/dibawah data yg menggunakan spasi tidak dimunculkan (bebek, rusa, kijang)

Jadi output yang dikeluarkan untuk kategori hewan adalah ayam saja

Bgtu juga dengan buah :)

________________________________
Dari: Kid Mr. <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 19 Desember 2011 9:51
Judul: Re: [belajar-excel] Menampilkan data sesuai kategori dan karakter spasi


 
Bisa dijelaskan lebih detil, karakteristik data yang masuk sebagai kategori itu apa saja.

Kid.

2011/12/19 Winda Miranti <winda_1504@yahoo.co.id>

> 
>Dear Mr.Kid
>
>
>Trimakasi atas jawabanya Mr.Kid..
>
>Data tersebut bukan merupakan hasil pivot tabel..
>Pisang dan bebek tidak ikut diambil karena data yg berada dibawah data yg memiliki spasi tidak di ambil..
>Dan bgmn kah cara agar data tersebut muncul sesuai dengan kategori nya?
>
>
>Mohon pencerahanya sekali lagi Mr.Kid :)
>
>
>
>
>Regards,
>Winda
>
>
>
>________________________________
> Dari: Kid Mr. <mr.nmkid@gmail.com>
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Sabtu, 17 Desember 2011 13:46
>Judul: Re: [belajar-excel] Menampilkan data sesuai kategori dan karakter spasi
>
>
>
> 
>Dear Winda,
>
>Sebaiknya, datanya diberi penanda, kemudian susun dengan cara yang lebih standar, misal menjadi per kolom. Lebih baik lagi jika berupa tabek yang baik.
>Jika data adalah hasil dari pivot table, kenapa Pisang dan bebek tidak ikut diambil ya. Mungkin bukan hasil pivot table.
>
>Kid.
>
>
>2011/12/17 Winda Miranti <winda_1504@yahoo.co.id>
>
>
>> 
>>Dear Pakar-pakar XL,
>> 
>>Saya mau bertanya lagi mengenai memfilteran data..
>>Bgmn caranya untuk memfilter data yg <2 spasi dan data yg berada setelah spasi tersebut tidak ditampilkan..
>>Kemudian dikelompokan berdasarkan kategorinya..
>>Trimkasi pakar-pakar XL :D
>> 
>>Regards,
>>Winda
>
>
>

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

Re: Menampilkan data sesuai kategori dan karakter spasi

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

Sun Dec 18, 2011 7:54 pm (PST)



Kalau file attachment yang dulu masih belum dikembangkan, coba file
attachment yang ini dikembangkan.

Kid.

2011/12/19 Winda Miranti <winda_1504@yahoo.co.id>

> **
>
>
> Jadi data yang keluar itu sesuai dengan kategorinya, hewan atau buah
> setelah difilter dari jumlah spasi
> kl jumlah spasinya lebih atau sama dengan 2 tidak dimunculkan (kelinci)
> bgtu juga data yg ada setelah/dibawah data yg menggunakan spasi tidak
> dimunculkan (bebek, rusa, kijang)
>
> Jadi output yang dikeluarkan untuk kategori hewan adalah ayam saja
>
> Bgtu juga dengan buah :)
>
>
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Senin, 19 Desember 2011 9:51
>
> *Judul:* Re: [belajar-excel] Menampilkan data sesuai kategori dan
> karakter spasi
>
>
> Bisa dijelaskan lebih detil, karakteristik data yang masuk sebagai
> kategori itu apa saja.
>
> Kid.
>
> 2011/12/19 Winda Miranti <winda_1504@yahoo.co.id>
>
> **
>
> Dear Mr.Kid
>
> Trimakasi atas jawabanya Mr.Kid..
> Data tersebut bukan merupakan hasil pivot tabel..
> Pisang dan bebek tidak ikut diambil karena data yg berada dibawah data yg
> memiliki spasi tidak di ambil..
> Dan bgmn kah cara agar data tersebut muncul sesuai dengan kategori nya?
>
> Mohon pencerahanya sekali lagi Mr.Kid :)
>
>
> Regards,
> Winda
>
> ------------------------------
> *Dari:* Kid Mr. <mr.nmkid@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Sabtu, 17 Desember 2011 13:46
> *Judul:* Re: [belajar-excel] Menampilkan data sesuai kategori dan
> karakter spasi
>
>
> Dear Winda,
>
> Sebaiknya, datanya diberi penanda, kemudian susun dengan cara yang lebih
> standar, misal menjadi per kolom. Lebih baik lagi jika berupa tabek yang
> baik.
> Jika data adalah hasil dari pivot table, kenapa Pisang dan bebek tidak
> ikut diambil ya. Mungkin bukan hasil pivot table.
>
> Kid.
>
> 2011/12/17 Winda Miranti <winda_1504@yahoo.co.id>
>
> **
>
> Dear Pakar-pakar XL,
>
> Saya mau bertanya lagi mengenai memfilteran data..
> Bgmn caranya untuk memfilter data yg <2 spasi dan data yg berada setelah
> spasi tersebut tidak ditampilkan..
> Kemudian dikelompokan berdasarkan kategorinya..
> Trimkasi pakar-pakar XL :D
>
> Regards,
> Winda
>
>
>
>
>
>
>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
4a.

mencari nilai dengan meringkas data

Posted by: "Budhi Cahyanto" budhi.cahyanto@suryajayaenergy.com

Sun Dec 18, 2011 10:06 pm (PST)



Dear exceller,

Bagaimana mencari nilai pada kolom D dengan cara meringkas dari 3 kolom
(D-E-F) sehingga cukup 1 kolom aja dari nilai score yang ada (pada kolom B).

Syarat score :

=< 50 : x 0,5

51 - 80 : x 1

>= 81 : x 1,5

Jadi ketika saya memasukan score seperti di kolom B, langsung keluar
hasilnya seperti di kolom D sehingga saya tidak perlu menuliskan row D3 - F3
untuk menghitungnya.

Thanks

Please consider the environment before printing this email.

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

Re: mencari nilai dengan meringkas data

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

Sun Dec 18, 2011 10:18 pm (PST)



Hai Budhi,

Dengan dibantu batas-batas interval, bisa menggunakan formula :
=($B17>C$13)*($B17<=D$13)*D$15*$A17*$C17

File terlampir

Kid.

2011/12/19 Budhi Cahyanto <budhi.cahyanto@suryajayaenergy.com>

> Dear exceller, ****
>
> ** **
>
> Bagaimana mencari nilai pada kolom D dengan cara meringkas dari 3 kolom
> (D-E-F) sehingga cukup 1 kolom aja dari nilai score yang ada (pada kolom
> B). ****
>
> Syarat score : ****
>
> =< 50 : x 0,5****
>
> 51 � 80 : x 1****
>
> >= 81 : x 1,5****
>
> ** **
>
> Jadi ketika saya memasukan score seperti di kolom B, langsung keluar
> hasilnya seperti di kolom D sehingga saya tidak perlu menuliskan row D3 �
> F3 untuk menghitungnya. ****
>
> ** **
>
> Thanks****
>
> Please consider the environment before printing this email.****
>
> ** **
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
4c.

Re: mencari nilai dengan meringkas data

Posted by: "Budhi Cahyanto" budhi.cahyanto@suryajayaenergy.com

Mon Dec 19, 2011 12:21 am (PST)



Hai pak Kid,

Thanks untuk formulasi.

Yang ingin diperoleh dengan meringkas data adalah cukup 1 kolom saja dari 3
kolom seperti contoh.

Fokus penekanan pada kolom B, artinya ketika kita memasukan score (mis.)
75,00 maka langsung diperoleh hasil X.

Ketika score 65,00, hasil yang diperoleh X, dst.

Sesuai kondisi yang ada :

Dibawah score 50,00 pengalinya 0,5

Score 51,00 - 80,00 pengalinya 1

Dan score di atas 81,00 pengalinya 1,5.

Jadi dari 3 kolom, diringkas menjadi 1 kolom.

Thanks pak Kid untuk response'nya.

Regards,

Budhi Cahyanto

Please consider the environment before printing this email.

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Kid Mr.
Sent: 19 Desember 2011 13:18
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] mencari nilai dengan meringkas data

Hai Budhi,

Dengan dibantu batas-batas interval, bisa menggunakan formula :
=($B17>C$13)*($B17<=D$13)*D$15*$A17*$C17

File terlampir

Kid.

2011/12/19 Budhi Cahyanto <budhi.cahyanto@suryajayaenergy.com>

Dear exceller,

Bagaimana mencari nilai pada kolom D dengan cara meringkas dari 3 kolom
(D-E-F) sehingga cukup 1 kolom aja dari nilai score yang ada (pada kolom B).

Syarat score :

=< 50 : x 0,5

51 - 80 : x 1

>= 81 : x 1,5

Jadi ketika saya memasukan score seperti di kolom B, langsung keluar
hasilnya seperti di kolom D sehingga saya tidak perlu menuliskan row D3 - F3
untuk menghitungnya.

Thanks

Please consider the environment before printing this email.

_____

Tidak ditemukan virus dalam pesan ini.
Diperiksa oleh AVG - www.avg.com
Versi: 2012.0.1890 / Basis Data Virus: 2108/4689 - Tanggal Rilis:
18-Des-2011

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

Re: mencari nilai dengan meringkas data

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

Mon Dec 19, 2011 12:24 am (PST)



Hai Budhi,

Coba formula : (untuk data di baris 17)
=A17*C17*INDEX({0.5,1,1.5},MATCH(B17,{0,50.000001,80.000001},1))

Kid.

2011/12/19 Budhi Cahyanto <budhi.cahyanto@suryajayaenergy.com>

> Hai pak Kid, ****
>
> ** **
>
> Thanks untuk formulasi. ****
>
> Yang ingin diperoleh dengan meringkas data adalah cukup 1 kolom saja dari
> 3 kolom seperti contoh. ****
>
> Fokus penekanan pada kolom B, artinya ketika kita memasukan score (mis.)
> 75,00 maka langsung diperoleh hasil X. ****
>
> Ketika score 65,00, hasil yang diperoleh X, dst.****
>
> ** **
>
> Sesuai kondisi yang ada : ****
>
> Dibawah score 50,00 pengalinya 0,5****
>
> Score 51,00 � 80,00 pengalinya 1****
>
> Dan score di atas 81,00 pengalinya 1,5. ****
>
> ** **
>
> Jadi dari 3 kolom, diringkas menjadi 1 kolom. ****
>
> ** **
>
> Thanks pak Kid untuk response�nya. ****
>
> ** **
>
> Regards, ****
>
> Budhi Cahyanto****
>
> Please consider the environment before printing this email.****
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Kid Mr.
> *Sent:* 19 Desember 2011 13:18
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] mencari nilai dengan meringkas data****
>
> ** **
>
> Hai Budhi,
>
> Dengan dibantu batas-batas interval, bisa menggunakan formula :
> =($B17>C$13)*($B17<=D$13)*D$15*$A17*$C17
>
> File terlampir
>
> Kid.****
>
> 2011/12/19 Budhi Cahyanto <budhi.cahyanto@suryajayaenergy.com>****
>
> Dear exceller, ****
>
> ****
>
> Bagaimana mencari nilai pada kolom D dengan cara meringkas dari 3 kolom
> (D-E-F) sehingga cukup 1 kolom aja dari nilai score yang ada (pada kolom
> B). ****
>
> Syarat score : ****
>
> =< 50 : x 0,5****
>
> 51 � 80 : x 1****
>
> >= 81 : x 1,5****
>
> ****
>
> Jadi ketika saya memasukan score seperti di kolom B, langsung keluar
> hasilnya seperti di kolom D sehingga saya tidak perlu menuliskan row D3 �
> F3 untuk menghitungnya. ****
>
> ****
>
> Thanks****
>
> Please consider the environment before printing this email.****
>
> ****
>
> ** **
> ------------------------------
>
> Tidak ditemukan virus dalam pesan ini.
> Diperiksa oleh AVG - www.avg.com
> Versi: 2012.0.1890 / Basis Data Virus: 2108/4689 - Tanggal Rilis:
> 18-Des-2011****
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
4e.

Re: mencari nilai dengan meringkas data

Posted by: "Budhi Cahyanto" budhi.cahyanto@suryajayaenergy.com

Mon Dec 19, 2011 2:05 am (PST)



It works pak Kid.

Thanks a lots for the support.

Please consider the environment before printing this email.

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Kid Mr.
Sent: 19 Desember 2011 15:24
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] mencari nilai dengan meringkas data

Hai Budhi,

Coba formula : (untuk data di baris 17)
=A17*C17*INDEX({0.5,1,1.5},MATCH(B17,{0,50.000001,80.000001},1))

Kid.

2011/12/19 Budhi Cahyanto <budhi.cahyanto@suryajayaenergy.com>

Hai pak Kid,

Thanks untuk formulasi.

Yang ingin diperoleh dengan meringkas data adalah cukup 1 kolom saja dari 3
kolom seperti contoh.

Fokus penekanan pada kolom B, artinya ketika kita memasukan score (mis.)
75,00 maka langsung diperoleh hasil X.

Ketika score 65,00, hasil yang diperoleh X, dst.

Sesuai kondisi yang ada :

Dibawah score 50,00 pengalinya 0,5

Score 51,00 - 80,00 pengalinya 1

Dan score di atas 81,00 pengalinya 1,5.

Jadi dari 3 kolom, diringkas menjadi 1 kolom.

Thanks pak Kid untuk response'nya.

Regards,

Budhi Cahyanto

Please consider the environment before printing this email.

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Kid Mr.
Sent: 19 Desember 2011 13:18
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] mencari nilai dengan meringkas data

Hai Budhi,

Dengan dibantu batas-batas interval, bisa menggunakan formula :
=($B17>C$13)*($B17<=D$13)*D$15*$A17*$C17

File terlampir

Kid.

2011/12/19 Budhi Cahyanto <budhi.cahyanto@suryajayaenergy.com>

Dear exceller,

Bagaimana mencari nilai pada kolom D dengan cara meringkas dari 3 kolom
(D-E-F) sehingga cukup 1 kolom aja dari nilai score yang ada (pada kolom B).

Syarat score :

=< 50 : x 0,5

51 - 80 : x 1

>= 81 : x 1,5

Jadi ketika saya memasukan score seperti di kolom B, langsung keluar
hasilnya seperti di kolom D sehingga saya tidak perlu menuliskan row D3 - F3
untuk menghitungnya.

Thanks

Please consider the environment before printing this email.

_____

Tidak ditemukan virus dalam pesan ini.
Diperiksa oleh AVG - www.avg.com
Versi: 2012.0.1890 / Basis Data Virus: 2108/4689 - Tanggal Rilis:
18-Des-2011

_____

Tidak ditemukan virus dalam pesan ini.
Diperiksa oleh AVG - www.avg.com
Versi: 2012.0.1890 / Basis Data Virus: 2108/4689 - Tanggal Rilis:
18-Des-2011

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

Fw: Trs: membuat grafik pembanding

Posted by: "anim hadi_susanto" ahadisusanto@yahoo.com   ahadisusanto

Mon Dec 19, 2011 1:05 am (PST)



  

Teman milis belajar excel, mohon bantuannya:

saya pingin hasil grafik kayak disebelah kiri yang sudah jadi, data kanan,

Setiap aku buat selalu thp1 ngumpul tidak bisa langsung dibandingkan kayak gambar yang sudah jadi,
gimana ya caranya, file terlampir
 
terima kasih
ahadi
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
5b.

Re: Fw: Trs: membuat grafik pembanding

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

Mon Dec 19, 2011 1:20 am (PST)



Mas Aan,
Coba file terlampir, semoga sesua keinginan.
Susunan data dirubah dikit.
Selamat mencoba
-zainul-

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of anim hadi_susanto
Sent: Monday, December 19, 2011 4:04 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Fw: Trs: membuat grafik pembanding

 
  

Teman milis belajar excel, mohon bantuannya:

saya pingin hasil grafik kayak disebelah kiri yang sudah jadi, data kanan,

Setiap aku buat selalu thp1 ngumpul tidak bisa langsung dibandingkan kayak
gambar yang sudah jadi,
gimana ya caranya, file terlampir
 
terima kasih
ahadi

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

Re: Fw: Trs: membuat grafik pembanding

Posted by: "anim hadi_susanto" ahadisusanto@yahoo.com   ahadisusanto

Mon Dec 19, 2011 2:05 am (PST)



 terima kasih Mas-zainul- atas bantuannya

salam persahabatan
ahadi

________________________________
From: zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, December 19, 2011 4:20 PM
Subject: RE: [belajar-excel] Fw: Trs: membuat grafik pembanding


 
Mas Aan,
Coba file terlampir, semoga sesua keinginan.
Susunan data dirubah dikit.
Selamat mencoba
-zainul-

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of anim hadi_susanto
Sent: Monday, December 19, 2011 4:04 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Fw: Trs: membuat grafik pembanding

 
  

Teman milis belajar excel, mohon bantuannya:

saya pingin hasil grafik kayak disebelah kiri yang sudah jadi, data kanan,

Setiap aku buat selalu thp1 ngumpul tidak bisa langsung dibandingkan kayak
gambar yang sudah jadi,
gimana ya caranya, file terlampir
 
terima kasih
ahadi

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
Recent Activity
Visit Your Group
Yahoo! Groups

Small Business Group

Ask questions,

share experiences

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Mental Health Zone

Bi-polar disorder

Find support

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 06.12

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)