Re: [belajar-excel] Re: rekap nama kemunculan (maaf)
Maafnya satu kali saja gpp kok jangan kapok tuk bertanya lagi ya... ^_^ From: Cicis Kristian cicis...@yahoo.com To: setiyowati.d...@gmail.com; belajar-excel@yahoogroups.com Sent: Thu, January 28, 2010 3:18:32 PM Subject: [belajar-excel] Re: rekap nama kemunculan (maaf) maaf sebelumnya, bukan karena sengaja saya mengirimkan email berkali - kali. saya sendiri baru tahu klo telah mengirim lbh dari satu email yg berisi content yg sama. menurut IT kantor, td trafic jaringan kantor memang sedang bermasalah, itu saja yang saya tahu. sekali dengan penuh kerendahan hati, saya mohon maaf maklumnya kepada semua anggota milis ini jika merasa terganggu. terima kasih From: siti_vi setiyowati.devi@ gmail.com To: Cicis Kristian cicis...@yahoo. com Sent: Thu, January 28, 2010 2:41:16 PM Subject: Re: rekap nama kemunculan yth sdr cicis, tercatat anda mengirimkan satu posting yg sama berkali kali. ** apakah ini karena ketidak sengajaan ? atau ** karena suatu maksud tertentu (apa) ? mohon penjelasan terima kasih moderator --- In belajar-excel@ yahoogroups. com, Cicis Kristian cicis...@... wrote: _ _ __ Terima kasih buat responnya, tapi permasalahan saya msh belum terjawab, pada sheet Rekap untuk kolom nama dan kemunculan itu tidak diisi secara manual tapi ter-generate secara otomatis dari sheet2 bulan. Misalnya, pada sheet Jan terdapat 4 nama maka nama2 itu ter-copy di sheet Rekap kemudian jumlah kemunculan menjadi 1. Kemudian jika pada sheet Feb dan sheet2 yg lain diisikan nama2, maka nama2 tersebut akan ter-copy di sheet Rekap, jika memang sebelumnya sebuah nama belum ada dalam list, maka kemunculan nama dihitung 1 dan jika sudah ada maka kemunculannya ditambahkan.
RE: [belajar-excel] Hyperlink yang tidak biasa
Terima kasih atas penjelasannya. _ From: belajar-excel@yahoogroups.com [mailto:belajar-ex...@yahoogroups.com] On Behalf Of siti Vi Sent: Thursday, 28 January, 2010 12:45 To: belajar-excel@yahoogroups.com Subject: Re: [belajar-excel] Hyperlink yang tidak biasa Bisa dengan menulis codenya di bawah prosedur event worksheet_before_doubelclick _ - Original Message - From: Edo Ymail To: belajar-excel@yahoogroups.com Sent: Thursday, January 28, 2010 12:09 PM Subject: RE: [belajar-excel] Hyperlink yang tidak biasa Terima kasih atas bantuannya Mbak Siti. Jika seandainya untuk mengaktifkan macronya dengan menggunakan double clik , apakah bisa dilakukan? Terima kasih From: belajar-excel@yahoogroups.com [mailto:belajar-ex...@yahoogroups.com] On Behalf Of siti Vi Sent: Wednesday, 27 January, 2010 20:23 dengan demikian kita akan membuat hyperlinks banyak sekali yaitu di tiap cell di area grid tanggal. alternatifnya: tidak perlu pakai hyperlink, tetapi memanfaatkan Event worksheet_selection_change Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count = 2 Then If IsDate(Target(1, 1).Value) Then If Month(Target(1, 1)) = Month(Range(C2)) Then Sheets(Sheet3).Activate With Sheets(Sheet3).Range(B2) .Activate .Value = Target.Value .NumberFormat = dd// End With End If End If End If End Sub image001.gif
Re: [belajar-excel] Belajar membuat perintah macro
sebetulnya hasilnya bukan 11 tetapi karena hasil dituliskan SELALU di cell A2 terus Range(A1).Offset(1, 0) = hasil maka hasil sebelumnya terhapus olh hasil berikutnya seharusnya, penulisan harus ikut berlari ke bawah dari A2 ke A3 dst anda harus punya variable pencacah / counter misalnya Private Sub CommandButton1_Click() Dim c As Range, n As Long For Each c In Worksheets(Sheet1).Range(A1:A15) If c.Value = a Then n = n + 1 Range(A1).Offset(n, 0).Value = c.Offset(0, 1).Value End If Next c End Sub - Original Message - From: Edo Ymail To: belajar-excel@yahoogroups.com Sent: Thursday, January 28, 2010 4:28 PM Subject: [belajar-excel] Belajar membuat perintah macro Dear master XL, Saya sedang mencoba-coba untuk belajar membuat perintah macro sederhana, yang saya coba buat adalah macro untuk membuat unique list dimana dari list yang ada di Sheet 1 akan saya coba untuk ditampilkan di Sheet 2. Adapun perintah macro yang saya buat adalah : Private Sub CommandButton1_Click() Dim c As Range For Each c In Worksheets(Sheet1).Range(A1:A15) If c.Value = a Then Range(A1).Offset(1, 0).Value = c.Offset(0, 1).Value End If Next c End Sub Hasil yang saya harapkan adalah pada Sheet 2 cell A1 sampai kebawah adalah 1, 4, 1, 5, 11. Tetapi dari perintah yang saya coba diatas hanya menghasilkan angka 11 di Sheet2 cell A2. Mohon bantuannya dimana kira-kira letak kesalahannya? Terima Kasih
Re: [belajar-excel] Belajar membuat perintah macro
oiya, sebelum terlanjur menjadi salah kaprah... a 1 TRUE 1 s 2 FALSE d 3 FALSE a 4 TRUE 4 s 5 FALSE d 6 FALSE e 7 FALSE s 8 FALSE a 1 TRUE 1 x 2 FALSE s 3 FALSE d 4 FALSE a 5 TRUE 5 s 6 FALSE a 11 TRUE 11 kriteria: a hasil / tujuan akhir seperti di kolom KUNING itu, tidak tepat kalau disebut sebagai UNIQUE LIST barangkali lebih tepat : list data yg sesuai 1 kriteria - Original Message - From: Edo Ymail To: belajar-excel@yahoogroups.com Sent: Thursday, January 28, 2010 4:28 PM Subject: [belajar-excel] Belajar membuat perintah macro Dear master XL, Saya sedang mencoba-coba untuk belajar membuat perintah macro sederhana, yang saya coba buat adalah macro untuk membuat unique list dimana dari list yang ada di Sheet 1 akan saya coba untuk ditampilkan di Sheet 2. Adapun perintah macro yang saya buat adalah : Private Sub CommandButton1_Click() Dim c As Range For Each c In Worksheets(Sheet1).Range(A1:A15) If c.Value = a Then Range(A1).Offset(1, 0).Value = c.Offset(0, 1).Value End If Next c End Sub Hasil yang saya harapkan adalah pada Sheet 2 cell A1 sampai kebawah adalah 1, 4, 1, 5, 11. Tetapi dari perintah yang saya coba diatas hanya menghasilkan angka 11 di Sheet2 cell A2. Mohon bantuannya dimana kira-kira letak kesalahannya? Terima Kasih
Re: [belajar-excel] Belajar membuat perintah macro
Saya ingin menambahkan sedikit tip untuk belajar macro (yang pernah saya lakukan), yaitu dengan merekam apa yang akan kita lakukan. Setelah direkam, coba dijalankan dengan menekan F8 (step by step) berkali - kali sambil menikmati jalannya macro tersebut. Kalau sudah OK, baru kita edit lagi, kemudian coba lagi. Dengan merekam, melakukan langkah step by step (teken F8), mengedit, kemudian mencoba lagi kita akan dapat mengembangkan variasi penulisan macro sehingga menjadi semakin singkat dan hebat. Selamat bermacro ria. Salam, Hendrik Karnadi From: siti Vi setiyowati.d...@gmail.com To: belajar-excel@yahoogroups.com Sent: Thursday, January 28, 2010 16:47:47 Subject: Re: [belajar-excel] Belajar membuat perintah macro sebetulnya hasilnya bukan 11 tetapi karena hasil dituliskan SELALU di cell A2 terus Range(A1). Offset(1, 0) = hasil maka hasil sebelumnya terhapus olh hasil berikutnya seharusnya, penulisan harus ikut berlari ke bawah dari A2 ke A3 dst anda harus punya variable pencacah / counter misalnya Private Sub CommandButton1_ Click() Dim c As Range, n As Long For Each c In Worksheets( Sheet1). Range(A1: A15) If c.Value = a Then n = n + 1 Range(A1). Offset(n, 0).Value = c.Offset(0, 1).Value End If Next c End Sub - Original Message - From: Edo Ymail To: belajar-excel@ yahoogroups. com Sent: Thursday, January 28, 2010 4:28 PM Subject: [belajar-excel] Belajar membuat perintah macro Dear master XL, Saya sedang mencoba-coba untuk belajar membuat perintah macro sederhana, yang saya coba buat adalah macro untuk membuat unique list dimana dari list yang ada di Sheet 1 akan saya coba untuk ditampilkan di Sheet 2. Adapun perintah macro yang saya buat adalah : Private Sub CommandButton1_ Click() Dim c As Range For Each c In Worksheets( Sheet1). Range(A1: A15) If c.Value = a Then Range(A1). Offset(1, 0).Value = c.Offset(0, 1).Value End If Next c End Sub Hasil yang saya harapkan adalah pada Sheet 2 cell A1 sampai kebawah adalah 1, 4, 1, 5, 11. Tetapi dari perintah yang saya coba diatas hanya menghasilkan angka 11 di Sheet2 cell A2. Mohon bantuannya dimana kira-kira letak kesalahannya? Terima Kasih Get your preferred Email name! Now you can @ymail.com and @rocketmail.com. http://mail.promotions.yahoo.com/newdomains/aa/
[belajar-excel] Copy sheet ke Workbook baru dengan nama spt sheet tsb
Dear All, Saya punya file excel yang jumlah sheetnya sangat banyak sekali, sehingga file tsb ukurannya sangat besar. Salah satu sheet dalam file tersebut akan saya kirim ke tempat lain dengan sarana email, untuk diedit oleh orang lain. Sheet tersebut akan saya copy ke workbook baru dengan nama seperti nama sheet tersebut, sehingga file yang saya kirim menjadi kecil ukurannya. Saya sudah mencoba membuat VBA nya, tetapi kok nggak jalan-2 ….. maklum sudah pikun …… Mohon bantuan XL-Mania-er untujk memberikan pencerahan kepada saya. VBA yang sudah saya buat adalah sebagai berikut: Sub Macro1() ' ' Macro1 Macro ' Dim wbAwal As String, wbBaru As String Dim shtAwal As String, shtBaru As String wbAwal = ActiveWorkbook.Name wbBaru = InputBox(Prompt:=Masukkan Nama Workbook Baru dengan memilih sheet dalam workbook ini, _ Title:=Membuat WorkBook Baru) shtAwal = wbBaru wbBaru = wbBaru + .xls Workbooks.Add SelectedWorkbook.Name = wbBaru Workbooks(wbAwal).Activate Sheets(shtAwal).Select Sheets(shtAwal).Copy After:=Workbooks(wbBaru).Sheets(1) Sheets(Sheet1).Select SelectedSheets.Delete End Sub Terima kasih. Best regards. Get your new Email address! Grab the Email name you#39;ve always wanted before someone else does! http://mail.promotions.yahoo.com/newdomains/aa/
[belajar-excel] Re: Copy sheet ke Workbook baru dengan nama spt sheet tsb
bgmana kalo kita mudahkan begini: 1. (manual oleh user) pilih salah satu worksheet dlm workbook tsb dengan cara mengaktifkannnya2. (manual oleh user) Klik-Ganda Cell A1 pada sheet yg sudah dipilih ( ini maksudnya untuk menjalankan makro kita) 3. (otomatis dikerjakan VBA) Ya makro nya langsung jalan dan kerja sampai selesai dong... Karena dengan diaktifkan sebuah sheet tadi, tanpa perlu tanya-tanya lagi dia sudah tahu SHEET yg akan di copy ke workbook lain, dan sudah tahu pula WORKBOOK LAIN itu akan di SaveAs dengan NAMA APA. '-- module Thisworkbook -- Private Sub Workbook_SheetBeforeDoubleClick( _ ByVal Sh As Object, _ ByVal Target As Range, Cancel As Boolean) If Target.Cells.Count = 1 Then If Target = Cells(1) Then Call SheetToNewBook(Sh) End If Cancel = True End Sub '-- module umum (module: level aplikasi) -- Sub SheetToNewBook(TheSheet As Worksheet) '--- ' membuat salah satu sheet pilihan user ' menjadi workbook baru ' sheet lama tidak didelete ' siti Vi // bluewater, 29 jan 2010 '--Dim myPath As String myPath = ThisWorkbook.Path \ TheSheet.Copy ActiveWorkbook.SaveAs _ Filename:=myPath TheSheet.Name .xls ThisWorkbook.Activate End Sub Perintah ObjectWorkSheet.Copy menghasilkan ObjectWorksheet tsb dicopy ke WorkbookBaru jadi kita tidak perlu meng ADD workbook-baru lebih dulu Kalau diinginkan sheet di workbook LAMA langsung dihapus (karena sudah dipindah ke workbook baru); perintahnya TheSheet.Move Ada hal yg perlu diingat yaitu - apakah di folder (dimana workbook yg memuat makro ini berada)sudah ada workbook yg namanya SAMA debgab yg akan dibuat oleh makro. - apakah pada sheet yg ditunjuk ada formula yg me-RUJUK (Link) ke sheet lain dlm workbook 'awal'(jika ada) : workbook baru akan punya links ke workbook anda.mengenai makro yg ditulis pak herry sutjipto SelectedWorkbook mungkin yg dimaksud = ActiveWorkbook tetapi ObjecWorkBook.NAME itu adalah property yg READ ONLY tidak bisa kok tiba-tiba mau diganti dengan nama baru seperti itu Bisa nya = di SAVE-AS dengan nama baru. Atau kalau mau di RENAME, workbook-nya kan harus diTUTUP dulu. SelectedSheets adalah object collection (kumpulan dari banyak object) yaitu sheet-sheet yg sedang diselect secara bersamaan (group) Apakah memang akan ada pen-DELETED-an banyak sheet dan kapan mereka di select secara bersamaan text panduan dlm input box Masukkan Nama Workbook Baru dengan memilih sheet dalam workbook ini Panduan ini mendua arti; lebih tegas bila kata MEMILIH diganti dengan MENGETIKKAN tips: sebaiknya sebelum menulis makro kita memperhatikan apa saja yg terjadi jika hal tsb dikerjakan secara manual... Prosedur (II) di module-umum tsb diatas dapat diringkas menjadi spt ini Sub SheetToNewBook(CurSht As Worksheet) CurSht.Copy ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path \ CurSht.Name .xls ThisWorkbook.Activate End Sub --- In belajar-excel@yahoogroups.com, Herry Sutjipto herry...@... wrote: Dear All, Saya punya file excel yang jumlah sheetnya sangat banyak sekali, sehingga file tsb ukurannya sangat besar. Salah satu sheet dalam file tersebut akan saya kirim ke tempat lain dengan sarana email, untuk diedit oleh orang lain. Sheet tersebut akan saya copy ke workbook baru dengan nama seperti nama sheet tersebut, sehingga file yang saya kirim menjadi kecil ukurannya. Saya sudah mencoba membuat VBA nya, tetapi kok nggak jalan-2 â¦.. maklum sudah pikun â¦â¦ Mohon bantuan XL-Mania-er untujk memberikan pencerahan kepada saya. VBA yang sudah saya buat adalah sebagai berikut: Sub Macro1() ' ' Macro1 Macro ' Dim wbAwal As String, wbBaru As String Dim shtAwal As String, shtBaru As String wbAwal = ActiveWorkbook.Name wbBaru = InputBox(Prompt:=Masukkan Nama Workbook Baru dengan memilih sheet dalam workbook ini, _ Title:=Membuat WorkBook Baru) shtAwal = wbBaru wbBaru = wbBaru + .xls Workbooks.Add SelectedWorkbook.Name = wbBaru Workbooks(wbAwal).Activate Sheets(shtAwal).Select Sheets(shtAwal).Copy After:=Workbooks(wbBaru).Sheets(1) Sheets(Sheet1).Select SelectedSheets.Delete End Sub Terima kasih. Best regards.
Re: [belajar-excel] Re: Copy sheet ke Workbook baru dengan nama spt sheet tsb
Dear Miss Siti Vi, Membaca komen mBak Siti atas VBA yang saya susun, saya jadi ngakak wk wk wk wk wk kok logika saya jadi ngaco ya .. Mbak Siti kok pinter banget sih, VBA nya yang disusun bagus.. bagus ... eh cantik - cantik wong cewek je Trus kalau sudah dikirim ke kita lagi, setelah dikoreksi orang lain, gimana ya VBA nya untuk meng attach ke file awal supaya kerja kita nggak ribet? Wah ngasih PR terus nih maaf ya mBak .. ngomong2 Ibu saya nama depannya juga Siti lho . maaf ya nggak ngeledek lho ... ampun-ampun jangan marah. Best regards Herry Sutjipto From: siti_vi setiyowati.d...@gmail.com To: belajar-excel@yahoogroups.com Sent: Friday, January 29, 2010 9:50:48 Subject: [belajar-excel] Re: Copy sheet ke Workbook baru dengan nama spt sheet tsb bgmana kalo kita mudahkan begini: 1. (manual oleh user) pilih salah satu worksheet dlm workbook tsb dengan cara mengaktifkannnya 2. (manual oleh user) Klik-Ganda Cell A1 pada sheet yg sudah dipilih ( ini maksudnya untuk menjalankan makro kita) 3. (otomatis dikerjakan VBA) Ya makro nya langsung jalan dan kerja sampai selesai dong... Karena dengan diaktifkan sebuah sheet tadi, tanpa perlu tanya-tanya lagi dia sudah tahu SHEET yg akan di copy ke workbook lain, dan sudah tahu pula WORKBOOK LAIN itu akan di SaveAs dengan NAMA APA. '-- module Thisworkbook -- Private Sub Workbook_SheetBefor eDoubleClick( _ ByVal Sh As Object, _ ByVal Target As Range, Cancel As Boolean) If Target.Cells. Count = 1 Then If Target = Cells(1) Then Call SheetToNewBook(Sh) End If Cancel = True End Sub '-- module umum (module: level aplikasi) -- Sub SheetToNewBook( TheSheet As Worksheet) '--- - - - - ' membuat salah satu sheet pilihan user ' menjadi workbook baru ' sheet lama tidak didelete ' siti Vi // bluewater, 29 jan 2010 '--- - - - Dim myPath As String myPath = ThisWorkbook. Path \ TheSheet.Copy ActiveWorkbook. SaveAs _ Filename:=myPath TheSheet.Name .xls ThisWorkbook. Activate End Sub Perintah ObjectWorkSheet. Copy menghasilkan ObjectWorksheet tsb dicopy ke WorkbookBaru jadi kita tidak perlu meng ADD workbook-baru lebih dulu Kalau diinginkan sheet di workbook LAMA langsung dihapus (karena sudah dipindah ke workbook baru); perintahnya TheSheet.Move Ada hal yg perlu diingat yaitu - apakah di folder (dimana workbook yg memuat makro ini berada) sudah ada workbook yg namanya SAMA debgab yg akan dibuat oleh makro. - apakah pada sheet yg ditunjuk ada formula yg me-RUJUK (Link) ke sheet lain dlm workbook 'awal' (jika ada) : workbook baru akan punyalinks ke workbook anda. mengenai makro yg ditulis pak herry sutjipto SelectedWorkbook mungkin yg dimaksud = ActiveWorkbook tetapi ObjecWorkBook.NAME itu adalah property yg READ ONLY tidak bisa kok tiba-tiba mau diganti dengan nama baru seperti itu Bisa nya = di SAVE-AS dengan nama baru. Atau kalau mau di RENAME, workbook-nya kan harus diTUTUP dulu. SelectedSheets adalah object collection (kumpulan dari banyak object) yaitu sheet-sheet yg sedang diselect secara bersamaan (group) Apakah memang akan ada pen-DELETED- an banyak sheet dan kapan mereka di select secara bersamaan text panduan dlm input box Masukkan Nama Workbook Baru dengan memilih sheet dalam workbook ini Panduan ini mendua arti; lebih tegas bila kata MEMILIH diganti dengan MENGETIKKAN tips: sebaiknya sebelum menulis makro kita memperhatikan apa saja yg terjadi jika hal tsb dikerjakan secara manual... Prosedur (II) di module-umum tsb diatas dapat diringkas menjadi spt ini Sub SheetToNewBook( CurSht As Worksheet) CurSht.Copy ActiveWorkbook. SaveAs Filename:=ThisWorkb ook.Path \ CurSht.Name .xls ThisWorkbook. Activate End Sub --- In belajar-excel@ yahoogroups. com, Herry Sutjipto herry...@... wrote: Dear All, Saya punya file excel yang jumlah sheetnya sangat banyak sekali, sehingga file tsb ukurannya sangat besar. Salah satu sheet dalam file tersebut akan saya kirim ke tempat lain dengan sarana email, untuk diedit oleh orang lain. Sheet tersebut akan saya copy ke workbook baru dengan nama seperti nama sheet tersebut, sehingga file yang saya kirim menjadi kecil ukurannya. Saya sudah mencoba membuat VBA nya, tetapi kok nggak jalan-2 ….. maklum sudah pikun …… Mohon bantuan XL-Mania-er untujk memberikan pencerahan kepada saya. VBA yang sudah saya buat adalah sebagai berikut: Sub Macro1() ' ' Macro1 Macro ' Dim wbAwal As String, wbBaru As String Dim shtAwal As String, shtBaru As String wbAwal = ActiveWorkbook. Name wbBaru = InputBox(Prompt: =Masukkan Nama Workbook Baru dengan memilih sheet dalam workbook ini, _ Title:=Membuat WorkBook Baru) shtAwal = wbBaru wbBaru = wbBaru + .xls Workbooks.Add
[belajar-excel] Tampilan Dropdownlist
Yth. Para master excel Apakah ada cara atau tips untuk membuat dan mengubah tampilan dropdownlist yg dibuat dari Data Validation (font, warna, dsb) supaya tampilannya lebih menarik. Terima kasih banyak untuk info nya. Sent from my iPhone 3G with Telkomsel Flash