]] XL-mania [[ Digest Number 2431

Microsoft Excel Community

Messages In This Digest (6 Messages)

1a.

Re: sort vlookup beberapa kolom From: hendrik karnadi

2a.

Re: sort horizontal non 0 From: XL bsa

3a.

Average kondisi bersyarat From: Eko Zakeus

3b.

Re: Average kondisi bersyarat From: akbar4job@gmail.com

3c.

Re: Average kondisi bersyarat From: NANG Agus

4.

ambil datanya mundur satu kolom untuk setiap baris ke bawah From: bambang sumanto

View All Topics | Create New Topic

Messages

1a.

Re: sort vlookup beberapa kolom

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

Tue Jun 26, 2012 6:21 am (PDT)

Sudah tiga hari belum ada yang bantu.
Dengan sedikit kerja keras (walupun belum tuntas) saya coba bantu dengan Macro berikut ini (file terlampir), karena kalau pakai formula harus ada sheet bantu dan harus disortir lagi

Sub Tes()
    Dim Rng1 As Range
    Dim Rng2 As Range
    Dim Rng3 As Range
    Dim i As Long
    Dim irow As Long
    Set Rng1 = Sheets("Kas").Range("A4").CurrentRegion
    Set Rng1 = Rng1.Offset(3, 0).Resize(Rng1.Rows.Count - 3)
    Set Rng2 = Sheets("Bank").Range("A4").CurrentRegion
    Set Rng2 = Rng2.Offset(3, 0).Resize(Rng2.Rows.Count - 3)
    Set Rng3 = Sheets("Memorial").Range("A3").CurrentRegion
    Set Rng3 = Rng3.Offset(2, 0).Resize(Rng3.Rows.Count - 2)
    Set Rng4 = Sheets("GL").Range("A3").CurrentRegion
    Set Rng4 = Rng4.Offset(2, 0).Resize(Rng4.Rows.Count - 2)
    Rng4.ClearContents
    irow = i + 3
    With Sheets("Kas")
        For i = 1 To Rng1.Rows.Count
            If Sheets("GL").Range("G1") = Rng1(i, 4) Then
                Sheets("GL").Cells(irow, 1) = Rng1(i, 1)
                Sheets("GL").Cells(irow, 1).NumberFormat = "[$-409]d-mmm-yy;@"
                Sheets("GL").Cells(irow, 2) = Rng1(i, 2)
                Sheets("GL").Cells(irow, 3) = Rng1(i, 3)
                Sheets("GL").Cells(irow, 4) = Sheets("Kas").Range("D1")
                Sheets("GL").Cells(irow, 5) = Rng1(i, 6)
                Sheets("GL").Cells(irow, 5).NumberFormat = "#,##0"
                Sheets("GL").Cells(irow, 6) = Rng1(i, 5)
                Sheets("GL").Cells(irow, 6).NumberFormat = "#,##0"
                Sheets("GL").Cells(irow, 7).FormulaR1C1 = "=SUM(R3C5:RC[-2])-SUM(R3C6:RC[-1])"
                Sheets("GL").Cells(irow, 7).NumberFormat = "#,##0"
                irow = irow + 1
            End If
        Next i
    End With
    With Sheets("Bank")
        For i = 1 To Rng2.Rows.Count
            If Sheets("GL").Range("G1") = Rng2(i, 4) Then
                Sheets("GL").Cells(irow, 1) = Rng2(i, 1)
                Sheets("GL").Cells(irow, 1).NumberFormat = "[$-409]d-mmm-yy;@"
                Sheets("GL").Cells(irow, 2) = Rng2(i, 2)
                Sheets("GL").Cells(irow, 3) = Rng2(i, 3)
                Sheets("GL").Cells(irow, 4) = Sheets("Bank").Range("D1")
                Sheets("GL").Cells(irow, 5) = Rng2(i, 6)
                Sheets("GL").Cells(irow, 5).NumberFormat = "#,##0"
                Sheets("GL").Cells(irow, 6) = Rng2(i, 5)
                Sheets("GL").Cells(irow, 6).NumberFormat = "#,##0"
                Sheets("GL").Cells(irow, 7).FormulaR1C1 = "=SUM(R3C5:RC[-2])-SUM(R3C6:RC[-1])"
                Sheets("GL").Cells(irow, 7).NumberFormat = "#,##0"
                irow = irow + 1
            End If
        Next i
    End With
    With Sheets("Memorial")
        For i = 1 To Rng3.Rows.Count
            If Sheets("GL").Range("G1") = Rng3(i, 4) Then
                Sheets("GL").Cells(irow, 1) = Rng3(i, 1)
                Sheets("GL").Cells(irow, 1).NumberFormat = "[$-409]d-mmm-yy;@"
                Sheets("GL").Cells(irow, 2) = Rng3(i, 2)
                Sheets("GL").Cells(irow, 3) = Rng3(i, 3)
                Sheets("GL").Cells(irow, 4) = "Memorial"
                Sheets("GL").Cells(irow, 5) = Rng3(i, 5)
                Sheets("GL").Cells(irow, 5).NumberFormat = "#,##0"
                Sheets("GL").Cells(irow, 6) = Rng3(i, 6)
                Sheets("GL").Cells(irow, 6).NumberFormat = "#,##0"
                Sheets("GL").Cells(irow, 7).FormulaR1C1 = "=SUM(R3C5:RC[-2])-SUM(R3C6:RC[-1])"
                Sheets("GL").Cells(irow, 7).NumberFormat = "#,##0"
                irow = irow + 1
            End If
        Next i
    End With
End Sub

Tahapannya adalah sbb :
- Deklarasi Variable dengan Dimension (DIM)
- Setting Range untuk masing2 Sheet (SET)
- Looping untuk mengambil data dari masing2 Sheet (WITH untuk Sheet, FOR untuk Looping, IF untuk penentuan Kriteria),
  kemudian menenpatkannya pada Sheet GL (satu sheet cukup).

Semoga membantu.

Salam,
Hendrik Karnadi

saya pakai Excel 2003 supaya lebih banyak yang dapat menggunakan file tersebut

________________________________
From: ardani k <ardani_k@yahoo.com>
To: blajar excel <XL-mania@yahoogroups.com>
Sent: Saturday, 23 June 2012, 5:50
Subject: ]] XL-mania [[ sort vlookup beberapa kolom


 
dear all mohon bantuanya:
1. gmn cara vlookup dr sheet kas,bank,memo ke kode 521...tsb.
2. gmn sort per kolomnya disheet 521...agar tidak ada baris yg kosong
 
fyi...
Thanks
best regards,

Danz

Back to top

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

2a.

Re: sort horizontal non 0

Posted by: "XL bsa" xlmania.bsa@gmail.com   vas.santoso

Tue Jun 26, 2012 6:46 am (PDT)

Alternatif lain, memakai formula, bisa dilihat file terlampir ( highlight
kuning )

salam
bsa

Pada 23 Juni 2012 11:10, summonery <summonery@yahoo.com> menulis:

> **
>
>
> Dear Yusuf,
>
> Sudah dicoba dengan fitur Sort?
> Pada Microsoft excel, selain fitur sorting secara vertikal juga terdapat
> sorting secara horisontal.
> Pada Sort dialog box terdapat tulisan "*O*ptions..." silakan di klik,
> Ada 2 jenis orientasi pada Sort Options, yaitu:
> 1. Sort top to bottom *( sorting secara vertikal )*
> 2. Sort left to right *( sorting secara horisontal )*
> Pilih "Sort left to right" untuk sorting secara horisontal.
>
>
> >semoga bermanfaat
>
>
> --- In XL-mania@yahoogroups.com, "Yusuf" <muhammad.yusuf@...> wrote:
> >
> > Dear masters,
> >
> >
> >
> > Mohon advise kasus terlampir, untuk yang vertical saya sudah memiliki
> contoh
> > penyelesaiannya tapi untuk sort hori apakah bisa dengan transpose, atau
> ada
> > solusi lain.
> >
> >
> >
> > Nuwun,
> >
> > YUSUF
> >
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

3a.

Average kondisi bersyarat

Posted by: "Eko Zakeus" eko-zakeus@siws.sws.co.jp

Tue Jun 26, 2012 7:06 am (PDT)

Selamat pagi,

Dear masters,

Mohon bantuannya untuk menghitung average dari nilai dengan kondisi tertentu
(minus), untuk lebih jelasnya mohon cek file terlampir

Terima kasih

Regards,

Eko

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

3b.

Re: Average kondisi bersyarat

Posted by: "akbar4job@gmail.com" akbar4job@gmail.com   akbar_estefan

Tue Jun 26, 2012 9:51 pm (PDT)

Semoga membantu

See attached
Sent from my AXIS Worry Free BlackBerry� smartphone

-----Original Message-----
From: Eko Zakeus <eko-zakeus@siws.sws.co.jp>
Sender: XL-mania@yahoogroups.com
Date: Tue, 26 Jun 2012 10:32:10
To: <XL-mania@yahoogroups.com>
Reply-To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ Average kondisi bersyarat

Selamat pagi,

Dear masters,

Mohon bantuannya untuk menghitung average dari nilai dengan kondisi tertentu
(minus), untuk lebih jelasnya mohon cek file terlampir



Terima kasih



Regards,

Eko

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

3c.

Re: Average kondisi bersyarat

Posted by: "NANG Agus" nangagus@gmail.com

Tue Jun 26, 2012 10:15 pm (PDT)

Dear Eko

Bagaimana jika di dalam Average, ditambah formula if,
Kira-kira rumusnya begini: {=AVERAGE(IF(E4:E8<0;E4:E8;""))}
ini merupakan array formula
salam
NangAgus

2012/6/26 Eko Zakeus <eko-zakeus@siws.sws.co.jp>

> **
>
>
> Selamat pagi,****
>
> Dear masters,****
>
> Mohon bantuannya untuk menghitung average dari nilai dengan kondisi
> tertentu (minus), untuk lebih jelasnya mohon cek file terlampir****
>
> ** **
>
> Terima kasih****
>
> ** **
>
> Regards,****
>
> Eko****
>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

4.

ambil datanya mundur satu kolom untuk setiap baris ke bawah

Posted by: "bambang sumanto" lenterahati2002@yahoo.com   lenterahati2002

Tue Jun 26, 2012 10:35 pm (PDT)

Para rekan Xl-Mania

ada data angsuran, dimana untuk ambil data pengalinya (dari data jual) itu ketika copy kebawah
otomatis ambil datanya mundur satu kolom

yang saya lakukan masih manual satu satu
jadi setiap turun satu baris, saya mengalikannya klik kolom (data jual) satu persatu
padahal datanya banyak

he he he mohon maaf saya sendiri bingung bagaimana cara menceritakannya
mudah2an lampirannya bisa lebih menjelaskan.

terimakasih atas bantuannya.

Bambang

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

Recent Activity

•  49
  New Members

Visit Your Group

Yahoo! Groups

Small Business Group

Share experiences

with owners like you

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Parenting Zone

Family and home

Tips for mom

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Woooowwww... member XL-mania tembus 20,000!!!                     |
+-------------------------------------------------------------------+
| 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.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              |
+-------------------------------------------------------------------+

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