4 New Messages
Digest #2742
2b
Re: Small tip - Copy beberapa sel beda kolom sekaligus [1 Attachment by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
2c
Fw: [belajar-excel] Small tip - Copy beberapa sel beda kolom sekalig by "hendrik karnadi" hendrikkarnadi
Messages
Tue Jan 21, 2014 4:57 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hehehe...
ada-ada aja...
sekedar ide awal saja kok.. supaya BeExceller punya gambaran lain untuk
mengutak atiknya.
coba deh diutak atik menghilangkan bagian IFError nya, nanti jadi lebih
pendek dan bisa digunakan oleh semua versi.
ditunggu ya formula tanpa IFError-nya.
:)
Wassalam,
Kid.
2014/1/21 Bagus <bagus@kingjim.co.id>
>
>
> Woooww....... MANTRAPPP.....
>
> Mister yang satu ini Emang.. Oey....
>
> TOP MARKOTOP...
>
>
>
> Wassalam
>
> ~ Bagus ~
>
>
>
> ----- Original Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.com>
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Sent:* Tuesday, January 21, 2014 7:18 PM
> *Subject:* Re: [belajar-excel] RE: Memisahkan nama dari history bank?????
>
>
>
> Hai Shenly,
>
> Mungkin begini :
> =IFERROR(TRIM(MID(LEFT(B2,FIND(" S1",B2&"
> S1")-1),LOOKUP(9^9,FIND({"DARI"," KE "},B2))+4,99)),"")
>
> Wassalam,
> Kid.
>
>
>
> 2014/1/21 Shenly <shenly_excelmania@yahoo.co.id>
>
>>
>>
>> oh ia maaf lupa, ini file contohnya, terlampir.... ^^
>>
>> Salam
>> Shenly ^^*
>>
>>
>> Pada Selasa, 21 Januari 2014 17:34, "dya27_biznies@yahoo.co.id" <
>> dya27_biznies@yahoo.co.id> menulis:
>>
>> sample data nya mana ya?
>>
>>
>>
>
>
ada-ada aja...
sekedar ide awal saja kok.. supaya BeExceller punya gambaran lain untuk
mengutak atiknya.
coba deh diutak atik menghilangkan bagian IFError nya, nanti jadi lebih
pendek dan bisa digunakan oleh semua versi.
ditunggu ya formula tanpa IFError-nya.
:)
Wassalam,
Kid.
2014/1/21 Bagus <bagus@kingjim.
>
>
> Woooww......
>
> Mister yang satu ini Emang.. Oey....
>
> TOP MARKOTOP...
>
>
>
> Wassalam
>
> ~ Bagus ~
>
>
>
> ----- Original Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* BeExcel <belajar-excel@
> *Sent:* Tuesday, January 21, 2014 7:18 PM
> *Subject:* Re: [belajar-excel] RE: Memisahkan nama dari history bank?????
>
>
>
> Hai Shenly,
>
> Mungkin begini :
> =IFERROR(TRIM(
> S1")-1)
>
> Wassalam,
> Kid.
>
>
>
> 2014/1/21 Shenly <shenly_excelmania@
>
>>
>>
>> oh ia maaf lupa, ini file contohnya, terlampir...
>>
>> Salam
>> Shenly ^^*
>>
>>
>> Pada Selasa, 21 Januari 2014 17:34, "dya27_biznies@
>> dya27_biznies@
>>
>> sample data nya mana ya?
>>
>>
>>
>
>
Tue Jan 21, 2014 7:11 pm (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Dear Be Excelers,
Pernahkah kita mencoba mengcopy beberapa sel beda kolom sekaligus, mis. A1,B3,C12,D7
Pasti akan ada pesan "That command can not be used on multiple selection"
Hal tersebut bisa dilakukan dengan macro berikut ini:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rSel As String
Dim rRng As Range
Dim cCol As New Collection 'kumpulan variabel (ngutip ide pak DE)
Dim i as Integer
If Target.Row = 1 And Target.Column = 5 Then 'jika cell pointer ada pada E1
rSel = Range("E1").Value'simpan nilai E1(string) pada variabel rSel
Set rRng = Sheet1.Range(rSel) 'simpan variabel rSel dlm variabel rRng
For Each Rng In rRng'untuk setiap var Rng yang ada dalam var rRng
cCol.Add (Rng) 'tambahkan var Rng ke dalam var cCol
Next Rng
For i = 1 To cCol.Count 'selama i = 1 s/d jumlah item dalam var cCol
Range("F" & i) = cCol(i) 'tulis var cCol item i pada Range("Fi")
Next i
End If
Cancel = True'Batalkan perintah double click
End Sub
Untuk melaksanakan hal tersebut sel2 yang akan dicopy ditulis pada Range("E1"), kemudian double click pada sel E1.
File uji coba terlampir.
Semoga bermanfaat.
Salam,
HK
Pernahkah kita mencoba mengcopy beberapa sel beda kolom sekaligus, mis. A1,B3,C12,D7
Pasti akan ada pesan "That command can not be used on multiple selection"
Hal tersebut bisa dilakukan dengan macro berikut ini:
Private Sub Worksheet_BeforeDou
Dim rSel As String
Dim rRng As Range
Dim cCol As New Collection 'kumpulan variabel (ngutip ide pak DE)
Dim i as Integer
If Target.Row = 1 And Target.Column = 5 Then 'jika cell pointer ada pada E1
rSel = Range("
Set rRng = Sheet1.Range(
For Each Rng In rRng'untuk setiap var Rng yang ada dalam var rRng
cCol.Add (Rng) 'tambahkan var Rng ke dalam var cCol
Next Rng
For i = 1 To cCol.Count 'selama i = 1 s/d jumlah item dalam var cCol
Range("
Next i
End If
Cancel = True'Batalkan perintah double click
End Sub
Untuk melaksanakan hal tersebut sel2 yang akan dicopy ditulis pada Range("
File uji coba terlampir.
Semoga bermanfaat.
Salam,
HK
Tue Jan 21, 2014 7:42 pm (PST) . Posted by:
"zainul_ulum[at]yahoo[dot]com" zainul_ulum
Pak HK,
saya coba iseng modif dengan alternative lainnya:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim rgAsal As Range, rg As Range, i As Integer
Set rgAsal = Range([E1])
i = -1
For Each rg In rgAsal
i = i + 1
[F1].Offset(i, 0) = rg.Value
Next
Cancel = True
End Sub
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of hendrik karnadi
Sent: Wednesday, January 22, 2014 10:11 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Small tip - Copy beberapa sel beda kolom sekaligus
[1 Attachment]
Dear Be Excelers,
Pernahkah kita mencoba mengcopy beberapa sel beda kolom sekaligus, mis.
A1,B3,C12,D7
Pasti akan ada pesan "That command can not be used on multiple selection"
Hal tersebut bisa dilakukan dengan macro berikut ini:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim rSel As String
Dim rRng As Range
Dim cCol As New Collection 'kumpulan variabel (ngutip ide pak DE)
Dim i as Integer
If Target.Row = 1 And Target.Column = 5 Then 'jika cell pointer ada pada
E1
rSel = Range("E1").Value 'simpan nilai E1(string) pada variabel rSel
Set rRng = Sheet1.Range(rSel) 'simpan variabel rSel dlm variabel
rRng
For Each Rng In rRng 'untuk setiap var Rng yang ada dalam var rRng
cCol.Add (Rng) 'tambahkan var Rng ke dalam var cCol
Next Rng
For i = 1 To cCol.Count 'selama i = 1 s/d jumlah item dalam var cCol
Range("F" & i) = cCol(i) 'tulis var cCol item i pada Range("Fi")
Next i
End If
Cancel = True 'Batalkan perintah double click
End Sub
Untuk melaksanakan hal tersebut sel2 yang akan dicopy ditulis pada
Range("E1"), kemudian double click pada sel E1.
File uji coba terlampir.
Semoga bermanfaat.
Salam,
HK
saya coba iseng modif dengan alternative lainnya:
Private Sub Worksheet_BeforeDou
Boolean)
Dim rgAsal As Range, rg As Range, i As Integer
Set rgAsal = Range([E1])
i = -1
For Each rg In rgAsal
i = i + 1
[F1].Offset(
Next
Cancel = True
End Sub
From: belajar-excel@
On Behalf Of hendrik karnadi
Sent: Wednesday, January 22, 2014 10:11 AM
To: belajar-excel@
Subject: [belajar-excel] Small tip - Copy beberapa sel beda kolom sekaligus
[1 Attachment]
Dear Be Excelers,
Pernahkah kita mencoba mengcopy beberapa sel beda kolom sekaligus, mis.
A1,B3,C12,D7
Pasti akan ada pesan "That command can not be used on multiple selection"
Hal tersebut bisa dilakukan dengan macro berikut ini:
Private Sub Worksheet_BeforeDou
Boolean)
Dim rSel As String
Dim rRng As Range
Dim cCol As New Collection 'kumpulan variabel (ngutip ide pak DE)
Dim i as Integer
If Target.Row = 1 And Target.Column = 5 Then 'jika cell pointer ada pada
E1
rSel = Range("
Set rRng = Sheet1.Range(
rRng
For Each Rng In rRng 'untuk setiap var Rng yang ada dalam var rRng
cCol.Add (Rng) 'tambahkan var Rng ke dalam var cCol
Next Rng
For i = 1 To cCol.Count 'selama i = 1 s/d jumlah item dalam var cCol
Range("
Next i
End If
Cancel = True 'Batalkan perintah double click
End Sub
Untuk melaksanakan hal tersebut sel2 yang akan dicopy ditulis pada
Range("
File uji coba terlampir.
Semoga bermanfaat.
Salam,
HK
Tue Jan 21, 2014 9:43 pm (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Terima kasih pak Zainal.
Code dan loopingnya menjadi lebih singkat..
Salam,
HK
On Wednesday, 22 January 2014, 10:42, zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com> wrote:
Pak HK,
saya coba iseng modif dengan alternative lainnya:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim rgAsal As Range, rg As Range, i As Integer
Set rgAsal = Range([E1])
i = -1
For Each rg In rgAsal
i = i + 1
[F1].Offset(i, 0) = rg.Value
Next
Cancel = True
End Sub
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of hendrik karnadi
Sent: Wednesday, January 22, 2014 10:11 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Small tip - Copy beberapa sel beda kolom sekaligus
[1 Attachment]
Dear Be Excelers,
Pernahkah kita mencoba mengcopy beberapa sel beda kolom sekaligus, mis.
A1,B3,C12,D7
Pasti akan ada pesan "That command can not be used on multiple selection"
Hal tersebut bisa dilakukan dengan macro berikut ini:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim rSel As String
Dim rRng As Range
Dim cCol As New Collection 'kumpulan variabel (ngutip ide pak DE)
Dim i as Integer
If Target.Row = 1 And Target.Column = 5 Then 'jika cell pointer ada pada
E1
rSel = Range("E1").Value 'simpan nilai E1(string) pada variabel rSel
Set rRng = Sheet1.Range(rSel) 'simpan variabel rSel dlm variabel
rRng
For Each Rng In rRng 'untuk setiap var Rng yang ada dalam var rRng
cCol.Add (Rng) 'tambahkan var Rng ke dalam var cCol
Next Rng
For i = 1 To cCol.Count 'selama i = 1 s/d jumlah item dalam var cCol
Range("F" & i) = cCol(i) 'tulis var cCol item i pada Range("Fi")
Next i
End If
Cancel = True 'Batalkan perintah double click
End Sub
Untuk melaksanakan hal tersebut sel2 yang akan dicopy ditulis pada
Range("E1"), kemudian double click pada sel E1.
File uji coba terlampir.
Semoga bermanfaat.
Salam,
HK
Code dan loopingnya menjadi lebih singkat..
Salam,
HK
On Wednesday, 22 January 2014, 10:42, zainul_ulum[
Pak HK,
saya coba iseng modif dengan alternative lainnya:
Private Sub Worksheet_BeforeDou
Boolean)
Dim rgAsal As Range, rg As Range, i As Integer
Set rgAsal = Range([E1])
i = -1
For Each rg In rgAsal
i = i + 1
[F1].Offset(
Next
Cancel = True
End Sub
From: belajar-excel@
On Behalf Of hendrik karnadi
Sent: Wednesday, January 22, 2014 10:11 AM
To: belajar-excel@
Subject: [belajar-excel] Small tip - Copy beberapa sel beda kolom sekaligus
[1 Attachment]
Dear Be Excelers,
Pernahkah kita mencoba mengcopy beberapa sel beda kolom sekaligus, mis.
A1,B3,C12,D7
Pasti akan ada pesan "That command can not be used on multiple selection"
Hal tersebut bisa dilakukan dengan macro berikut ini:
Private Sub Worksheet_BeforeDou
Boolean)
Dim rSel As String
Dim rRng As Range
Dim cCol As New Collection 'kumpulan variabel (ngutip ide pak DE)
Dim i as Integer
If Target.Row = 1 And Target.Column = 5 Then 'jika cell pointer ada pada
E1
rSel = Range("
Set rRng = Sheet1.Range(
rRng
For Each Rng In rRng 'untuk setiap var Rng yang ada dalam var rRng
cCol.Add (Rng) 'tambahkan var Rng ke dalam var cCol
Next Rng
For i = 1 To cCol.Count 'selama i = 1 s/d jumlah item dalam var cCol
Range("
Next i
End If
Cancel = True 'Batalkan perintah double click
End Sub
Untuk melaksanakan hal tersebut sel2 yang akan dicopy ditulis pada
Range("
File uji coba terlampir.
Semoga bermanfaat.
Salam,
HK
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar