catatan aswandi

malam ini tgl 21 nov 2017 saya kirim sms dengan jumlah 5600 sms pengiriman ke telkomsel, pakai kartu as tidak ada kendala, kirim 1000 sms sekaligus terkirim semua, lama waktu sekitar 2jam kirim ke tri, saya daftar pake dulu bisa kirim sms ke 660 sms berhasil terkirim semua kirim ke axis juga saya daftar pake dulu, bisa utk 6 hari sebenarnya, terkiri msemua 215 sms tanpa blokir kirim ke indosat tidak ada kendala, daftar dulu si *123*11# biar dapat 1450 sms gratis kirim ke XL, hanya bisa kirim 250 sms, sisanya tidak terkirim,

Sub ChangeFileFormat()     Dim strCurrentFileExt   As String     Dim strNewFileExt       As String     Dim objFSO              As Object     Dim objFolder           As Object     Dim objFile             As Object     Dim xlFile              As Workbook     Dim strNewName          As String     Dim strFolderPath       As String     strCurrentFileExt = ".xls"     strNewFileExt = ".xlsx"     strFolderPath = "e:\data\garut\xlsxsemua\aswandi"     If Right(strFolderPath, 1) <> "\" Then         strFolderPath = strFolderPath & "\"     End If     Set objFSO = CreateObject("Scripting.FileSystemObject")     Set objFolder = objFSO.getfolder(strFolderPath)     For Each objFile In objFolder.Files         strNewName = objFile.Name         If Right(strNewName, Len(strCurrentFileExt)) = strCurrentFileExt Then             Set xlFile = Workbooks.Open(objFile.Path, , True)             strNewName = Replace(strNe

buka excel, klik ALT + F11 inser > module Sub simpleXlsMerger() Dim bookList As Workbook Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object Application.ScreenUpdating = False Set mergeObj = CreateObject("Scripting.FileSystemObject") 'change folder path of excel files here Set dirObj = mergeObj.Getfolder("e:\data\sma1banda\ALL") Set filesObj = dirObj.Files For Each everyObj In filesObj Set bookList = Workbooks.Open(everyObj) 'change "A2" with cell reference of start point for every files here 'for example "B3:IV" to merge all files start from columns B and rows 3 'If you're files using more than IV column, change it to the latest column 'Also change "A" column on "A65536" to the same column as start point Range("A2:IV" & Range("A65536").End(xlUp).Row).Copy ThisWorkbook.Worksheets(1).Activate 'Do not change the following column. It's not

kondisi, jumlah TPS pilgub DKI jakarta 13.023 dan ada 44 kecamatan modem yg disediakan adalah modem 16 port 4 unit, jadi ada 48 modem namun pertimabangan harus ada modem cadangan, setiap modem 16 port hanya dipakai 12 atau 13 saja, sisanya utk balas sms, total jumlah modem utk terima sms adalah  37 37 nomor ini dibagu utk 44 kecamatan, ada kecamatan yg pake 2 nomor dan ada juga 2 kecamatan pake 1 nomor. berikut ini distribusinya

terkadang ketemu file yg di set tidak bisa di select datanya dan tidak bisa di ekstrak, utk menghilangkan protek tersebut saya pakai PDF Password Remover, puluhan file bisa kurang dari 1 menit.