Messages In This Digest (4 Messages)

1.: run time error 16 expression too complex in excel 2007 From: bagus nuradita

2a.: Re: LINK TO LINK = OK From: Musriadi

3.: Tanya tentang database Jama'ah Haji From: Isyfa

4.: Drill Down List From: Daniel Prayogi

View All Topics | Create New Topic

Messages

1.: run time error 16 expression too complex in excel 2007

Posted by: "bagus nuradita" bagus_nuradita@yahoo.com bagus_nuradita

Mon Feb 6, 2012 7:55 am (PST)

Dear all.

saya punya file excel dng macro vbnya tiba2 muncul error "run time error 16 expression too complex " begitu di upgrade ke exel 2007.
file ini berjalan dgn normal di excel 2003

Sub isiupah()
   Dim i As Double
    Dim j As Double
    Dim nom As Double
    Dim BAR As Double
    Dim NOPEK, NOURUT, NIK1, SEKS As String
    Dim NAMA As String
    Dim LAHIR As String
    Dim UPAH As Double
    Dim bln As String
    Dim kol As Double
    Sheets("upah").Activate
    If Range("JUM1cku").Value > 2 Then
        Do While Range("JUM1cku").Value > 2
           Range("PER1c").Select
           ActiveCell.Offset(-1, 0).Range("A1").Select
           Selection.EntireRow.Delete
        Loop
    End If
    NOURUT = 0
    For i = 1 To Range("akhir").Value => run time error 16 expression too complex
        For j = 1 To 23
            bln = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAku"), 7 + j, False)
        If j = 1 Then
        If Sheets("dumtk").Range("a5").Offset(i, j + 6).Range("a1").Value <> Sheets("dumtk").Range("a5").Offset(i, 31).Range("a1").Value Then

           If Val(Sheets("dumtk").Range("a5").Offset(i, 31).Range("a1").Value) <> 0 Then
           If Val(Sheets("dumtk").Range("a5").Offset(i, j + 6).Range("a1").Value) <> 0 Then
           nom = ((j - 1) / 2) + 1
           If nom = Val(Range("kuupah").Value) Then
           NOURUT = NOURUT + 1
           NIK1 = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAKU"), 3, False)
           SEKS = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAKU"), 6, False)
           NOPEK = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAKU"), 2, False)
           NAMA = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAKU"), 4, False)
           kol = 7 + j
           LAHIR = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAKU"), 5, False)
           If WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAku"), kol, False) <> "K" Then
               UPAH = Val(WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAku"), kol, False))

           Range("NOMORUPAH").Select
           Selection.EntireRow.Insert
            ActiveCell.FormulaR1C1 = NOURUT
            ActiveCell.Offset(0, 1).Range("A1").Select
            ActiveCell.FormulaR1C1 = NIK1
            ActiveCell.Offset(0, 1).Range("A1").Select
            ActiveCell.FormulaR1C1 = NOPEK
            ActiveCell.Offset(0, 1).Range("A1").Select
            ActiveCell.FormulaR1C1 = NAMA
            ActiveCell.Offset(0, 3).Range("A1").Select
            ActiveCell.FormulaR1C1 = LAHIR
            ActiveCell.Offset(0, 1).Range("A1").Select
            ActiveCell.FormulaR1C1 = SEKS
            ActiveCell.Offset(0, 1).Range("A1").Select
            ActiveCell.FormulaR1C1 = UPAH
           End If
           End If
           End If
           End If
        End If
        Else
        If Sheets("dumtk").Range("a5").Offset(i, j + 6).Range("a1").Value <> Sheets("dumtk").Range("a5").Offset(i, j + 4).Range("a1").Value Then

           If Val(Sheets("dumtk").Range("a5").Offset(i, j + 4).Range("a1").Value) <> 0 Then
           If Val(Sheets("dumtk").Range("a5").Offset(i, j + 6).Range("a1").Value) <> 0 Then
           nom = ((j - 1) / 2) + 1
           If nom = Val(Range("kuupah").Value) Then
           NOURUT = NOURUT + 1
           NIK1 = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAKU"), 3, False)
           SEKS = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAKU"), 6, False)
           NOPEK = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAKU"), 2, False)
           NAMA = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAKU"), 4, False)
           kol = 7 + j
           LAHIR = WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAKU"), 5, False)
           If WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAku"), kol, False) <> "K" Then
               UPAH = Val(WorksheetFunction.VLookup(i, Sheets("dumtk").Range("DATAku"), kol, False))

           Range("NOMORUPAH").Select
           Selection.EntireRow.Insert
            ActiveCell.FormulaR1C1 = NOURUT
            ActiveCell.Offset(0, 1).Range("A1").Select
            ActiveCell.FormulaR1C1 = NIK1
            ActiveCell.Offset(0, 1).Range("A1").Select
            ActiveCell.FormulaR1C1 = NOPEK
            ActiveCell.Offset(0, 1).Range("A1").Select
            ActiveCell.FormulaR1C1 = NAMA
            ActiveCell.Offset(0, 3).Range("A1").Select
            ActiveCell.FormulaR1C1 = LAHIR
            ActiveCell.Offset(0, 1).Range("A1").Select
            ActiveCell.FormulaR1C1 = SEKS
            ActiveCell.Offset(0, 1).Range("A1").Select
            ActiveCell.FormulaR1C1 = UPAH
           End If
           End If
           End If
           End If
        End If
        End If
        Next j
    Next i
End Sub
Mohon sarannya

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

2a.: Re: LINK TO LINK = OK

Posted by: "Musriadi" musriadi@leighton.co.id

Mon Feb 6, 2012 7:57 am (PST)

Dear NangAgus,
Terima kasih atas bantuannya namun hasilnya belum sesuai yang diinginkan. Dimana jika di hitung manual maka hasilnya seperti dibawah :
Mar-12

P

B

D

OM

O

209.27

322.72

22.98

95.68

193.32

Regards,

Musriadi

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of NANG Agus
Sent: Tuesday, January 24, 2012 1:47 PM
To: XL-mania@yahoogroups.com
Subject: Re: ]] XL-mania [[ LINK TO LINK = OK

Dear Musriadi

Coba gunakan rumus sumproduct.
Saya coba memmbuat di bulan maret dengan rumus:
=SUMPRODUCT(('Data Maintenance'!$L$2:$L$142=AF10)*('Data Maintenance'!$P$2:$P$142)*(MONTH('Data Maintenance'!$A$2:$A$142)=MONTH(AF9)))

salam
NangAgus
2012/1/22 Musriadi <musriadi@leighton.co.id<mailto:musriadi@leighton.co.id>>

Dear Team,
Bisa solving kah data terlampir, sudah bolak balik pakai rumus tapi belum ketemu (My science for Xl very2 a little). Format terlampir. Terima kasih atas kerja samanya

Regards,

Musriadi

__________________________________________________________
This email has been scanned by the Symantec Email Security.cloud service.
For more information please visit http://www.symanteccloud.com
__________________________________________________________

__________________________________________________________
This email has been scanned by the Symantec Email Security.cloud service.
For more information please visit http://www.symanteccloud.com
__________________________________________________________

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

3.: Tanya tentang database Jama'ah Haji

Posted by: "Isyfa" isyfa_faul@yahoo.co.id isyfa_faul

Mon Feb 6, 2012 7:57 am (PST)

Salam kenal untuk XL-mania, ane baru gabung, cz kelihatannya sangat menarik dan jarang ada pembahasan seperti ini yang tertulis di buku-buku panduan Excel, sorry master ane mau tanya ni... maklum new bie. kebetulan saat ini ada tugas dari guru saya untuk membuat simulasi Database Jama'ah Haji dgn rumus Excel, dan beberapa waktu yg lalu saya sudah mencoba dengan menggunakan rumus IF, dan berhasil. masalahnya kuota jama'ah haji ini tiap bulan terus meningkat hingga saat saya bergabung di forum ini sudah menyentuh Tahun 2022 jika daftar sekarang.
gambarannya spt ini :

PORSI TAHUN BERANGKAT
1300245937-1300279737 2012
1300279738-1300313538 2013
1300313539-1300347339 2014
1300347340-1300381140 2015
1300381141-1300414941 2016
1300414942-1300414941 2017

maunya dikolom tahun berangkat itu bisa terisi secara otomatis dengan mengacu pada no porsi (kuota) logikanya spt ini "Jika no porsinya 1300xxxxx s.d 1300xxxxx maka berangkatnya tahun 20xx" dan katanya sih bisa menggunakan VLOOKUP, tapi gara-gara ada "sampai dengan" itu yg saya g bisa membentuknya melalui VLOOKUP. terima kasih atas jawabannya semoga bermanfaat. Sukses selalu untuk XL-mania

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

4.: Drill Down List

Posted by: "Daniel Prayogi" daniel.prayogie@yahoo.com daniel.prayogie

Mon Feb 6, 2012 7:57 am (PST)

Dear para Master XL,

Mohon bantuannya donk untuk case berikut :

1. Pada sheet Form AP ada kolom C (Asset Class) dan kolom F (Asset Description)
2. Pada sheet Master ada beberapa table untuk pengelompokan Asset Class.
3. Saya ingin pengisian Asset Description pada kolom F menggunakan drill down list.

Pertanyaan nya :
Jika pada kolom Asset Class saya memilih Buildings maka pada drill down list yang ada di kolom Asset Description hanya memunculkan list yang ada pada table building di Sheet Master.

Mohon bantuannya ya rekan-rekan Master XL.

Terima kasih,
Yogie

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

Create New Topic | Visit Your Group on the Web

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Delay pada posting disebabkan sibuknya momods dan leletnya        |
| koneksi dengan ind***t. bwakakakaka....
+-------------------------------------------------------------------+
| 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              |
+-------------------------------------------------------------------+

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

EXCEL FEED

Selasa, 07 Februari 2012

]] XL-mania [[ Digest Number 2332

Messages In This Digest (4 Messages)

Messages

run time error 16 expression too complex in excel 2007

Posted by: "bagus nuradita" bagus_nuradita@yahoo.com bagus_nuradita

Mon Feb 6, 2012 7:55 am (PST)

Re: LINK TO LINK = OK

Posted by: "Musriadi" musriadi@leighton.co.id

Mon Feb 6, 2012 7:57 am (PST)

Tanya tentang database Jama'ah Haji

Posted by: "Isyfa" isyfa_faul@yahoo.co.id isyfa_faul

Mon Feb 6, 2012 7:57 am (PST)

Drill Down List

Posted by: "Daniel Prayogi" daniel.prayogie@yahoo.com daniel.prayogie

Mon Feb 6, 2012 7:57 am (PST)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me