Sub Fill_Blank_Cells()
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"
End Sub
Kamis, 23 Juli 2015
Fill Blank Cells
Sub Fill_Blank_Cells()
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"
End Sub
Delete Duplicate Rows
Sub deldup()
For n = ActiveCell.Row To LastRow()
Do While (Cells(n, ActiveCell.Column).Value = Cells(n - 1, ActiveCell.Column).Value) And (Cells(n, ActiveCell.Column).Value <> "")
Rows(n).EntireRow.Delete
Loop
Next n
End Sub
For n = ActiveCell.Row To LastRow()
Do While (Cells(n, ActiveCell.Column).Value = Cells(n - 1, ActiveCell.Column).Value) And (Cells(n, ActiveCell.Column).Value <> "")
Rows(n).EntireRow.Delete
Loop
Next n
End Sub
Split Different Item
Sub splitDiffItem()
awal = ActiveCell.Row
kol = ActiveCell.Column
akhir = LastRow()
For n = awal To (akhir + (akhir - awal))
If Cells(n, kol).Value <> Cells(n + 1, kol).Value Then
Cells(n + 1, kol).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
n = n + 1
End If
Next n
End Sub
awal = ActiveCell.Row
kol = ActiveCell.Column
akhir = LastRow()
For n = awal To (akhir + (akhir - awal))
If Cells(n, kol).Value <> Cells(n + 1, kol).Value Then
Cells(n + 1, kol).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
n = n + 1
End If
Next n
End Sub
Split Item
Sub splitItem()
awal = ActiveCell.Row
kol = ActiveCell.Column
akhir = LastRow()
For n = awal To (akhir + (akhir - awal))
Cells(n + 1, kol).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
n = n + 1
Next n
End Sub
awal = ActiveCell.Row
kol = ActiveCell.Column
akhir = LastRow()
For n = awal To (akhir + (akhir - awal))
Cells(n + 1, kol).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
n = n + 1
Next n
End Sub
Erase Blank Rows
Sub EraseBlankRows()
awal = ActiveCell.Row
kol = ActiveCell.Column
akhir = LastRow()
For n = awal To akhir
Cells(n, kol).Select
If Cells(n, kol).Value = "" Then
Selection.EntireRow.Delete
akhir = akhir - 1
End If
Next n
End Sub
awal = ActiveCell.Row
kol = ActiveCell.Column
akhir = LastRow()
For n = awal To akhir
Cells(n, kol).Select
If Cells(n, kol).Value = "" Then
Selection.EntireRow.Delete
akhir = akhir - 1
End If
Next n
End Sub
Sub Total
Sub subtotal()
awal = ActiveCell.Row
kol = ActiveCell.Column
akhir = LastRow() + 1
subttl = 0
For n = awal To akhir
Cells(n, kol).Select
subttl = subttl + Cells(n, kol).Value
If Cells(n, kol).Value = "" Then
Selection.Font.Bold = True
Cells(n, kol).Value = subttl
subttl = 0
End If
Next n
End Sub
awal = ActiveCell.Row
kol = ActiveCell.Column
akhir = LastRow() + 1
subttl = 0
For n = awal To akhir
Cells(n, kol).Select
subttl = subttl + Cells(n, kol).Value
If Cells(n, kol).Value = "" Then
Selection.Font.Bold = True
Cells(n, kol).Value = subttl
subttl = 0
End If
Next n
End Sub
Deteksi posisi Akhir kolom
'Deteksi posisi Akhir kolom:
Public Function LastCol() As Integer
With ActiveSheet
LastCol = .Cells(ActiveCell.Row, .Columns.Count).End(xlToLeft).Column
End With
End Function
Public Function LastCol() As Integer
With ActiveSheet
LastCol = .Cells(ActiveCell.Row, .Columns.Count).End(xlToLeft).Column
End With
End Function
Deteksi posisi Akhir baris
'Deteksi posisi Akhir baris:
Public Function LastRow() As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, ActiveCell.Column).End(xlUp).Row
End With
End Function
Public Function LastRow() As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, ActiveCell.Column).End(xlUp).Row
End With
End Function
Deteksi posisi Active Cell
'Deteksi posisi Active Cell:
Public Function CurrentCell() As String
Application.Volatile
CurrentCell = ActiveCell.Address
End Function
Public Function CurrentCell() As String
Application.Volatile
CurrentCell = ActiveCell.Address
End Function
Senin, 13 Juli 2015
Common AS/400 commands
| DSPMSG | Displays messages in queue |
| DSPMSGD | Displays description of messages, ie CPF messages |
| WRKMSGF QCPFMSG | Displays contents of MONMSG file |
| WRKUSRPRF - | Can work with specified user's profile |
| WRKSBMJOB *JOB | Displays my jobs for the current session |
| WRKACTJOB | Displays all active jobs |
| WRKUSRJOB | Displays list of my jobs to work with |
| WRKOBJ | Work with an object. Use *ALLUSR in qualified name to skip Q libraries |
| WRKSPLF | Displays spool files |
| WRKOUTQ | Displays members in specified OUTQ |
| DISPLIB | Displays contents of specified library |
| EDTLIBL | Allows addition and deletion of libraries to and from list |
| ADDLIBLE Library Name | Add library to current list |
| STRPDM | Start PDM |
| STRDBG | Start Debug |
| ADDBKP | Add a break point and variables to monitor in debug |
| RMVBKP | Remove a break point in debug |
| ENDDBG | End Debug |
| STRDBU | Start DBU (Database Utility) Look at and make changes to the database |
| DBU Qualified Name | Runs DBU without the above command. ADDLIBLE DBU41 *LAST before using |
| STRDFU | Start DFU (Data File Utility) Many of the same functions of DBU |
| DSPFFD | Displays file field descriptions |
| DSPFD | Displays file description for specified file |
| DSPPFM | Displays member of a physical file |
| DSPDBF | Displays contents of database file. Must add TAATOOL to library list before using this command |
| DSPPGMREF | Display the files used in a program and which libraries the program was compiled over |
| PRTRNG | Will allow printing a range of pages from a member in the specified OUTQ. Must add PRTRNG to library list before using this command |
| OUTQ(PRINTER) | Mark object in spool file with 2 for change. Type this on the command line. |
| WRKJOBSCDE | Look at scheduled jobs |
| RUNQRY QRYFILE(LIB/FILE) | Run query on a file with no parameters |
| DSPDBR LIB/FILE | Shows logicals related to a physical file |
F9 on a command line will retrieve prior commands
F16 Displays User Defined Options
To compile a program without generating a new source object enter 14 for compile then F4. Press F10 for additional parameters. Under source listing options put *NOGEN
To end a job without creating a log. Enter the 4 and press F4, How to end *IMMED, Maximum log entries 0
Source: http://whatis.techtarget.com/reference/Common-AS-400-commands
Jumat, 03 Juli 2015
Easily Backup Mozilla Firefox “about:config” Settings
It’s also a good idea to backup about:config if you have customized Firefox a lot. So, the next time you reinstall Firefox, you can replace the default settings with your customized one.
How to backup about:config settings in Windows Vista or Windows 7?
Here is how you can easily backup the about:config settings and save yourself some trouble.- First and foremost, if Mozilla Firefox is running, exit it.
- Click on the Start button. Click on Run… Alternatively, you can press the Windows + R keyboard shortcut.
- Type
%appdata%\mozilla\firefox\Profilesand click on OK or press Enter. - In the window that opens, you will see your Firefox profile folder:
<some random characters>.default, e.g.l4aknmw.default. - Open the folder and search for a file called
prefs.js. This is the file which has allabout:configsettings. - Back up this file to a safe place.
- Now, you can safely change Firefox
about:configsettings. If you mess up something or Firefox behaves odd, simply close down Firefox and replace the existing prefs.js file with the backup file.
How to backup about:config settings in Windows XP?
Just follow the above steps. Simply look for your Firefox profile in\Documents and Settings\<YourUsername>\Application Data\Mozilla\Firefox\Profiles\How to backup about:config settings in Mac OS X
You will find your Firefox profile at<YourUsername>/Library/Application Support/Firefox/Profiles. Open your Firefox profile folder <some random characters>.default and keep a backup of prefs.js to a safe place.How to backup about:config settings in Linux
Linux users will find their Firefox profile at~/.mozilla/firefox/. You’ll find your profile folder named <some random characters>.default. Open it and copy the prefs.js to a safe place.Warning! Always shut down Firefox before making a copy of
prefs.js or moving a copy back into the profile folder.source: http://www.mytechguide.org/97/easily-backup-aboutconfig-firefox/
How to automatically log in to OpenVPN on Windows
Many people want to have their OpenVPN connection automatically
start up and log in when they boot up their computer. Although there is
no direct option in OpenVPN for Windows to accomplish it, it can be
done.
The first step is to launch OpenVPN with a configuration attached so that it can connect to a server.
The following launch string is needed for either method:
For 32 bit Windows - "C:\Program Files\OpenVPN\bin\openvpn-gui.exe" --connect xxxxx.ovpn
For 64 bit Windows - "C:\Program Files (x86)\OpenVPN\bin\openvpn-gui.exe" --connect xxxxx.ovpn
The xxxxx is replaced with the name of the OpenVPN configuration file you wish to start. Your list of available .ovpn files can be found in the 'OpenVPN/config' folder on your computer.
You now need to add this to your WIndows registry start settings. Open regedit on your computer and go to:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
Add a new string entry. Give it a name you can identify later such as "openvpn" then add the above string.
Note 1: If your Windows is not on the C: drive or you have OpenVPN installed in a different location, you will need to adjust the location in the above string to match your setup. You can also use the relative location such as %ProgramFiles% instead of C:\Program Files. However, that only solves the problem of Windows on a different drive. If you have OpenVPN loaded in a non standard location, you would still need to edit the string.
Note 2: For Windows Vista and Windows 7 and 8, OpenVPN-GUI must be run as administrator in order for the VPN to properly function. The most direct way to avoid these conflicts is to disable the UAC in Windows 7 and Vista. You can also set the program to always run as administrator in the properties of the application. Right-click on ' openvpn-gui-1.0.3.exe ', select 'Properties' then 'Compatibility'. Check the 'Run as Administrator' box.
When Windows boots it will start OpenVPN and attempt to log in to the VPN server that config file is pointing to.
OpenVPN will likely ask for a user name and password -- this is where things become problematic in Windows. Currently, there is no secure way to store the user name and password in Windows using OpenVPN. For security purposes, most versions of OpenVPN do not allow a user/password to be read from a file. If one is willing to take the security risk of having their login information saved in the clear on their hard drive, they can make OpenVPN automatically log in.
Recognizing the security risks the procedure is as follows:
1 - Create a file in the OpenVPN/config folder named password.txt
On the first line type your user name.
On the second line type your password
Save the file.
2 - Edit the .ovpn file referenced above in your launch string and find the line that reads 'auth-user-pass'.
Change it to 'auth-user-pass password.txt'. Save and exit.
3 - Install version 2.3 of OpenVPN which supports this feature
The first step is to launch OpenVPN with a configuration attached so that it can connect to a server.
The following launch string is needed for either method:
For 32 bit Windows - "C:\Program Files\OpenVPN\bin\openvpn-gui.exe" --connect xxxxx.ovpn
For 64 bit Windows - "C:\Program Files (x86)\OpenVPN\bin\openvpn-gui.exe" --connect xxxxx.ovpn
The xxxxx is replaced with the name of the OpenVPN configuration file you wish to start. Your list of available .ovpn files can be found in the 'OpenVPN/config' folder on your computer.
You now need to add this to your WIndows registry start settings. Open regedit on your computer and go to:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
Add a new string entry. Give it a name you can identify later such as "openvpn" then add the above string.
Note 1: If your Windows is not on the C: drive or you have OpenVPN installed in a different location, you will need to adjust the location in the above string to match your setup. You can also use the relative location such as %ProgramFiles% instead of C:\Program Files. However, that only solves the problem of Windows on a different drive. If you have OpenVPN loaded in a non standard location, you would still need to edit the string.
Note 2: For Windows Vista and Windows 7 and 8, OpenVPN-GUI must be run as administrator in order for the VPN to properly function. The most direct way to avoid these conflicts is to disable the UAC in Windows 7 and Vista. You can also set the program to always run as administrator in the properties of the application. Right-click on ' openvpn-gui-1.0.3.exe ', select 'Properties' then 'Compatibility'. Check the 'Run as Administrator' box.
When Windows boots it will start OpenVPN and attempt to log in to the VPN server that config file is pointing to.
OpenVPN will likely ask for a user name and password -- this is where things become problematic in Windows. Currently, there is no secure way to store the user name and password in Windows using OpenVPN. For security purposes, most versions of OpenVPN do not allow a user/password to be read from a file. If one is willing to take the security risk of having their login information saved in the clear on their hard drive, they can make OpenVPN automatically log in.
Recognizing the security risks the procedure is as follows:
1 - Create a file in the OpenVPN/config folder named password.txt
On the first line type your user name.
On the second line type your password
Save the file.
2 - Edit the .ovpn file referenced above in your launch string and find the line that reads 'auth-user-pass'.
Change it to 'auth-user-pass password.txt'. Save and exit.
3 - Install version 2.3 of OpenVPN which supports this feature
Save Password in OpenVPN for Automatic Login
By default, OpenVPN does not save the username and password which
requires you to input them in each time you connect to the server. This
is good from a security perspective, but there are sometimes where it
is required to have this information saved to permit automatic logins to
OpenVPN.
If you need to save the username and password to a VPN connection, follow the steps below.
- Navigate to your config folder for OpenVPN. Some common paths for this folder are:
- Windows - C:\Program Files (x86)\OpenVPN\config
- Linux - /etc/openvpn
- Mac (Tunnelblick) - ~/Library/Application Support/Tunnelblick/Configurations
If you have a subfolder within the config folder where your
configuration files/certs reside, make sure to dive down to that folder.
- Create a new text file in this folder. We'll name ours "auth.txt".
The contents of this text file should simply be two lines. The first
line should be your username, and the second should be your password.
Save this file.
- Now open your OpenVPN config file, which should be in the same
folder, in a text editor (if on Windows use Notepad++ instead of
Notepad). These files typically end in a .ovpn extension. Find the line
that says "auth-user-pass" and change it to "auth-user-pass auth.txt",
where "auth.txt" is the name of the file containing your username and
password. Save this file.
- Try to connect to OpenVPN. You may need to restart the OpenVPN client and you should now connect without a username and password prompt!
5 Free File Hosting with Direct Link Support | CloudLinker v2.0 Direct Link Maker
I found these 5 Free File Hosting sites with direct linking /hot link support
1. Dropbox
Yes, your favourite Cloud-Storage / Dropbox.com Supports Direct Link / Hot Link on Files Uploaded to it, it can be easily done by modifying the shared / Download URL by tweaking it a bit, Head on to this Post to know the trick in detail, Trick to Obtain Direct Link of Dropbox file in short in this trick we are simply replacing “www.dropbox.com” with “dl.dropboxusercontent.com” and that’s it, and for simpler purposes You can use our all in one multi Direct Link Maker – CloudLinker v2.0 to Generate DirectDownload/Share URLs for hosts.Files stored on Dropbox account remain active as long as the account is not deleted!
2.Ge.tt
Ge.tt is a new Entry in the Cloud Storage Family, but its easily and quickly leaving its competitors behind and taking the lead. After you upload your file through drag and drop or by file uploader on ge.tt , or you get a shared download page URL for a file uploaded on ge.tt , simply right click on the highlighted “Download” Link and Copy the URL/Copy Link Address, it will be the direct Download URL for your file,as shown in the figure -> Ge.tt Direct Download Link Trick –>
3.Copy.Com
Copy.com is one of the fastest growing Cloud Storage, it provides 15 GB of Storage Space for Free!!, and yes you can use it for Direct/Linking and Hot Linking too, in a similar way as we did with Dropbox.! we just have to remove “www” and “/s” from the url e.x https://www.copy.com/s/*** making it http://copy.com/*** to make the Shared File URL into downloadable one.! but it consists of some steps, i highly recommend using our CloudLinker v2 tool or refer this post for Copy.com Direct Link Generation
4.DirectLinkUpload.com
When you visit this site for the first time please don’t go on the looks, just upload your file through the simple uploader and you’ll get a URL for sharing , Now Go to The File Sharing URL and go to shared folder option, you will see your uploaded files, Now right click on the Copy Link Adddress, it shall be your direct Download Link which you can easily share..or you can click your uploaded file to download it, and copy the URL from which it got downloaded
5. Ozibox.com
Ozibox.com is the newest entry to the Cloud Market, And Provides Free 100GB of Storage Space for everyone!, also it provides Direct Link to the files stored on the Cloud, Steps to generate direct download links from ozibox are Sign-Up for an account on ozibox.com , login and upload your file through the upload button, and download your own file on your browser/IDM .! Now Copy the Recent Downloaded URL from IDM / Google Chrome Downloads tab, and this will be your direct download link for your file /shareable to everyone.!
Using our CloudLinker v2.0
As Promised Earlier i have Updated CloudLinker to v2.0 which Now supports all the Five Hosts Mentioned Above, you simply have to enter the Shared /Sharing URL provided by the host and it will generate the Direct Download URL for you, which you can add to your posts/ share with your friends.
Click here to download Cloudlinker v2 from Dropbox
Click here to download Cloudlinker v2 from Ge.tt
Click here to download Cloudlinker v2 from Copy.Com
Click here to download Cloudlinker v2 from DataFileHost.Com
Click here to download Cloudlinker v2 from Ozibox.Com
source: http://techapple.net/2014/05/5-free-file-hostingsharing-cloud-storage-sites-directhot-link-support-cloudlinker-v2-0-direct-link-maker/
Rabu, 01 Juli 2015
Hottest Free Video Conferrence - Zoom
Zoom Video Communications (known simply as “Zoom”) is a U.S.-based company operating from Santa Clara, California that provides cloud-based video communications. Offering both cloud meeting and webinar software, Zoom is most known for Zoom Cloud Meetings, also referred to as "Zoom" by users, which combines video conferencing, online meetings, and mobile collaboration into one platform.
Zoom was founded in 2011 by engineers from the development teams of Cisco and its collaboration business unit, WebEx. The official launch of Zoom was in January 2013 and, as of May 2013, it had reached 1 million users. During the first year of its release, Zoom has established partnerships with B2B collaboration software providers. Its partnership with Redbooth (which, at the time, was known as Teambox) played a role in adding a video component to its platform. Shortly after this partnership, Zoom created a program named "Works with Zoom", which established partnerships with multiple hardware and software vendors such as Logitech, Vaddio, and InFocus. Towards the end of the year, Zoom managed to have its software integrated into InterviewStream, a company that provides remote video interviewing capacity to employers.
On December 11, 2013, Centrify Corporation partnered with Zoom to integrate Active Directory, access control, and single sign-on (SSO) compatibility with Zoom's application to its own customers. The partnership was known as the Centrify Alliance Partner Program. By March 17, 2014, Zoom added the capability for its users to join meetings by dialing into a toll-free PTSN number via its partnership with Voxbone. The release of version 3.5 later in the year added mobile screen sharing to mobile platforms running iOS.
In June 2014, Zoom's user base has grown to 10 million. As of February 2015, the user base utilizing Zoom Video Communication's chief product — Zoom Cloud Meetings — has reached 40 million individuals, with 65,000 organizations subscribed. In addition to this, the company has surpassed 1 billion total meeting minutes across its entire service lifespan.
On February 4, 2015, Zoom Video Communications has received $30 million in Series C funding. Participants in this funding round include Emergence Capital, Horizons Ventures (Li Ka-shing), Qualcomm Ventures, Jerry Yang, and Dr. Patrick Soon-Shiong.
Zoom official website: https://zoom.us/
Zoom was founded in 2011 by engineers from the development teams of Cisco and its collaboration business unit, WebEx. The official launch of Zoom was in January 2013 and, as of May 2013, it had reached 1 million users. During the first year of its release, Zoom has established partnerships with B2B collaboration software providers. Its partnership with Redbooth (which, at the time, was known as Teambox) played a role in adding a video component to its platform. Shortly after this partnership, Zoom created a program named "Works with Zoom", which established partnerships with multiple hardware and software vendors such as Logitech, Vaddio, and InFocus. Towards the end of the year, Zoom managed to have its software integrated into InterviewStream, a company that provides remote video interviewing capacity to employers.
On December 11, 2013, Centrify Corporation partnered with Zoom to integrate Active Directory, access control, and single sign-on (SSO) compatibility with Zoom's application to its own customers. The partnership was known as the Centrify Alliance Partner Program. By March 17, 2014, Zoom added the capability for its users to join meetings by dialing into a toll-free PTSN number via its partnership with Voxbone. The release of version 3.5 later in the year added mobile screen sharing to mobile platforms running iOS.
In June 2014, Zoom's user base has grown to 10 million. As of February 2015, the user base utilizing Zoom Video Communication's chief product — Zoom Cloud Meetings — has reached 40 million individuals, with 65,000 organizations subscribed. In addition to this, the company has surpassed 1 billion total meeting minutes across its entire service lifespan.
On February 4, 2015, Zoom Video Communications has received $30 million in Series C funding. Participants in this funding round include Emergence Capital, Horizons Ventures (Li Ka-shing), Qualcomm Ventures, Jerry Yang, and Dr. Patrick Soon-Shiong.
Zoom official website: https://zoom.us/
Langganan:
Postingan (Atom)