--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?
Friday, January 28, 2011
Thursday, January 27, 2011
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
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
Tuesday, January 25, 2011
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
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
Sunday, January 23, 2011
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/
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
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
http://fox-id.org/smf/index.php?topic=9444.0
PRINT STRUK
www.foxite.com/archives/print-struk-0000037739.htm
Friday, January 21, 2011
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
http://forums.cnet.com/7723-19688_102-365839.html
See also "More Discussions" section
Acer Aspire One D260 (Indonesian)
Berikut masing-masing spesifikasi fitur dan harganya:
1. Acer Aspire One D260 with Windows 7 Starter
- Processor Intel Atom N455 (1.66 GHz, 667 MHz FSB, 512 KB L2 cache)
- 10.1” WSVGA (1024 x 600) Acer CrystalBrite LED Backlight)
- 1 GB DDR3, 250 GB HDD
- Multi-in-one card reader, Bluetooth
- 6 cell battery, super slim design
- Harga: Rp 3,6 juta-an
2. Acer Aspire One D260 with Windows XP Home
- Processor Intel Atom N450 (1.66 GHz, 667 MHz FSB, 512 KB L2 cache)
- 1 GB DDR2, 160 GB HDD
- Multi-in-one card reader, Bluetooth
- Harga: Rp 3,3 juta-an
3. Acer Aspire One D260 with Linux & 6 cell battery
- Aspire One D260 LINUX
- Intel® Atom™ processor N450 (1.66 GHz, 667 MHz FSB, 512 KB L2 cache)
- Mobile Intel® NM10 Express Chipset
- 10.1" WSVGA (1024 x 600) Acer CrystalBrite™ LED Backlight
- 1GB DDR2 ; 160GB HDD
- Multi-in-one card reader
- 6-cell battery, Super Slim Design
- Harga: Rp 3 juta-an
Harga dan Fitur Acer Aspire One D260 (Dual Booting)
http://cahayailmukomputer.com/berita-188-harga-dan-fitur-acer-aspire-one-d260-dual-booting.html
3-Sept-2010
---
1. Acer Aspire One D260 with Windows 7 Starter
- Processor Intel Atom N455 (1.66 GHz, 667 MHz FSB, 512 KB L2 cache)
- 10.1” WSVGA (1024 x 600) Acer CrystalBrite LED Backlight)
- 1 GB DDR3, 250 GB HDD
- Multi-in-one card reader, Bluetooth
- 6 cell battery, super slim design
- Harga: Rp 3,6 juta-an
2. Acer Aspire One D260 with Windows XP Home
- Processor Intel Atom N450 (1.66 GHz, 667 MHz FSB, 512 KB L2 cache)
- 1 GB DDR2, 160 GB HDD
- Multi-in-one card reader, Bluetooth
- Harga: Rp 3,3 juta-an
3. Acer Aspire One D260 with Linux & 6 cell battery
- Aspire One D260 LINUX
- Intel® Atom™ processor N450 (1.66 GHz, 667 MHz FSB, 512 KB L2 cache)
- Mobile Intel® NM10 Express Chipset
- 10.1" WSVGA (1024 x 600) Acer CrystalBrite™ LED Backlight
- 1GB DDR2 ; 160GB HDD
- Multi-in-one card reader
- 6-cell battery, Super Slim Design
- Harga: Rp 3 juta-an
Harga dan Fitur Acer Aspire One D260 (Dual Booting)
http://cahayailmukomputer.com/berita-188-harga-dan-fitur-acer-aspire-one-d260-dual-booting.html
3-Sept-2010
---
Tuesday, January 18, 2011
VFX: Things to be paid attention
Make pick-dialog optional for a grid column
Set lNullValid to .T.
Click Insert-button on child-grid won't insert new record
Don't click the button while the cursor is positioned in a Calculated-column
Set lNullValid to .T.
Click Insert-button on child-grid won't insert new record
Don't click the button while the cursor is positioned in a Calculated-column
Monday, January 17, 2011
2.6: Multiple-window - agar perpindahan antar window lancar (Indonesian)
Pilih field-field sesuai urutan akses dan letakkan invisible-field di urutan terakhir
Pilih "Bring to front"
Pilih "Bring to front"
Wireless connection is getting disconnected every n minutes
update your Adapter online
---
set the transmitting power of the router(AP) to medium or low
---
try using another channel or securing your wireless network if it isn't secured yet
---
For me the solution has always been to fix the power saving default in windows. Here's what you do:
1. Go to Internet Connection in Control Panel
2. Right click on icon for your wireless connection and go to Properties
3. Go to Configure - Power Management
4. UNCLICK "Allow the computer to turn of this device..."
Hopefully the random signal drops will disappear... because the power is no longer shut down on your USB wireless device
---
Do you have 2.4GHz cordless phones? Baby monitors? Electric cords near antenna? If so, you may want to unplug/move them to see if problem persists. Also, make sure router antenna is at least 6 inches away from any wall.
What wireless channel are you using?
1. Try channel 11, then 1, 2, etc until you find one that resolves the issue. The idea is to stay as far away as possible from saturated channels in your neighborhood.
2. You can download a program like netstumbler to discover wireless networks in range. This will list their channel and allow you to configure your router to a channel not used by your neighbors.
*This program will not pick up WLANs that do not broadcast their SSID.
---
update the router firmware
---
Source:
Dropped connection
http://forums.cnet.com/7723-7589_102-126523.html
Belkin Wireless-N USB Adapter cuts out intermittently
www.wirelessforums.org/network-troubleshooting/belkin-wireless-n-usb-adapter-cuts-out-intermittently-44626.html
---
set the transmitting power of the router(AP) to medium or low
---
try using another channel or securing your wireless network if it isn't secured yet
---
For me the solution has always been to fix the power saving default in windows. Here's what you do:
1. Go to Internet Connection in Control Panel
2. Right click on icon for your wireless connection and go to Properties
3. Go to Configure - Power Management
4. UNCLICK "Allow the computer to turn of this device..."
Hopefully the random signal drops will disappear... because the power is no longer shut down on your USB wireless device
---
Do you have 2.4GHz cordless phones? Baby monitors? Electric cords near antenna? If so, you may want to unplug/move them to see if problem persists. Also, make sure router antenna is at least 6 inches away from any wall.
What wireless channel are you using?
1. Try channel 11, then 1, 2, etc until you find one that resolves the issue. The idea is to stay as far away as possible from saturated channels in your neighborhood.
2. You can download a program like netstumbler to discover wireless networks in range. This will list their channel and allow you to configure your router to a channel not used by your neighbors.
*This program will not pick up WLANs that do not broadcast their SSID.
---
update the router firmware
---
Source:
Dropped connection
http://forums.cnet.com/7723-7589_102-126523.html
Belkin Wireless-N USB Adapter cuts out intermittently
www.wirelessforums.org/network-troubleshooting/belkin-wireless-n-usb-adapter-cuts-out-intermittently-44626.html
Tuesday, January 11, 2011
Brainy Baby download
www.indowebster.com/search.php?keyword=brainy+baby
www.allyoulike.com/37911/brainy-baby-series-for-kids/
www.allyoulike.com/37911/brainy-baby-series-for-kids/
Sunday, January 2, 2011
Computer cannot be pinged or its shared printer be seen
Do you have an Cisco-VPN Client installed on this pc?
If so this will blocks off responding to ping requests too.
But you can configure it to allow pinging by changing the setting the option labeled "Stateful firewall (Always On)"
Un-check this option if it has been set and you are fine.
Source:
My computer can not be "pinged" by other computers?
http://answers.yahoo.com/question/index?qid=20080610012706AAGCihe
If so this will blocks off responding to ping requests too.
But you can configure it to allow pinging by changing the setting the option labeled "Stateful firewall (Always On)"
Un-check this option if it has been set and you are fine.
Source:
My computer can not be "pinged" by other computers?
http://answers.yahoo.com/question/index?qid=20080610012706AAGCihe
Subscribe to:
Posts (Atom)