1. #73621
    Quote Originally Posted by Majad View Post
    Morning Anak!
    I can't ban you on the Fun Stuff, but why are you asking?

    What?!
    No reason, just don't look at my post in OT.

    Quote Originally Posted by Decagon View Post
    I think if I was ever to get banned (which I do hope never happens) it would be in GenOT. I have a feeling few people get banned in Fun Stuff.
    Joy managed to get "Fun stuff" banned!

  2. #73622
    -14

    There's no single thread on GenOT without someone with an infraction.

    Hai Ana!

  3. #73623
    Bloodsail Admiral Decagon's Avatar
    Join Date
    Jul 2012
    Location
    Unfortunately, Central Utah
    Posts
    1,100
    I didn't even think of that. Still, I would bet on GenOT having the most bans per capita than Fun Stuff, just due to the more serious nature of the discussion and therefore people taking things more personally and being more sensitive about those serious subjects.

    ---------- Post added 2012-11-06 at 06:19 PM ----------

    - 13
    Quote Originally Posted by dupti View Post
    Something.

  4. #73624
    Fluffy Kitten Majad's Avatar
    Join Date
    Mar 2011
    Location
    Portugal
    Posts
    13,531
    Quote Originally Posted by Lyriok View Post
    No reason, just don't look at my post in OT.
    What you mean? What did you do?

    Quote Originally Posted by NightFury Treann View Post
    There's no single thread on GenOT without someone with an infraction.

    Hai Ana!
    Actually there's one that has 0 infrations in it.
    MAL
    ----------------------
    Last.fm
    ----------------------
    Perfect Illusion

  5. #73625
    Quote Originally Posted by Majad View Post
    What you mean? What did you do?
    Oh nothing...

    Completely unrelated, a program I wrote when I first started programming.

    Code:
    Private Sub CommandButton1_Click()
    Frm_Entry.Show   'New entry
    End Sub
    
    Private Sub CommandButton2_Click()
    Frm_Records.Hide 'Save/Close
    SendKeys ("^s")
    End Sub
    
    
    Private Sub CommandButton3_Click()
    Frm_Records.Hide 'Exit to sheets
    End Sub
    
    
    Private Sub OptionButton1_Click() 'Engineering
    If OptionButton1.Value = True Then Worksheets("Engineering").Select
    End Sub
    
    Private Sub OptionButton2_Click() 'Office
    If OptionButton2.Value = True Then Worksheets("Office").Select
    End Sub
    
    Private Sub OptionButton3_Click() 'Factory
    If OptionButton3.Value = True Then Worksheets("Factory").Select
    End Sub
    
    Private Sub OptionButton4_Click() 'Dispatch
    If OptionButton4.Value = True Then Worksheets("Dispatch").Select
    End Sub
    
    
    Private Sub OptionButton5_Click() 'Production
    If OptionButton5.Value = True Then Worksheets("Production").Select
    End Sub
    
    
    Private Sub TextBox1_Change() 'Dispatch Filter
    If OptionButton4.Value = True Then
    Sheets("FilteredNames").Cells.ClearContents
    For X = 1 To Sheets("Dispatch").Range("B" & Rows.Count).End(xlUp).Row
        If UCase(Left(Sheets("Dispatch").Range("B" & X).Value, Len(TextBox1))) = UCase(TextBox1) Then
            If Sheets("FilteredNames").Range("B1") = "" Then
                Sheets("FilteredNames").Range("B1").Formula = Sheets("Dispatch").Range("B" & X).Text
            Else
                Sheets("FilteredNames").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Formula = Sheets("Dispatch").Range("B" & X).Text
            End If
      End If
    Next
    ListBox1.RowSource = "FilteredNames!B1:B" & Sheets("FilteredNames").Range("B" & Rows.Count).End(xlUp).Row
    End If
    End Sub
    
    
    Private Sub CommandButton1_Click() 'Enter
    
    Dim emptyRow As Long
    If OptionButton1.Value = True Then Worksheets("Engineering").Select 'Engineering
    If OptionButton2.Value = True Then Worksheets("Office").Select      'Office
    If OptionButton3.Value = True Then Worksheets("Factory").Select     'Factory
    If OptionButton4.Value = True Then Worksheets("Dispatch").Select    'Dispatch
    If OptionButton5.Value = True Then Worksheets("Production").Select  'Production
    emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
    
    
    
    Cells(emptyRow, 2).Value = TextBox1.Value  'Name
    Cells(emptyRow, 3).Value = TextBox2.Value  'Reason
    Cells(emptyRow, 4).Value = TextBox3.Value  'Date
    Cells(emptyRow, 6).Value = TextBox4.Value  'Time
    Cells(emptyRow, 7).Value = TextBox5.Value  'Date of docters appointment
    Cells(emptyRow, 8).Value = TextBox6.Value  'Contact number
    Cells(emptyRow, 9).Value = TextBox7.Value  'Callback
    Cells(emptyRow, 10).Value = TextBox8.Value 'Date started
    Cells(emptyRow, 11).Value = TextBox9.Value 'Dates absent
    
    If OptionButton1.Value = True Then Cells(emptyRow, 1).Value = OptionButton1.Caption 'Engineering
    If OptionButton2.Value = True Then Cells(emptyRow, 1).Value = OptionButton2.Caption 'Office
    If OptionButton3.Value = True Then Cells(emptyRow, 1).Value = OptionButton3.Caption 'Factory
    If OptionButton4.Value = True Then Cells(emptyRow, 1).Value = OptionButton4.Caption 'Dispatch
    If OptionButton5.Value = True Then Cells(emptyRow, 1).Value = OptionButton5.Caption 'Production
    If OptionButton6.Value = True Then Cells(emptyRow, 5).Value = OptionButton6.Caption 'Yes
    If OptionButton7.Value = True Then Cells(emptyRow, 5).Value = OptionButton7.Caption 'No
    
    Dim z As Control
    For Each z In Frm_Entry.Controls
    If TypeName(z) = "TextBox" Then
    z.Value = ""
    End If
    Next z
    
    MsgBox "Entry has been added."
    End Sub
    
    Private Sub CommandButton4_Click()
    Frm_Entry.Hide 'Close
    End Sub
    iBored!

  6. #73626
    Bloodsail Admiral Decagon's Avatar
    Join Date
    Jul 2012
    Location
    Unfortunately, Central Utah
    Posts
    1,100
    I don't understand, Mogul'Khan, General of the Red Mist. What does that do?
    Quote Originally Posted by dupti View Post
    Something.

  7. #73627
    It was just a program to record abscences in staff and sorted it by what department they are in, along with information such as If/when they called in sick and had a DR certificate.

  8. #73628
    Moderator Anakso's Avatar
    Join Date
    Apr 2010
    Location
    Perth, Australia
    Posts
    5,008
    Yea those things Majad listed, but they rarely happen. I think I've given out maybe 2-3 infractions in fun stuff since I became a mod in fun stuff, not including sig or spam bot ones.

    Treann: New threads

    -16

  9. #73629
    Bloodsail Admiral Decagon's Avatar
    Join Date
    Jul 2012
    Location
    Unfortunately, Central Utah
    Posts
    1,100
    Ooooh, I think I can sort of see it now that you told me what it does, MOGUL'KHAN, GENERAL OF THE RED MISTS! I'm getting really good at typing that.
    Quote Originally Posted by dupti View Post
    Something.

  10. #73630
    -14/////////////////
    I'm one of those people with their PC specs listed in their signature now. Aryan PC Master Race.

  11. #73631
    Bloodsail Admiral Decagon's Avatar
    Join Date
    Jul 2012
    Location
    Unfortunately, Central Utah
    Posts
    1,100
    - 13
    Quote Originally Posted by dupti View Post
    Something.

  12. #73632
    Quote Originally Posted by Anakso View Post
    Treann: New threads

    -16
    Wh..wh...whaat?

    -15

  13. #73633
    Fluffy Kitten Majad's Avatar
    Join Date
    Mar 2011
    Location
    Portugal
    Posts
    13,531
    - 16
    MAL
    ----------------------
    Last.fm
    ----------------------
    Perfect Illusion

  14. #73634
    Bloodsail Admiral Decagon's Avatar
    Join Date
    Jul 2012
    Location
    Unfortunately, Central Utah
    Posts
    1,100
    Quote Originally Posted by NightFury Treann View Post
    Wh..wh...whaat?

    -15
    New Threads: The only threads that don't have infractions in them.
    Quote Originally Posted by dupti View Post
    Something.

  15. #73635
    Fluffy Kitten Majad's Avatar
    Join Date
    Mar 2011
    Location
    Portugal
    Posts
    13,531
    Quote Originally Posted by Decagon View Post
    New Threads: The only threads that don't have infractions in them.
    Ding ding ding ding!

    We have a winner!

    I actually didn't get it too, so yeah. Majad is also a slowpoke. D:
    MAL
    ----------------------
    Last.fm
    ----------------------
    Perfect Illusion

  16. #73636
    Bloodsail Admiral Decagon's Avatar
    Join Date
    Jul 2012
    Location
    Unfortunately, Central Utah
    Posts
    1,100
    Maybe I'm just extraordinarily smart! Hahaha, get it?
    Quote Originally Posted by dupti View Post
    Something.

  17. #73637
    Moderator Anakso's Avatar
    Join Date
    Apr 2010
    Location
    Perth, Australia
    Posts
    5,008
    Quote Originally Posted by Decagon View Post
    New Threads: The only threads that don't have infractions in them.
    Yep


    -19

  18. #73638
    Fluffy Kitten Majad's Avatar
    Join Date
    Mar 2011
    Location
    Portugal
    Posts
    13,531
    Quote Originally Posted by Decagon View Post
    Maybe I'm just extraordinarily smart! Hahaha, get it?
    Well, I aint, cause I don't get it. xD

    - 20
    MAL
    ----------------------
    Last.fm
    ----------------------
    Perfect Illusion

  19. #73639

  20. #73640
    Bloodsail Admiral Decagon's Avatar
    Join Date
    Jul 2012
    Location
    Unfortunately, Central Utah
    Posts
    1,100
    Quote Originally Posted by Majad View Post
    Well, I aint, cause I don't get it. xD

    - 20
    Don't worry about it, I was just making fun of myself. :P
    Quote Originally Posted by dupti View Post
    Something.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •