Thursday, August 28, 2008

Listing hardware in Linux

lspci -v


That should give you quite a bit of info on things connected to your motherboard.

Saturday, August 2, 2008

Austin Recycling prices 8/2/08

Dnt Radiators
(512) 467-0063
705 W Saint Johns Ave
Austin, TX
.60

North Austin Recycling Center
(512) 385-9154
7601 Burnet Rd
Austin, TX
.60-.70 (didn't ask what the range depended on)

Recycling Center
(512) 836-7512
9405 Dessau Rd
Austin, TX
.65

CMC Metal Recycling
710 Industrial Blvd
Austin, TX 78745
(512) 442-2384
.77

AMP Recycling
1704 Howard Lane
Austin, TX 78728
(512) 251-3407
.67

Excel Delete Marked Row


Sub DelMarkedRow()
While ActiveCell.Row > 1
If ActiveCell.Value = "`" Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Activate
Wend
If (ActiveCell.Row = 1) And (ActiveCell.Value = "`") Then
ActiveCell.EntireRow.Delete
End If
End Sub

Excel Combin Next Row


Sub CombineNextRowValue()

Dim CurrCell As Range
Dim NextCell As Range

While (ActiveCell.Row <> 65536) And _
((ActiveCell.Value <> "") Or _
(ActiveCell.Offset(1, 0).Value <> ""))
Set CurrCell = ActiveCell
Set NextCell = ActiveCell.Offset(1, 0)
If (CurrCell.Value = "") Then
NextCell.Activate
ElseIf (CurrCell.Value <> "") And _
(NextCell.Value = "") Then
NextCell.Activate
ElseIf (CurrCell.Value <> "") And _
(NextCell.Value <> "") Then
CurrCell.Value = CurrCell.Value + Chr(10) + NextCell.Value
NextCell.EntireRow.Delete
CurrCell.Activate
End If
Wend
End Sub

Excel Remove Double Blank Rows


Sub FindDoubleBlank()
While ActiveCell.Row > 1
If ActiveCell.Value = "" And ActiveCell.Offset(-1, 0).Value = "" Then
ActiveCell.EntireRow.Delete
End If
ActiveCell.Offset(-1, 0).Activate
Wend
End Sub