Jumat, 23 Desember 2011

]] XL-mania [[ Digest Number 2309

Messages In This Digest (8 Messages)

Messages

1a.

Re: rumus untuk otomatis terisi dengan ketik atau symbol

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

Thu Dec 22, 2011 5:53 am (PST)



bisa kita manfaatkan :
fungsi MATCH :
untuk mencari osisi (index row)
fungsi INDEX atau OFFSET (bis juga VLOOKUP jika keadaan tabel =
"kondusif"):
untuk mengambil data berdarkan temuan fungsi MATCH

misal untuk menampilkan nomor ID Distributor berdasarkan nama di A12
*=OFFSET(Alamat!$B$1,MATCH(A12,DistNames,0),0)*

*DistName* adalah Nama Range yg kita buat terhadap kolom NAMA di sheet
ALAMAT.
(agar mempermudah rumus)

2011/12/20 antoni ginting <ma2ithink@gmail.com>

> **
>
> *Dear pakar ,
> mohon bantuannya utk kasuku ini :
> pada tab order akan diisi data-data dari tab alamat dan product,seperti
> terlampir.
> dengan mengetik salah satu nama (saya coba pake data validation dan itu
> pun harus dalam satu tab, hanya satu cell saja yang terisi),
> **Salam,**
> * Antoni Ginting
> Bontang - Kaltim
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
1b.

Re: rumus untuk otomatis terisi dengan ketik atau symbol

Posted by: "NANG Agus" nangagus@gmail.com

Thu Dec 22, 2011 5:54 am (PST)



Dear Antoni Ginting

Bagaimana jika digunakan rumus Index dan match (kata tementemen milis
(vlookup yang bisa menengok ke kiri)
=INDEX(Alamat!B2:C63;MATCH(order!A12;Alamat!C2:C63;0);1)
salam

NangAgus

2011/12/20 antoni ginting <ma2ithink@gmail.com>

> **
>
>
> *Dear pakar ,
>
> mohon bantuannya utk kasuku ini :
> pada tab order akan diisi data-data dari tab alamat dan product,seperti
> terlampir.
>
> dengan mengetik salah satu nama (saya coba pake data validation dan itu
> pun harus dalam satu tab, hanya satu cell saja yang terisi),
> *
>
> *Salam,
> Antoni Ginting
> Bontang - Kaltim
> *
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
1c.

Re: rumus untuk otomatis terisi dengan ketik atau symbol

Posted by: "endi pob" endi_pob@yahoo.com   endi_pob

Thu Dec 22, 2011 9:29 pm (PST)



modah2xan nyambung jawaban saya mas.

kalo saya seh seperti ini, tapi mungkin para pakar excel lebih tau yg lebih mudah :)

 

Regards

Endi N I

A&TS Division
MBS-Consulting
Sentra Mampang Build. Blok D.1
Jl. Mampang Prapatan Raya No 28
Jakarta 12790
Phone 021-79191432 (Hunting)
Ext 401
Mob : +62 816 480 1166
Email : Endi_pob@yahoo.com

________________________________
From: antoni ginting <ma2ithink@gmail.com>
To: XL-mania@yahoogroups.com
Sent: Tuesday, 20 December 2011 10:13 AM
Subject: ]] XL-mania [[ rumus untuk otomatis terisi dengan ketik atau symbol


 
Dear pakar ,

mohon bantuannya utk kasuku ini :
pada tab order akan diisi data-data dari tab alamat dan product,seperti terlampir.

dengan mengetik salah satu nama (saya coba pake data validation dan itu pun harus dalam satu tab, hanya satu cell saja yang terisi),

Salam,
Antoni Ginting
Bontang - Kaltim

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

Re: get data txt dgn nama file di tentukan pada salah satu cell

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

Thu Dec 22, 2011 5:55 am (PST)



makro yg ada telah menyediakan dialogOpenFile, sebenarnya sudah lebih
gampang
dioperasikan; karena user tinggal MEMILIH FILE (dengan mouse-pointer), sisa
pekerjaan
diurus olah makro

pak NurKo malah minta agar makro langsung membuka file yg namanya ditulis
di
cell R7 (tanpa harus MEMILIH FILE di DialogOpenFile)

ini sepertinya (seakan-akan) lebih sederhana, karena sekali ceklik tombol,
semua akan
dikerjakan oleh makro; berhubung makro telah mendapat info "nama file-text"
(yg harus
di-proses) dari nilai cell R7

Itu kalau nama file yg diproses hanya "itu-itu" saja, ibarat sekali tulis,
maka selama
berabad-abad hanya* file dengan nama tsb* yg harus diproses.

Tetapi .. jika file yg akan diproses bukan hanya satu, dan selalu berganti
NAMAnya,
maka setiap akan memproses file, pak NurKo harus kerja manual dulu
1.
baca dan salin NAMA FILE (mungkin dibaca di windows-explorer) ke clipboard,
2.
Tulis / paste-kan NAMA FILE tadi ke cell R7
Barrru... pencet tombol makro !

( Itu kan hanya dugaanku saja, operasional yg akan benar² terjadi, hanya
pak Nurko lah
yg mafhum...)

Berikut ini text code VBA makro baru (pengganti-nya) ; sedangkan di
bawahnya adalah
makro sebelum diganti
Terjadi *Peringkasan Code* bukan karena Text-File yg dipanggil sudah
tertulis di sheet,
melainkan karena *pemanfaatan looping* untuk mereduksi pengulangan coding...

Private Sub CommandButton1_Click()
'--------------------------------------
' coded by indri Hapsari / 21 Dec 2011
' XL-mania Case # 19750
'-------------------------------------
Dim TxtLine As String, FName As String
Dim CellDat As Variant, lRow As Long, i As Integer
Dim Pos, Num, Col, Fs, F
FName = ThisWorkbook.Path & "\" & Range("R7").Value
Set Fs = CreateObject("Scripting.FileSystemObject")
Set F = Fs.OpenTextFile(FName, 1)
Pos = Split("0\1\4\8\12\13\16\54\63\69\73\95", "\")
Num = Split("0\2\3\3\1\3\3\6\3\2\4\15", "\")
Col = Split("0\2\3\4\5\6\7\9\11\12\14\15", "\")
*Do*
lRow = lRow + 1
TxtLine = F.ReadLine
If TxtLine = vbNullString Then Exit Do
*For i* = 1 To 11
CellDat = Mid(TxtLine, Pos(i), Num(i))
If i = 11 Then CellDat = Val(Trim(Mid(TxtLine, Pos(i), Num(i))))
Cells(lRow, CLng(Col(i)) - 1).Value = CellDat
*Next i*
* Loop*
F.Close
End Sub

=========
sebelum diganti

Private Sub CommandButton1_Click()

Dim fs, f

Dim textTerpilih1, textTerpilih2, textTerpilih3, textTerpilih4,
textTerpilih5, TextTerpilih6, textTerpilih7, textTerpilih8, textTerpilih9,
textTerpilih10 As String

FiletoOpen = Application _

.GetOpenFilename("Get Text Files(*.txt),*.txt", , "Select", , False)

If VarType(FiletoOpen) = vbBoolean Then

Exit Sub

End If

Set fs = CreateObject("Scripting.FileSystemObject")

Set txtFile = fs.OpenTextFile(FiletoOpen, 1, -2)

Baris = 0

Do While Not (txtFile.atendofstream)

Baris = Baris + 1

txtline = txtFile.ReadLine

textTerpilih1 = Mid(txtline, 1, 2)

textTerpilih2 = Mid(txtline, 4, 3)

textTerpilih3 = Mid(txtline, 8, 3)

textTerpilih4 = Mid(txtline, 12, 1)

textTerpilih5 = Mid(txtline, 13, 3)

textTerpilih6 = Mid(txtline, 16, 3)

textTerpilih7 = Mid(txtline, 54, 6)

textTerpilih8 = Mid(txtline, 63, 3)

textTerpilih9 = Mid(txtline, 69, 2)

textTerpilih10 = Mid(txtline, 73, 4)

textTerpilih11 = Trim(Mid(txtline, 95, 15))

Worksheets("Sheet2").Cells(Baris, 2).Value = textTerpilih1

Worksheets("Sheet2").Cells(Baris, 3).Value = textTerpilih2

Worksheets("Sheet2").Cells(Baris, 4).Value = textTerpilih3

Worksheets("Sheet2").Cells(Baris, 5).Value = textTerpilih4

Worksheets("Sheet2").Cells(Baris, 6).Value = textTerpilih5

Worksheets("Sheet2").Cells(Baris, 7).Value = textTerpilih6

Worksheets("Sheet2").Cells(Baris, 9).Value = textTerpilih7

Worksheets("Sheet2").Cells(Baris, 11).Value = textTerpilih8

Worksheets("Sheet2").Cells(Baris, 12).Value = textTerpilih9

Worksheets("Sheet2").Cells(Baris, 14).Value = textTerpilih10

Worksheets("Sheet2").Cells(Baris, 15).Value = textTerpilih11

Loop

txtFile.Close
End Sub

From: <nurkomardi@gmail.com>
Date: 2011/12/20

Mohon Bantuan koding tambahan macros agar bisa pada saat mau ambil data txt
nama file sesuai dgn yg kita ingin kan pada cell "Nama" ( Cell Kuning )
sehingga tidak perlu lagi memilih file pada Popup getOpenFile
jadi kita hanya perlu menuliskan nama file pada cell kuning dan tinggal
klik button maka data pada file text tsb akan bisa masuk ke sheet
ini.terima kasih atas bantuannya
Contoh file terlampir
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
3.

data unik

Posted by: "Iksan Bondang" xanbondang@yahoo.co.id   xanbondang

Thu Dec 22, 2011 5:56 am (PST)



Kepada Master Excel yang budiman, mohon kiranya dapat membantu permasalahan yang sedang saya hadapi ini,
dengan rumus atau macro, pada daftar terlampir.
Sekali lagi saya mohon maaf, karena permasalahan ini belum saya temukan solusinya
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
4.

tanya tentang cetak data validasi

Posted by: "Sutrisno S.Pd" sutrisnomansa@yahoo.com   sutrisnomansa

Thu Dec 22, 2011 9:08 pm (PST)



saya membuat file dengan data validasi, bagaimana cara mencetak data no tertentu dan semua data secara urut dengan macro. terima kasih. file saya sertakan pada attachment.
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
5.

Protek baris perintah macro dan Insert Icon (gambar)

Posted by: "taufikef@ipb.ac.id" taufikef@ipb.ac.id

Thu Dec 22, 2011 9:27 pm (PST)



Dear Xl-mania

Sy punya dua masalah. Mudah2an kawan2 di XL-mania bisa bantu :
1. Bagaimana cara memproteksi baris perintah Macro (VBA), agar tidak bisa
dibuka oleh sembarang orang.
2. Saya meng-insert icon (gambar) pada picture yg ada di propertisnya
Command Bottom. Icon (gambar) dimaksud sudah masuk, tapi kadang hilang
lagi. Apa solusinya ya ?

Terimakasih atas bantuannya.

-----------------------------------------
This email was sent using IPB Webmail http://mail.ipb.ac.id/.
Bogor Agricultural University http://www.ipb.ac.id/

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

hitung statistik sederhana [min, max, averge] dengan filter

Posted by: "yoga permata" yoga_perez@yahoo.co.id   yoga_perez

Thu Dec 22, 2011 9:27 pm (PST)



Dear Pakar Excel,

Mohon bantuan dari pakar excel semua untuk memecahkan problem yang saya alami. Saya mempunyai banyak data (ribuan), yang nantinya akan saya hitung (statistik sederhana) berdasarkan filter yang ada (sebagai contoh):
    1. Saya hanya menghitung nilai maksimum (max) hanya berdasarkan filter kategori Finance, dan kategori Wajib
    2. Saya hanya menghitung nilai rata-rata, hanya berdasarkan filter kategori Mining, dan kategori Wajib
file terlampir ya.

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

Mental Health Zone

Mental Health

Learn More

Yahoo! Groups

Parenting Zone

Resources and tips

for parents

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

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
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com                       |
| momods kebanyakan e-mail :(... unread di kantor 6 ribu lebih :(   |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@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 04.52

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)