Jumat, Desember 24, 2010

Excel - Delete row where specific cell is blank or meets condition

Sub delete_rows_zero()

Dim nMaxRow As Long, nrow As Long
nMaxRow = ActiveSheet.UsedRange.Rows.Count

For nrow = nMaxRow To 1 Step -1
If Range("A" & nrow).Value = 0 Then
Range("A" & nrow).EntireRow.Delete
End If
Next nrow

End Sub

http://www.mrexcel.com/forum/showthread.php?t=52132

Jumat, Desember 17, 2010

PHP MySQL JQuery - Autocomplete







http://www.uri.edu/blog/2009/06/08/auto-complete-with-jquery-php-and-mysql/