Latihan Senam Tobelo

Beberapa hari terakhir ini, saya dan rekan-rekan ikut terlibat dalam suatu perlombaan. Jadi di BMKG sedang diadakan pekan olahraga, nah salah satu cabang yang dilombakan adalah senam kreasi.

Senam kreasi ini sederhananya adalah gerakan senam yang dikreasikan. Kita dibebaskan untuk mengkreasikan sebaik mungkin gerakan senam. Nah, lagu yang wajib digunakan adalah lagu Tobelo. Tobelo ini merupakan lagu dari daerah Maluku. Kebayang kan bagaimana asyiknya.

Lombanya itu akan dilaksanakan pada tanggal 10 Agustus nanti, yang jatuh pada hari jumat. Dan sepertinya akan ditonton oleh banyak orang karena nanti lombanya akan dilaksanakan di depan panggung utama. 😀

Pastinya saya tidak sendirian. Yang ikut selain saya, ada Rahmat, Aziz, Mario, Furqon, Putri, Ibu Dian, dan Ibu Yuli. Kita satu kedeputian Inskalrekjarkom (Instrumentasi Rekayasa Kalibrasi Jaringan Komputer). Jadi lomba ini adalah antar kedeputian di BMKG.

Untuk lomba ini, kita sampai mengundang Mba Karin sebagai instruktur senam lohh. Nantinya agar bisa membantu mengkreasikan gerakan senamnya.

Berikut ini adalah beberapa foto kami ketika sedang latihan.

Mungkin ini saja, sekian.

See you.

BMKG IDOL

Biasanya kita mengenal ajang pencarian bakat menyanyi, yaitu INDONESIAN IDOL. Nah, di kantor saya, BMKG, ternyata juga ada nih. Ga kalah populernya dibandingkan dengan INDONESIAN IDOL, yaitu namanya BMKG IDOL.

Sudah bisa ditebak ya, kira-kira seperti apa.

BMKG IDOL ini merupakan ajang pencarian bakat menyanyi di BMKG. Acaranya ini dilaksanakan pada hari Kamis kemarin, tanggal 2 Agustus 2018.

Ini juga ada cuplikan videonya, silahkan dilihat:

Pemenang BMKG IDOL 2018

Seperti biasa, dalam setiap kompetisi, pasti ada yang menang dan yang kalah. Berikut ini list nama-nama pemenangnya:

Pop Cewek
1. Femmy Maritha (D2)
2. Evelyn (SDM)
3. Marlina Nababan (D1)

Pop Cowok
1. Andi Mario (D4)
2. Ferdika (Puslitbang)
3. Gian (D3)

Dangdut Cewek
1. Sagita (Inspektorat)
2. dr. Pipien (Sestama)
3. Sofie (Dharma Wanita)

Dangdut Cowok
1. Regar (Satpam)
2. Rinto (Satpam)
3. Hery Purwadi (Inspektorat)

Sukses selalu untuk para pemenang dan juga para peserta.

Semoga berlanjut ke INDONESIAN IDOL ya 😀 . Tapi jangan pernah lupakan tugas negara. 🙂

#asnzamannow

#bmkgidol

Mudik Bareng KORPRI – BMKG

Bismillaah.

Menulis kembali. Ingin membagikan apa yang saya alami di hari ini. Walaupun tak penting, tapi berbagi itu penting. Bagi kita tak penting, bagi orang lain bisa saja sangatlah penting.

Tadi, di kantor, merupakan hari terakhir saya masuk sebelum libur bersama di bulan ramadhan ini. Alhamdulillah sehingga bisa ada banyak waktu untuk bisa berkumpul bersama keluarga dan agar bisa berfokus ibadah di penghujung bulan Ramadhan inim

Mudik Bareng KORPRI – BMKG.

Kebetulan pada hari ini juga di BMKG diadakan keberangkatan mudik bersama BMKG. Dengan bertema “Mudik Bareng KORPRI – BMKG Guyub Rukun 2018”.

Mudik Bareng KORPRI – BMKG

100 peserta mudik bareng dilepas oleh Ibu Kepala BMKG beserta petinggi-petinggi lainnya.

Mudik bareng kali ini menempuh rute :

  1. Jalur Utara (Jalur Pantura) : Jakarta Cirebon – Tegal – Semarang – Salatiga Surakarta
  2. Jalur Selatan (Pantai Selatan) : Jakarta – Cirebon – Bumiayu – Purwokerto – Purworejo -Jogja – Wonosari

Sekedar info. Menurut informasi dari rekan-rekan saya yang mengikuti mudik bareng ini, kegiatan ini GRATIS. Hanya saja untuk booking dibutuhkan uang booking sebesar 150 ribu rupiah dan pada hari ini, sebelum keberangkatan, uang tersebut dikembalikan.

Misal kita mau mengajak suami atau istri pun bisa. Gratis hanya untuk 2 orang saja. Jika kita berjumlah lebih dari 2, maka orang yg lebih tersebut diwajibkan membayar 50 ribu rupiah. Masih cukup terjangkau lah ya.

Mengenai mudik. InsyaAllah juga saya sekeluarga akan mudik esok hari. Namun tidak bersama KORPRI – BMKG hehe. Mohon doanya semoga selamat sampai tujuan hingga kembali ke Bekasi. 🙂

Sekian. Selamat liburan. Selamat berpuasa.

Memisahkan Sheet di Excel Menjadi File Excel Lain

Malam ini terbesit ide untuk menuliskan tentang sebuah tips dan trik yang saya dapatkan ketika di kantor.

Rekan kerja di kantor saya meminta tolong untuk memisahkan sheet di excel menjadi file excel lain secara terpisah.

Dari sheet-sheet berikut ini:

Dipecah menjadi file-file terpisah seperti ini:

Awalnya saya mau melakukan ini secara manual, namun setelah melakukannya pada beberapa sheet, kok rasanya pekerjaan ini berulang-ulang dan terasa “membosankan”. Dan juga sheet-sheet yang ada ini juga terlalu banyak, kurang lebih ada 20an. Berhubung saya rajin malas (hehehe), maka saya coba riset sedikit di google. “Apakah bisa pekerjaan ini diotomatisasi?” begitu pikir saya  dalam hati.

BANG! Setelah saya googling sedikit, maka ketemu caranya. Ada pada halaman berikut ini . Saya lihat tutorial tersebut dan melihat pada bagian berikut:

Export And Save Worksheets As New Workbook With VBA Code

Tanpa ragu, saya mencobanya. BANG! Berhasil ternyata. Ini magic. Hehehe.

Alhasil saya bisa menghemat waktu untuk menyelesaikan pekerjaan tersebut.

Jadi berikut ini scriptnya. Silahkan mencoba. Dan tutorial lengkapnya ada di sini ya: https://www.extendoffice.com/documents/excel/785-excel-save-export-sheet-as-new-workbook.html

Sub SplitWorkbook()
‘Updateby20140612
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook
DateString = Format(Now, “yyyy-mm-dd hh-mm-ss”)
FolderName = xWb.Path & “\” & xWb.Name & ” ” & DateString
MkDir FolderName
For Each xWs In xWb.Worksheets
xWs.Copy
If Val(Application.Version) < 12 Then
FileExtStr = “.xls”: FileFormatNum = -4143
Else
Select Case xWb.FileFormat
Case 51:
FileExtStr = “.xlsx”: FileFormatNum = 51
Case 52:
If Application.ActiveWorkbook.HasVBProject Then
FileExtStr = “.xlsm”: FileFormatNum = 52
Else
FileExtStr = “.xlsx”: FileFormatNum = 51
End If
Case 56:
FileExtStr = “.xls”: FileFormatNum = 56
Case Else:
FileExtStr = “.xlsb”: FileFormatNum = 50
End Select
End If
xFile = FolderName & “\” & Application.ActiveWorkbook.Sheets(1).Name & FileExtStr
Application.ActiveWorkbook.SaveAs xFile, FileFormat:=FileFormatNum
Application.ActiveWorkbook.Close False
Next
MsgBox “You can find the files in ” & FolderName
Application.ScreenUpdating = True
End Sub

Semoga bermanfaat untuk rekan-rekan BMKG yang mengalami hal serupa di atas seperti saya. Dan juga semoga bermanfaat untuk para pembaca blog ini.

Berhubung ini masih di pertengahan Ramadhan. Terus tingkatkan ibadah, ya Guys.

See you.