Utilize 'User' type record variable to encyrpt

--begin code--
ScrambleThis(pToScramble : Text[10]) pResult : Text[20]

lrTest."User ID":= 'dummy';
lrTest.VALIDATE(Password, pToScramble);
EXIT( lrTest.Password)
--end code--

Source:
Encrypted/Decrypted Password in Navision tables
www.mibuso.com/forum/viewtopic.php?t=12296

Question:
Will it give same result on different computer?

XL: Duplicate rows for certain number of times

Sub DupLine()
    Dim wks As Worksheet
    Dim iRow As Long
    Dim r As Long
 
    ' worksheet containing lines to duplicate
    Set wks = Worksheets("test")
    With wks
        'first row excluded
        For iRow = .Cells(.Rows.Count, "A").End(xlUp).Row To 2 Step -1
            'column Q contains how-many-copies
            r = .Range("Q" & iRow)
            If r > 1 Then
            .Range("A" & iRow + 1, "A" & iRow + r - 1).EntireRow.Insert
            .Range("A" & iRow, "A" & iRow + r - 1).EntireRow.FillDown
            End If
        Next iRow
    End With
End Sub

---------------

Other solution:
In your xl sheet hit alt+f11. This opens the vbe window. Select module from the insert menu and paste the following code. Close the vbe window. Back in xl hit alt+f8, select test and click on run.
Once the pompt comes up, use the mouse to select the entire range to be processed. In this example the column_identifier is set to 1. If the identifier is in some other column, set its value accordingly.

Sub test()
Dim myRange As Range
Dim tSht, nSht, i, j, column_identifier
column_identifier = 1
Set tSht = ActiveSheet: Set nSht = Sheets.Add: tSht.Activate
Set myRange = Application.InputBox(Prompt:="Use your mouse to select the range", Type:=8)
For Each c In myRange.Columns(column_identifier).Cells
For i = 1 To Val(c)
j = j + 1
Range(Cells(c.Row, myRange.Columns(1).Column), Cells(c.Row, myRange. _
Columns(1).Column + myRange.Columns.Count - 1)).Copy nSht.Cells(j, 1)
nSht.Cells(j, myRange.Columns.Count + 1) = i
Next i
Next c
nSht.Activate
End Sub

Source:
Develop excel macro to create duplicate rows of records based on criteria
www.experts-exchange.com/Software/Office_Productivity/Spreadsheets/Q_22744596.html

OUTLOOK: Transfer all (data, contacts, rules, accounts)

Outlook Express (OE):
How to backup Outlook Express (OE) Email and transfer settings to another PC

NOT free:
ABF Outlook Backup
www.abf-soft.com/outlook-backup.shtml
BackRex Backup for Microsoft Outlookhttp://www.blogger.com/img/blank.gif
www.office-addins.com/-outlook-addins/outlook-backup.html

Related:
Export Contacts to CSV
...on the last step (screen with "Finish" button), click on "Map Custom Fields..." then click "Default Map"
...otherwise some multi-line fields might be broken to several lines

Simulasi perhitungan KPR (Indonesian)

Tergiur penawaran dana tunai dari sisa limit kartu kredit utk kurangi pokok KPR?
Bandingkan dulu sistem perhitungan bunga FLAT yang dipakai dana tunai dengan bunga EFEKTIF yang dipakai KPR

Spreadsheet Perhitungan Angsuran KPR
http://manggon.wordpress.com/2009/07/29/spreadsheet-perhitungan-angsuran-kpr/

Modem Wi-Fi / GSM-CDMA Router (Indonesian)

ZTE MF30 || Portable USB Modem & WiFi Router ( MiFi )
http://every-thing4u.tokopedia.com/product.pl?id=249581
Rp 900.000 (Jakarta)

HUAWEI E5830
http://magacomputer.com/product/2/19/Modem-WiFi-GSM-HSDPA-HUAWEI-E5830/?o=default
Rp 875.000 (Yogyakarta)

Wifi Router only
----------------
Huawei D100t
www.tokomodemku.com/product/18/139/Router-Huawei-D100t/?o=default
Rp 245.000 (Banyuwangi)

TP-Link MR-3220
www.netkom-wifi.com/produk/detail/wifi.3g.router.tp-link.mr-3220
USD 30 (Surabaya)
www.enterkomputer.com/networking.php
Rp 244.000 (Jakarta)

Related info
------------
3g/4g USB dongle not showing up
..I wrote about my adventures here, maybe it will help someone in 2023
....When I'm trying to install the necessary packages my router's disk gets full. Apparently there's no solution for that, but actually there is: if you compile a new image with the packages you want all at once, some magic happens that saves disk space and much more packages fit (also you don't get Luci, the web interface, as that is an optional package that takes a lot of disk space).
LEDE/OpenWRT — Using 4G LTE USB For Your Internet Connection
Complete Step by Step using OPENWRT + TPLINK MR3420 & MR3220
OpenWRT
dd-wrtv2/downloads/betas/2014/12-22-2014-r25697/tplink_tl-mr3220v1
Download untuk TL-MR3220 V1
Pengguna Router TP-LINK TL-MR3420/TL-MR3220 share disini
www.kaskus.co.id/showthread.php?t=6396602

Cetak struk (Indonesian)

"buat struk dengan Design Report" emang bisa??
http://fox-id.org/smf/index.php?topic=9444.0

PRINT STRUK
www.foxite.com/archives/print-struk-0000037739.htm

Windows 7 or XP Home for Netbook?

Netbooks forum: Windows XP or Windows 7 Starter?
http://forums.cnet.com/7723-19688_102-365839.html

See also "More Discussions" section