• Welcome to OGBoards 10.0, keep in mind that we will be making LOTS of changes to smooth out the experience here and make it as close as possible functionally to the old software, but feel free to drop suggestions or requests in the Tech Support subforum!

CT 175: ohioans use selfie sticks

Status
Not open for further replies.
Even a shitty old ass 3/2 single family home here starts at $750k,it sucks
 
have any fellow apartment dwellers moved from a really monte place to a terrible place? how do you rationalize the downgrade? do you have regrets?
 
3/2 in downtown Charleston, just above the crosstown. I love the house and like the neighborhood a lot. Our house is tall and sits on most of the lot so we don't have much yard/gardening space which is my biggest gripe. The backyard doesn't get enough sun to grow much back there, so we put rock down and turned it into a pretty nice living/useable area. Have a garage under the house with plenty of space for a work shop, gym, storage, etc. It's definitely not the forever home, but I'm pretty happy with it right now.
 
TenaciousKory said:
have any fellow apartment dwellers moved from a really monte place to a terrible place? how do you rationalize the downgrade? do you have regrets?
Click to expand...

I did when I got married...our 3/2.5 place on Capitol Hill was a steal and huge, but it was tough finding a place for my then-fiancee and me. she hadn't moved to DC yet and we were looking in April but schools generally hire in summer. Our price point for a 1 BR was very, very competitive, so potential landlords saw us with only 1 income when applying and waved us off in favor of dual incomes. so the place we got wasn't ideal, but the landlords "took a chance on us" and she got a job like a month after moving in.

we've been too unmotivated to move since, however. plus there are two massive storage rooms for our use, so it negates having to get a storage unit. but I wish the landlords would've just finished one of those rooms because just one storage room is enough.
 
buckets said:
Why did moonz buy you guys a keg?
Click to expand...

Out of the kindness of his heart, or for putting up with his zany antics as a moderator. Not sure exactly. I think we were talking about getting a keg of PBR or something of the sort for homecoming, and he wanted us to have something nicer.
 
TenaciousKory said:
CT, do you live in an apartment or a house? + if you could change one thing about your living situation, what would it be?

I'm in an apartment and I'd really like more active/younger neighbors. The couple upstairs is closer to my age, but they're nuts and fight all the time.
Click to expand...

We have a house, but I'd like our backyard to be bigger. To clarify we have a 4/2.5 in a great school district with good neighbors, but part of our lot is a ravine, so we have a relatively small play area in the backyard but the lot is decent sized. I would eventually like another bedroom, but other than that and the yard, I am totally happy.
 
Last edited:
 
Reading we're in for an absolutely brutal winter on the East Coast. Cold, record snow.

Sweet!
 
TenaciousKory said:
CT, do you live in an apartment or a house? + if you could change one thing about your living situation, what would it be?

I'm in an apartment and I'd really like more active/younger neighbors. The couple upstairs is closer to my age, but they're nuts and fight all the time.
Click to expand...

Currently in a 3BR/2BA apartment, and can't wait to GTFO. Lease ends in March and we'll be moving into our first house.

cookoutdeac said:
I live in an apt attached to a dorm for high school kids. Big negatives: high school girls are loud, have to be sorta careful with noise/volume of music/etc. Big positives: no rent, do have one of the nicest single BR apts on the dorms, lots of dogsitters around if necessary.
Click to expand...

Until recently, this was my life for the past 4 years (but with a college apartment complex). Rent/Utilities were free and my commute was 100 feet, but I am so glad to be done with that lifestyle.
 
Who wants to help me troubleshoot this VBA macro?
 
Sub article1_total_usage_normalize()
Dim rngName As Range
Dim rngArray() As String
Dim ad As String
Dim keyRange As Range
Dim ws As Worksheet
Dim firstAddress As String
Dim i&, j&, k&, n&, urColumn$
Dim sort_str As String
Dim save_doi As String
Dim totArray() As Integer

urColumn = "A"
Set ws = ActiveWorkbook.ActiveSheet

With ws

For i = ws.Range(urColumn & Rows.Count).End(xlUp).Row To 2 Step -1
If InStr(.Cells(i, 1).Value, "_Supplement") Then
.Rows(i).EntireRow.Delete shift:=xlUp
ElseIf InStr(.Cells(i, 1).Value, "_MeetingAbstracts") Then
.Rows(i).EntireRow.Delete shift:=xlUp
End If
Next i

i = 0
sort_str = ""
Set rngName = .Rows("1:1").Find(What:="abstract_*", MatchCase:=False, After:=Cells(1, 1))
If Not rngName Is Nothing Then
firstAddress = rngName.Address
Do
If (sort_str = "") Then
sort_str = rngName.Column
Else
sort_str = sort_str & "; " & rngName.Column
End If
i = i + 1
Set rngName = .Rows("1:1").Find(What:="abstract_*", MatchCase:=False, After:=Cells(1, rngName.Column))
Loop While Not rngName Is Nothing And rngName.Address <> firstAddress
End If
If (i > 0) Then
rngArray = Split(sort_str, "; ")
For j = 0 To UBound(rngArray)
k = CInt(rngArray(j))
.Columns(k - j).EntireColumn.Delete shift:=xlToLeft
Next j
End If

i = 0
sort_str = ""
Set rngName = .Rows("1:1").Find(What:="pdf_*", MatchCase:=False, After:=Cells(1, 1))
If Not rngName Is Nothing Then
firstAddress = rngName.Address
Do
If (sort_str = "") Then
sort_str = rngName.Column
Else
sort_str = sort_str & "; " & rngName.Column
End If
i = i + 1
Set rngName = .Rows("1:1").Find(What:="pdf_*", MatchCase:=False, After:=Cells(1, rngName.Column))
Loop While Not rngName Is Nothing And rngName.Address <> firstAddress
End If
If (i > 0) Then
rngArray = Split(sort_str, "; ")
For j = 0 To UBound(rngArray)
k = CInt(rngArray(j))
.Columns(k - j).EntireColumn.Delete shift:=xlToLeft
Next j
End If

i = 0
sort_str = ""
Set rngName = .Rows("1:1").Find(What:="full_*", MatchCase:=False, After:=Cells(1, 1))
If Not rngName Is Nothing Then
firstAddress = rngName.Address
Do
If (sort_str = "") Then
sort_str = rngName.Column
Else
sort_str = sort_str & "; " & rngName.Column
End If
i = i + 1
Set rngName = .Rows("1:1").Find(What:="full_*", MatchCase:=False, After:=Cells(1, rngName.Column))
Loop While Not rngName Is Nothing And rngName.Address <> firstAddress
End If
If (i > 0) Then
rngArray = Split(sort_str, "; ")
For j = 0 To UBound(rngArray)
k = CInt(rngArray(j))
.Columns(k - j).EntireColumn.Delete shift:=xlToLeft
Next j
End If

i = 0
sort_str = ""
Set rngName = .Rows("1:1").Find(What:="combined_*", MatchCase:=False, After:=Cells(1, 1))
If Not rngName Is Nothing Then
firstAddress = rngName.Address
Do
If (sort_str = "") Then
sort_str = rngName.Column
Else
sort_str = sort_str & "; " & rngName.Column
End If
i = i + 1
Set rngName = .Rows("1:1").Find(What:="combined_*", MatchCase:=False, After:=Cells(1, rngName.Column))
Loop While Not rngName Is Nothing And rngName.Address <> firstAddress
End If
If (i > 0) Then
rngArray = Split(sort_str, "; ")
For j = 0 To UBound(rngArray)
k = CInt(rngArray(j))
.Columns(k - j).EntireColumn.Delete shift:=xlToLeft
Next j
End If

i = 0
sort_str = ""
Set rngName = .Rows("1:1").Find(What:="total_*", MatchCase:=False, After:=Cells(1, 1))
If Not rngName Is Nothing Then
firstAddress = rngName.Address
Do
If (sort_str = "") Then
sort_str = rngName.Column
Else
sort_str = sort_str & "; " & rngName.Column
End If
i = i + 1
Set rngName = .Rows("1:1").Find(What:="total_*", MatchCase:=False, After:=Cells(1, rngName.Column))
Loop While Not rngName Is Nothing And rngName.Address <> firstAddress
End If

If (i > 0) Then
rngArray = Split(sort_str, "; ")

With .Sort
.SortFields.Clear
For j = 0 To UBound(rngArray)
k = CInt(rngArray(j))
Set keyRange = ws.Cells(k).EntireColumn
.SortFields.Add Key:=keyRange, _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Next j
.SetRange ws.Cells
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

k = CInt(rngArray(0))
Do While (.Cells(2, k).Value = 0) And (.Cells(2, k).Value <> "")
For i = 2 To ws.Range(urColumn & Rows.Count).End(xlUp).Row
If (.Cells(i, k).Value = 0) Then
.Cells(i, k).Delete shift:=xlToLeft
Else
Exit For
End If
Next i
Loop

For j = 0 To UBound(rngArray)
k = CInt(rngArray(j))
.Cells(1, k).Value = "Month " & (j + 1)
Next j

End If

End With

End Sub
 
Oh yea i guess it'd help if you knew what it was doing. It sorts least to most in columns with quant data, then normalizes for the first six columns that have >0 numbers. I'd like it to run faster, for # of rows >5000 it's taking like 20 minutes.
 
I don't mind apartment living. Having a guest bedroom and a communal yard space would be nice.
 
Four finalist flags (over 10k submitted by the public) to potentially replace the New Zealand flag:

0902_new-zealand-flags.jpg







Current flag:

newzealand_1365.jpg
 
Status
Not open for further replies.
Back
Top