12 New Messages
Digest #1921
Messages
Wed Nov 21, 2012 12:29 am (PST) . Posted by:
"Indra Sanjaya" indradjaja80an
Terima kasih atas jawaban Pak Ghozi Alkatiri, terutama Mr. Kid.
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Wednesday, November 21, 2012 3:17 PM
Subject: Re: [belajar-excel] Menjumlahkan barang yg diinginkan.
Pak Indra,
Untuk total tentu sudah bisa ya, yaitu dengan :
=SUM(D3:D22)
[Kata-kata item Sabun, bisa diganti dengan alamat cell, misal kata Sabun ada di cell Z1]
Untuk yang sabun saja :
=SUMIF(C3:C22,"Sabun",D3:D22)
=SUMIF(C3:C22,z1,D3:D22)
Jika ada Sabun colek, sabun mandi, sabun cuci semuanya tergolong sabun, gunakan :
=SUMIF(C3:C22,"Sabun*",D3:D22)
=SUMIF(C3:C22,z1 & "*",D3:D22)
Untuk selain sabun :
=SUMIF(C3:C22,"<>Sabun",D3:D22)
=SUMIF(C3:C22,"<>" & z1,D3:D22)
Untuk selain sabun macem-macem
=SUMIF(C3:C22,"<>Sabun*",D3:D22)
=SUMIF(C3:C22,"<>" & z1 & "*",D3:D22)
Wassalam,
Kid.
2012/11/21 Indra Sanjaya <indradjaja80an@yahoo.com >
>
>Dear para master excel,
>
>Saya menemui kesulitan tuk menjumlahkan barang yg diinginkan. Saya mempunyai daftar barang sbb:
>
>1. Beras
>2. Gas 3 kg
>3. Sabun
>4. Telur
>
>Dalam file terlampir, sy menginginkan agar sabun tidak masuk dalam daftar hitung saya.
>Saya menggunakan sumif, namun jika ada rumus yg lebih mudah lagi mohon bantuannya.
>
>Terima kasih.
>Indra.
>
____________
From: Mr. Kid <mr.nmkid@gmail.
To: belajar-excel@
Sent: Wednesday, November 21, 2012 3:17 PM
Subject: Re: [belajar-excel] Menjumlahkan barang yg diinginkan.
Pak Indra,
Untuk total tentu sudah bisa ya, yaitu dengan :
=SUM(D3:D22)
[Kata-kata item Sabun, bisa diganti dengan alamat cell, misal kata Sabun ada di cell Z1]
Untuk yang sabun saja :
=SUMIF(C3:C22,
=SUMIF(C3:C22,
Jika ada Sabun colek, sabun mandi, sabun cuci semuanya tergolong sabun, gunakan :
=SUMIF(C3:C22,
=SUMIF(C3:C22,
Untuk selain sabun :
=SUMIF(C3:C22,
=SUMIF(C3:C22,
Untuk selain sabun macem-macem
=SUMIF(C3:C22,
=SUMIF(C3:C22,
Wassalam,
Kid.
2012/11/21 Indra Sanjaya <indradjaja80an@
>
>Dear para master excel,
>
>Saya menemui kesulitan tuk menjumlahkan barang yg diinginkan. Saya mempunyai daftar barang sbb:
>
>1. Beras
>2. Gas 3 kg
>3. Sabun
>4. Telur
>
>Dalam file terlampir, sy menginginkan agar sabun tidak masuk dalam daftar hitung saya.
>Saya menggunakan sumif, namun jika ada rumus yg lebih mudah lagi mohon bantuannya.
>
>Terima kasih.
>Indra.
>
Wed Nov 21, 2012 12:34 am (PST) . Posted by:
"Jan Raisin"
Dear Be Exceler,
Jan coba berikan solusi ya.. insya ALLAH bisa berjalan di kedua buah file
yang dilampirkan oleh mr Kid
script berikut di tulis di dalam sebuah modul VBA, untuk mengatifkannya
dari lembar keja dengan cara menekan tombol F11
Option Explicit
' --------------------------- '
' Code by: Miss Jan Raisin '
' untuk millis Belajar Excel '
' 21 November 2012 '
' --------------------------- '
' ini adalah nama prosedurnya
Sub RekapData()
' deklarasikan variabel bertipe Range untuk menyimpan objek berupa range
' rgData = range_Data, letaknya di sheet Nota mulai cell H13 samapai
cell H17
' cData = cell_Data, adalah setiap 1 cell di dalam rgData
Dim rgData, cData As Range
' deklarasikan variabel untuk menyimpan nomer baris dengan tipe Long
' r = nomor baris data pertama di sheet Rekap yaitu baris 7 sampai
dengan nomer baris terakhir yang ada datanya
' data tersebut bisa berupa Null String, atau sebut saja yang nanya
bikin semacam acara Jebakan Betmen
' Brs = nomor baris terakhir yang digunakan, letaknya antah berantah
' idxBrs = nomor baris di bawah data yang masih kosong atau Null String
Dim r, Brs, idxBrs As Long
' non-aktifkan aplikasi screen update untuk mempercepat kerja macro
Application.ScreenUpdating = False
' aktifkan sheet Nota, hal ini untuk berjaga-jaga jika sheet aktif
bukanlah sheet Nota
Sheets("Nota").Select
' tetapkan lokasi rgData, yaitu di sheet Nota >> sudah dipanggil
sebelumnya
' letaknya di cell H13 sampai dengan cell H17
Set rgData = Range("h13:h17")
' untuk setiap 1 cell (cData) di dalam rgData
For Each cData In rgData
' jika nilai cData <> "" maka
If cData.Value <> "" Then
' range cData sampai 8 kolom di sebelah kanan cData dicopy
' untuk menunjuk 8 kolom disebelah kanan cData digunakan
perintah cData.Offset(0, 8)
' untuk melakukan copy digunakan perintah .Copy
Range(cData, cData.Offset(0, 8)).Copy
' panggil / aktifkan sheet Rekap
Sheets("Rekap").Select
' panggil / pergi ke cell A7
Range("a7").Select
' saat ini cell aktif berada di cell A7
' pada cell aktif cek apakah ada datanya atau tidak
' jika pada aktif cell ada datanya, maka
If ActiveCell.Value <> "" Then
' hitung nilai baris paling akhir yang berisi data
' bisa saja berupa Null String yang letaknya di antah
berantah
' untuk mengetahui letak cell digunakan perintah
.SpecialCells(xlCellTypeLastCell)
' untuk mengetahui nomer barisnya digunakan perintah .Row
' lalu nomer baris tersebut disimpan dalam sebuah variabel
bernama Brs
Brs = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
' jika nilai Brs lebih besar dari 7
' kenapa harus 7? karena TS meminta data pertama berada di
cell A7 (kolom A, baris 7)
' jika Brs lebih besar dari 7, maka
If Brs > 7 Then
' lakukan loop mulai dari baris 7 sampai dengan nomer
baris yang disimpan dalam variabel Brs
For r = 7 To Brs
' lalukan pengecekan kondisi, apakah di baris
tersebut pada kolom 1 ada datanya atau tidak
' untuk menunjukknya menggunakan perintah Cells(r,
1)
' syntaxnya adalah Cells(nomer_baris , nomer_kolom)
' jika pada baris tersebut pada kolom 1 tidak ada
datanya atau Null Sring, maka
If Cells(r, 1).Value = "" Then
' ambil nilai berisnya menggunakan perintah .Row
' lalu disimpan dalam variabel bernama idxBrs
idxBrs = Cells(r, 1).Row
' jika sudah ketemu, lalu keluar dari loop
Exit For
' ini adalah akhir dari pengecekan data pada sheet
Rekap
End If
' jika belum ketemu cell dengan data yang kosong, maka
lanjutkan dengan baris berikutnya
Next r
' ini adalah akhir pengecekan jika nilai Brs lebih besar
dari 7
End If
' panggil cell yang terpilih
' yaitu nomer baris sesuai nilai yang didapat dalam idxBrs
dan kolom 1
Cells(idxBrs, 1).Select
' ini adalah akhir pengecekan apakah cell A7 di sheet Rekap ada
datanya atau tidak
End If
' pada aktif cell sesuai dengan pengecekan beberapa kondisi di
atas
' dilakukan paste special sesuai dengan nilai dan format data
asal
ActiveCell.PasteSpecial (xlPasteValuesAndNumberFormats)
' setelah itu matikan aplikasi copy paste
Application.CutCopyMode = False
' yang ini adalah akhir dari pemeriksaan apakah cData ada datanya
atau tidak
End If
' panggil kembali sheet Nota, karena saat ini yang aktif adalah
sheet Rekap
Sheets("Nota").Select
' lanjutkan untuk setiap cData berikutnya
Next cData
' aktifkan aplikasi screen update
Application.ScreenUpdating = True
' yang ini adalah akhir dari prosedur
End Sub
Lalu prosedur tersebut harus dipanggil melalui tombol yang sudah dibuat
oleh TS, Jan sengaja tidak melampirkan file yang sudah jadi :D
Best Regard,
-Jan Raisin-
Pada 21 November 2012 11:07, Mr. Kid <mr.nmkid@gmail.com > menulis:
> **
>
>
> Dear BeExceller,
>
> Sepertinya penanya belum mengirmkan file lampiran yang lebih sesuai
> peraturan milis.
>
> File terlampir :
> 1. sample.xls adalah file dari penanya yang sudah dibersihkan sebagian
> baris-baris kosong atau baris-baris nullstring nya, dengan menyisakan
> sedikit di sheet rekap tentang keadaan sesungguhnya file dari penanya yang
> berpotensi menjebak para BeExceller ketika akan membuat prosedur penulisan
> data ke sheet rekap melalui VBA.
>
> 2. Sample_yang_relatif_clean.xls adalah file yang sheet rekapnya juga
> sudah dibersihkan.
>
> BeExceller seluruhnya, selamat berkreasi dengan file terlampir. Silakan
> pilih file yang mana saja untuk mencoba membuat VBA menulis ke sheet rekap.
>
> Wassalam,
> Kid.
>
>
> 2012/11/21 Ugenk Hksn <ugenk_h@yahoo.com >
>
>> **
>>
>>
>> Para pakar excel....
>> Tolong macro combo utk mencopy ke sheet lain
>> Maaf masih newbie....File terlampir
>> Terima kasih
>>
>> Wasalam
>>
>> ugenk
>>
>> --- Mods ---
>> File lampiran 4MB dicekal.
>> Semoga penanya bersedia posting file dengan ukuran sesuai peraturan milis
>> (max 250KB)
>> ------------
>> _
>>
>>
>
>
Jan coba berikan solusi ya.. insya ALLAH bisa berjalan di kedua buah file
yang dilampirkan oleh mr Kid
script berikut di tulis di dalam sebuah modul VBA, untuk mengatifkannya
dari lembar keja dengan cara menekan tombol F11
Option Explicit
' ------------
' Code by: Miss Jan Raisin '
' untuk millis Belajar Excel '
' 21 November 2012 '
' ------------
' ini adalah nama prosedurnya
Sub RekapData()
' deklarasikan variabel bertipe Range untuk menyimpan objek berupa range
' rgData = range_Data, letaknya di sheet Nota mulai cell H13 samapai
cell H17
' cData = cell_Data, adalah setiap 1 cell di dalam rgData
Dim rgData, cData As Range
' deklarasikan variabel untuk menyimpan nomer baris dengan tipe Long
' r = nomor baris data pertama di sheet Rekap yaitu baris 7 sampai
dengan nomer baris terakhir yang ada datanya
' data tersebut bisa berupa Null String, atau sebut saja yang nanya
bikin semacam acara Jebakan Betmen
' Brs = nomor baris terakhir yang digunakan, letaknya antah berantah
' idxBrs = nomor baris di bawah data yang masih kosong atau Null String
Dim r, Brs, idxBrs As Long
' non-aktifkan aplikasi screen update untuk mempercepat kerja macro
Application.
' aktifkan sheet Nota, hal ini untuk berjaga-jaga jika sheet aktif
bukanlah sheet Nota
Sheets("Nota"
' tetapkan lokasi rgData, yaitu di sheet Nota >> sudah dipanggil
sebelumnya
' letaknya di cell H13 sampai dengan cell H17
Set rgData = Range("h13:h17"
' untuk setiap 1 cell (cData) di dalam rgData
For Each cData In rgData
' jika nilai cData <> "" maka
If cData.Value <> "" Then
' range cData sampai 8 kolom di sebelah kanan cData dicopy
' untuk menunjuk 8 kolom disebelah kanan cData digunakan
perintah cData.Offset(
' untuk melakukan copy digunakan perintah .Copy
Range(cData, cData.Offset(
' panggil / aktifkan sheet Rekap
Sheets("Rekap"
' panggil / pergi ke cell A7
Range("a7").
' saat ini cell aktif berada di cell A7
' pada cell aktif cek apakah ada datanya atau tidak
' jika pada aktif cell ada datanya, maka
If ActiveCell.Value <> "" Then
' hitung nilai baris paling akhir yang berisi data
' bisa saja berupa Null String yang letaknya di antah
berantah
' untuk mengetahui letak cell digunakan perintah
.SpecialCells(
' untuk mengetahui nomer barisnya digunakan perintah .Row
' lalu nomer baris tersebut disimpan dalam sebuah variabel
bernama Brs
Brs = ActiveCell.SpecialC
' jika nilai Brs lebih besar dari 7
' kenapa harus 7? karena TS meminta data pertama berada di
cell A7 (kolom A, baris 7)
' jika Brs lebih besar dari 7, maka
If Brs > 7 Then
' lakukan loop mulai dari baris 7 sampai dengan nomer
baris yang disimpan dalam variabel Brs
For r = 7 To Brs
' lalukan pengecekan kondisi, apakah di baris
tersebut pada kolom 1 ada datanya atau tidak
' untuk menunjukknya menggunakan perintah Cells(r,
1)
' syntaxnya adalah Cells(nomer_
' jika pada baris tersebut pada kolom 1 tidak ada
datanya atau Null Sring, maka
If Cells(r, 1).Value = "" Then
' ambil nilai berisnya menggunakan perintah .Row
' lalu disimpan dalam variabel bernama idxBrs
idxBrs = Cells(r, 1).Row
' jika sudah ketemu, lalu keluar dari loop
Exit For
' ini adalah akhir dari pengecekan data pada sheet
Rekap
End If
' jika belum ketemu cell dengan data yang kosong, maka
lanjutkan dengan baris berikutnya
Next r
' ini adalah akhir pengecekan jika nilai Brs lebih besar
dari 7
End If
' panggil cell yang terpilih
' yaitu nomer baris sesuai nilai yang didapat dalam idxBrs
dan kolom 1
Cells(idxBrs, 1).Select
' ini adalah akhir pengecekan apakah cell A7 di sheet Rekap ada
datanya atau tidak
End If
' pada aktif cell sesuai dengan pengecekan beberapa kondisi di
atas
' dilakukan paste special sesuai dengan nilai dan format data
asal
ActiveCell.PasteSpe
' setelah itu matikan aplikasi copy paste
Application.
' yang ini adalah akhir dari pemeriksaan apakah cData ada datanya
atau tidak
End If
' panggil kembali sheet Nota, karena saat ini yang aktif adalah
sheet Rekap
Sheets("Nota"
' lanjutkan untuk setiap cData berikutnya
Next cData
' aktifkan aplikasi screen update
Application.
' yang ini adalah akhir dari prosedur
End Sub
Lalu prosedur tersebut harus dipanggil melalui tombol yang sudah dibuat
oleh TS, Jan sengaja tidak melampirkan file yang sudah jadi :D
Best Regard,
-Jan Raisin-
Pada 21 November 2012 11:07, Mr. Kid <mr.nmkid@gmail.
> **
>
>
> Dear BeExceller,
>
> Sepertinya penanya belum mengirmkan file lampiran yang lebih sesuai
> peraturan milis.
>
> File terlampir :
> 1. sample.xls adalah file dari penanya yang sudah dibersihkan sebagian
> baris-baris kosong atau baris-baris nullstring nya, dengan menyisakan
> sedikit di sheet rekap tentang keadaan sesungguhnya file dari penanya yang
> berpotensi menjebak para BeExceller ketika akan membuat prosedur penulisan
> data ke sheet rekap melalui VBA.
>
> 2. Sample_yang_
> sudah dibersihkan.
>
> BeExceller seluruhnya, selamat berkreasi dengan file terlampir. Silakan
> pilih file yang mana saja untuk mencoba membuat VBA menulis ke sheet rekap.
>
> Wassalam,
> Kid.
>
>
> 2012/11/21 Ugenk Hksn <ugenk_h@yahoo.
>
>> **
>>
>>
>> Para pakar excel....
>> Tolong macro combo utk mencopy ke sheet lain
>> Maaf masih newbie....File terlampir
>> Terima kasih
>>
>> Wasalam
>>
>> ugenk
>>
>> --- Mods ---
>> File lampiran 4MB dicekal.
>> Semoga penanya bersedia posting file dengan ukuran sesuai peraturan milis
>> (max 250KB)
>> ------------
>> _
>>
>>
>
>
Wed Nov 21, 2012 1:14 am (PST) . Posted by:
"Jan Raisin"
Dear Be Exceler,
maaf, ternyata script dari Jan yang tadi hanya berjalan dengan baik di file
Sample.xls, jika ada waktu senggang nanti akan coba Jan perbaiki agar dapat
berjalan di kedua file, jika ada Be-Exceler yang ingin memperbaiki script
dari Jan, Jan mempersilakan dengan senang hati :)
Best Regard,
Jan Raisin
Pada 21 November 2012 15:34, Jan Raisin <miss.jan.raisin@gmail.com > menulis:
> Dear Be Exceler,
>
> Jan coba berikan solusi ya.. insya ALLAH bisa berjalan di kedua buah file
> yang dilampirkan oleh mr Kid
>
> script berikut di tulis di dalam sebuah modul VBA, untuk mengatifkannya
> dari lembar keja dengan cara menekan tombol F11
>
> Option Explicit
> ' --------------------------- '
> ' Code by: Miss Jan Raisin '
> ' untuk millis Belajar Excel '
> ' 21 November 2012 '
> ' --------------------------- '
>
> ' ini adalah nama prosedurnya
> Sub RekapData()
>
> ' deklarasikan variabel bertipe Range untuk menyimpan objek berupa
> range
> ' rgData = range_Data, letaknya di sheet Nota mulai cell H13 samapai
> cell H17
> ' cData = cell_Data, adalah setiap 1 cell di dalam rgData
> Dim rgData, cData As Range
>
> ' deklarasikan variabel untuk menyimpan nomer baris dengan tipe Long
> ' r = nomor baris data pertama di sheet Rekap yaitu baris 7 sampai
> dengan nomer baris terakhir yang ada datanya
> ' data tersebut bisa berupa Null String, atau sebut saja yang nanya
> bikin semacam acara Jebakan Betmen
> ' Brs = nomor baris terakhir yang digunakan, letaknya antah berantah
> ' idxBrs = nomor baris di bawah data yang masih kosong atau Null String
> Dim r, Brs, idxBrs As Long
>
> ' non-aktifkan aplikasi screen update untuk mempercepat kerja macro
> Application.ScreenUpdating = False
>
> ' aktifkan sheet Nota, hal ini untuk berjaga-jaga jika sheet aktif
> bukanlah sheet Nota
> Sheets("Nota").Select
>
> ' tetapkan lokasi rgData, yaitu di sheet Nota >> sudah dipanggil
> sebelumnya
> ' letaknya di cell H13 sampai dengan cell H17
> Set rgData = Range("h13:h17")
>
> ' untuk setiap 1 cell (cData) di dalam rgData
> For Each cData In rgData
>
> ' jika nilai cData <> "" maka
> If cData.Value <> "" Then
>
> ' range cData sampai 8 kolom di sebelah kanan cData dicopy
> ' untuk menunjuk 8 kolom disebelah kanan cData digunakan
> perintah cData.Offset(0, 8)
> ' untuk melakukan copy digunakan perintah .Copy
> Range(cData, cData.Offset(0, 8)).Copy
>
> ' panggil / aktifkan sheet Rekap
> Sheets("Rekap").Select
>
> ' panggil / pergi ke cell A7
> Range("a7").Select
>
> ' saat ini cell aktif berada di cell A7
> ' pada cell aktif cek apakah ada datanya atau tidak
> ' jika pada aktif cell ada datanya, maka
> If ActiveCell.Value <> "" Then
>
> ' hitung nilai baris paling akhir yang berisi data
> ' bisa saja berupa Null String yang letaknya di antah
> berantah
> ' untuk mengetahui letak cell digunakan perintah
> .SpecialCells(xlCellTypeLastCell)
> ' untuk mengetahui nomer barisnya digunakan perintah .Row
> ' lalu nomer baris tersebut disimpan dalam sebuah variabel
> bernama Brs
> Brs = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
>
> ' jika nilai Brs lebih besar dari 7
> ' kenapa harus 7? karena TS meminta data pertama berada di
> cell A7 (kolom A, baris 7)
> ' jika Brs lebih besar dari 7, maka
> If Brs > 7 Then
>
> ' lakukan loop mulai dari baris 7 sampai dengan nomer
> baris yang disimpan dalam variabel Brs
> For r = 7 To Brs
>
> ' lalukan pengecekan kondisi, apakah di baris
> tersebut pada kolom 1 ada datanya atau tidak
> ' untuk menunjukknya menggunakan perintah Cells(r,
> 1)
> ' syntaxnya adalah Cells(nomer_baris , nomer_kolom)
> ' jika pada baris tersebut pada kolom 1 tidak ada
> datanya atau Null Sring, maka
> If Cells(r, 1).Value = "" Then
>
> ' ambil nilai berisnya menggunakan perintah
> .Row
> ' lalu disimpan dalam variabel bernama idxBrs
> idxBrs = Cells(r, 1).Row
>
> ' jika sudah ketemu, lalu keluar dari loop
> Exit For
>
> ' ini adalah akhir dari pengecekan data pada sheet
> Rekap
> End If
>
> ' jika belum ketemu cell dengan data yang kosong, maka
> lanjutkan dengan baris berikutnya
> Next r
>
> ' ini adalah akhir pengecekan jika nilai Brs lebih besar
> dari 7
> End If
>
> ' panggil cell yang terpilih
> ' yaitu nomer baris sesuai nilai yang didapat dalam idxBrs
> dan kolom 1
> Cells(idxBrs, 1).Select
>
> ' ini adalah akhir pengecekan apakah cell A7 di sheet Rekap
> ada datanya atau tidak
> End If
>
> ' pada aktif cell sesuai dengan pengecekan beberapa kondisi di
> atas
> ' dilakukan paste special sesuai dengan nilai dan format data
> asal
> ActiveCell.PasteSpecial (xlPasteValuesAndNumberFormats)
>
> ' setelah itu matikan aplikasi copy paste
> Application.CutCopyMode = False
>
> ' yang ini adalah akhir dari pemeriksaan apakah cData ada datanya
> atau tidak
> End If
>
> ' panggil kembali sheet Nota, karena saat ini yang aktif adalah
> sheet Rekap
> Sheets("Nota").Select
>
> ' lanjutkan untuk setiap cData berikutnya
> Next cData
>
> ' aktifkan aplikasi screen update
> Application.ScreenUpdating = True
>
> ' yang ini adalah akhir dari prosedur
> End Sub
>
> Lalu prosedur tersebut harus dipanggil melalui tombol yang sudah dibuat
> oleh TS, Jan sengaja tidak melampirkan file yang sudah jadi :D
>
> Best Regard,
>
> -Jan Raisin-
>
>
> Pada 21 November 2012 11:07, Mr. Kid <mr.nmkid@gmail.com > menulis:
>
> **
>>
>>
>> Dear BeExceller,
>>
>> Sepertinya penanya belum mengirmkan file lampiran yang lebih sesuai
>> peraturan milis.
>>
>> File terlampir :
>> 1. sample.xls adalah file dari penanya yang sudah dibersihkan sebagian
>> baris-baris kosong atau baris-baris nullstring nya, dengan menyisakan
>> sedikit di sheet rekap tentang keadaan sesungguhnya file dari penanya yang
>> berpotensi menjebak para BeExceller ketika akan membuat prosedur penulisan
>> data ke sheet rekap melalui VBA.
>>
>> 2. Sample_yang_relatif_clean.xls adalah file yang sheet rekapnya juga
>> sudah dibersihkan.
>>
>> BeExceller seluruhnya, selamat berkreasi dengan file terlampir. Silakan
>> pilih file yang mana saja untuk mencoba membuat VBA menulis ke sheet rekap.
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2012/11/21 Ugenk Hksn <ugenk_h@yahoo.com >
>>
>>> **
>>>
>>>
>>> Para pakar excel....
>>> Tolong macro combo utk mencopy ke sheet lain
>>> Maaf masih newbie....File terlampir
>>> Terima kasih
>>>
>>> Wasalam
>>>
>>> ugenk
>>>
>>> --- Mods ---
>>> File lampiran 4MB dicekal.
>>> Semoga penanya bersedia posting file dengan ukuran sesuai peraturan
>>> milis (max 250KB)
>>> ------------
>>> _
>>>
>>>
>>
>>
>
>
maaf, ternyata script dari Jan yang tadi hanya berjalan dengan baik di file
Sample.xls, jika ada waktu senggang nanti akan coba Jan perbaiki agar dapat
berjalan di kedua file, jika ada Be-Exceler yang ingin memperbaiki script
dari Jan, Jan mempersilakan dengan senang hati :)
Best Regard,
Jan Raisin
Pada 21 November 2012 15:34, Jan Raisin <miss.jan.raisin@
> Dear Be Exceler,
>
> Jan coba berikan solusi ya.. insya ALLAH bisa berjalan di kedua buah file
> yang dilampirkan oleh mr Kid
>
> script berikut di tulis di dalam sebuah modul VBA, untuk mengatifkannya
> dari lembar keja dengan cara menekan tombol F11
>
> Option Explicit
> ' ------------
> ' Code by: Miss Jan Raisin '
> ' untuk millis Belajar Excel '
> ' 21 November 2012 '
> ' ------------
>
> ' ini adalah nama prosedurnya
> Sub RekapData()
>
> ' deklarasikan variabel bertipe Range untuk menyimpan objek berupa
> range
> ' rgData = range_Data, letaknya di sheet Nota mulai cell H13 samapai
> cell H17
> ' cData = cell_Data, adalah setiap 1 cell di dalam rgData
> Dim rgData, cData As Range
>
> ' deklarasikan variabel untuk menyimpan nomer baris dengan tipe Long
> ' r = nomor baris data pertama di sheet Rekap yaitu baris 7 sampai
> dengan nomer baris terakhir yang ada datanya
> ' data tersebut bisa berupa Null String, atau sebut saja yang nanya
> bikin semacam acara Jebakan Betmen
> ' Brs = nomor baris terakhir yang digunakan, letaknya antah berantah
> ' idxBrs = nomor baris di bawah data yang masih kosong atau Null String
> Dim r, Brs, idxBrs As Long
>
> ' non-aktifkan aplikasi screen update untuk mempercepat kerja macro
> Application.
>
> ' aktifkan sheet Nota, hal ini untuk berjaga-jaga jika sheet aktif
> bukanlah sheet Nota
> Sheets("Nota"
>
> ' tetapkan lokasi rgData, yaitu di sheet Nota >> sudah dipanggil
> sebelumnya
> ' letaknya di cell H13 sampai dengan cell H17
> Set rgData = Range("h13:h17"
>
> ' untuk setiap 1 cell (cData) di dalam rgData
> For Each cData In rgData
>
> ' jika nilai cData <> "" maka
> If cData.Value <> "" Then
>
> ' range cData sampai 8 kolom di sebelah kanan cData dicopy
> ' untuk menunjuk 8 kolom disebelah kanan cData digunakan
> perintah cData.Offset(
> ' untuk melakukan copy digunakan perintah .Copy
> Range(cData, cData.Offset(
>
> ' panggil / aktifkan sheet Rekap
> Sheets("Rekap"
>
> ' panggil / pergi ke cell A7
> Range("a7").
>
> ' saat ini cell aktif berada di cell A7
> ' pada cell aktif cek apakah ada datanya atau tidak
> ' jika pada aktif cell ada datanya, maka
> If ActiveCell.Value <> "" Then
>
> ' hitung nilai baris paling akhir yang berisi data
> ' bisa saja berupa Null String yang letaknya di antah
> berantah
> ' untuk mengetahui letak cell digunakan perintah
> .SpecialCells(
> ' untuk mengetahui nomer barisnya digunakan perintah .Row
> ' lalu nomer baris tersebut disimpan dalam sebuah variabel
> bernama Brs
> Brs = ActiveCell.SpecialC
>
> ' jika nilai Brs lebih besar dari 7
> ' kenapa harus 7? karena TS meminta data pertama berada di
> cell A7 (kolom A, baris 7)
> ' jika Brs lebih besar dari 7, maka
> If Brs > 7 Then
>
> ' lakukan loop mulai dari baris 7 sampai dengan nomer
> baris yang disimpan dalam variabel Brs
> For r = 7 To Brs
>
> ' lalukan pengecekan kondisi, apakah di baris
> tersebut pada kolom 1 ada datanya atau tidak
> ' untuk menunjukknya menggunakan perintah Cells(r,
> 1)
> ' syntaxnya adalah Cells(nomer_
> ' jika pada baris tersebut pada kolom 1 tidak ada
> datanya atau Null Sring, maka
> If Cells(r, 1).Value = "" Then
>
> ' ambil nilai berisnya menggunakan perintah
> .Row
> ' lalu disimpan dalam variabel bernama idxBrs
> idxBrs = Cells(r, 1).Row
>
> ' jika sudah ketemu, lalu keluar dari loop
> Exit For
>
> ' ini adalah akhir dari pengecekan data pada sheet
> Rekap
> End If
>
> ' jika belum ketemu cell dengan data yang kosong, maka
> lanjutkan dengan baris berikutnya
> Next r
>
> ' ini adalah akhir pengecekan jika nilai Brs lebih besar
> dari 7
> End If
>
> ' panggil cell yang terpilih
> ' yaitu nomer baris sesuai nilai yang didapat dalam idxBrs
> dan kolom 1
> Cells(idxBrs, 1).Select
>
> ' ini adalah akhir pengecekan apakah cell A7 di sheet Rekap
> ada datanya atau tidak
> End If
>
> ' pada aktif cell sesuai dengan pengecekan beberapa kondisi di
> atas
> ' dilakukan paste special sesuai dengan nilai dan format data
> asal
> ActiveCell.PasteSpe
>
> ' setelah itu matikan aplikasi copy paste
> Application.
>
> ' yang ini adalah akhir dari pemeriksaan apakah cData ada datanya
> atau tidak
> End If
>
> ' panggil kembali sheet Nota, karena saat ini yang aktif adalah
> sheet Rekap
> Sheets("Nota"
>
> ' lanjutkan untuk setiap cData berikutnya
> Next cData
>
> ' aktifkan aplikasi screen update
> Application.
>
> ' yang ini adalah akhir dari prosedur
> End Sub
>
> Lalu prosedur tersebut harus dipanggil melalui tombol yang sudah dibuat
> oleh TS, Jan sengaja tidak melampirkan file yang sudah jadi :D
>
> Best Regard,
>
> -Jan Raisin-
>
>
> Pada 21 November 2012 11:07, Mr. Kid <mr.nmkid@gmail.
>
> **
>>
>>
>> Dear BeExceller,
>>
>> Sepertinya penanya belum mengirmkan file lampiran yang lebih sesuai
>> peraturan milis.
>>
>> File terlampir :
>> 1. sample.xls adalah file dari penanya yang sudah dibersihkan sebagian
>> baris-baris kosong atau baris-baris nullstring nya, dengan menyisakan
>> sedikit di sheet rekap tentang keadaan sesungguhnya file dari penanya yang
>> berpotensi menjebak para BeExceller ketika akan membuat prosedur penulisan
>> data ke sheet rekap melalui VBA.
>>
>> 2. Sample_yang_
>> sudah dibersihkan.
>>
>> BeExceller seluruhnya, selamat berkreasi dengan file terlampir. Silakan
>> pilih file yang mana saja untuk mencoba membuat VBA menulis ke sheet rekap.
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2012/11/21 Ugenk Hksn <ugenk_h@yahoo.
>>
>>> **
>>>
>>>
>>> Para pakar excel....
>>> Tolong macro combo utk mencopy ke sheet lain
>>> Maaf masih newbie....File terlampir
>>> Terima kasih
>>>
>>> Wasalam
>>>
>>> ugenk
>>>
>>> --- Mods ---
>>> File lampiran 4MB dicekal.
>>> Semoga penanya bersedia posting file dengan ukuran sesuai peraturan
>>> milis (max 250KB)
>>> ------------
>>> _
>>>
>>>
>>
>>
>
>
Wed Nov 21, 2012 3:29 am (PST) . Posted by:
"aji mumpung"
mbak Jan,
izin untuk sedikit mengutak-atik script dari mbak Jan ya, agar script
tersebut dapat berjalan dengan baik di dua buah file dari mr Kid
Option Explicit
' --------------------------- '
' Code by: Miss Jan Raisin '
' untuk millis Belajar Excel '
' 21 November 2012 '
' Re-coded by: Aji Mumpung '
' 21 November 2012 '
' --------------------------- '
' ini adalah nama prosedurnya
Sub RekapData()
' deklarasikan variabel bertipe Range untuk menyimpan objek berupa range
' rgData = range_Data, letaknya di sheet Nota mulai cell H13 samapai
cell H17
' cData = cell_Data, adalah setiap 1 cell di dalam rgData
Dim rgData, cData As Range
' deklarasikan variabel untuk menyimpan nomer baris dengan tipe Long
' r = nomor baris data pertama di sheet Rekap yaitu baris 7 sampai
dengan nomer baris terakhir yang ada datanya
' data tersebut bisa berupa Null String, atau sebut saja yang nanya
bikin semacam acara Jebakan Betmen
' Brs = nomor baris terakhir yang digunakan, letaknya antah berantah
' idxBrs = nomor baris di bawah data yang masih kosong atau Null String
Dim r, Brs, idxBrs As Long
' non-aktifkan aplikasi screen update untuk mempercepat kerja macro
Application.ScreenUpdating = False
' aktifkan sheet Nota, hal ini untuk berjaga-jaga jika sheet aktif
bukanlah sheet Nota
Sheets("Nota").Select
' tetapkan lokasi rgData, yaitu di sheet Nota >> sudah dipanggil
sebelumnya
' letaknya di cell H13 sampai dengan cell H17
Set rgData = Range("h13:h17")
' untuk setiap 1 cell (cData) di dalam rgData
For Each cData In rgData
' jika nilai cData <> "" maka
If cData.Value <> "" Then
' range cData sampai 8 kolom di sebelah kanan cData dicopy
' untuk menunjuk 8 kolom disebelah kanan cData digunakan
perintah cData.Offset(0, 8)
' untuk melakukan copy digunakan perintah .Copy
Range(cData, cData.Offset(0, 8)).Copy
' panggil / aktifkan sheet Rekap
Sheets("Rekap").Select
' panggil / pergi ke cell A7
Range("a7").Select
' saat ini cell aktif berada di cell A7
' pada cell aktif cek apakah ada datanya atau tidak
' jika pada aktif cell ada datanya, maka
If ActiveCell.Value <> "" Then
' hitung nilai baris paling akhir yang berisi data
' bisa saja berupa Null String yang letaknya di antah
berantah
' untuk mengetahui letak cell digunakan perintah
.SpecialCells(xlCellTypeLastCell)
' untuk mengetahui nomer barisnya digunakan perintah .Row
' lalu nomer baris tersebut disimpan dalam sebuah variabel
bernama Brs
Brs = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
' jika nilai Brs lebih besar dari 7
' kenapa harus 7? karena TS meminta data pertama berada di
cell A7 (kolom A, baris 7)
' jika Brs lebih besar dari 7, maka
'
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '
' penambahan logika untuk seleksi dari :
'
' If Brs > 7 Then
'
' menjadi :
'
If Brs > 7 And Cells(Brs, 1).Value = "" Then
'
' tujuannya adalah untuk mengecek apakah pada kolom A baris
tersebut '
' ada datanya atau tidak
'
'
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '
' lakukan loop mulai dari baris 7 sampai dengan nomer
baris yang disimpan dalam variabel Brs
For r = 7 To Brs
' lalukan pengecekan kondisi, apakah di baris
tersebut pada kolom 1 ada datanya atau tidak
' untuk menunjukknya menggunakan perintah Cells(r,
1)
' syntaxnya adalah Cells(nomer_baris , nomer_kolom)
' jika pada baris tersebut pada kolom 1 tidak ada
datanya atau Null Sring, maka
If Cells(r, 1).Value = "" Then
' ambil nilai berisnya menggunakan perintah .Row
' lalu disimpan dalam variabel bernama idxBrs
idxBrs = Cells(r, 1).Row
' jika sudah ketemu, lalu keluar dari loop
Exit For
' ini adalah akhir dari pengecekan data pada sheet
Rekap
End If
' jika belum ketemu cell dengan data yang kosong, maka
lanjutkan dengan baris berikutnya
Next r
' ini adalah akhir pengecekan jika nilai Brs lebih besar
dari 7
End If
'
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '
' penambahan script untuk pengujian kondisi nilai baris
'
' jika nilai idxBrs = 0, karena tidak memenuhi kriteria
pengujian di atas '
' maka nilai idxBrs yang merupakan baris penulisan data
berikutnya adalah '
' nilai Brs ditambah 1
'
' nilai Brs adalah nilai baris dari data yang terakhir
'
If idxBrs = 0 Then
'
idxBrs = Brs + 1
'
End If
'
'
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '
' panggil cell yang terpilih
' yaitu nomer baris sesuai nilai yang didapat dalam idxBrs
dan kolom 1
Cells(idxBrs, 1).Select
' ini adalah akhir pengecekan apakah cell A7 di sheet Rekap ada
datanya atau tidak
End If
' pada aktif cell sesuai dengan pengecekan beberapa kondisi di
atas
' dilakukan paste special sesuai dengan nilai dan format data
asal
ActiveCell.PasteSpecial (xlPasteValuesAndNumberFormats)
' setelah itu matikan aplikasi copy paste
Application.CutCopyMode = False
' yang ini adalah akhir dari pemeriksaan apakah cData ada datanya
atau tidak
End If
' panggil kembali sheet Nota, karena saat ini yang aktif adalah
sheet Rekap
Sheets("Nota").Select
' lanjutkan untuk setiap cData berikutnya
Next cData
' aktifkan aplikasi screen update
Application.ScreenUpdating = True
' yang ini adalah akhir dari prosedur
End Sub
Yang diberi warna merah adalah penambahan dan peng-edit-an yang saya
lakukan. Insya Allah sekarang script tersebut dapat berjalan dengan baik di
kedua file, sebelumnya sudah dilakukan uji coba terhadap kedua file
tersebut.
Wassalam,
-Aji Mumpung-
Pada 21 November 2012 16:14, Jan Raisin <miss.jan.raisin@gmail.com > menulis:
> **
>
>
> Dear Be Exceler,
>
> maaf, ternyata script dari Jan yang tadi hanya berjalan dengan baik di
> file Sample.xls, jika ada waktu senggang nanti akan coba Jan perbaiki agar
> dapat berjalan di kedua file, jika ada Be-Exceler yang ingin memperbaiki
> script dari Jan, Jan mempersilakan dengan senang hati :)
>
> Best Regard,
>
> Jan Raisin
>
> Pada 21 November 2012 15:34, Jan Raisin <miss.jan.raisin@gmail.com >menulis:
>
>
>>
izin untuk sedikit mengutak-atik script dari mbak Jan ya, agar script
tersebut dapat berjalan dengan baik di dua buah file dari mr Kid
Option Explicit
' ------------
' Code by: Miss Jan Raisin '
' untuk millis Belajar Excel '
' 21 November 2012 '
' Re-coded by: Aji Mumpung '
' 21 November 2012 '
' ------------
' ini adalah nama prosedurnya
Sub RekapData()
' deklarasikan variabel bertipe Range untuk menyimpan objek berupa range
' rgData = range_Data, letaknya di sheet Nota mulai cell H13 samapai
cell H17
' cData = cell_Data, adalah setiap 1 cell di dalam rgData
Dim rgData, cData As Range
' deklarasikan variabel untuk menyimpan nomer baris dengan tipe Long
' r = nomor baris data pertama di sheet Rekap yaitu baris 7 sampai
dengan nomer baris terakhir yang ada datanya
' data tersebut bisa berupa Null String, atau sebut saja yang nanya
bikin semacam acara Jebakan Betmen
' Brs = nomor baris terakhir yang digunakan, letaknya antah berantah
' idxBrs = nomor baris di bawah data yang masih kosong atau Null String
Dim r, Brs, idxBrs As Long
' non-aktifkan aplikasi screen update untuk mempercepat kerja macro
Application.
' aktifkan sheet Nota, hal ini untuk berjaga-jaga jika sheet aktif
bukanlah sheet Nota
Sheets("Nota"
' tetapkan lokasi rgData, yaitu di sheet Nota >> sudah dipanggil
sebelumnya
' letaknya di cell H13 sampai dengan cell H17
Set rgData = Range("h13:h17"
' untuk setiap 1 cell (cData) di dalam rgData
For Each cData In rgData
' jika nilai cData <> "" maka
If cData.Value <> "" Then
' range cData sampai 8 kolom di sebelah kanan cData dicopy
' untuk menunjuk 8 kolom disebelah kanan cData digunakan
perintah cData.Offset(
' untuk melakukan copy digunakan perintah .Copy
Range(cData, cData.Offset(
' panggil / aktifkan sheet Rekap
Sheets("Rekap"
' panggil / pergi ke cell A7
Range("a7").
' saat ini cell aktif berada di cell A7
' pada cell aktif cek apakah ada datanya atau tidak
' jika pada aktif cell ada datanya, maka
If ActiveCell.Value <> "" Then
' hitung nilai baris paling akhir yang berisi data
' bisa saja berupa Null String yang letaknya di antah
berantah
' untuk mengetahui letak cell digunakan perintah
.SpecialCells(
' untuk mengetahui nomer barisnya digunakan perintah .Row
' lalu nomer baris tersebut disimpan dalam sebuah variabel
bernama Brs
Brs = ActiveCell.SpecialC
' jika nilai Brs lebih besar dari 7
' kenapa harus 7? karena TS meminta data pertama berada di
cell A7 (kolom A, baris 7)
' jika Brs lebih besar dari 7, maka
'
~~~~~~~~~~~~
' penambahan logika untuk seleksi dari :
'
' If Brs > 7 Then
'
' menjadi :
'
If Brs > 7 And Cells(Brs, 1).Value = "" Then
'
' tujuannya adalah untuk mengecek apakah pada kolom A baris
tersebut '
' ada datanya atau tidak
'
'
~~~~~~~~~~~~
' lakukan loop mulai dari baris 7 sampai dengan nomer
baris yang disimpan dalam variabel Brs
For r = 7 To Brs
' lalukan pengecekan kondisi, apakah di baris
tersebut pada kolom 1 ada datanya atau tidak
' untuk menunjukknya menggunakan perintah Cells(r,
1)
' syntaxnya adalah Cells(nomer_
' jika pada baris tersebut pada kolom 1 tidak ada
datanya atau Null Sring, maka
If Cells(r, 1).Value = "" Then
' ambil nilai berisnya menggunakan perintah .Row
' lalu disimpan dalam variabel bernama idxBrs
idxBrs = Cells(r, 1).Row
' jika sudah ketemu, lalu keluar dari loop
Exit For
' ini adalah akhir dari pengecekan data pada sheet
Rekap
End If
' jika belum ketemu cell dengan data yang kosong, maka
lanjutkan dengan baris berikutnya
Next r
' ini adalah akhir pengecekan jika nilai Brs lebih besar
dari 7
End If
'
~~~~~~~~~~~~
' penambahan script untuk pengujian kondisi nilai baris
'
' jika nilai idxBrs = 0, karena tidak memenuhi kriteria
pengujian di atas '
' maka nilai idxBrs yang merupakan baris penulisan data
berikutnya adalah '
' nilai Brs ditambah 1
'
' nilai Brs adalah nilai baris dari data yang terakhir
'
If idxBrs = 0 Then
'
idxBrs = Brs + 1
'
End If
'
'
~~~~~~~~~~~~
' panggil cell yang terpilih
' yaitu nomer baris sesuai nilai yang didapat dalam idxBrs
dan kolom 1
Cells(idxBrs, 1).Select
' ini adalah akhir pengecekan apakah cell A7 di sheet Rekap ada
datanya atau tidak
End If
' pada aktif cell sesuai dengan pengecekan beberapa kondisi di
atas
' dilakukan paste special sesuai dengan nilai dan format data
asal
ActiveCell.PasteSpe
' setelah itu matikan aplikasi copy paste
Application.
' yang ini adalah akhir dari pemeriksaan apakah cData ada datanya
atau tidak
End If
' panggil kembali sheet Nota, karena saat ini yang aktif adalah
sheet Rekap
Sheets("Nota"
' lanjutkan untuk setiap cData berikutnya
Next cData
' aktifkan aplikasi screen update
Application.
' yang ini adalah akhir dari prosedur
End Sub
Yang diberi warna merah adalah penambahan dan peng-edit-an yang saya
lakukan. Insya Allah sekarang script tersebut dapat berjalan dengan baik di
kedua file, sebelumnya sudah dilakukan uji coba terhadap kedua file
tersebut.
Wassalam,
-Aji Mumpung-
Pada 21 November 2012 16:14, Jan Raisin <miss.jan.raisin@
> **
>
>
> Dear Be Exceler,
>
> maaf, ternyata script dari Jan yang tadi hanya berjalan dengan baik di
> file Sample.xls, jika ada waktu senggang nanti akan coba Jan perbaiki agar
> dapat berjalan di kedua file, jika ada Be-Exceler yang ingin memperbaiki
> script dari Jan, Jan mempersilakan dengan senang hati :)
>
> Best Regard,
>
> Jan Raisin
>
> Pada 21 November 2012 15:34, Jan Raisin <miss.jan.raisin@
>
>
>>
Wed Nov 21, 2012 1:41 am (PST) . Posted by:
"Teti Zhe" teti_zhe
Dear All,
Mohon bantuannya , saya ada data yang ingin saya filter :
1. Dari sheet1 (sheet ALL) ke sheet2 (sheet SelectedAwal) tapi berdasarkan kriteria pada kolom Status semua yang DO, Tidak Sekolah, dan Tamat . Data-data yang terseleksi sesuai kriteria tersebut dicopy ke sheet2 dengan format tabel seperti pada sheet1... Kemudian data yang masih tinggal, yang tidak memenuhi kriteria (yang pada kolom status adalah Sekolah) akan dicopy pada sheet2 (sheet Pending). <File terlampir : 1.Bgm_Filter_DataSelectedAwal>.
2. Seperti pada lampiran kedua ( File : 2.Bgm_Filter_DataPending) , jika tadi telah ada data yang uda kian dikasi di sheet2 (sheet SelectedAwal) yang tadinya adalah hasil filter sebagian data dari sheet1 (Sheet ALL), nah bagaimana mengetahui data-data yang belum difilter atau data-data yang belum ada pada sheet SelectedAwal? kemudian data-data yang belum termasuk di sheet SelectedAwal tersebut dimasukkan/dicopy pada sheet Pending dan mengikuti format tabel yang ada?
Makasih atas bantuan dan pencerahannya....
Salam,
Teti.
Mohon bantuannya , saya ada data yang ingin saya filter :
1. Dari sheet1 (sheet ALL) ke sheet2 (sheet SelectedAwal) tapi berdasarkan kriteria pada kolom Status semua yang DO, Tidak Sekolah, dan Tamat . Data-data yang terseleksi sesuai kriteria tersebut dicopy ke sheet2 dengan format tabel seperti pada sheet1... Kemudian data yang masih tinggal, yang tidak memenuhi kriteria (yang pada kolom status adalah Sekolah) akan dicopy pada sheet2 (sheet Pending). <File terlampir : 1.Bgm_Filter_
2. Seperti pada lampiran kedua ( File : 2.Bgm_Filter_
Makasih atas bantuan dan pencerahannya.
Salam,
Teti.
Wed Nov 21, 2012 1:52 am (PST) . Posted by:
"Andre Rahmaidy Teeza" andre_teeza_bn
hasil output vba maupun save txt bisa saya lihat dimana ya, karena saya lihat ada tombol button..
mohon petunjuknya pak.
____________
From: Mr. Kid <mr.nmkid@gmail.
To: belajar-excel@
Sent: Tuesday, November 20, 2012 5:53 PM
Subject: Re: [belajar-excel] Entri Data Pakai VBA
Hai Andre,
Mohon tidak cc kemana-mana lagi ya.
File terlampir hanya menulis fixedlength ke text file. Penggunaan lebih luas, silakan dikembangkan sendiri.
Boleh pilih cara yang manapun yang ada dalam file terlampir (pilih salah satu yang mudah untuk dipahami).
Cara 1 memanfaatkan fitur Save As text file yang dimiliki oleh Excel
Cara 2 memanfaatkan proses Input/Output file yang dimiliki oleh VB
Wassalam,
Kid.
2012/11/20 Andre Rahmaidy Teeza <andre_teeza_
>
>Salam Kenal,
>
>
>Gimana caranya bikin program entri data pakai macro exel (VBA), yang hasil entri data tsb filetxt seperti contoh terlampir.
>
>
>
>
>
>
>
>
>
>
>Regards
>
>
>Andree
>
>
Wed Nov 21, 2012 1:54 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hehehe.. lupa.
Output file ada di folder yang sama dengan file .xlsm nya.
Wassalam,
Kid.
2012/11/21 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com >
> **
>
>
> hasil output vba maupun save txt bisa saya lihat dimana ya, karena saya
> lihat ada tombol button..
> mohon petunjuknya pak.
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, November 20, 2012 5:53 PM
> *Subject:* Re: [belajar-excel] Entri Data Pakai VBA
>
>
> Hai Andre,
>
> Mohon tidak cc kemana-mana lagi ya.
>
> File terlampir hanya menulis fixedlength ke text file. Penggunaan lebih
> luas, silakan dikembangkan sendiri.
>
> Boleh pilih cara yang manapun yang ada dalam file terlampir (pilih salah
> satu yang mudah untuk dipahami).
> Cara 1 memanfaatkan fitur Save As text file yang dimiliki oleh Excel
> Cara 2 memanfaatkan proses Input/Output file yang dimiliki oleh VB
>
> Wassalam,
> Kid.
>
> 2012/11/20 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com >
>
> **
>
> Salam Kenal,
>
> Gimana caranya bikin program entri data pakai macro exel (VBA), yang hasil
> entri data tsb filetxt seperti contoh terlampir.
>
>
>
>
>
> Regards
>
> Andree
>
>
>
>
>
>
Output file ada di folder yang sama dengan file .xlsm nya.
Wassalam,
Kid.
2012/11/21 Andre Rahmaidy Teeza <andre_teeza_
> **
>
>
> hasil output vba maupun save txt bisa saya lihat dimana ya, karena saya
> lihat ada tombol button..
> mohon petunjuknya pak.
>
> ------------
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Tuesday, November 20, 2012 5:53 PM
> *Subject:* Re: [belajar-excel] Entri Data Pakai VBA
>
>
> Hai Andre,
>
> Mohon tidak cc kemana-mana lagi ya.
>
> File terlampir hanya menulis fixedlength ke text file. Penggunaan lebih
> luas, silakan dikembangkan sendiri.
>
> Boleh pilih cara yang manapun yang ada dalam file terlampir (pilih salah
> satu yang mudah untuk dipahami).
> Cara 1 memanfaatkan fitur Save As text file yang dimiliki oleh Excel
> Cara 2 memanfaatkan proses Input/Output file yang dimiliki oleh VB
>
> Wassalam,
> Kid.
>
> 2012/11/20 Andre Rahmaidy Teeza <andre_teeza_
>
> **
>
> Salam Kenal,
>
> Gimana caranya bikin program entri data pakai macro exel (VBA), yang hasil
> entri data tsb filetxt seperti contoh terlampir.
>
>
>
>
>
> Regards
>
> Andree
>
>
>
>
>
>
Wed Nov 21, 2012 2:32 am (PST) . Posted by:
"Andre Rahmaidy Teeza" andre_teeza_bn
Sore Pak Kid
saya udah download file xlm yang dimaksud, yang saya maksud ketika saya klik tombol button macro kok ouputnya tidak muncul.. mohon petunjuknya pak..
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, November 20, 2012 5:53 PM
Subject: Re: [belajar-excel] Entri Data Pakai VBA
Hai Andre,
Mohon tidak cc kemana-mana lagi ya.
File terlampir hanya menulis fixedlength ke text file. Penggunaan lebih luas, silakan dikembangkan sendiri.
Boleh pilih cara yang manapun yang ada dalam file terlampir (pilih salah satu yang mudah untuk dipahami).
Cara 1 memanfaatkan fitur Save As text file yang dimiliki oleh Excel
Cara 2 memanfaatkan proses Input/Output file yang dimiliki oleh VB
Wassalam,
Kid.
2012/11/20 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com >
>
>Salam Kenal,
>
>
>Gimana caranya bikin program entri data pakai macro exel (VBA), yang hasil entri data tsb filetxt seperti contoh terlampir.
>
>
>
>
>
>
>
>
>
>
>Regards
>
>
>Andree
>
>
saya udah download file xlm yang dimaksud, yang saya maksud ketika saya klik tombol button macro kok ouputnya tidak muncul.. mohon petunjuknya pak..
____________
From: Mr. Kid <mr.nmkid@gmail.
To: belajar-excel@
Sent: Tuesday, November 20, 2012 5:53 PM
Subject: Re: [belajar-excel] Entri Data Pakai VBA
Hai Andre,
Mohon tidak cc kemana-mana lagi ya.
File terlampir hanya menulis fixedlength ke text file. Penggunaan lebih luas, silakan dikembangkan sendiri.
Boleh pilih cara yang manapun yang ada dalam file terlampir (pilih salah satu yang mudah untuk dipahami).
Cara 1 memanfaatkan fitur Save As text file yang dimiliki oleh Excel
Cara 2 memanfaatkan proses Input/Output file yang dimiliki oleh VB
Wassalam,
Kid.
2012/11/20 Andre Rahmaidy Teeza <andre_teeza_
>
>Salam Kenal,
>
>
>Gimana caranya bikin program entri data pakai macro exel (VBA), yang hasil entri data tsb filetxt seperti contoh terlampir.
>
>
>
>
>
>
>
>
>
>
>Regards
>
>
>Andree
>
>
Wed Nov 21, 2012 2:36 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Spertinya begini :
1. download dan save ke folder A di drive tertentu dikomputer
2. buka file .xlsm
3. *pastikan sudah pencet Enable Macro kalau ditanya*
4. pencet salah satu tombol sampai muncul pesan selesai
5. *buka windows explorer dan menuju lokasi file hasil download .xlsm tadi*
6. cari file berekstensi .txt disana
7. buka file txt dengan notepad
Wassalam,
Kid.
2012/11/21 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com >
> **
>
>
> Sore Pak Kid
>
> saya udah download file xlm yang dimaksud, yang saya maksud ketika saya
> klik tombol button macro kok ouputnya tidak muncul.. mohon petunjuknya pak..
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, November 20, 2012 5:53 PM
> *Subject:* Re: [belajar-excel] Entri Data Pakai VBA
>
>
> Hai Andre,
>
> Mohon tidak cc kemana-mana lagi ya.
>
> File terlampir hanya menulis fixedlength ke text file. Penggunaan lebih
> luas, silakan dikembangkan sendiri.
>
> Boleh pilih cara yang manapun yang ada dalam file terlampir (pilih salah
> satu yang mudah untuk dipahami).
> Cara 1 memanfaatkan fitur Save As text file yang dimiliki oleh Excel
> Cara 2 memanfaatkan proses Input/Output file yang dimiliki oleh VB
>
> Wassalam,
> Kid.
>
> 2012/11/20 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com >
>
> **
>
> Salam Kenal,
>
> Gimana caranya bikin program entri data pakai macro exel (VBA), yang hasil
> entri data tsb filetxt seperti contoh terlampir.
>
>
>
>
>
> Regards
>
> Andree
>
>
>
>
>
>
1. download dan save ke folder A di drive tertentu dikomputer
2. buka file .xlsm
3. *pastikan sudah pencet Enable Macro kalau ditanya*
4. pencet salah satu tombol sampai muncul pesan selesai
5. *buka windows explorer dan menuju lokasi file hasil download .xlsm tadi*
6. cari file berekstensi .txt disana
7. buka file txt dengan notepad
Wassalam,
Kid.
2012/11/21 Andre Rahmaidy Teeza <andre_teeza_
> **
>
>
> Sore Pak Kid
>
> saya udah download file xlm yang dimaksud, yang saya maksud ketika saya
> klik tombol button macro kok ouputnya tidak muncul.. mohon petunjuknya pak..
>
> ------------
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Tuesday, November 20, 2012 5:53 PM
> *Subject:* Re: [belajar-excel] Entri Data Pakai VBA
>
>
> Hai Andre,
>
> Mohon tidak cc kemana-mana lagi ya.
>
> File terlampir hanya menulis fixedlength ke text file. Penggunaan lebih
> luas, silakan dikembangkan sendiri.
>
> Boleh pilih cara yang manapun yang ada dalam file terlampir (pilih salah
> satu yang mudah untuk dipahami).
> Cara 1 memanfaatkan fitur Save As text file yang dimiliki oleh Excel
> Cara 2 memanfaatkan proses Input/Output file yang dimiliki oleh VB
>
> Wassalam,
> Kid.
>
> 2012/11/20 Andre Rahmaidy Teeza <andre_teeza_
>
> **
>
> Salam Kenal,
>
> Gimana caranya bikin program entri data pakai macro exel (VBA), yang hasil
> entri data tsb filetxt seperti contoh terlampir.
>
>
>
>
>
> Regards
>
> Andree
>
>
>
>
>
>
Wed Nov 21, 2012 2:38 am (PST) . Posted by:
"aji mumpung"
file txt-nya ada di folder yang sama dengan file xlm-nya, jika file
langsung dibuka setelah di-download, maka seharusnya file txt berada di
folder download atau unduhan, sesuai dengan user name pada komputer anda
misal: C:/Users/AjiMumpung/DownLoad/nah_di_sini_file_txt-nya_berada
Wassalam,
-aji mumpung-
Pada 21 November 2012 17:21, Andre Rahmaidy Teeza
<andre_teeza_bn@yahoo.com >menulis:
> **
>
>
> Sore Pak Kid
>
> saya udah download file xlm yang dimaksud, yang saya maksud ketika saya
> klik tombol button macro kok ouputnya tidak muncul.. mohon petunjuknya pak..
>
> ------------------------------
>
langsung dibuka setelah di-download, maka seharusnya file txt berada di
folder download atau unduhan, sesuai dengan user name pada komputer anda
misal: C:/Users/AjiMumpung
Wassalam,
-aji mumpung-
Pada 21 November 2012 17:21, Andre Rahmaidy Teeza
<andre_teeza_
> **
>
>
> Sore Pak Kid
>
> saya udah download file xlm yang dimaksud, yang saya maksud ketika saya
> klik tombol button macro kok ouputnya tidak muncul.. mohon petunjuknya pak..
>
> ------------
>
Wed Nov 21, 2012 5:17 am (PST) . Posted by:
"Harry" hariansyahptk
Dear BeExceller,
Mohon informasi bagaimana caranya memunculkan Tabs Microsoft ADO Data Control pada Toolbox.
Pada Project Explor (Toolbox) saya cari tidak ada.
Mohon berkenan informasi teman-teman BeExcller.
Wassalam,
Harry
Sent from Yahoo! Mail on Android
Wed Nov 21, 2012 6:44 am (PST) . Posted by:
"Harry" hariansyahptk
Dear BeExceller,
Jan Raisin
Terima kasih atas infonya. Caranya sudah ketemu.
Regards,
Harry
Sent from Yahoo! Mail on Android
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
---------------------------------------------------------------------
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