Sudah bisa . Terima kasih Pak Kid dan Pak Aji mumpung.
Selamat siang. Lukman 2012/12/15 Mr. Kid <[email protected]> > ** > > > Pak Lukman, > > Coba : > public Sub ProsedurUtama() > Urut_Tic_Sek_Tgl_Kode_Harga_No 'cara panggil prosedur bernama > Urut_Tic_Sek_Tgl_Kode_Harga_No > Data_Tr_Saham_02 'cara panggil prosedur > bernama Data_Tr_Saham_02 > End Sub > > Kemudian jalankan prosedur bernama ProsedurUtama > > Wassalam, > Kid. > > > 2012/12/15 lkm jktind <[email protected]> > >> ** >> >> >> Mohon Pak Aji mumpung bersedia untuk kasih contoh penulisan programnya ? >> >> sudah saya buat seperti : >> Sub ProsedurUtama() >> Prosedur Urut_Tic_Sek_Tgl_Kode_Harga_No >> Prosedur Data_Tr_Saham_02 >> End Sub >> nga mau berfungsi. >> >> Maff ya bila pertanyaan saya sangat mendasar. >> Maklum saja . belajar macro excel hasil dari otodidak. >> contek kiri dan contek kanan. >> >> Salam >> >> Lukman >> >> >> >> >> On Sat, Dec 15, 2012 at 11:32 AM, aji mumpung <[email protected]>wrote: >> >>> ** >>> >>> >>> Wa'alaikumsalam, >>> >>> Hai Lukman, >>> >>> sebaiknya Anda membuat sebuah prosedur utama, lalu memanggil setiap >>> prosedur tadi melalui prosedur utama tadi >>> contoh: >>> >>> Sub ProsedurUtama >>> ProsedurA >>> ProsedurB >>> ProsedurC >>> End Sub >>> >>> nanti pada saat VBA dijalankan, yang dipanggil adalah prosedur utama >>> semoga bermanafaat. >>> >>> Wassalamu'alaikum wr. wb., >>> >>> -Aji Mumpung- >>> *lama gak online, ternyata ada member baru bernama Ms. Jan Raisin yang >>> aktif di millis ini* >>> >>> >>> 2012/12/15 lkm jktind <[email protected]> >>> >>>> ** >>>> >>>> >>>> misalnya : >>>> prosedur A: >>>> Sub Urut_Tic_Sek_Tgl_Kode_Harga_No() >>>> ' >>>> Dim t As Long >>>> Dim Data_tr As Range >>>> >>>> Worksheets("Data Tr Saham").Select >>>> >>>> t = Cells(Rows.Count, 1).End(xlUp).Row >>>> 'Range("A3:Z" & t).Name = "Data_tr" >>>> Range("A3:Z3", Selection.End(xlDown)).Name = "data_tr" >>>> 'Range(Selection, Selection.End(xlDown)).Name = "Data_tr" >>>> >>>> Range("data_tr").Select >>>> >>>> ActiveWorkbook.Worksheets("Data Tr Saham").Sort.SortFields.Clear >>>> ActiveWorkbook.Worksheets("Data Tr Saham").Sort.SortFields.Add _ >>>> Key:=Columns(6), SortOn:=xlSortOnValues, Order:=xlAscending, >>>> DataOption:=xlSortNormal >>>> ActiveWorkbook.Worksheets("Data Tr Saham").Sort.SortFields.Add _ >>>> Key:=Columns(2), SortOn:=xlSortOnValues, Order:=xlAscending, >>>> DataOption:=xlSortNormal >>>> ActiveWorkbook.Worksheets("Data Tr Saham").Sort.SortFields.Add _ >>>> Key:=Columns(4), SortOn:=xlSortOnValues, Order:=xlAscending, >>>> DataOption:=xlSortNormal >>>> ActiveWorkbook.Worksheets("Data Tr Saham").Sort.SortFields.Add _ >>>> Key:=Columns(7), SortOn:=xlSortOnValues, Order:=xlAscending, >>>> DataOption:=xlSortNormal >>>> ActiveWorkbook.Worksheets("Data Tr Saham").Sort.SortFields.Add _ >>>> Key:=Columns(9), SortOn:=xlSortOnValues, Order:=xlAscending, >>>> DataOption:=xlSortNormal >>>> ActiveWorkbook.Worksheets("Data Tr Saham").Sort.SortFields.Add _ >>>> Key:=Columns(3), SortOn:=xlSortOnValues, Order:=xlAscending, >>>> DataOption:=xlSortNormal >>>> >>>> ActiveWorkbook.Worksheets("Data Tr Saham").Sort.SortFields.Add _ >>>> Key:=Columns(7), SortOn:=xlSortOnValues, Order:=xlAscending, >>>> DataOption:=xlSortNormal >>>> With ActiveWorkbook.Worksheets("Data Tr Saham").Sort >>>> .SetRange Range("A3:Z" & t) >>>> .Header = xlGuess >>>> .MatchCase = False >>>> .Orientation = xlTopToBottom >>>> .SortMethod = xlPinYin >>>> .Apply >>>> End With >>>> Range("A3").Select >>>> ActiveWorkbook.Worksheets("Data Tr Saham").Sort.SortFields.Clear >>>> End Sub >>>> >>>> Prosedur B: >>>> Public Sub Data_Tr_Saham_02() >>>> Dim dbltime As Double >>>> Dim R As Long, s As Long, t As Long >>>> Dim Sek_ As String, No_ As String, Tic_ As String >>>> Dim Stk_vol As Variant, Stk_val As Variant, H_Avr As Variant, R_L >>>> As Variant >>>> dbltime = Timer >>>> Worksheets("Data Tr Saham").Select >>>> Range("A1").Select >>>> t = Cells(Rows.Count, 6).End(xlUp).Row >>>> For R = 3 To Cells(Rows.Count, 5).End(xlUp).Row >>>> If Cells(R, 29) <> "True" Then >>>> Sek_ = Cells(R, 2) >>>> No_ = Cells(R, 3) >>>> Tic_ = Cells(R, 6) >>>> Stk_vol = 0 >>>> Stk_val = 0 >>>> H_Avr = 0 >>>> For s = 3 To Cells(Rows.Count, 5).End(xlUp).Row >>>> >>>> If Sek_ <> Cells(s, 2) And Tic_ <> Cells(s, 6) Then >>>> >>>> >>>> ElseIf Sek_ = Cells(s, 2) And Tic_ = Cells(s, 6) Then >>>> Cells(s, 29) = "True" >>>> >>>> If Cells(s, 7) = "01-SA" Or Cells(s, 7) = "02-IPO" Or >>>> Cells(s, 7) = "03-RI" Or Cells(s, 7) = "40-B" Or Cells(s, 7) = "41-B" _ >>>> Or Cells(s, 7) = "70-SB" Or Cells(s, 7) = "71-SS" Or >>>> Cells(s, 7) = "72-RS" Or Cells(s, 7) = "82-TRT" Or Cells(s, 7) = "04-PS" _ >>>> Or Cells(s, 7) = "99-SK" Then >>>> Stk_vol = Stk_vol + Cells(s, 8) >>>> Stk_val = Cells(s, 13) + Stk_val >>>> >>>> ElseIf Cells(s, 7) = "50-S" Or Cells(s, 7) = "51-S" Or >>>> Cells(s, 7) = "81-TRK" Or Cells(s, 7) = "05-DS" Then >>>> Stk_vol = Stk_vol + Cells(s, 8) >>>> If Stk_vol = 0 Then >>>> Stk_val = 0 >>>> H_Avr = 0 >>>> >>>> End If >>>> ElseIf Cells(s, 7) = "60-D" Then >>>> Stv_vol = Stk_vol >>>> >>>> End If >>>> H_Avr = Stk_val >>>> Cells(s, 23) = Stk_vol >>>> Cells(s, 24) = Stk_val >>>> If Stk_vol <> 0 Then >>>> Cells(s, 25) = Stk_val / Stk_vol >>>> End If >>>> End If >>>> Next s >>>> End If >>>> Next R >>>> Cells(1, 31) = Timer - dbltime >>>> End Sub >>>> >>>> Sesudah prosedur A di laksanakan di lanjutan dengan prosedur B dst nya. >>>> >>>> Salam >>>> >>>> Lukman >>>> >>>> >>>> >>>> >>>> >>>> >>> >> > >
