[belajar-excel] Digest Number 1970

Milis Belajar Microsoft Excel Group

13 New Messages

Digest #1970

1a

Re: Aplikasi absen by "hendrik karnadi" hendrikkarnadi

2a

Bagaimana Cara menggabungkan beberapa prosedur ? by "lkm jktind" lkmjkt

2b

Re: Bagaimana Cara menggabungkan beberapa prosedur ? by "aji mumpung"

2c

Re: Bagaimana Cara menggabungkan beberapa prosedur ? by "lkm jktind" lkmjkt

2d

Re: Bagaimana Cara menggabungkan beberapa prosedur ? by "Mr. Kid" nmkid.family@ymail.com

2e

Re: Bagaimana Cara menggabungkan beberapa prosedur ? by "lkm jktind" lkmjkt

2f

Re: Bagaimana Cara menggabungkan beberapa prosedur ? by "aji mumpung"

3a

Re: Menggabungkan 2 Data absensi ke dalam 1 File gabung absensi by "Mulki" mulki_akbar

4a

Re: membuat duk pns otomatis by "Dian Anas" anassheva20

4b

Re: membuat duk pns otomatis by "Boypeace BeComp" trouble_nih

4c

Re: membuat duk pns otomatis by "Mr. Kid" nmkid.family@ymail.com

5a

Cara ambil attachment by "tioali2011" tioali2011

5b

Re: Cara ambil attachment by "Mr. Kid" nmkid.family@ymail.com

Messages

1a

Re: Aplikasi absen

Fri Dec 14, 2012 8:03 pm (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Silakan kembangkan jawaban milis warisan dari si Mbah.
Di sini yang dimasukkan bisa nama bisa ID.

Salam,
Hendrik Karnadi

________________________________
From: odhyz83_assasaky <odhyz83_assasaky@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 14 December 2012, 20:10
Subject: [belajar-excel] Aplikasi absen


 

Dear Master,
Saya mempunyai khayalan, kira-kira bisa gak dengan excel untuk membuat aplikasi 
Absensi seperti finger print, jd misalx kita msukkan ID dan kita tekan sebuah tombol di keyboard maka akan langsung di simpan tanggal dan jam saat itu,. 
Sekiranya bisa mohon pencerahannya.

Salam

Odhy.

Terkirim dari tablet Samsung

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

2a

Bagaimana Cara menggabungkan beberapa prosedur ?

Fri Dec 14, 2012 8:25 pm (PST) . Posted by:

"lkm jktind" lkmjkt

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

Reply to sender . Reply to group . Reply via Web Post . All Messages (6) . Top ^

2b

Re: Bagaimana Cara menggabungkan beberapa prosedur ?

Fri Dec 14, 2012 8:32 pm (PST) . Posted by:

"aji mumpung"

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 <lkmjktind@gmail.com>

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

Reply to sender . Reply to group . Reply via Web Post . All Messages (6) . Top ^

2c

Re: Bagaimana Cara menggabungkan beberapa prosedur ?

Fri Dec 14, 2012 9:05 pm (PST) . Posted by:

"lkm jktind" lkmjkt

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 <pupung1986@gmail.com> 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 <lkmjktind@gmail.com>
>
>> **
>>
>>
>> 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
>>
>>
>>
>>
>>
>>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (6) . Top ^

2d

Re: Bagaimana Cara menggabungkan beberapa prosedur ?

Fri Dec 14, 2012 9:08 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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 <lkmjktind@gmail.com>

> **
>
>
> 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 <pupung1986@gmail.com>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 <lkmjktind@gmail.com>
>>
>>> **
>>>
>>>
>>> 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
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (6) . Top ^

2e

Re: Bagaimana Cara menggabungkan beberapa prosedur ?

Fri Dec 14, 2012 10:07 pm (PST) . Posted by:

"lkm jktind" lkmjkt

Sudah bisa .

Terima kasih Pak Kid dan Pak Aji mumpung.

Selamat siang.

Lukman

2012/12/15 Mr. Kid <mr.nmkid@gmail.com>

> **
>
>
> 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 <lkmjktind@gmail.com>
>
>> **
>>
>>
>> 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 <pupung1986@gmail.com>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 <lkmjktind@gmail.com>
>>>
>>>> **
>>>>
>>>>
>>>> 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
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>
>>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (6) . Top ^

2f

Re: Bagaimana Cara menggabungkan beberapa prosedur ?

Fri Dec 14, 2012 10:08 pm (PST) . Posted by:

"aji mumpung"

cara memanggilnya sudah dicontohkan oleh mr Kid,

tambahan..

pada sub prosedur yang dipanggil melalui prosedur utama sebaiknya diset
sebagai Privat, hal ini untuk mencegah user memanggil prosedur tersebut
melalui Macro Name box

[image: Gambar sisip 1]

cmiiw

-Aji Mumpung-

Pada 15 Desember 2012 12:08, Mr. Kid <mr.nmkid@gmail.com> menulis:

> **
>
>
> 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 <lkmjktind@gmail.com>
>
>> **
>>
>>
>> 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 <pupung1986@gmail.com>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 <lkmjktind@gmail.com>
>>>
>>>> **
>>>>
>>>>
>>>> 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
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>
>>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (6) . Top ^

3a

Re: Menggabungkan 2 Data absensi ke dalam 1 File gabung absensi

Fri Dec 14, 2012 8:50 pm (PST) . Posted by:

"Mulki" mulki_akbar

Dear Pak Ghozi ...

Bisa bantu cara baca/penjelasan dari formula bapak dibawah ?

Terimakasih atas pencerahannya

Wassalam,
mulki

----- Original Message -----
From: ghozi alkatiri
To: belajar-excel@yahoogroups.com
Sent: Friday, December 14, 2012 5:17 PM
Subject: Bls: [belajar-excel] Menggabungkan 2 Data absensi ke dalam 1 File gabung absensi

tulis formula pertama di A7
=IF(ROW(1:1)<=COUNTA('File-01'!$A$7:$A$40);OFFSET('File-01'!$A$6;MOD(ROW(1:1)-1;COUNTA('File-01'!$A$7:$A$40))+1;COLUMN()-1);OFFSET('File-02'!$A$6;ROW(1:1)-COUNTA('File-01'!$A$7:$A$40)+1;COLUMN()-1))

copy ke kanan dan ke bawah
pada cell berisi 0 (nol) dari tabel yang kosong dihilangkan dengan conditional formating opsi font no colour.

selanjutnya lihat langsung di attachment sheet solusi

wassalam

Ghozi Alkatiri

----------------------------------------------------------
Dari: Rachmad HIDAYAT <rachmad.hidayat@external.total.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 14 Desember 2012 15:17
Judul: [belajar-excel] Menggabungkan 2 Data absensi ke dalam 1 File gabung absensi

Dear Pakar Bexcel,
Saya punya case begini nih, mohon bisa dibantu ya..,

- Saya punya dua atau lebih file Absensi dengan format tabel yang sama, namun nama data nama,materi, absensi berbeda. (dalam case ini saya jadikan satu file saja, tapi faktanya ada 3 file xlsx, FILE-01.xlxs(di Sheet File-01),FILE-02(di sheet File-02).xlsx, GABUNG DATA.xlsx (Gabung data File-01dan File02)
- Setiap akhir pekan saya pingin mengetahui berapa total keseluruhan yang hadir(H), tidak hadir(X)dari orang-orang tersebut
- Ohya,Data orang bisa bertambah jadi nanti secara otomatis akan tergabung juga di file gabung
- Bagaimana cara menggabungkan 2 file ini menjadi satu file gabungan ya ?

Lebih jelasnya bisa di lihat di lampiran Saya cob pake concolidate, namun masih bingung cara pake dan error
Terim kasih atas bantuan nya ya

Terima Kasih,
Rachmad Hidayat
Inspection Method
3487

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

4a

Re: membuat duk pns otomatis

Fri Dec 14, 2012 9:48 pm (PST) . Posted by:

"Dian Anas" anassheva20

terima kasih atas pencerahannya, kalau dibuat input di sheet lain dan edit data yang sudah ada gmn yah? maklum masih newbie. terima kasih semoga tidak mengganggu waktu anda para exceller

--- On Fri, 12/14/12, Jan Raisin <miss.jan.raisin@gmail.com> wrote:

From: Jan Raisin <miss.jan.raisin@gmail.com>
Subject: Re: [belajar-excel] membuat duk pns otomatis
To: belajar-excel@yahoogroups.com
Date: Friday, December 14, 2012, 4:19 AM

 

Dear mbak/mas Dian,
untuk kasus ini jika ingin otomatis, maka satu-satunya cara adalah menggunakan VBA
script berikut ditulis dalam sebuah modul VBE, untuk menampilkannya tekan tombol ALT F11 >> Insert >> Module

Option Explicit
' -------------------------------------- '
'  prosedur input data dan sort otomatis ''  sort Descending berdasarkan :         '
'  Golongan, Tahun & Bulan masa kerja    ''  code by: Ms Jan Raisin                '
'  untuk millis Belajar Excel            ''  14 Desember 2012                      '
' -------------------------------------- '
' ini adalah nama prosedurnya
Sub InputAndSort()
    ' deklarasikan variabel bertipe String untuk mencari NIP pada data
    Dim sCari As String        ' deklarasikan variabel bertipe Range untuk menyimpan data berupa objek range
    ' variabel ini untuk menunjukkan apakah NIP sudah ada di data atau belum    Dim Cari As Range
        ' deklarasikan variabel bertipe Long untuk menyimpan nomor baris data yang paling akhir
    Dim idxRow As Long
    ' ini adalah proses pengecekan apakah NIP tersebut sudah ada di data atau belum
    ' simpan NIP dari cell C2 ke dalam variabel yang bernama sCari    sCari = Range("c2").Value
        ' lakukan pencarian NIP mulai dari cell C8 sampai baris data yang paling bawah
    ' perhatian!!! pada contoh ini data pertama NIP ada pada cell C8    ' jika berbeda maka sesuaikan lokasinya
    Set Cari = Range(Range("c8"), Range("c8").End(xlDown)).Find(sCari)    
        ' jika ditemukan maka    If Not Cari Is Nothing Then
            ' tampilkan pesan kepada user bahwa NIP tersebut sudah ada di data
        MsgBox "NIP tersebut sudah ada", vbOKOnly + vbExclamation, "Validasi Data"        
        ' karena sudah ada maka keluar dari prosedur        Exit Sub    
    ' ini adalah akhir dari pengecekan keberadaan NIP pada data    End If
        ' jika sampai ke sini berarti data belum ada    ' bikin 2 baris bantu, 1 sebagai header di baris 8
    ' dan di baris 9 adalah lokasi penulisan data    ' Perhatian!!! insert baris dimulai dari baris data pertama
    ' jika lokasinya berbeda maka lakukan penyesuaian    Range("a8:a9").EntireRow.Insert
        ' bikin header di setiap kolom baris bantu yang tadi sudah dibuat
    Range("a8").Value = "No"    Range("b8:r8").Value = Range("b1:r1").Value
        ' copas data input ke tabel    Range("b2:r2").Copy
    Range("b9").PasteSpecial xlPasteValuesAndNumberFormats    Application.CutCopyMode = False
        ' sekarang saatnya melakukan sortir data    ' pergi ke cell B8, ini adalah header dari baris bantu yang sudah dibuat
    Range("B8").Select    ' blok seluruh data ke arah kanan dan ke arah bawah
    Range(Selection, Selection.End(xlToRight).End(xlDown)).Select
    ' jika ada sort sebelumnya, maka hapus dahulu sort tersebut
    Sheets("ks dan guru").Sort.SortFields.Clear        ' sort descending berdasarkan Golongan, headernya ada di cell D8
    Sheets("ks dan guru").Sort.SortFields.Add Key:=Range("d8"), _        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        ' sort descending berdasarkan Tahun tugas, headernya ada di cell H8
    ActiveWorkbook.Worksheets("ks dan guru").Sort.SortFields.Add Key:=Range("h8"), _        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        ' sort Descending berdasarkan Bulan tugas, headernya ada di cell I8
    ActiveWorkbook.Worksheets("ks dan guru").Sort.SortFields.Add Key:=Range("i8"), _        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        ' sekarang bekerja pada proses sort di sheet KS dan Guru    With Sheets("ks dan guru").Sort
        ' atur range data yang akan disort, mulai dari aktif cell (B8) ke arah kanan dan bawah        .SetRange Range(ActiveCell, ActiveCell.End(xlToRight).End(xlDown))
        ' baris pertama adalah header data        .Header = xlYes        ' sort bukan berdasarkan case sensitif
        .MatchCase = False        ' sort dilakukan dari atas ke bawah        .Orientation = xlTopToBottom
        ' defaultnya adalah xlPinYin        .SortMethod = xlPinYin        ' terapkan sort berdasarkan kriteria yang telah ditentukan
        .Apply        ' akhir bekerja dengan proses sort pada sheet KS dan Guru
    End With        ' cari nomor baris data terakhir dan simpan di variabel idxRow
    idxRow = ActiveCell.End(xlDown).Row        ' bikin nomor urut
    Range("a9").Value = 1    Range("a10").Value = 2    Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
        ' hapus baris bantu    Range("b8").EntireRow.Delete
        ' pergi ke cell A1, biar keliatan lebih cantik aja    Range("a1").Select
    ' ini adalah akhir dari prosedur input dan simpanEnd Sub

untuk menjalankannya, buat sebuah objek berupa tombol, shape, atau mungkin kalo mau sedikit narsis boleh lah pakai foto xixixi :D
assign macro tersebut ke dalam objek tadi dengan cara klik kanan pada objek tersebut

setelah itu setiap selesai input data klik objek tersebut
file terlampir hanya disisakan 1 buah sheet saja, untuk mengurangi ukuran file, semoga OP bersedia mempelajari script tersebut sehingga untuk penerapan ke sheet yang lain akan lebih mudah

Best Regard,

-Ms. Jan Raisin-

Pada 13 Desember 2012 15:03, Mr. Kid <mr.nmkid@gmail.com> menulis:

 

Berhubung belum ada file susulan sebagai contoh datanya, dilampirkan file asli yang telah dikurangi jumlah datanya.

Mohon hati-hati bagi yang ne-reply, karena file sudah mendekati batas maksimal ukuran file yang ditentukan dalam peraturan milis.

Wassalam,
Kid.

2012/12/13 Dian Anas <anassheva20@yahoo.com>

 

para master excel yang budiman.

saya mau tanya, apakah sorting otomatis pada excel itu bisa dilakukan ketika kita memasukan data baru contohnya kalau kita memasukkan data golongan IV/a dengan masa kerja 23 tahun maka akan diatas golongan IV/a yang masa kerjanya 22 tahun. terima kasih pencerahannya.

--- Mods ---

File lampiran yang sebesar 492KB tersandera. Kita tunggu kiriman file yang lebih sesuai peraturan milis (<250KB) dari sdr/i Dian.

------------

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

4b

Re: membuat duk pns otomatis

Sat Dec 15, 2012 3:57 am (PST) . Posted by:

"Boypeace BeComp" trouble_nih

sortir DUK meliputi urutan:
1. Golongan
2. TMT GOLONGAN
3. MASA KERJA
4. DIKLAT JABATAN
5. PENDIDIKAN
6.TANGGAL LAHIR ATAU USIA
7. BISA TAMBAKAN SORTIR BERDASAR NIP.

RASANYA SAYA MERASA SUKAR KALAU BUAT DUK DI EXCEL, LEBIH MUDAH DI ACCESS

Pada 15 Desember 2012 12:40, Dian Anas <anassheva20@yahoo.com> menulis:

> **
>
>
> terima kasih atas pencerahannya, kalau dibuat input di sheet lain dan edit
> data yang sudah ada gmn yah? maklum masih newbie. terima kasih semoga tidak
> mengganggu waktu anda para exceller
>
>
> --- On *Fri, 12/14/12, Jan Raisin <miss.jan.raisin@gmail.com>* wrote:
>
>
> From: Jan Raisin <miss.jan.raisin@gmail.com>
> Subject: Re: [belajar-excel] membuat duk pns otomatis
> To: belajar-excel@yahoogroups.com
> Date: Friday, December 14, 2012, 4:19 AM
>
>
>
> Dear mbak/mas Dian,
>
> untuk kasus ini jika ingin otomatis, maka satu-satunya cara adalah
> menggunakan VBA
> script berikut ditulis dalam sebuah modul VBE, untuk menampilkannya tekan
> tombol ALT F11 >> Insert >> Module
>
> Option Explicit
>
> ' -------------------------------------- '
> ' prosedur input data dan sort otomatis '
> ' sort Descending berdasarkan : '
> ' Golongan, Tahun & Bulan masa kerja '
> ' code by: Ms Jan Raisin '
> ' untuk millis Belajar Excel '
> ' 14 Desember 2012 '
> ' -------------------------------------- '
>
> ' ini adalah nama prosedurnya
> Sub InputAndSort()
>
> ' deklarasikan variabel bertipe String untuk mencari NIP pada data
> Dim sCari As String
>
> ' deklarasikan variabel bertipe Range untuk menyimpan data berupa
> objek range
> ' variabel ini untuk menunjukkan apakah NIP sudah ada di data atau
> belum
> Dim Cari As Range
>
> ' deklarasikan variabel bertipe Long untuk menyimpan nomor baris data
> yang paling akhir
> Dim idxRow As Long
>
> ' ini adalah proses pengecekan apakah NIP tersebut sudah ada di data
> atau belum
> ' simpan NIP dari cell C2 ke dalam variabel yang bernama sCari
> sCari = Range("c2").Value
>
> ' lakukan pencarian NIP mulai dari cell C8 sampai baris data yang
> paling bawah
> ' perhatian!!! pada contoh ini data pertama NIP ada pada cell C8
> ' jika berbeda maka sesuaikan lokasinya
> Set Cari = Range(Range("c8"), Range("c8").End(xlDown)).Find(sCari)
>
>
> ' jika ditemukan maka
> If Not Cari Is Nothing Then
>
> ' tampilkan pesan kepada user bahwa NIP tersebut sudah ada di data
> MsgBox "NIP tersebut sudah ada", vbOKOnly + vbExclamation,
> "Validasi Data"
>
> ' karena sudah ada maka keluar dari prosedur
> Exit Sub
>
> ' ini adalah akhir dari pengecekan keberadaan NIP pada data
> End If
>
> ' jika sampai ke sini berarti data belum ada
> ' bikin 2 baris bantu, 1 sebagai header di baris 8
> ' dan di baris 9 adalah lokasi penulisan data
> ' Perhatian!!! insert baris dimulai dari baris data pertama
> ' jika lokasinya berbeda maka lakukan penyesuaian
> Range("a8:a9").EntireRow.Insert
>
> ' bikin header di setiap kolom baris bantu yang tadi sudah dibuat
> Range("a8").Value = "No"
> Range("b8:r8").Value = Range("b1:r1").Value
>
> ' copas data input ke tabel
> Range("b2:r2").Copy
> Range("b9").PasteSpecial xlPasteValuesAndNumberFormats
> Application.CutCopyMode = False
>
> ' sekarang saatnya melakukan sortir data
> ' pergi ke cell B8, ini adalah header dari baris bantu yang sudah
> dibuat
> Range("B8").Select
> ' blok seluruh data ke arah kanan dan ke arah bawah
> Range(Selection, Selection.End(xlToRight).End(xlDown)).Select
>
> ' jika ada sort sebelumnya, maka hapus dahulu sort tersebut
> Sheets("ks dan guru").Sort.SortFields.Clear
>
> ' sort descending berdasarkan Golongan, headernya ada di cell D8
> Sheets("ks dan guru").Sort.SortFields.Add Key:=Range("d8"), _
> SortOn:=xlSortOnValues, Order:=xlDescending,
> DataOption:=xlSortNormal
>
> ' sort descending berdasarkan Tahun tugas, headernya ada di cell H8
> ActiveWorkbook.Worksheets("ks dan guru").Sort.SortFields.Add
> Key:=Range("h8"), _
> SortOn:=xlSortOnValues, Order:=xlDescending,
> DataOption:=xlSortNormal
>
> ' sort Descending berdasarkan Bulan tugas, headernya ada di cell I8
> ActiveWorkbook.Worksheets("ks dan guru").Sort.SortFields.Add
> Key:=Range("i8"), _
> SortOn:=xlSortOnValues, Order:=xlDescending,
> DataOption:=xlSortNormal
>
> ' sekarang bekerja pada proses sort di sheet KS dan Guru
> With Sheets("ks dan guru").Sort
> ' atur range data yang akan disort, mulai dari aktif cell (B8) ke
> arah kanan dan bawah
> .SetRange Range(ActiveCell, ActiveCell.End(xlToRight).End(xlDown))
> ' baris pertama adalah header data
> .Header = xlYes
> ' sort bukan berdasarkan case sensitif
> .MatchCase = False
> ' sort dilakukan dari atas ke bawah
> .Orientation = xlTopToBottom
> ' defaultnya adalah xlPinYin
> .SortMethod = xlPinYin
> ' terapkan sort berdasarkan kriteria yang telah ditentukan
> .Apply
>
> ' akhir bekerja dengan proses sort pada sheet KS dan Guru
> End With
>
> ' cari nomor baris data terakhir dan simpan di variabel idxRow
> idxRow = ActiveCell.End(xlDown).Row
>
> ' bikin nomor urut
> Range("a9").Value = 1
> Range("a10").Value = 2
> Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
>
> ' hapus baris bantu
> Range("b8").EntireRow.Delete
>
> ' pergi ke cell A1, biar keliatan lebih cantik aja
> Range("a1").Select
>
> ' ini adalah akhir dari prosedur input dan simpan
> End Sub
>
> untuk menjalankannya, buat sebuah objek berupa tombol, shape, atau mungkin
> kalo mau sedikit narsis boleh lah pakai foto xixixi :D
> assign macro tersebut ke dalam objek tadi dengan cara klik kanan pada
> objek tersebut
>
> setelah itu setiap selesai input data klik objek tersebut
>
> file terlampir hanya disisakan 1 buah sheet saja, untuk mengurangi ukuran
> file, semoga OP bersedia mempelajari script tersebut sehingga untuk
> penerapan ke sheet yang lain akan lebih mudah
>
> Best Regard,
>
> -Ms. Jan Raisin-
>
>
>
>
> Pada 13 Desember 2012 15:03, Mr. Kid <mr.nmkid@gmail.com<http://mc/compose?to=mr.nmkid@gmail.com>
> > menulis:
>
> **
>
>
> Berhubung belum ada file susulan sebagai contoh datanya, dilampirkan file
> asli yang telah dikurangi jumlah datanya.
>
> Mohon hati-hati bagi yang ne-reply, karena file sudah mendekati batas
> maksimal ukuran file yang ditentukan dalam peraturan milis.
>
> Wassalam,
> Kid.
>
>
>
> 2012/12/13 Dian Anas <anassheva20@yahoo.com<http://mc/compose?to=anassheva20@yahoo.com>
> >
>
> **
>
>
> para master excel yang budiman.
> saya mau tanya, apakah sorting otomatis pada excel itu bisa dilakukan
> ketika kita memasukan data baru contohnya kalau kita memasukkan data
> golongan IV/a dengan masa kerja 23 tahun maka akan diatas golongan IV/a
> yang masa kerjanya 22 tahun. terima kasih pencerahannya.
>
> --- Mods ---
> File lampiran yang sebesar 492KB tersandera. Kita tunggu kiriman file yang
> lebih sesuai peraturan milis (<250KB) dari sdr/i Dian.
> ------------
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

4c

Re: membuat duk pns otomatis

Sat Dec 15, 2012 6:17 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Anas,

Bagaimana jika Anda mencoba membuat sebuah sheet data (tidak
terpisah-pisah). Isi kolomnya kira-kira : (anggap saja namanya DataDasar)
1. nama sheet output
2. nip (biasanya nip duluan diikuti nama)
3. nama
4. golongan
5. tanggal golongan
6. jabatan
7. tanggal menjabat
8. masa kerja tahun (tapi biarkan kosong karena harus dikalkulasi saat akan
membentuk output berdasar tahun laporan)
9. masa kerja bulan (tapi biarkan kosong karena harus dikalkulasi saat akan
membentuk output berdasar tahun laporan)
10. pelatihan jabatan
11. tanggal pelatihan
12. jumlah jam pelatihan
13. pendidikan terakhir
14. tahun lulus
15. tingkat ijasah
16. tanggal lahir
17. catatan mutasi
18. keterangan
19. tanggal mulai kerja (nanti dihitung dengan formula berdasar data NIP ~
kalau gak salah duga)

Kemudian buat juga daftar-daftar berikut : (boleh dalam 1 sheet tapi
terpisah kolom kosong antar daftarnya dan misal namanya Referensi)
D1. nama-nama sheet output -> untuk mengisi kolom nomor 1
D2. golongan -> untuk mengisi kolom nomor 4
D3. jabatan -> untuk mengisi kolom nomor 6
D4. tingkat ijazah -> untuk mengisi kolom nomor 15

Sertakan contoh data yang disikan ke tabel di sheet DataDasar dengan setiap
item untuk kolom nomor 1,4,6,15 pasti ada dalam daftar D1,D2,D3,D4

Lalu, posting deh filenya kemilis. Jangan lupa, jika lebih dari 250KB, coba
di zip.
Karena katanya masih newbie, nanti BeExceller menemani Anda belajar bersama
mulai dari membuat input sampai output.
Untuk susunan data dasar (raw data) sudah seperti di atas.
Tahap pertama adalah mempelajari menyusun input. Bisa jadi ada :
1. pemanfaatan fitur Data Validation List baik dinamis maupun statis)
>> kalau ndak salah, sepertinya jabatan akan dinamis berdasar nama sheet
outputnya, sedangkan golongan atau tingkat ijazah akan statis.
2. pembuatan nama-nama range
>> mungkin ndak perlu nama range rujukan dinamis, tetapi kalau mau sekalian
belajar hal ini juga banyak BeExceller yang bisa membantu
3. penggunaan formula seperti lookup untuk mengambil data lama atau formula
untuk mengambil tanggal masuk dan sebagainya.
4. VBA untuk menyalin data dari input ke sheet DataDasar mumpung jenis
datanya masih yang bersifat unique, yaitu berdasar NIP.

Kalau sudah lancar, baru nanti masuk tahapan belajar menyusun output dengan
VBA. Mulai dari menyusun output dalam template output, melakukan loop
supaya output di sheet template output berubah sesuai kegiatan rutin
penyusunan laporan, sampai pada penyalinan hasil di template output ke
sheet output lain sesuai selera.

hehehe.. itu kalau mau mencoba mempelajarinya.
Kalau mau jadinya, mungkin tinggal ditunggu saja reply BeExceller dengan
VBA yang input-nya di sebuah sheet dan simpan ke sheet masing-masing.
Hasilnya biasanya bagus, sayangnya, datanya tetap tersebar dibanyak sheet
dan akan relatif sulit diolah kedepannya.
Kalau mau dibayangkan, pada data dibanyak sheet tersebut, bagaimana cara
untuk menyusun laporan berikut :
> daftar guru baru di tahun ini atau
> daftar pegawai yang pensiun, dsb. Atau
> akan search si NIP sekian sekarang tugas dimana, dan tetap unique gak,
jangan-jangan tercatat 2 kali.atau
> ada berapa pegawai yang akan masuk masa pensiun dalam 3 tahun kedepan dan
siapa sajakah
(jawaban dari pertanyaan 'bagaimana cara untuk menyusun laporan berikut' di
atas sana itu sebenarnya simple, 'posting aja ke milis dan duduk manis deh')

Untuk membuat aplikasi sederhana seperti di atas, akan mudah dilakukan
dengan MS Access (kalau menguasai betul MS Access) dan akan mudah dilakukan
dengan MS Excel (kalau menguasai MS Excel). Sebenarnya, mudah dengan apa
pun yang ada atau dimiliki saat ini (kalau menguasai apa yang dimilikinya
saat ini).

so... setelah kesulitan itu ada minimal 2 kemudahan...

:)

ayo... belajar...

mohon maaf kalau ada salah-salah kata sampai kurang berkenan dihati.
(walah Kid ini, gak ikut urun solusi kok banyak omong...)

Wassalam,
Kid.

2012/12/15 Dian Anas <anassheva20@yahoo.com>

> **
>
>
> terima kasih atas pencerahannya, kalau dibuat input di sheet lain dan edit
> data yang sudah ada gmn yah? maklum masih newbie. terima kasih semoga tidak
> mengganggu waktu anda para exceller
>
>
> --- On *Fri, 12/14/12, Jan Raisin <miss.jan.raisin@gmail.com>* wrote:
>
>
> From: Jan Raisin <miss.jan.raisin@gmail.com>
> Subject: Re: [belajar-excel] membuat duk pns otomatis
> To: belajar-excel@yahoogroups.com
> Date: Friday, December 14, 2012, 4:19 AM
>
>
>
> Dear mbak/mas Dian,
>
> untuk kasus ini jika ingin otomatis, maka satu-satunya cara adalah
> menggunakan VBA
> script berikut ditulis dalam sebuah modul VBE, untuk menampilkannya tekan
> tombol ALT F11 >> Insert >> Module
>
> Option Explicit
>
> ' -------------------------------------- '
> ' prosedur input data dan sort otomatis '
> ' sort Descending berdasarkan : '
> ' Golongan, Tahun & Bulan masa kerja '
> ' code by: Ms Jan Raisin '
> ' untuk millis Belajar Excel '
> ' 14 Desember 2012 '
> ' -------------------------------------- '
>
> ' ini adalah nama prosedurnya
> Sub InputAndSort()
>
> ' deklarasikan variabel bertipe String untuk mencari NIP pada data
> Dim sCari As String
>
> ' deklarasikan variabel bertipe Range untuk menyimpan data berupa
> objek range
> ' variabel ini untuk menunjukkan apakah NIP sudah ada di data atau
> belum
> Dim Cari As Range
>
> ' deklarasikan variabel bertipe Long untuk menyimpan nomor baris data
> yang paling akhir
> Dim idxRow As Long
>
> ' ini adalah proses pengecekan apakah NIP tersebut sudah ada di data
> atau belum
> ' simpan NIP dari cell C2 ke dalam variabel yang bernama sCari
> sCari = Range("c2").Value
>
> ' lakukan pencarian NIP mulai dari cell C8 sampai baris data yang
> paling bawah
> ' perhatian!!! pada contoh ini data pertama NIP ada pada cell C8
> ' jika berbeda maka sesuaikan lokasinya
> Set Cari = Range(Range("c8"), Range("c8").End(xlDown)).Find(sCari)
>
>
> ' jika ditemukan maka
> If Not Cari Is Nothing Then
>
> ' tampilkan pesan kepada user bahwa NIP tersebut sudah ada di data
> MsgBox "NIP tersebut sudah ada", vbOKOnly + vbExclamation,
> "Validasi Data"
>
> ' karena sudah ada maka keluar dari prosedur
> Exit Sub
>
> ' ini adalah akhir dari pengecekan keberadaan NIP pada data
> End If
>
> ' jika sampai ke sini berarti data belum ada
> ' bikin 2 baris bantu, 1 sebagai header di baris 8
> ' dan di baris 9 adalah lokasi penulisan data
> ' Perhatian!!! insert baris dimulai dari baris data pertama
> ' jika lokasinya berbeda maka lakukan penyesuaian
> Range("a8:a9").EntireRow.Insert
>
> ' bikin header di setiap kolom baris bantu yang tadi sudah dibuat
> Range("a8").Value = "No"
> Range("b8:r8").Value = Range("b1:r1").Value
>
> ' copas data input ke tabel
> Range("b2:r2").Copy
> Range("b9").PasteSpecial xlPasteValuesAndNumberFormats
> Application.CutCopyMode = False
>
> ' sekarang saatnya melakukan sortir data
> ' pergi ke cell B8, ini adalah header dari baris bantu yang sudah
> dibuat
> Range("B8").Select
> ' blok seluruh data ke arah kanan dan ke arah bawah
> Range(Selection, Selection.End(xlToRight).End(xlDown)).Select
>
> ' jika ada sort sebelumnya, maka hapus dahulu sort tersebut
> Sheets("ks dan guru").Sort.SortFields.Clear
>
> ' sort descending berdasarkan Golongan, headernya ada di cell D8
> Sheets("ks dan guru").Sort.SortFields.Add Key:=Range("d8"), _
> SortOn:=xlSortOnValues, Order:=xlDescending,
> DataOption:=xlSortNormal
>
> ' sort descending berdasarkan Tahun tugas, headernya ada di cell H8
> ActiveWorkbook.Worksheets("ks dan guru").Sort.SortFields.Add
> Key:=Range("h8"), _
> SortOn:=xlSortOnValues, Order:=xlDescending,
> DataOption:=xlSortNormal
>
> ' sort Descending berdasarkan Bulan tugas, headernya ada di cell I8
> ActiveWorkbook.Worksheets("ks dan guru").Sort.SortFields.Add
> Key:=Range("i8"), _
> SortOn:=xlSortOnValues, Order:=xlDescending,
> DataOption:=xlSortNormal
>
> ' sekarang bekerja pada proses sort di sheet KS dan Guru
> With Sheets("ks dan guru").Sort
> ' atur range data yang akan disort, mulai dari aktif cell (B8) ke
> arah kanan dan bawah
> .SetRange Range(ActiveCell, ActiveCell.End(xlToRight).End(xlDown))
> ' baris pertama adalah header data
> .Header = xlYes
> ' sort bukan berdasarkan case sensitif
> .MatchCase = False
> ' sort dilakukan dari atas ke bawah
> .Orientation = xlTopToBottom
> ' defaultnya adalah xlPinYin
> .SortMethod = xlPinYin
> ' terapkan sort berdasarkan kriteria yang telah ditentukan
> .Apply
>
> ' akhir bekerja dengan proses sort pada sheet KS dan Guru
> End With
>
> ' cari nomor baris data terakhir dan simpan di variabel idxRow
> idxRow = ActiveCell.End(xlDown).Row
>
> ' bikin nomor urut
> Range("a9").Value = 1
> Range("a10").Value = 2
> Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
>
> ' hapus baris bantu
> Range("b8").EntireRow.Delete
>
> ' pergi ke cell A1, biar keliatan lebih cantik aja
> Range("a1").Select
>
> ' ini adalah akhir dari prosedur input dan simpan
> End Sub
>
> untuk menjalankannya, buat sebuah objek berupa tombol, shape, atau mungkin
> kalo mau sedikit narsis boleh lah pakai foto xixixi :D
> assign macro tersebut ke dalam objek tadi dengan cara klik kanan pada
> objek tersebut
>
> setelah itu setiap selesai input data klik objek tersebut
>
> file terlampir hanya disisakan 1 buah sheet saja, untuk mengurangi ukuran
> file, semoga OP bersedia mempelajari script tersebut sehingga untuk
> penerapan ke sheet yang lain akan lebih mudah
>
> Best Regard,
>
> -Ms. Jan Raisin-
>
>
>
>
> Pada 13 Desember 2012 15:03, Mr. Kid <mr.nmkid@gmail.com<http://mc/compose?to=mr.nmkid@gmail.com>
> > menulis:
>
> **
>
>
> Berhubung belum ada file susulan sebagai contoh datanya, dilampirkan file
> asli yang telah dikurangi jumlah datanya.
>
> Mohon hati-hati bagi yang ne-reply, karena file sudah mendekati batas
> maksimal ukuran file yang ditentukan dalam peraturan milis.
>
> Wassalam,
> Kid.
>
>
>
> 2012/12/13 Dian Anas <anassheva20@yahoo.com<http://mc/compose?to=anassheva20@yahoo.com>
> >
>
> **
>
>
> para master excel yang budiman.
> saya mau tanya, apakah sorting otomatis pada excel itu bisa dilakukan
> ketika kita memasukan data baru contohnya kalau kita memasukkan data
> golongan IV/a dengan masa kerja 23 tahun maka akan diatas golongan IV/a
> yang masa kerjanya 22 tahun. terima kasih pencerahannya.
>
> --- Mods ---
> File lampiran yang sebesar 492KB tersandera. Kita tunggu kiriman file yang
> lebih sesuai peraturan milis (<250KB) dari sdr/i Dian.
> ------------
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (7) . Top ^

5a

Cara ambil attachment

Sat Dec 15, 2012 9:12 am (PST) . Posted by:

"tioali2011" tioali2011

Salam Be-Exceller. Saya mau tanya, bagaimana cara ambil attachment dari message yang ada ? Trims jawabannya.

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

5b

Re: Cara ambil attachment

Sat Dec 15, 2012 9:22 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Sdr/i Tio,

Coba buka akun email yang Anda daftarkan untuk menerima email dari milis
dengan aplikasi email manager (Outlook, Thunderbird, dsb) atau login ke
server akun email Anda dan lihat di Inbox. File attachment telah bersama
email yang sampai ke Inbox akun email Anda. Silakan download file
attachment sesuai tata cara aplikasi atau email server yang Anda gunakan.

Wassalam,
Kid.

2012/12/15 tioali2011 <tioali2011@yahoo.co.id>

> **
>
>
> Salam Be-Exceller. Saya mau tanya, bagaimana cara ambil attachment dari
> message yang ada ? Trims jawabannya.
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

Visit Your Group

>

View All Topics

>

Create New Topic

>

15 New Members

>

We are making changes based on your feedback, Thank you !

Submit Feedback

>

The Yahoo! Groups Product Blog

Check it out!

>

GROUP FOOTER MESSAGE

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

>

TERMS OF USE

>

UNSUBSCRIBE

>