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
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>
