Rabu, 28 November 2012

[belajar-excel] Digest Number 1937

15 New Messages

Digest #1937
2a
4a
Re: trap if fail to open password protected excel by "the_x_mikey@yahoo.com" the_x_mikey
4b
Re: trap if fail to open password protected excel by "Mr. Kid" nmkid.family@ymail.com
5b
Re: Mohon bantuan tentang input data.... by "Mr. Kid" nmkid.family@ymail.com
6a
Cari data yang sama barisnya n nilainya by "Andre Rahmaidy Teeza" andre_teeza_bn
6b
Re: Cari data yang sama barisnya n nilainya by "Mr. Kid" nmkid.family@ymail.com
8a
Ambil satu nama Kota dari nama yang banyak by "Agus Erwanto" erwanto_agus

Messages

Wed Nov 28, 2012 2:55 pm (PST) . Posted by:

"ghozi alkatiri" ghozialkatiri

formula di D2
=LOOKUP(2;1/A$2:A2;A$2:A2)&B2
copy ke bawah

wassalam

Ghozi Alkatiri

________________________________
Dari: Mansor <dbpermatasari@gmail.com>
Kepada: belajar-excel <belajar-excel@yahoogroups.com>
Dikirim: Rabu, 28 November 2012 21:27
Judul: [belajar-excel] Menggabungkan 2 kolom yang datanya tidak konsisten


 

Para Guru dan temanbelajar,
Bagaimana
rumusnya agar data di kolom A digabung dengan data
di
kolom B.
Jika
di kolom A tidak ada value, ambil value  yang di atasnya.
Contoh
di row 3, kolom A tiada data, maka ambil 1 digabung dengan 10121103.
Rumus
concanatenate hanya berhasil  data yang
sama tidak lebih 2 baris, jika  lebih 2
baria, angka di klom A tidak tergabung.
Terima
kasih.

Mansor.

     No         
       Kode   Grouping   Yang diharapkan
1 10121103   110121103   110121103
  10121103   110121103   110121103
2 10141002   210141002   210141002
  10141002   210141002   210141002
3 11241010   311241010   311241010
  11241010   311241010   311241010
  11241010   11241010   311241010
4 10121103   410121103   410121103
  10121103   410121103   410121103
  10121103   10121103   410121103

Wed Nov 28, 2012 4:27 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Pak Mansor,

Asumsi :
- kolom A adalah nomor urut bertipe numerik
- kolom B adalah data bertipe numerik
=VLOOKUP(B2,A$2:A2,1)&B2
JIka kolom B tidak pertipe numerik, ganti B2 menjadi 9^9
Jika kolom A bukan nomor urut dan tidak bertipe numerik ganti B2 menjadi
"zz"

Wassalam,
Kid.

2012/11/28 Mansor <dbpermatasari@gmail.com>

> **
>
>
>
>
>
> Para Guru dan teman belajar,
>
> Bagaimana rumusnya agar data di kolom A digabung dengan data
>
> di kolom B.
>
> Jika di kolom A tidak ada value, ambil value yang di atasnya.
>
> Contoh di row 3, kolom A tiada data, maka ambil 1 digabung dengan 10121103.
>
> Rumus concanatenate hanya berhasil data yang sama tidak lebih 2 baris,
> jika lebih 2 baria, angka di klom A tidak tergabung.
>
> Terima kasih.
>
>
> Mansor.
>
>
> No
> Kode Grouping Yang diharapkan 1 10121103 110121103
> 110121103 10121103 110121103 110121103 2 10141002 210141002
> 210141002 10141002 210141002 210141002 3 11241010 311241010
> 311241010 11241010 311241010 311241010 11241010 11241010
> 311241010 4 10121103 410121103 410121103 10121103 410121103
> 410121103 10121103 10121103 410121103
>
>
>
>

Wed Nov 28, 2012 7:07 pm (PST) . Posted by:

"summonery" summonery

coba juga,
=IF(A2="",I1,A2&B2)

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, Mansor <dbpermatasari@...> wrote:
>
> Para Guru dan teman belajar,
>
> Bagaimana rumusnya agar data di kolom A digabung dengan data
>
> di kolom B.
>
> Jika di kolom A tidak ada value, ambil value yang di atasnya.
>
> Contoh di row 3, kolom A tiada data, maka ambil 1 digabung dengan
10121103.
>
> Rumus concanatenate hanya berhasil data yang sama tidak lebih 2
baris,
> jika lebih 2 baria, angka di klom A tidak tergabung.
>
> Terima kasih.
>
>
> Mansor.
>
>
> No
> Kode Grouping Yang diharapkan 1 10121103 110121103
110121103
> 10121103 110121103 110121103 2 10141002 210141002 210141002
> 10141002 210141002 210141002 3 11241010 311241010 311241010
> 11241010 311241010 311241010 11241010 11241010 311241010 4
> 10121103 410121103 410121103 10121103 410121103 410121103
> 10121103 10121103 410121103
>

Wed Nov 28, 2012 6:19 pm (PST) . Posted by:

"Alfan Atas Pujianto" al_mito

Dear Exceler...

Mohon pencerahan untuk rumus yang harus saya tulis pada kolom B2 dst, jika pada kolom A2 datanya bervariasi.

Regard

Wed Nov 28, 2012 7:01 pm (PST) . Posted by:

"the_x_mikey@yahoo.com" the_x_mikey

Rumus yg saya brikan mungkin agak panjang tp berjalan dgn baik

=mid(a2,find(char(47),a2,find(char(47),a2)+1),find(">",a2)-find(char(47),a2,find(char(47),a2)+1)-2)
-----Original Message-----
From: Alfan Atas Pujianto <alfanatas@yahoo.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 29 Nov 2012 10:14:10
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] tanya rumus untuk mengambil karakter tertentu dg sumber yang bervariasi

Dear Exceler...

Mohon pencerahan untuk rumus yang harus saya tulis pada kolom B2 dst, jika pada kolom A2 datanya bervariasi.

Regard

Wed Nov 28, 2012 9:07 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Alfan,

Coba :
=MID(LEFT(A2,FIND("->",A2)-1),FIND("/",A2,FIND("/",A2)+1)+1,99)

Wassalam,
Kid.

2012/11/29 Alfan Atas Pujianto <alfanatas@yahoo.co.id>

> **
>
>
> Dear Exceler...
>
>
> Mohon pencerahan untuk rumus yang harus saya tulis pada kolom B2 dst, jika
> pada kolom A2 datanya bervariasi.
>
>
> Regard
>
> _
>
>

Wed Nov 28, 2012 7:15 pm (PST) . Posted by:

"the_x_mikey@yahoo.com" the_x_mikey

Hi all,

Maaf kalau saya forward, krn spt nya belum ada yg merespon. Thanks in advance
-----Original Message-----
From: the_x_mikey@yahoo.com
Sender: belajar-excel@yahoogroups.com
Date: Wed, 28 Nov 2012 08:05:02
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] trap if fail to open password protected excel

Hi all,

Saya sedang membuat macro otomatis membuka file excel yg terpassword.

Bagaimana trap nya jika user salah pilih file yg berpassword "ab" atau lainnya

Private sub cmb_click()
Dim newfile as string
Dim newfiletype as string
Dim newfilename as string
Dim wslama as workbook
Dim wsbaru as workbook

Newfiletype = "excel files 1997-2003 (*.xls), *.xls, " & "all files (*.*), *.*"
Newfile = application.getsaveasfilename(initialfilename:=newfilename,filefilter:=newfiletype)

If newfile<>"" and newfile <> "false" then
Set wslama=workbooks.open(newfile,password:="abc")
Wsbaru.activate
End if
End sub



Wed Nov 28, 2012 9:06 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Coba bagian :
If newfile<>"" and newfile <> "false" then
Set wslama=workbooks.open(newfile,password:="abc")
Wsbaru.activate
End if
diberi tambahan error handler menjadi :
If newfile<>"" and newfile <> "false" then
on error resume next
application.displayalerts=false
Set wslama=workbooks.open(newfile,password:="abc")
application.displayalerts=true
if not wslama is nothing then
Wsbaru.activate
else
err.clear
on error goto 0
msgbox "bukan file yang harus dibuka. Pilih file
lain.",vbcrtitical,"Buka file khusus"
endif
End if

Wassalam,
Kid.

On Thu, Nov 29, 2012 at 10:06 AM, <the_x_mikey@yahoo.com> wrote:

> **
>
>
> ** Hi all,
>
> Maaf kalau saya forward, krn spt nya belum ada yg merespon. Thanks in
> advance
> ------------------------------
> *From: * the_x_mikey@yahoo.com
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Wed, 28 Nov 2012 08:05:02 +0000
> *To: *<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *[belajar-excel] trap if fail to open password protected excel
>
>
>
> Hi all,
>
> Saya sedang membuat macro otomatis membuka file excel yg terpassword.
>
> Bagaimana trap nya jika user salah pilih file yg berpassword "ab" atau
> lainnya
>
> Private sub cmb_click()
> Dim newfile as string
> Dim newfiletype as string
> Dim newfilename as string
> Dim wslama as workbook
> Dim wsbaru as workbook
>
> Newfiletype = "excel files 1997-2003 (*.xls), *.xls, " & "all files (*.*),
> *.*"
> Newfile =
> application.getsaveasfilename(initialfilename:=newfilename,filefilter:=newfiletype)
>
> If newfile<>"" and newfile <> "false" then
> Set wslama=workbooks.open(newfile,password:="abc")
> Wsbaru.activate
> End if
> End sub
>
>
>

Wed Nov 28, 2012 7:38 pm (PST) . Posted by:

"Teti Zhe" teti_zhe

Dear Ms Jan,
Dari  http://www.mail-archive.com/belajar-excel@yahoogroups.com/ untuk donlot attachment2 nya gimana ya ?
Makasih...
 
Salam,
Teti.

________________________________
From: Jan Raisin <miss.jan.raisin@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, November 28, 2012 4:30 PM
Subject: Re: [belajar-excel] Mohon bantuan tentang input data....


 
mungkin ibu Teti harus berkunjung ke alamat millis

http://tech.groups.yahoo.com/group/belajar-excel/messages

lalu melakukan pencarian dengan key word "input data", saat ini ada sekita 1900 hasil yang akan muncul dengan cara seperti itu,

bisa dipersempit lagi hasilnya jika menggunakan advanced filter dengan key word di kotak author = "mr Kid" xixixi :D  >>> ada sekitar 1500 hasil

atau lihat di arsip millis http://www.mail-archive.com/belajar-excel@yahoogroups.com/

lalu filter dengan key word "input data", ada sekitar 800 hasil

Best Regard,

-Ms Jan Raisin-

Pada 28 November 2012 15:46, Teti Zhe <teti_zhe@yahoo.com> menulis:

> 
>Dear All,,
>Giliran mau pelajari lebih lanjut ternyata saya kehilangan file2 yang uda saya ikuti dn donlot tentang input data dan contoh permasalahannya yang dibahas di milis ini..kira2 gimana cara filter n donlot file kasus yang hanya membahas tentang input data di excel yang ada di milis ini?
>Makasih 
> 
>Salam,
>Teti.
>

Wed Nov 28, 2012 8:41 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Coba cari juga di backup milis :
http://milis-belajar-excel.1048464.n5.nabble.com/

Wassalam,
Kid.

2012/11/29 Teti Zhe <teti_zhe@yahoo.com>

> **
>
>
> Dear Ms Jan,
> Dari http://www.mail-archive.com/belajar-excel@yahoogroups.com/ untuk
> donlot attachment2 nya gimana ya ?
> Makasih...
>
> Salam,
> Teti.
>
> ------------------------------
> *From:* Jan Raisin <miss.jan.raisin@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, November 28, 2012 4:30 PM
> *Subject:* Re: [belajar-excel] Mohon bantuan tentang input data....
>
>
> mungkin ibu Teti harus berkunjung ke alamat millis
>
> http://tech.groups.yahoo.com/group/belajar-excel/messages
>
> lalu melakukan pencarian dengan key word "input data", saat ini ada sekita
> 1900 hasil yang akan muncul dengan cara seperti itu,
>
> bisa dipersempit lagi hasilnya jika menggunakan advanced filter dengan key
> word di kotak author = "mr Kid" xixixi :D >>> ada sekitar 1500 hasil
>
> atau lihat di arsip millis
> http://www.mail-archive.com/belajar-excel@yahoogroups.com/
>
> lalu filter dengan key word "input data", ada sekitar 800 hasil
>
> Best Regard,
>
> -Ms Jan Raisin-
>
>
> Pada 28 November 2012 15:46, Teti Zhe <teti_zhe@yahoo.com> menulis:
>
> **
>
> Dear All,,
> Giliran mau pelajari lebih lanjut ternyata saya kehilangan file2 yang uda
> saya ikuti dn donlot tentang input data dan contoh permasalahannya yang
> dibahas di milis ini..kira2 gimana cara filter n donlot file kasus yang
> hanya membahas tentang input data di excel yang ada di milis ini?
> Makasih
>
> Salam,
> Teti.
>
>
>
>
>
>

Wed Nov 28, 2012 8:37 pm (PST) . Posted by:

"Andre Rahmaidy Teeza" andre_teeza_bn

Pagi BeExceller

saya mau tanya rumus / formula mencari data yang sama berdasarkan posisi baris dan nilainya contoh hasilnya seperti ini : data yang dicari ada di baris ke :  yaitu nilainya :
file terlmpir. sebelumnya sudah dicoba dengan rumusnya seperti ini =IF(COUNTIF($B$2:$B$239,A2)>0,"data yg dicari ada di baris ke: "&MATCH(A2,$B$2:$B$239,0)&" yaitu: "&OFFSET($C$2,MATCH(A2,$B$2:$B$239,0),0),"tidak ada"), ketika dicopy seluruhnya hasilnya malah tidak ada data yang sama oleh rumus. padahal dalam file tersebut terdapat data yang sama antara keterangan nomor nota serta mutasi debet dan kredit.

Regards

Andree

Wed Nov 28, 2012 9:00 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Andree,

COUNTIF($B$2:$B$239,A2)
Bahasa manusia :
"Cari dan hitungkan ada berapa sih range $B$2:$B$239 yang isinya sama
dengan isi cell A2"
Kalau A isinya keterangan dan B isinya nilai debet, berarti formula di atas
berbunyi :
"Cari dan hitungkan ada berapa angka debet yang angkanya adalah kalimat
keterangan di baris 2"

Sebenarnya pengen apa ya ?
Jika rujukan ke kolom B diganti ke kolom A, nanti tidak akan ada hasil
bertuliskan "tidak ada" alias pasti semuanya ada.
Kalau rujukan ke kolom B diganti merujuk ke kolom A baris-baris sebelumnya
($a$1:$a1), maka data pertama akan menghasilkan tidak ada.

Jika datanya banyak sekali, coba gunakan Index daripada Offset.

Wassalam,
Kid.

2012/11/29 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com>

> COUNTIF($B$2:$B$239,A2)
>

Wed Nov 28, 2012 9:51 pm (PST) . Posted by:

"Harry" hariansyahptk

Dear BeExceller,

Lebih jauh mengenai proses penginputan data oleh banyak PC secara bersamaan, selama ini saya menggunakan proses buka tutup file data sebagaimana rumus berikut:

Private Sub UserForm_Initialize()
    'deklarasi variabel workbook
    Dim wbkA As Workbook, wbkAKTIF As Workbook
  
    'init workbooknya
    Set wbkA = ThisWorkbook
   
    '--- WBK READ ONLY ??? ---' >> START
    Dim lTry As Long, lJeda As Long
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
CobaBuka:
    For lTry = 1 To 20
        Set wbkAKTIF = Workbooks.Open(wbkA.Path & "\DATA.xls")
        If wbkAKTIF.ReadOnly Then
            wbkAKTIF.Close False
            If lTry = 20 Then
                If MsgBox("Sudah dicoba membuka " & lTry & _
                        " kali, dan masih digunakan oleh instansi Excel yang lain" & vbCrLf & _
                        "Coba lagi ?", vbExclamation + vbYesNo, "Akses ke DATABASE PROGRAM") = vbYes Then
                    GoTo CobaBuka
                Else
                    Application.ScreenUpdating = False
                    Exit Sub
                End If
            End If
        Else
            wbkA.Activate
            Exit For
        End If
        For lJeda = 1 To 100000000
        Next lJeda
    Next lTry
    Application.ScreenUpdating = True
    '--- WBK READ ONLY ??? ---' >> END
       
End Sub

Tetapi seiring banyaknya data yang harus diinput, membuat sistem buka-tutup file data tersebut menjadi tidak efisien karena user harus bergantian melakukan proses buka-tutup file.

Sebagaimana yang pernah diinformasikan oleh Mr. Kid yaitu dengan menggunakan ADO (ActiveX Data Objects) seya mengalami kesulitan untuk merealisasikan hal tersebut.
Pernah saya mencoba untuk memanipulasi rumus yang pernah dibahas pada milis dengan subject : Add data from xl to Access, tetapi tidak berhasil.

Besar harapan kiranya teman-teman BeExceller dapat memberikan informasi (berbagi ilmu) mengenai bagaimana caranya melakukan proses input ke file data dengan tidak adanya proses buka-tutup file data sehingga banyak PC bisa melakukan proses input secara bersamaan waktu.

Terima kasih atas berkanan informasi dari teman-teman BeExceller.

Wassalam,

Harry

N/B:
* Terlampir 2 file (Master.xls & Data.xls) sebagai referensi
* File-file tersebut diatas masih tersimpan pada 1 folder yang sama.
* Yang diinginkan adalah file Master.xls disimpan pada folder D: sedangkan file Data.xls disimpan pada folder C:.

* File Data.xls masih membutuhkan proses buka tutup
* Yang diinginkan adalah file Data.xls tetap dalam keadaan terbuka tanpa proses buka tutup

Wed Nov 28, 2012 9:51 pm (PST) . Posted by:

"Agus Erwanto" erwanto_agus

Dear Master Exceller,
 
Saya mempunyai data dengan nama kota seluruh Indonesia ( file hanya saya ambil contoh saja ; sheet Data Awal) kesulitan untuk mengambil nama Kota hanya satu saja , seperti di Sheet Hasil , dan menjumlahkan data nya.
 
Mohon bantuannya ya
 
suwun,
 
Agus erwanto

Wed Nov 28, 2012 9:57 pm (PST) . Posted by:

"Jan Raisin"

Dear Pak Agus,

coba manfaatkan fitur Pivot Table, file terlampir

Best Regard,

-Ms Jan Raisin-

Pada 29 November 2012 12:16, Agus Erwanto <erwanto_agus@yahoo.co.id>menulis:

> **
>
>
> Dear Master Exceller,
>
> Saya mempunyai data dengan nama kota seluruh Indonesia ( file hanya saya
> ambil contoh saja ; sheet Data Awal) kesulitan untuk mengambil nama Kota
> hanya satu saja , seperti di Sheet Hasil , dan menjumlahkan data nya.
>
> Mohon bantuannya ya
>
> suwun,
>
> Agus erwanto
>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 21.57

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)