[belajar-excel] Digest Number 4258

Milis Belajar Microsoft Excel Group

6 Messages

Digest #4258

1a

Re: SPJ Perjalanan Dinas [1 Attachment] by "M.Ade Alfarid" aderyo

1b

Re: SPJ Perjalanan Dinas [1 Attachment] by "Nang Agus"

2a

Mengkopi semua sheets yang ada pada semua files dalam banyak directo by "hendrik karnadi" hendrikkarnadi

2b

otomatis entri date setelah input data by "Fajar Fatahillah" fajar.fatahillah

2c

Re: otomatis entri date setelah input data by "nangagus"

3

Filter Jumlah Total Transaksi 2 Kategori  (Tanya Rumus) by

Messages

1a

Re: SPJ Perjalanan Dinas [1 Attachment]

Wed Aug 2, 2017 7:05 pm (PDT) . Posted by:

"M.Ade Alfarid" aderyo

Dear Nurul,

Bisakah dijelaskan lebih detil, menghubungkan itu inginnya seperti apa.

Apanya yg mau dihubungkan, apakah sheetnya saja?

Bisa dikirimkan /ditandai apa saja yang inginnya tidak manual lagi?

buatkan comment diexcel filenya,

misalnya : jika di klik ada pilihan nama, kemudian ketika dipiliih tgl
otomatis muncul data bla bla bla di cell A17, dst…………….

Mohon maaf, mungkin para master belum menangkap detilnya.

Ade

*From:* belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]

*Sent:* Wednesday, August 2, 2017 2:38 PM
*To:* belajar-excel@yahoogroups.com
*Subject:* [belajar-excel] SPJ Perjalanan Dinas [1 Attachment]

Selama ini jika membuat SPJ perjalanan dinas masih manual seperti contoh,
sehingga saya ingin membuat aplikasi sederhana menggunakan excel. Bagaimana
cara menghubungkan antar sheet pakai rumus excel, sehingga tidak manual
lagi. Mohon bantuan rekan-rekan sekalian, karena sebentar lg ada kegiatan
yg mengundang bnyk peserta. Terima kasih.

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

1b

Re: SPJ Perjalanan Dinas [1 Attachment]

Wed Aug 2, 2017 11:07 pm (PDT) . Posted by:

"Nang Agus"

Dear Nurul,
File lampiran sekedar contoh,
Isikan dahulu data dengan lengkap kemudian ubah nomor yang berwarna hijau
disetiap sheet untuk mengubah nama pelaksana SPPD sesuai nama yang
dibutuhkan.
Sebenarnya dapat dibuat macro untuk Print sebanyak pelaksana SPPD yang
dibutuhkan.
Silahkan dicermati dahulu, semoga sesuai kebutuhan.
Salam
NangAgus

2017-08-02 0:38 GMT-07:00 Nurul Widya Susanti nrlwdysusanti@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Selama ini jika membuat SPJ perjalanan dinas masih manual seperti contoh,
> sehingga saya ingin membuat aplikasi sederhana menggunakan excel. Bagaimana
> cara menghubungkan antar sheet pakai rumus excel, sehingga tidak manual
> lagi. Mohon bantuan rekan-rekan sekalian, karena sebentar lg ada kegiatan
> yg mengundang bnyk peserta. Terima kasih.
>
>
>

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

2a

Mengkopi semua sheets yang ada pada semua files dalam banyak directo

Wed Aug 2, 2017 11:33 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Dear Be-Excel,
Sehubungan dengan pertanyaan dari seorang member dari negara antah berantah mengenai hal tersebut diatas yang mirip dengan masalah yang pernah saya sampaikan sebelumnya....saya mencoba merevisi file sebelumnya (Master) sehingga menjadi lebih mudah.
Pertanyaannya adalah sebagai berikut (terjemahan bebas):Saya mempunyai beberapa file dalam dua directory tapi mempunyai nama2 yang sama, mis- Dir 1, file 1,2,3- Dir 2, file 1,2,3Saya ingin mencopy isi file2 tersebut.

Pertanyaan tersebut saya coba kembangkan menjadi:"Saya ingin mengcopy isi beberapa file yang berada dalam beberapa directory dan masing2 file mempunyai beberapa sheet yang tidak sama.
Setelah Macronya dibuat, hanya perlu 3 langkah untuk melaksanakannya :- Buka blank Workbook yang mempunyai peling sedikit 2 Sheet- Tulis nama2 folder atau sub folder pada Sheet2 Range A1, dstnya  (dalam contoh di atas Range A1 diisi dengan D1 dan Range A2 diisi dengan D2)- Copas dan jalankan macro di bawah ini pada Sheet1 (macro harus aktif),
Option Explicit

Sub ReadAndMergeData()

    ' ERROR CATCHING
    On Error GoTo ErrHandler
    
    ' FREEZE SCREEN
    Application.ScreenUpdating = False
    
    ' CLEAR ALL DATA
    Cells.Clear
    
    ' OUR FILE SYSTEM OBJECTS AND VARIABLES
    Dim objFs As Object
    Dim objFolder As Object
    Dim file As Object
    Dim dst As Workbook
    Dim src As Workbook
    Dim wks As Worksheet
    Dim i As Integer
    Dim mynextrow As Integer
    
    ' THE DESTINATION WORKBOOK AND STARTED ROW
    Set dst = ThisWorkbook
    mynextrow = 1
        
    ' SET FILESYSTEMOBJECT
    Set objFs = CreateObject("Scripting.FileSystemObject")
    
    ' LOOP THROUGH ALL THE PATHS OF THE SOURCE FOLDER
    For i = 1 To WorksheetFunction.CountA(Sheet2.Columns("A:A"))
    Set objFolder = objFs.GetFolder(Sheet2.Range("A" & i).Value)
    
    ' LOOP THROUGH ALL THE WORKBOOKS AND WORKSHEETS IN THE SOURCE FOLDER
    For Each file In objFolder.Files
            
        ' THE SOURCE WORKBOOK
        Set src = Workbooks.Open(file.Path, True, True)
        
        For Each wks In src.Worksheets
            dst.Sheets("sheet1").Cells(mynextrow, 1).Value = file & " (" & wks.Name & ")"
            dst.Sheets("sheet1").Cells(mynextrow, 1).Font.Bold = True
            wks.UsedRange.Copy
            dst.Sheets("sheet1").Cells(mynextrow + 1, 1).PasteSpecial Paste:=xlPasteValues
            mynextrow = dst.Sheets("sheet1").UsedRange.Rows.Count + 2
        Next wks
    
        ' CLOSE SOURCE WORKBOOK AND SET TO NOTHING
        src.Close False
        Set src = Nothing
      
    Next file
    
    Next i
    
ErrHandler:
    Application.EnableEvents = True
    Application.ScreenUpdating = True

End Sub

Semoga bermanfaat.
Salam,HK

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

2b

otomatis entri date setelah input data

Thu Aug 3, 2017 5:12 am (PDT) . Posted by:

"Fajar Fatahillah" fajar.fatahillah

Dear Master excel,
saya punya kode berikut ( download lebih tepatnya).. hehee
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("C2:C100")) Is Nothing Then
        With Target(1, 0)
        .Value = Date
        .EntireColumn.AutoFit
        End With
    End If
End Sub
maksud kode tersebut kurang lebih, kalau ada input data atau value di cell C2 misalnya, maka akan otomatis terisi tanggal di cell B2.
yang ingin saya tanyakan, kalau misalnya buat macro delete satu baris dari B2:F2 misalnya (B2 tempat tgl otomatis tadi).. maka tanggal di B2 masih tetap ada dan tidak ikut kedelete ..
Mohon pencerahannya para master semua
 Best Regards,
Fajar Fatahillah

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

2c

Re: otomatis entri date setelah input data

Thu Aug 3, 2017 4:49 pm (PDT) . Posted by:

"nangagus"

Dear Fajar

Untuk email selanjutnya pada pertanyaan baru (threat baru) jangan
mereply treat lama.

Mungkinkah seperti ini:

Sub hapus()
Dim y As Integer
y = ActiveCell.Row   'mencari nomor baris cell yang aktif dimasukkan
dalam variabel y
Range("C" & y & ":F" & y).ClearContents  'menghapus cell Cy:Fy
End Sub

Salam

NangAgus

On 8/3/2017 5:43 PM, Fajar Fatahillah fajar.fatahillah@yahoo.com
[belajar-excel] wrote:
> Dear Master excel,
>
> saya punya kode berikut ( download lebih tepatnya).. hehee
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>     If Target.Cells.Count > 1 Then Exit Sub
>     If Not Intersect(Target, Range("C2:C100")) Is Nothing Then
>         With Target(1, 0)
>         .Value = Date
>         .EntireColumn.AutoFit
>         End With
>     End If
> End Sub
>
> maksud kode tersebut kurang lebih, kalau ada input data atau value di
> cell C2 misalnya, maka akan otomatis terisi tanggal di cell B2.
> yang ingin saya tanyakan, kalau misalnya buat macro delete satu baris
> dari B2:F2 misalnya (B2 tempat tgl otomatis tadi).. maka tanggal di B2
> masih tetap ada dan tidak ikut kedelete ..
>
> Mohon pencerahannya para master semua
> Best Regards,
> Fajar Fatahillah
>
>
>
>
>

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

3

Filter Jumlah Total Transaksi 2 Kategori  (Tanya Rumus)

Thu Aug 3, 2017 5:40 am (PDT) . Posted by:

body { font-family: "Calibri","Slate Pro","sans-serif";
color:#262626 } Dear Master Excel,
Saya ada masalah dengan filter jumlah transaksi 2 kategori
berdasarkan data dari sheet Detail Order (terlampir filenya)
Tanya : Bagaimana agar di sheet Balance, pada kolom total
transaksi, produk terjual, Jual & Beli dari Owner Astore dan
Kastore terisi otomatis dan terpisahkan sesuai tanggal?
Maaf klo pemilihan kata dari pertanyaan saya membingungkan,Toling
bantuannya atas masalah saya ini, makasih
Sent from my BlackBerry 10 smartphone on the XL network.

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

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------

Visit Your Group

• New Members 4

• Privacy • Unsubscribe • Terms of Use