Hot Fox

segunda-feira, 29 de agosto de 2011

Re: ]] XL-mania [[ insert beberapa row dalam data

Hai Mr o'Seno,

Kalau tidak heboh & lucu, bukan mbak siti namanya;

Jaman di asrama dulu kalau dia pulang, asramanya sepppiiiii !!

berikut ini modifikasi makronya; maaf kalau masih ada kekurangan

(misal warna header masih dibiarkan menular ke sisipan paling aas..)

Sub ctv_InsertRowsBeruntun()

' coded by siti Vi / 28 Agu 2011

'-------------------------------

Dim Rng As Range, N As Integer, R As Long

On Error GoTo Ngisorr

Set Rng = Application.InputBox("Select Range yg akan diproses.", _

"Input Range Selection", Selection.Address, , , , , 8)

N = CInt(InputBox("Jumlah Baris Per-sekali Insert: ", _

"JumlahRow yg Di-Insertkan", 1))

Set Rng = Rng.CurrentRegion '<<-- modifikasi /Haps

For R = Rng.Rows.Count To 2 Step -1

'--- modifikasi /Haps 29 aug 2011 ---

Rng(R, 1).Resize(N, Rng.Columns.Count).Insert Shift:=xlDown

'--- akhir modifikasi -------------

Next R

Ngisorr:

End Sub

menjalankan makro masih dipermudah dengan KlikKanan Cell A1 (lihat PopUp Menu nya)

2011/8/28 OntoSeno <ontoseno84@ymail.com>

:D.. :D.. :D.., mbak siti... mbak siti.
orang nulis macro biasanya kan 'seriosa'...
tapi di tangan-letik mbak siti bahasa VBA malah bisa dibuat dagelan.
baru kali ini aku melihat macro bisa super lucu...

saya sudah coba-coba, & hasilnya "nyiip" (sipp) mbak, tetapi
keperluanku agak lain.
data: ada 7 kolom (mulai kolom A) dengan Header ada di baris 3.
Di sebelah kanan tabel selang beberapa kolom ada tabel lagi.

Bgmana modifikasinya agar penyisipan baris baru di kolom A:G
tidak menyisipi baris baru di kolom setelah AG.

Mbak LadyMacro, jawabannya tidak tergesa-gesa, nanti habis lebaran
juga "nyip" lah..

matur nuwun,
selamat idul fitri, mohon maaf lahir batin

o'Seno
maaf belum dapat melampirkan workbook, karena masih ikut milis
via web... segera disusulkan.

> Sub ctv_InsertRowsBeruntun()
> ' coded by siti Vi / 28 Agu 2011
> '-------------------------------
> ' Dim Jamal As Decimal, Yulian As Boolean
> ' Dim King As String, Kong as Long
> ' Dim Jomblo as Single, Jomblowati As Single
> ' Dim Pasutri As Double, Trouble As Double
> ' Dim Tali As String
> ' Dim LampuDepan
> On *Error* GoTo *Ngisorr*
>---------------------------------------------------

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (6)

Recent Activity:

New Members 37

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| selamat idul fitri, mohon maaf lahir dan batin...                 |
| www.linkedin.com/company/xl-mania                                 |
| ayo pesan buku "mengapa boss benci chart anda" :D :D :D          |
+-------------------------------------------------------------------+
| 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

A bad score is 598. A bad idea is not checking yours, at freecreditscore.com.

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

domingo, 28 de agosto de 2011

]] XL-mania [[ Fungsi Macro Penjumlah

Mohon bantuan para pakar XL ...

Apa fungsi macro yang dipakai untuk menjumlahkan Qty berdasarkan part.id

Contoh terlampir

Terima kasih..

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (1)

Recent Activity:

New Members 37

Visit Your Group

MARKETPLACE

A bad score is 579. A good idea is checking yours at freecreditscore.com.

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

Re: ]] XL-mania [[ insert beberapa row dalam data

tambahan opsi formula non array dan bebas start dari baris mana saja
=IF(MOD(ROWS($1:1)-1;5)=0;INDEX($A$2:$A$6;TRUNC((ROWS($1:1)-1)/5)+1);"")

wassalam

Ghozi Alkatiri

--- Pada Ming, 28/8/11, STDEV(i) <setiyowati.devi@gmail.com> menulis:

Dari: STDEV(i) <setiyowati.devi@gmail.com>
Judul: Re: ]] XL-mania [[ insert beberapa row dalam data
Kepada: XL-mania@yahoogroups.com
Tanggal: Minggu, 28 Agustus, 2011, 2:12 PM

Formula di bawah ini, bukan array formula dan tidak ada syarat
harus ditulis mulai di ROW mana tabel rujukan berada..

=IF(MOD(ROW(1:1)-1,5)=0,OFFSET($A$1,CEILING(ROW(1:1),5)/5,0),"")

Row(1:1)
membuat nomor urut sekuensial 1,2,3,4 dst sesuai di row mana dituliskannya.

(nilai (1:1) akan berubah menjadi 2:2, 3:3 dst )
MOD(Row(1:1)=0 mendetaksi apakah nomor urut = 0

hasilnya (true/false) akan dijadikan logikal test bagi fungsi IF)

Jika hasil MOD(Row(1:1)=0 >> tuliskan hasil OFFSET, (jika tidak) tuliskan BLANK

OFFSET($A$1,CEILING(ROW(1:1),5)/5,0)

OFFSET sendiri menghasilkan data seperti di tabel rujukan, bedanya setiap

baris ditulis 5 kali (tapi hanya ditampakkan sekali), yaitu ketika logikal test dlm IF
menghasilkan TRUE).

2011/8/28 ghozi alkatiri <ghozialkatiri@yahoo.co.id>

>
> untuk solusi kasus ini setidak tidaknya harus ada baris di atas formula awal minimal sejumlah baris yang diinginkan untuk diinsert di sela data. dalam hal ini karena yang diinginkan adalah 5 baris ,maka paling tidak formula awal baru bisa dibuat pada baris ke 6 .
>
> karena dibutuhkan 5 baris sebelumnya untuk referensi formula.
>
> formulanya (formula array ) : formula awal di F6
>
> {=IF(COUNTIF(F$5:F5;INDEX($A$6:$A$10;MATCH(;COUNTIF(F$1:F1;$A$6:$A$10);0)))=1;"";
> INDEX($A$6:$A$10;MATCH(;COUNTIF(F$1:F1;$A$6:$A$10);0)))}
>
> formula ini sebetulnya adalah modifikasi dari formula
> {=INDEX($A$6:$A$10;MATCH(;COUNTIF(F$1:F1;$A$6:$A$10);0))}
>
> yang hasilnya mengulang setiap data 5 kali (5 baris). selanjutnya ditambah dengan formula yang

> memerintahkan untuk hanya mengeluarkan data pada baris pertama saja.
>
> wassalam
> Ghozi Alkatiri
>

--- Pada Sab, 27/8/11, Yan Novianto <da_yan.novianto@yahoo.co.id> menulis:
tolong di bantu bagaimana cara nya untuk menambahkan row misal dengan 5 row di setiap data,
contoh terlampir,
terimakasih
Yan Novianto

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (5)

Recent Activity:

New Members 47

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| jangan lupa sebelum libur:                                        |
| - add XL-mania di linkedin www.linkedin.com/company/xl-mania      |
| - pesan buku "mengapa boss benci chart anda" :D :D :D            |
+-------------------------------------------------------------------+
| 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

A bad score is 598. A bad idea is not checking yours, at freecreditscore.com.

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

__,_._,___

Hot Fox

segunda-feira, 29 de agosto de 2011

Re: ]] XL-mania [[ insert beberapa row dalam data

domingo, 28 de agosto de 2011

]] XL-mania [[ Fungsi Macro Penjumlah

Re: ]] XL-mania [[ insert beberapa row dalam data

Arquivo do blog