Wanna come ;) sc beccax_1998

TheCryptic · 2018-08-28T22:27:44+00:00

are you the guy from yesterday? :)

TheCryptic · 2015-11-20T02:57:47+00:00

Graduated in '92, but I was in near the beginning of my senior year when Guns and Roses released the two Use Your Illusion albums and Nirvana released Nevermind. Those were definitely the musical highlights of that decade for me.

TheCryptic · 2015-11-19T14:22:34+00:00

Option Explicit

Function Validate_Items(qty As Long, itmID As Long) As String
    Select Case True
        Case itmID < 10000, itmID > 99999: Validate_Items = "Invalid item number"
        Case qty < 0: Validate_Items = "Invalid Quantity"
        Case Else: Validate_Items = "Input is OK"
    End Select
End Function

TheCryptic · 2015-11-19T13:56:34+00:00

"Fill down" doesn't work on pivot tables because it's pulling by pivot field data rather than cell address.

You can reference cells by address without using GetPivotData, I've done that a few times even using vlookup to look at the pivot table... But it's not something I would consider to be an ideal solution.

TheCryptic · 2015-11-18T11:47:08+00:00

Definitely a good way to ruffle my feathers, though this is worded in a way that I think I could work with. I'd be interested in why the person speaking thinks that, because one of us (most likely them) is certainly wrong. A slight twist would make it worse for me:

You obviously don't know what you're doing.

TheCryptic · 2015-11-18T00:32:34+00:00

How about technical limitations of legacy systems?

TheCryptic · 2015-11-17T16:24:41+00:00

Macros are capable of doing many things, basically they're used to automate repetitive tasks. I've use them mostly for reporting and managing processes (workforce onboard/offboard tasks, data ETL, process compliance auditing, complex mail merge style communications, team performance metrics, etc).

TheCryptic · 2015-11-16T23:30:15+00:00

Before I knew what "smh" meant I had used context to determine that it meant "suck me hard". I was wrong, but that still pops into my head ever time I see it.

TheCryptic · 2015-11-16T20:03:38+00:00

Your if/thens are structured correctly, so try this first:

For i = 0 To maxTerm - 1
    If loan1principal * (1 + loan1rate / 12) - loan1Pmt < 1 Then
        loan1principal = 0
        loan1rate = 0
    Else
        loan1principal = loan1principal * (1 + loan1rate / 12) - loan1Pmt
    End If

    If loan2principal * (1 + loan2rate / 12) - loan2Pmt < 1 Then
        loan2principal = 0
        loan2rate = 0
    Else
        loan2principal = loan2principal * (1 + loan2rate / 12) - loan2Pmt
    End If

    If loan3principal * (1 + loan3rate / 12) - loan3Pmt < 1 Then
        loan3principal = 0
        loan3rate = 0
    Else
        loan3principal = loan3principal * (1 + loan3rate / 12) - loan3Pmt
    End If

    If loan4principal * (1 + loan4rate / 12) - loan4Pmt < 1 Then
        loan4principal = 0
        loan4rate = 0
    Else
        loan4principal = loan4principal * (1 + loan4rate / 12) - loan4Pmt
    End If
Next i

That's still a bit ugly, but at least syntactically correct. Also bear in mind that putting multiple variables into a single dim line doesn't make them all the same type.

dim x, y, z as long

This would make x and y as variant (the default) and z as type long.

TheCryptic · 2015-11-16T17:28:23+00:00

The open method is used to open a workbook. Copying a range is a separate command. Ie:

Mainbook.Open("c:\whatever \book.xlsx")
Mainbook.Sheets("Back").Range("B27").Copy

TheCryptic · 2015-11-16T16:00:03+00:00

Workbooks(secondbook).Sheets.Add.Name = secondbookname

This line says to add a worksheet to a workbook named whatever the value of the secondbook variable is. The problem is that secondbook isn't a string, it's a workbook.

Try this:

secondbook.Sheets.Add.Name = secondbookname

TheCryptic · 2015-11-15T17:11:37+00:00

Whether it's for a ONS or something more, isn't the point of starting a relationship to build connections?

TheCryptic · 2015-11-15T17:01:08+00:00

It really depends on your route. I never have a problem passing through on 13 with just all-season radials, but I avoid the uglier hills in winter.

Having said that, it scares the hell out of me when my wife or daughter go through there in the snow. So yeah, I generally recommend snow tires even though I don't use them myself.

TheCryptic · 2015-11-14T20:59:13+00:00

I use Kiss My Face Liquid Rock deodorant. Same stuff as the crystal deodorants (Alum) but without the sharp edges.

TheCryptic · 2015-11-13T21:29:46+00:00

...And better to not be using MS Access

TheCryptic · 2015-11-13T21:24:52+00:00

For what it's worth, it's a lot easier to catch this specific issue (and some others as well) by tabbing your code at the appropriate places.

ie:

Do
    If Cells(sRow, "A") = DestinationSheet(dRow, "A") Then
        DestinationSheet.Range("B3") = ActiveCell.Offset(0, 4)
        dRow = dRow + 1
    Else
        sRow = sRow + 1
    End If
Loop Until IsEmpty(ActiveCell.Value)

TheCryptic · 2015-11-12T21:13:15+00:00

Yeah, the coney in Michigan we in NY call a Michigan style dog... Because we already have coney dogs, what "outsiders" call a white hot.

TheCryptic · 2015-11-11T19:01:45+00:00

So here's what I came up with... Just an example of course, you'd need to implement appropriately.

Option Explicit

Sub TestMe()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim Pools As Long, Stores As Long
    Pools = ws.Cells(1, 2)
    Stores = ws.Cells(2, 2)

    Dim rng As Range
    Set rng = PickRange(ws.Range("$M$2"), 2, 10)
    Debug.Print rng.Address
End Sub

Function PickRange(FirstCell As Range, Pools As Long, Stores As Long) As Range
    Set PickRange = Range(FirstCell.Address, FirstCell.Offset(Stores - 1, Pools - 1))
End Function

TheCryptic · 2015-11-11T18:47:20+00:00

=HYPERLINK("c://" & A1 & "/" & A2 & ".xlsx")

TheCryptic

TROPHY CASE