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

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.