Messages In This Digest (12 Messages)

1a.: Re: Menghapus Range Ganjil dengan Macro From: STDEV(i)
1b.: Re: Menghapus Range Ganjil dengan Macro From: hendrik karnadi
1c.: Re: Menghapus Range Ganjil dengan Macro From: summonery

2a.: Re: Iterasi Circular Reference Pada Excel From: summonery
2b.: Re: Iterasi Circular Reference Pada Excel From: arif
2c.: Re: Iterasi Circular Reference Pada Excel From: summonery
2d.: Re: Iterasi Circular Reference Pada Excel From: arif

3a.: Re: menamai range terpilih (name range selected) From: si Nung
3b.: Re: menamai range terpilih (name range selected) From: si Nung
3c.: Re: menamai range terpilih (name range selected) From: Mr. Kid

4a.: VLookUp Otomatis From: jajang muhammad siddik
4b.: Re: VLookUp Otomatis From: Franciscus SOG

View All Topics | Create New Topic

Messages

1a.: Re: Menghapus Range Ganjil dengan Macro

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Tue Jun 14, 2011 12:58 am (PDT)

wah kayaknya ada yg agak kacauw di sini.. mengenai *object yang ingin
dideleted*
*
*
** permintaannya = *RANGE Ganjil*
** contohnya = *ROW Genap (*row yg dicat kuning bernomor genap*)*
** (setelah diamati sebetulnya keperluannya adalah mendeleted = *Row Kosong*
ya namanya tergesa-gesa ya to ?

Sub Del_Blank_Rowwws()
'siti markonah /jun 14, 2011
'beExcel case # 11002
'-----------------------------
Dim Areaku As Range, r As Long
Set Areaku = ActiveSheet.UsedRange
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For r = Areaku.Rows.Count To 1 Step -1
If WorksheetFunction.CountA( _
Areaku(r + 1, 1).Resize(1, Areaku.Columns.Count)) = 0 Then
Areaku(r + 1, 1).EntireRow.Delete
End If
Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

ceritaknya..
kalau loop pakai pencacah bilangan dimana bilangan digunakan untuk mengindex
object;
ditengah pencacahan jangan ada object (yg diindex) dilenyapkan, nanti
hitungan loopnya
suka kacauw
makanya loop sebaiknya dihitung mundur, (dari bawah ke atas) ROW yg
dirujukpun ROW
yg letaknya dibawah Index yg sedang dipegang oleh Loop ( r+1)

Inticeritaknya:
Jika pada *baris (r+1) dicek = ndak ada datanya* ( Counta(baris r+1 ) = 0
), maka
*tega-kanlah untuk **melenyapkan Baris tsb*

UsedRange digunakan agar *proses dibatasi hanya mengurus area UsedRange*(area
pesegi yg didalamnya ada datanya),
*kalau tidak*: seluruh baris sheet akan dicek, kelamaan la yauw...

begitulah kira-kira...

2011/6/14 lut her <luth3rs@yahoo.com>

> Dear all excel mania,
> mohon bantuannya untuk menghilangkan baris dengan macro contoh kasus
> terlampir, selama ini pengerjaannya manual dblok dulu barisnya kemudian
> delete dikarenakan datanya ribuan perlu macro untuk pengerjaannya supaya
> cepet mohon penyelesaiannya.
> terima kasih sebelumnya yah...
> luth
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
1b.: Re: Menghapus Range Ganjil dengan Macro

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Tue Jun 14, 2011 1:05 am (PDT)

Langkahnya adalah sbb :
- Non aktifkan layar
- Tetapkan jumlah baris (No Baris terakhir, dalam Contoh 22) melalui input
- Jumlah baris yang akan dihapus adalah Jumlah baris : 2
- Select sel A1, yang merupakan tahap awal
- Lakukan langkah2 berikut :
    -- Turun 1 baris
    -- Hapus baris
    -- Ulangi sampai dengan baris terakhir
- Aktifkan layar

Jika diterjemahkan dalam macro menjadi sbb :
Sub DelBarisGenap()
    Application.ScreenUpdating = False
    n = InputBox("Masukkan Jumlah Baris", "JUMLAH BARIS")
    i = n / 2
    Range("A1").Select
    Do While ActiveCell.Row <= i
        ActiveCell.Offset(1, 0).Select
        ActiveCell.EntireRow.Delete
    Loop
    Application.ScreenUpdating = True
End Sub

Untuk memudahkan saya buat shortcut CTRL Z (tekan tombol Ctrl dan Z sekaligus)

Semoga membantu.

Salam,
Hendrik Karnadi

________________________________
From: lut her <luth3rs@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, June 14, 2011 13:57:48
Subject: [belajar-excel] Menghapus Range Ganjil dengan Macro

Dear all excel mania,

mohon bantuannya untuk menghilangkan baris dengan macro contoh kasus terlampir,
selama ini pengerjaannya manual dblok dulu barisnya kemudian delete dikarenakan
datanya ribuan perlu macro untuk pengerjaannya supaya cepet mohon
penyelesaiannya.

terima kasih sebelumnya yah...

luth

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
1c.: Re: Menghapus Range Ganjil dengan Macro

Posted by: "summonery" summonery@yahoo.com summonery

Tue Jun 14, 2011 2:05 am (PDT)

jika saya tidak salah mengartikan maksud anda,
1. Pada kolom diluar range data anda, misal J2, isikan formula =COUNTA(A2:I2) copy kan sampai baris terakhir data anda
2. Filter pada kolom J yang mempunyai nilai Nol,
3. Delete atas hasil filter tersebut.

(tanyakan kembali jika excel tidak mau menghapus)

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, lut her <luth3rs@...> wrote:
>
> Dear all excel mania,
>
> mohon bantuannya untuk menghilangkan baris dengan macro contoh kasus terlampir,
> selama ini pengerjaannya manual dblok dulu barisnya kemudian delete dikarenakan
> datanya ribuan perlu macro untuk pengerjaannya supaya cepet mohon
> penyelesaiannya.
>
> terima kasih sebelumnya yah...
>
> luth
>

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

2a.: Re: Iterasi Circular Reference Pada Excel

Posted by: "summonery" summonery@yahoo.com summonery

Tue Jun 14, 2011 2:19 am (PDT)

excel punya caranya tersendiri,

referensi jika ingin menggunakan kedua iterasi tersebut:
http://www.ferris.edu/faculty/burtchr/sure372/notes/jacobi_and_gauss-seidel.pdf

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, "arif" <noztrad@...> wrote:
>
> Ketika saya menggunakan excel dan mengalami circular references, saya mengaktifkan manual calculation dengan menggunakan iterasi, namun saya bingung, iterasi apakah yang digunakan oleh excel, apakah metode gauss-seidel, metode jacobi atau SOR atau mungkin iterasi yang excel bangun sendiri, mohon penjelasannya :D tidak menolak bila diberi link referensi eheheh
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2b.: Re: Iterasi Circular Reference Pada Excel

Posted by: "arif" noztrad@yahoo.co.id noztrad

Tue Jun 14, 2011 3:17 am (PDT)

terima kasih atas referensinya, namun yang dimaksud "cara tersediri" dalam excel itu apa yah? apakah bisa diilustrasikan atau dialgoritmakan?

Terima Kasih

--- In belajar-excel@yahoogroups.com, "summonery" <summonery@...> wrote:
>
> excel punya caranya tersendiri,
>
> referensi jika ingin menggunakan kedua iterasi tersebut:
> http://www.ferris.edu/faculty/burtchr/sure372/notes/jacobi_and_gauss-seidel.pdf
>
>
> >semoga bermanfaat
>
>
> --- In belajar-excel@yahoogroups.com, "arif" <noztrad@> wrote:
> >
> > Ketika saya menggunakan excel dan mengalami circular references, saya mengaktifkan manual calculation dengan menggunakan iterasi, namun saya bingung, iterasi apakah yang digunakan oleh excel, apakah metode gauss-seidel, metode jacobi atau SOR atau mungkin iterasi yang excel bangun sendiri, mohon penjelasannya :D tidak menolak bila diberi link referensi eheheh
> >
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2c.: Re: Iterasi Circular Reference Pada Excel

Posted by: "summonery" summonery@yahoo.com summonery

Tue Jun 14, 2011 7:33 am (PDT)

Well... Saya rasa, saya tidak kompeten tuk menjawab sesuatu yang sangat teknis tentang detail algoritmanya,
Btw, link berikut ini mungkin dpt membantu tuk memberikan sdikit gambaran,

http://support.microsoft.com/kb/214115/en-us

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, "arif" <noztrad@...> wrote:
>
> terima kasih atas referensinya, namun yang dimaksud "cara tersediri" dalam excel itu apa yah? apakah bisa diilustrasikan atau dialgoritmakan?
>
>
> Terima Kasih
>
> --- In belajar-excel@yahoogroups.com, "summonery" <summonery@> wrote:
> >
> > excel punya caranya tersendiri,
> >
> > referensi jika ingin menggunakan kedua iterasi tersebut:
> > http://www.ferris.edu/faculty/burtchr/sure372/notes/jacobi_and_gauss-seidel.pdf
> >
> >
> > >semoga bermanfaat
> >
> >
> > --- In belajar-excel@yahoogroups.com, "arif" <noztrad@> wrote:
> > >
> > > Ketika saya menggunakan excel dan mengalami circular references, saya mengaktifkan manual calculation dengan menggunakan iterasi, namun saya bingung, iterasi apakah yang digunakan oleh excel, apakah metode gauss-seidel, metode jacobi atau SOR atau mungkin iterasi yang excel bangun sendiri, mohon penjelasannya :D tidak menolak bila diberi link referensi eheheh
> > >
> >
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2d.: Re: Iterasi Circular Reference Pada Excel

Posted by: "arif" noztrad@yahoo.co.id noztrad

Tue Jun 14, 2011 2:23 pm (PDT)

wah terima kasih sekali. link tentang solver membantu memberikan gambaran tentang algoritmanya, dan memang inilah yang saya cari. mungkin kurang googling saya hehe anyway thank's a lot

--- In belajar-excel@yahoogroups.com, "summonery" <summonery@...> wrote:
>
>
> Well... Saya rasa, saya tidak kompeten tuk menjawab sesuatu yang sangat teknis tentang detail algoritmanya,
> Btw, link berikut ini mungkin dpt membantu tuk memberikan sdikit gambaran,
>
> http://support.microsoft.com/kb/214115/en-us
>
>
> >semoga bermanfaat
>
>
> --- In belajar-excel@yahoogroups.com, "arif" <noztrad@> wrote:
> >
> > terima kasih atas referensinya, namun yang dimaksud "cara tersediri" dalam excel itu apa yah? apakah bisa diilustrasikan atau dialgoritmakan?
> >
> >
> > Terima Kasih
> >
> > --- In belajar-excel@yahoogroups.com, "summonery" <summonery@> wrote:
> > >
> > > excel punya caranya tersendiri,
> > >
> > > referensi jika ingin menggunakan kedua iterasi tersebut:
> > > http://www.ferris.edu/faculty/burtchr/sure372/notes/jacobi_and_gauss-seidel.pdf
> > >
> > >
> > > >semoga bermanfaat
> > >
> > >
> > > --- In belajar-excel@yahoogroups.com, "arif" <noztrad@> wrote:
> > > >
> > > > Ketika saya menggunakan excel dan mengalami circular references, saya mengaktifkan manual calculation dengan menggunakan iterasi, namun saya bingung, iterasi apakah yang digunakan oleh excel, apakah metode gauss-seidel, metode jacobi atau SOR atau mungkin iterasi yang excel bangun sendiri, mohon penjelasannya :D tidak menolak bila diberi link referensi eheheh
> > > >
> > >
> >
>

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

3a.: Re: menamai range terpilih (name range selected)

Posted by: "si Nung" sinung4milis@yahoo.com.sg sinung4milis

Tue Jun 14, 2011 2:53 am (PDT)

terima kasih untuk tanggapan mr kid

saya akan mencobanya

> rng.name=sname

kuncinya disini rupanya, range bisa langsung diberi nama

sepertinya rng bisa diganti selection

kemarin kemarin setelah ketik selection kemudian di tambah titik,
karena gak muncul opsi opsi lanjutannya,
jadi belum tahu ...

> Range","a1",type:=8

type 8 maksudnya apa ya ?
atau help keywordnya :)

wassalamu'alaikum

sinung
(toppostingmengikutisaranhttp://tech.groups.yahoo.com/group/belajar-excel/message/10697:)))

On 13 Jun 2011 at 9:06, Mr. Kid wrote:

> gak wajib.
>
> Silakan dikembangkan saja.
>
> Misal :
>
> dim rng as range
> dim sname as string
> on error resume next
> set rng=application.inputbox("Pilih range yang akan dinamai","Input
> Range","a1",type:=8
> if err.number <> 0 then
> err.clear
> exit sub
> endif
>
> sname=inputbox("Tulis nama range")
> if lenb(trim$(sname))<>0 then
> sname=replace$("_" & sname," ","_")
> endif
>
> rng.name=sname
>
>
> Kid.
>

/*-sig-

"Wisdom and knowledge is everywhere,
but so is stupidity."

Reivan

-sig-*/

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)
3b.: Re: menamai range terpilih (name range selected)

Posted by: "si Nung" sinung4milis@yahoo.com.sg sinung4milis

Tue Jun 14, 2011 3:43 am (PDT)

trims kepada mr.kid dan my (goo)gel

sudah ketemu

http://www.excely.com/excel-vba/using-inputbox-method.shtml

where Type specifies the return data type:
Type Values
0 Formula
1 Number
2 Text (String)
4 Logical value (True or False)
8 Cell reference (Range object)
16 Error value
64 Array of values

sinung

On 13 Jun 2011 at 12:17, si Nung wrote:

>
> > Range","a1",type:=8
>
> type 8 maksudnya apa ya ?
> atau help keywordnya :)
>

/*-sig-

"Wisdom and knowledge is everywhere,
but so is stupidity."

Reivan

-sig-*/

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)
3c.: Re: menamai range terpilih (name range selected)

Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com

Tue Jun 14, 2011 5:49 am (PDT)

Pada InputBox bawaan Excel Application (coba cari di Help), inputbox bisa
menerima beberapa datatype dan beberapa object. Konstanta 8 berarti input
berupa object range.

Kid.

2011/6/13 si Nung <sinung4milis@yahoo.com.sg>

>
>
> terima kasih untuk tanggapan mr kid
>
> saya akan mencobanya
>
> > rng.name=sname
>
> kuncinya disini rupanya, range bisa langsung diberi nama
>
> sepertinya rng bisa diganti selection
>
> kemarin kemarin setelah ketik selection kemudian di tambah titik,
> karena gak muncul opsi opsi lanjutannya,
> jadi belum tahu ...
>
> > Range","a1",type:=8
>
> type 8 maksudnya apa ya ?
> atau help keywordnya :)
>
> wassalamu'alaikum
>
> sinung
> (
> toppostingmengikutisaranhttp://tech.groups.yahoo.com/group/belajar-excel/message/10697:
> )))
>
>
> On 13 Jun 2011 at 9:06, Mr. Kid wrote:
>
> > gak wajib.
> >
> > Silakan dikembangkan saja.
> >
> > Misal :
> >
> > dim rng as range
> > dim sname as string
> > on error resume next
> > set rng=application.inputbox("Pilih range yang akan dinamai","Input
> > Range","a1",type:=8
> > if err.number <> 0 then
> > err.clear
> > exit sub
> > endif
> >
> > sname=inputbox("Tulis nama range")
> > if lenb(trim$(sname))<>0 then
> > sname=replace$("_" & sname," ","_")
> > endif
> >
> > rng.name=sname
> >
> >
> > Kid.
> >
>
> /*-sig-
>
> "Wisdom and knowledge is everywhere,
> but so is stupidity."
>
> Reivan
>
> -sig-*/
>
>
>

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

4a.: VLookUp Otomatis

Posted by: "jajang muhammad siddik" jajang_ms@yahoo.co.id jajang_ms

Tue Jun 14, 2011 8:59 pm (PDT)

Dear All master,

Mohon bantuannya mengenai masalah berikut ini :
Bagaimana caranya VLookUp otomatis ke data harian, yang ada di file lain.
contoh :
file yang akan di VLookUp nya berada di : D:\Database 15 Juni 2011.xlsx
format VLookUpnya kan : =VLOOKUP(A2,'D:\Database 15 Juni 2011.xlsx'!$A:$I,4,0)

Jadi setiap hari database berubah tanggal nya, tapi lokasi VLOOKUP nya tetap di cell tersebut.

Mohon bantuannya bagaimana caranya agar setiap hari ketika file di buka sudah otomatis VLookUp sesuai dengan database ter update.

Salam,

Jajang Ms

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
4b.: Re: VLookUp Otomatis

Posted by: "Franciscus SOG" jclugbu@gmail.com elijah_spirit

Tue Jun 14, 2011 10:21 pm (PDT)

Dear jajang,

Anda dapat menggunakan fungsi INDIRECT. Tetapi file database tetap
harus dibuka (open) agar data harian terupdate. Hal ini dapat
dieliminir dengan macro.

Menurut saya rumusnya kurang lengkap, karena hanya terbaca lokasi
file, nama file. Tetapi nama sheet dan range data tidak ada. Seperti
contoh :

=VLOOKUP(A2;INDIRECT("'C:\Documents and Settings\Fran''z\My
Documents\[Book"&B1&".xls]Sheet1'!$A$3:$B$5");2;0)

Lokasi file = C:\Documents and Settings\Fran''z\My Documents\
Nama file = [Book"&B1&".xls], B1 = referensi indirect, dalam contoh
ini B1 = 2. Jadi Nama file Book2.xls.
Nama Sheet dan Range data= Sheet1'!$A$3:$B$5.

Mohon sertakan rumus yang lengkap atau contoh sheet. Thanks.

Blessings,

Fran'z

On 6/15/11, jajang muhammad siddik <jajang_ms@yahoo.co.id> wrote:
>
>
> Dear All master,
>
> Mohon bantuannya mengenai masalah berikut ini :
> Bagaimana caranya VLookUp otomatis ke data harian, yang ada di file lain.
> contoh :
> file yang akan di VLookUp nya berada di : D:\Database 15 Juni 2011.xlsx
> format VLookUpnya kan : =VLOOKUP(A2,'D:\Database 15 Juni
> 2011.xlsx'!$A:$I,4,0)
>
> Jadi setiap hari database berubah tanggal nya, tapi lokasi VLOOKUP nya tetap
> di cell tersebut.
>
> Mohon bantuannya bagaimana caranya agar setiap hari ketika file di buka
> sudah otomatis VLookUp sesuai dengan database ter update.
>
> Salam,
>
> Jajang Ms

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

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
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 via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

Rabu, 15 Juni 2011

Messages In This Digest (12 Messages)

Messages

Posted by: "STDEV(i)" setiyowati.devi@gmail.com siti_vi

Tue Jun 14, 2011 12:58 am (PDT)

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Tue Jun 14, 2011 1:05 am (PDT)

Posted by: "summonery" summonery@yahoo.com summonery

Tue Jun 14, 2011 2:05 am (PDT)

Posted by: "summonery" summonery@yahoo.com summonery

Tue Jun 14, 2011 2:19 am (PDT)

Posted by: "arif" noztrad@yahoo.co.id noztrad

Tue Jun 14, 2011 3:17 am (PDT)

Posted by: "summonery" summonery@yahoo.com summonery

Tue Jun 14, 2011 7:33 am (PDT)

Posted by: "arif" noztrad@yahoo.co.id noztrad

Tue Jun 14, 2011 2:23 pm (PDT)

Posted by: "si Nung" sinung4milis@yahoo.com.sg sinung4milis

Tue Jun 14, 2011 2:53 am (PDT)

Posted by: "si Nung" sinung4milis@yahoo.com.sg sinung4milis

Tue Jun 14, 2011 3:43 am (PDT)

Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com

Tue Jun 14, 2011 5:49 am (PDT)

Posted by: "jajang muhammad siddik" jajang_ms@yahoo.co.id jajang_ms

Tue Jun 14, 2011 8:59 pm (PDT)

Posted by: "Franciscus SOG" jclugbu@gmail.com elijah_spirit

Tue Jun 14, 2011 10:21 pm (PDT)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me