[belajar-excel] Digest Number 1874

Milis Belajar Microsoft Excel Group

2 New Messages

Digest #1874

1a

Bls: [belajar-excel] tanya vlookup by "ghozi alkatiri" ghozialkatiri

2

Tukar data excel ke TEXT dengan makro by "Emi" emilestariklcc

Messages

1a

Bls: [belajar-excel] tanya vlookup

Mon Oct 29, 2012 1:49 am (PDT) . Posted by:

"ghozi alkatiri" ghozialkatiri

seperti yang lainnya pengisian nama pada nama siswa menggunakan data  validation.
formula pengisian nilai raport dibuat satu kali di cell G10
=VLOOKUP($C$3;Data!$B$8:$AL$55;ROW(2:2);0)
dicopy ke bawah sampai G40 .
angka nol pada nilai yang kosong dihilangkan dengan menggunakan conditional formating opsi font tanpa warna

untuk mengisi keterangan rangking ke berapa dari sekian siswa di cell B40 formulanya:
="RANGKING TINGKATAN "&G40&"  DARI 48 SISWA"

wassalam

Ghozi Alkatiri.

________________________________
Dari: Muhfit Komputer <muhfitkomputer@yahoo.co.id>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Senin, 29 Oktober 2012 10:45
Judul: [belajar-excel] tanya vlookup


 

dari muhfit, ini mau tanya, dan mohon bantuanya ya..
- yang say atanyakan ialah, misal mau membuat raport, dan memakai hlookup ato vlookup begitu. dan misal saya ketik angka kuncinya, lalu muncul daftar nama beserta yang lainya.terima kasih

Reply to sender . Reply to group . Reply via Web Post . All Messages (4) . Top ^

2

Tukar data excel ke TEXT dengan makro

Mon Oct 29, 2012 2:19 am (PDT) . Posted by:

"Emi" emilestariklcc

Teman dan Guru BeExcel.
Saya mau belajar menulis makro yang benar. (Makro yg di fileini hasil recording)
 
Option Explicit
Sub excel2text()
'
' excel2text Macro
'
'
    Range("A2:Y16").Select    ' Barisnya selalu tidak tetap
    Selection.Copy
    Application.CutCopyMode = False
    ChDir "G:\Project"
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Rows("16:16").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    ActiveWindow.SmallScroll Down:=-12
    Range("A7").Select
    ChDir "C:\Documents and Settings\emi_lestari\Desktop"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\emi_lestari\Desktop\batch206.txt", FileFormat _
        :=xlText, CreateBackup:=False
    ActiveWindow.Close
End Sub
 
Algorithm nya  adalah seperti berikut.
1. Select range A2:Y16 (range ini berubah ubah)
2. Copy, paste special value ke worksheet baru dengan "Batch206" ikut nama worksheetnya (juga berubah ubah)
3.Pada worksheet yang baru (Batch206.xlsx, cari baris akhir yang ada data.
4.Pada baris yang tiada data (dihighlight dengan control + shift + arrow down)
5.Delete semua baris yang kosong.
6.Save file as "text(Tab delimited)(*.txt) di desktop
7.Yes (response pada msg box)
8.Tutup file excel.
 
Masalah yang ingin dipecahkan
 
1.Bagaimana ingin menetapkan area yang akan dicopy. Jika diberi nama offset name range, row yang kosongtetapi ada formula akan ikut ter select.
2. Path yang  di mana file mau di simpan. Kalau recoding  path nya ChDir "C:\Documents and Settings\emi_lestari\Desktop, bagaimana supaya lebih umum
dan bisa di gunakan oleh semua user.
3. Bagaimana supaya tidak keluar msg box di bawah, waktu run time, supaya user tidak perlu menjawab pertanyaan tersebut.
 
Contoh file dan hasil text file yang diinginkan adalah seperti dilampirkan.
 
Terimakasih
- Emi Lestari
----------

1 15092012 25102012 KA USD 40 233214 102 102 P10441064 0000100000 10000
15092012 25102012 KA USD 50 631104 100 100 P10441064 0000100000 06602
15092012 25102012 USD 50 631104 2 2 P10441064 0000100000 06602
2 18092012 25102012 SJ USD 40 610901 30 30 P10541036 18092012 0000100000 01507
18092012 25102012 USD 50 620202 30 30 P10541036 18092012 0000100000 02347
3 18092012 25102012 SJ USD 40 515216 20 20 P10541040 20092012 0000100000 01201
18092012 25102012 USD 40 631302 0.5 0.5 P10541040 C1400143631 0000100000 01202
18092012 25102012 USD 50 233215 20.5 20.5 P10541040 0000100000 19601
4 20102012 25102012 SJ USD 40 233214 340 340 P10541040 0000100000 10000
20102012 25102012 USD 50 515216 140 140 P10541040 0000200000 01201
20102012 25102012 USD 50 631302 1.7 1.7 P10541040 0000200000 01202
20102012 25102012 USD 50 610201 112.2 112.2 P10541040 0005100000 01402
20102012 25102012 USD 50 610201 86.1 86.1 P10541040 0002100000 01403
5 29092012 25102012 SJ USD 40 273114 10900 10900 P10521111 0000100000 10111
29092012 25102012 USD 0 273114 10900 10900 0000100000 10112

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

Visit Your Group

>

View All Topics

>

Create New Topic

>

20 New Members

>

We are making changes based on your feedback, Thank you !

Submit Feedback

>

The Yahoo! Groups Product Blog

Check it out!

>

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
---------------------------------------------------------------------

CHANGE SETTINGS

>

TERMS OF USE

>

UNSUBSCRIBE

>