Meanwhile in America

[The Conservative]

Call people on the phone, pretending to be from corporate to get passwords, dive through dumpsters for records, and download scripts that exploit some port vulnerability that somebody else writes? No. Boring.

People who pretend like hacking is exciting have never hacked and have no idea what it means. You can't even write a hello world program and you are posturing to me, a PhD candidate in computer science, how awesome you are at hacking.

The results of hacking may or may not be exciting, but hacking itself is pure boring 99% of the time. It's almost all social engineering and dumpster diving.

Wow... you just summed up what you see on TV... congratulations, you are an educated idiot.

Uh.. no.

I summed up what I learned in college. LOL

Maybe learn how to write a for loop before you posture to me about how uber hacker you are. LMFAO

Again, an educated idiot.

[Speaker to Animals]

You hired people to manually accept and rejects data packets. LMFAO

Dude, you are a really stupid man. Just accept it and stop posturing about great you are in here. You can't even write code. LOL

[The Conservative]

You hired people to manually accept and rejects data packets. LMFAO

Dude, you are a really stupid man. Just accept it and stop posturing about great you are in here. You can't even write code. LOL

This is a small portion of the code that I used as a beta app before implementing it into C++ This portion was part of the application that would import raw data from several companies that you've heard of, and then allow the rest of the app to disseminate it to be used in the program.

I used VBA as a concept because I had to show proof of how it would work. I then implimented in into C++ and now the company I wrote it for, plus a few you've heard of are using it. So don't tell me I don't know how to code you idiot savant.

If I wanted to, I could run circles around your childish education and run your idea of how "superior" you think you are to me, but know what... I don't need to, and know why? I've already made my mark in this world, while you have to attempt to insult someone with Autisim to make yourself feel good.

I think I win.

Code: Select all

 Dim wsJL As Worksheet 'Jobs List
    Dim wsJOD As Worksheet 'Jobs Data
    Dim wsJAR As Worksheet 'JL Archive
    Dim wbBK1 As Workbook
    Dim wbBK2 As Workbook
    Dim wsBOR As Worksheet
    Dim lastrow As Long, fstcell As Long, strCompany As String, strPart As String, strPath As String, strFile As String
    Dim cell As Range, newFolder As String, PhotoDir As String, rng As Range

    Set wsJL = Sheets("Jobs List")
    Set wsJOD = Sheets("Jobs Data")
    Set wsJAR = Sheets("JL Archive")
    Set wbBK1 = ThisWorkbook
    Set wbBK2 = ActiveWorkbook
    
    Application.ScreenUpdating = False    ' Prevents screen refreshing.
    Application.Calculation = xlCalculationManual


    With wsJOD
        .Columns("A:Q").Clear
        wsJL.Range("B2:I2").Copy wsJOD.Range("A1")
        .Range("I1").Formula = "=COUNTIFS('Jobs List'!$B:$B,$A1,'Jobs List'!$D:$D,$C1)"
        .Range("J1").Formula = "=IF(I1,""Same"",""Different"")"
    End With
    
    strFile = Application.GetOpenFilename()
    Set wbBK2 = Application.Workbooks.Open(strFile)
    Set wsBOR = Sheets(Replace(wbBK2.Name, ".csv", ""))
 
        lastrow = wsBOR.Range("C" & Rows.Count).End(xlUp).Row
        wsBOR.Range("B6:E" & lastrow).Copy wsJOD.Range("A2")
        wsBOR.Range("G6:H" & lastrow).Copy wsJOD.Range("E2")
        wsBOR.Range("L6:L" & lastrow).Copy wsJOD.Range("G2")
        wsBOR.Range("N6:N" & lastrow).Copy wsJOD.Range("H2")
        wbBK2.Close
            
        lastrow = wsJOD.Range("A" & Rows.Count).End(xlUp).Row
        wsJOD.Range("I1:J1").Copy wsJOD.Range("I2:J" & lastrow)
        wsJOD.Range("I:J").Calculate
        
        lastrow = wsJL.Range("B" & Rows.Count).End(xlUp).Row
        wsJL.Range("P3:U" & lastrow).Select
        Selection.Clear
        wsJL.Range("P2:U2").Copy wsJL.Range("P3:U" & lastrow)
        wsJL.Range("P:U").Calculate

    With Intersect(wsJL.UsedRange, wsJL.Columns("Q"))
        .AutoFilter 1, "<>Same"
        With Intersect(.Offset(2).EntireRow, .Parent.Range("B:U"))
            .Copy wsJAR.Cells(Rows.Count, "B").End(xlUp).Offset(1)
            .EntireRow.Delete
        End With
        .AutoFilter
    End With

    lastrow = wsJOD.Range("A" & Rows.Count).End(xlUp).Row
    
    With Intersect(wsJOD.UsedRange, wsJOD.Range("J2:J" & lastrow))
        .AutoFilter 1, "<>Different"
        .SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End With

    wsJOD.Range("A2:H" & lastrow).Copy wsJL.Cells(Rows.Count, "B").End(xlUp).Offset(1)
    wsJOD.Columns("A:Q").Clear

    lastrow = wsJL.Range("B" & Rows.Count).End(xlUp).Row
    wsJL.Range("J3:K3").Copy wsJL.Range("J4:K" & lastrow)
    wsJL.Range("B3:N3").Copy
    wsJL.Range("B4:N" & lastrow).Borders.Weight = xlThin
    wsJL.Range("B4:N" & lastrow).Font.Size = 11
    wsJL.Range("B4:N" & lastrow).Font.Name = "Calibri"
    wsJL.Range("J:K").Calculate
'Sort PO Tracking
 
    With wsJL
        .Sort.SortFields.Clear

    'Sort Reds
        .Sort.SortFields.Add(.Range("K3:K" & lastrow), _
        xlSortOnIcon, xlAscending, , xlSortNormal).SetIcon Icon:=ActiveWorkbook. _
        IconSets(4).Item(1)
 
        .Sort.SortFields.Add Key:=Range( _
        "K3:K" & lastrow), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
        
    'Sort Yellows
        .Sort.SortFields.Add(.Range("J3:J" & lastrow), _
        xlSortOnIcon, xlAscending, , xlSortNormal).SetIcon Icon:=ActiveWorkbook. _
        IconSets(4).Item(2)
         
    'Sort Greens
        .Sort.SortFields.Add(.Range("J3:J" & lastrow), _
        xlSortOnIcon, xlAscending, , xlSortNormal).SetIcon Icon:=ActiveWorkbook. _
        IconSets(4).Item(3)
 
        .Sort.SortFields.Add Key:=Range( _
        "J3:J" & lastrow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
 
        With .Sort
            .SetRange wsJL.Range("B2:U" & lastrow)
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        lastrow = wsJL.Range("B" & Rows.Count).End(xlUp).Row
        wsJL.Range("B2:N" & lastrow).Select
        wsJL.Range("B2:N" & lastrow).VerticalAlignment = xlCenter
        wsJL.Range("A1").Select
    End With

With wsJL
 
        strPath = wbBK1.path & Application.PathSeparator & "Photos" & Application.PathSeparator
        strCompany = Range("S3") ' assumes company name stars in S3
        strPart = CleanName(Range("T3")) ' assumes part in T3
 
        If Not FolderExists(strPath & strCompany) Then
        'Company doesn't exist, so first create company folder and then part folder
        FolderCreate strPath & strCompany & Application.PathSeparator
        FolderCreate strPath & strCompany & Application.PathSeparator & strPart & Application.PathSeparator
            Else
        'company does exist, but does part folder
            If Not FolderExists(strPath & strCompany & Application.PathSeparator & strPart) Then
                FolderCreate strPath & strCompany & Application.PathSeparator & strPart
            End If
        End If
 
        Range("J:M").Calculate
 
    End With
 
 
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
    MsgBox "Jobs List Updated!"
 
End Sub

[Speaker to Animals]

Omg that shit is hilarious.

[Zlaxer]

Sorry DB - VB is not a "real" language....if you don't to have to manage memory, its not coding.

Now if you had posted C or Sparc....then maybe some respect.

*C needs to be the "King's C" - ANSI. None of this Objective C shit.

[The Conservative]

Sorry DB - VB is not a "real" language....if you don't to have to manage memory, its not coding.

Now if you had posted C or Sparc....then maybe some respect.

*C needs to be the "King's C" - ANSI. None of this Objective C shit.

I am not going to post my C++ coding for this because of one simple reason, it's being used in a live application.

I already said that I used VBA to show proof of concept.

What is it with people and their lack of comprehension? DB never said anything about VBA.

[Zlaxer]

DB never said anything about VBA.

Sorry - I subconsciously think of you as DB since you're StA's new dancing partner.

[The Conservative]

DB never said anything about VBA.

Sorry - I subconsciously think of you as DB since you're StA's new dancing partner.

LOL, No, StA is just a moron, and I refuse to let an idiot think he's right.

Again, I can't show the programming I did in C++ because I don't own the code. I own the VBA because it never was used in an application.

[TheReal_ND]

Thx, just sold VB to a pajeet

[TheReal_ND]

image upload

Welp. The jews are in the bag for Chick-fil-A's competition. I'm off the Popeyes train until this gets sorted out.