Posts by Stuugie

I don't know much about audio mixers and players but I have a friend that swears by MIXXX software. The interface can be challenge to learn, initially, but once learned it is apparently really good.

My 1 penny!

Try here.

I don't know about anyone else but I found this thread entertaining! As for being a prodigy I think that an interested mind can read a programming book and then say that he/she can program. As many have stated here, programming to people's requirements when requirements change every second hour is what makes a true programmer.

As for massaging a kids ego, I'm not about that at all. In my opinion, accollades need only be acknowledged after they are earned. This thread, in its broadest form, reminds me of watching the tryouts for American idol and the 18 / 19 year is there to sing because their parents lover their voice. When they get up to actually sing, they are horrible. When they are told they are horrible they are devastated because they've been made to feel like they were something they were not by parents that feel bad about telling their kids the truth.

Or maybe

If DateTime.Now.TimeOfDay = "12:02:00 AM" Then...

However I did not test that and am only really guessing.

Hi Don,

I'm not sure if what I have will help but if you select the date to find and then run the code, it should find it on the other sheet. You'll probably need to changed the sheet names and such to fit your requirements. Let me know how it goes:

Sub FindDates()

    Dim wS1 As Worksheet, wS2 As Worksheet
    Dim oC As Range
    Dim fStr As String, hStr As String
    Dim rowA As Long

    Set wS1 = Worksheets("Sheet1"): Set wS2 = Worksheets("Sheet2")
    fStr = ActiveCell.Text

    For Each oC In wS2.Range(wS2.Cells(1, 1), wS2.Cells(wS2.Rows.Count, 1).End(xlUp))
        If Mid(fStr, 2, 1) <> "-" Then
            If Left(oC.Text, 6) = fStr Then
                rowA = oC.Row
                Debug.Print rowA
            End If
        Else
            'Debug.Print Left(oC.Text, 5)
            If Left(oC.Text, 5) = fStr Then
                rowA = oC.Row
                Debug.Print rowA
            End If
        End If
    Next oC

End Sub

It occured to me that since time is not constant but rather relative to the observer, could it really be a part of dimensional thinking?

fourth dimension is time and one cannot jump out of it
but the concept of time travel though worm hole exits

If you go back in time, and I mean make the concious decision to do or not do it, you will in fact be jumping out of your natural time-line. Making copies of yourself seems an interesting point of view. Also, energy can be created, with energy of course.

Ya but not intentional I don't think.

My perception of time travel is that if you could actually do it, it wouldn't necessarily mean that you would/could land exactly on your own historical timeline so killing your parents wouldn't result in you fizzling into the ethos. It would be like looking at your timeline as just that, a line, jumping back and hoping to land exactly on that line. Now, if you don't land on your timeline, you'll infact create a new looped version of a different timeline.......this is all crazy talk. You all need Jesus! LoL.

Hi Tensigh,

I've reworked what you have a bit, try the following and let me know if it comes close to what your requirements are:

Sub SaveToCSVs()

    Dim fDir As String
    Dim wB As Workbook
    Dim wS As Worksheet
    Dim fPath As String
    Dim sPath As String

    fPath = "C:\temp\pydev\"
    sPath = "C:\temp\"
    fDir = Dir(fPath)
    Do While (fDir <> "")
        If Right(fDir, 4) = ".xls" Or Right(fDir, 5) = ".xlsx" Then
            On Error Resume Next
            Set wB = Workbooks.Open(fPath & fDir)
            For Each wS In wB.Sheets
                wS.SaveAs sPath & wS.Name, xlCSV

            Next wS
            wB.Close False
            Set wB = Nothing
        End If
        fDir = Dir
        On Error GoTo 0
    Loop

End Sub

My vet is about $100 just to walk in the door and see her. The antibiotics were about $30 for my Wally's ear. I thought that was expensive but I guess not, comparatively!

Hahahahaha:

I'd wipe then off on my muddy cow-shit ridden cloths first :)

too funny!

Wow to Assembly!!!

My poor dog gets an ear infection at least once per year and we don't know why. Stinks like a mo-fo too.

@AD LoL at cutting of the ears! Somehow I can't see the issue being resolved with that course of action....lmao.

it helps the locals to understand you better if you yell in English.

Hahahaha, speaking yelling in English, my wife is a manager at a Garden Market IGA and one night we had to go to her work because an alarm was triggered. There was a cleaning crew there, doing their thing, when we arrived. One of the guys, who was of Middle Eastern descent, could not speak a lick of English. When my wife asked him if he set off the alarm he gave her that look that non-coders have when a coder is talking business. LoL, my wife proceeded to ask him again but the second time she slowed her words down and started speaking louder. I started laughing right there and both of them looked at me like I was crazy. I told her about it shortly after and she didn't believe me or realize that she had done that. LoL, it still cracks me up.

Anyways, get back on topic!

Well, I would be lost without my smart phone that hasn't made me smarter. Between my games, health apps, and keeping track of all my contacts, I have to use a smart phone.

@diafol, lol, the world is moving on and there's no need for:
1.
2.
3.
4.
5. Unless you really want to forget that for which case you're right
6. Tapes? Ack (although I wish I still had some vinyl.

As for them pads, they are more of a fashion statement and I get most bothered by the parents that use them during school concerts and plays so they can record their kids. They take up so much visual space in those scenarios when you're sitting behind the d-bags that use them.

Oh great, now I'm becoming a 40 year old grump.

I remember, years ago, seeing a debate about whether or not the laptop would replace the pc. It didn't and won't and I suspect the tablet will fall in the same vein.

Where is your 2D array in the code you provided?

Lol, yeah that would be about the only competition where you would be enhanced by marijane.

they really need to relax with all that! If it is for allergies, I can't imagine it is a stimulant, just like pot isn't a stimulant either but yet they nail people for all this crap.

Yes, I was quite happy for The Finnish Flash too.

What do you mean

all information became in one cell

If it's all in one cell then by all means the Fixed Width Text-to-Columns is the right course of action. I don't understand what filtering has to do with your original problem.

One step at a time:

I want to import it into Excel file so each info will be in seperated coloumn

You'll need text-to-columns for this. Perhaps you'll need to upload a workbook with a bit of data in the same format.

Can you post the code you have so far?

Once they lost their shot at gold they just seemed to give up

I thought so too, as did many people. How sad is that where if you don't get a chance at gold your mentality is f%^k it!?!

Just to jump in for a light swim in this pool, wouldn't Fixed Width Text-To-Columns suffice?

1. Monte Python's Quest for the Holy Grail
2. Star Trek 6, The Undescovered Country
3. Silence of the Lambs
4. Dune (1984)
5. Monte Python's Life of Brian
6. The Warriors (1979)
7. The Stand (1994)
8. Inception
9. 300
10. Law Abiding Citizen

You'll probably need to post your code for anyone to help you here.

I forgot to set the screen updating, before and after all the work in the procedure gets done.

    Sub promotion()
    Dim ws As Worksheet
    Dim cl, region As Range

    Application.ScreenUpdating = False
    Set ws = Sheet2
    Set region = ws.Range("c2:c1001")
    For Each cl In region ' Iterate through each element.
    If IsNumeric(cl) Then ' If Text equals "Hello".
    cl.Value = cl.Value - 1 ' Set Found to True.
    Else
    Exit For ' Exit loop.
    End If
    Next cl
    MsgBox "update completed successfully"
    Application.ScreenUpdating = True
    End Sub

This will help to speed up the process a bit too.

Don't forget to mark this thread as solved if your issue has been resolved.

Without criteria the following will do it for you:

Sub IncrementCells()

    Dim wS1 As Worksheet
    Dim cRng As Range, oC As Range

    Set wS1 = Worksheets("Sheet1")
    Set cRng = wS1.Range("C2:C1001")
    For Each oC In cRng
        oC.Value = oC.Value + 1
    Next oC

End Sub

What is the criteria for incrementing?

Hi lauren.vitiello.12, I'm not entirely sure if this will help but try changing

col < numbers[row].length

to

col < row

Or something like that. Does your code even compile like that? I ask because you are only using part of the numbers array, which doesn't make sense to me but Java isn't my strong point so there's that!

If my suggestion doesn't help, maybe post the rest of your code so that someone can see where it's gone bad.

Good luck with you assignment and thanks for posting some code to show that you are working on it and not looking for someone to just do it for you, it's nice to see!

Alright, try the following on a data sample and let me know how it goes.

Sub OrganizeItemColumn()
    '*****************************************************************'
    '**This procedure goes through a user-defined column          **'
    '**Most likely A and puts all item numbers correctly down the   **'
    '**column.                                                      **'
    '**Created by Stuugie @ www.daniweb.com                         **'
    '**Date: Jan 31, 2014                                           **'
    '*****************************************************************'
    '**                                                             **'

    Dim cNum As Long, iNum As Long, jNum As Long
    Dim aWs As Worksheet, cRng As Range, oC As Range
    Dim inAns As String, iRng As Range, jRng As Range

    Set aWs = ActiveSheet
    inAns = InputBox("Please Enter the Column Number where A=1, B=2, and so on", "Column Number")
    If IsLetter(inAns) = True Then
        MsgBox "You have not entered a valid number, please run the program again." & vbNewLine _
        & "You have entered: " & inAns
        Exit Sub
    Else
        cNum = CLng(inAns)
    End If
    '*****************************************************************'
    '**Set the range used in the column selected by the user from   **'
    '**above input,starting at row 1 (change as necessary).         **'
    '*****************************************************************'
    '**                                                             **'
    Set cRng = aWs.Range(aWs.Cells(1, cNum), aWs.Cells(aWs.Rows.Count, cNum).End(xlUp))
    '*****************************************************************'
    '**Loop through each cell in the cRng and check to ensure for   **'
    '**data to right of column cell.                                **'
    '*****************************************************************'
    '**                                                             **'
    For Each oC In cRng
        If oC.Offset(0, 1).Value <> "" Then
            Set iRng = aWs.Range(aWs.Cells(oC.Row, oC.Offset(0, 1).Column), aWs.Cells(oC.Row, aWs.Columns.Count).End(xlToLeft))
            iNum = iRng.Cells.Count
            aWs.Rows(oC.Offset(1, 0).Row & ":" & oC.Row + iNum).EntireRow.Insert xlDown
            Set jRng = aWs.Range(aWs.Cells(oC.Offset(1, 0).Row, oC.Column), aWs.Cells(oC.End(xlDown).Offset(-1, 0).Row, oC.Column))
            jNum = jRng.Cells.Count
            iRng.Copy
            jRng.PasteSpecial Paste:=xlPasteAll, Transpose:=True
            iRng.Clear
        End If
        Set iRng = …

Hi Jeffrey 1, this is definitely doable but may take a moment to come up with the right macros to make. In saying that, there will be a significant amount of looping required (at first glance) and because of this, depending on the file size, the process may take a while. I'm working on this for you though so hang in there.

Please keep this thread updated if you don't mind, I'd like to know if it works in a new Excel book on your end too.

What version of Excel are you using?

Hi jkvt,

What is it you are wanting to accmplish after you make these drop downs and buttons? I cannot reproduce your issues so I'm thinking they are coming up somewhere else, perhaps in another code block?

Hi fourty, did you still need my email or do you have it all figured out?

Hey fourty, I was playing around with row counts and column counts with the named ranges but with no success. Those variables can be disregarded as I meant to remove them.

As for clearing other ranges, it is tough from my point of view to help as I cannot see your sheets. I can help without seeing your data if and only if all the data on that sheet can be cleared.

Also, do you really need a second sheet to sort and a third to display the sorted data? Seems like an extra step to me.

Are there many named ranges in the one sheet that you want the data from? I'm personally not a fan of working with named ranges in code, for these reasons too. The goto code will always take you to the range so that cannot be used. At any rate, the following can be amended to your purposes:

Sub CopyNamedRangeData()

    Dim wS3 As Worksheet
    Dim rCnt As Long, cCnt As Long

    Application.ScreenUpdating = False
    Set wS3 = Worksheets("Sheet3")
    Application.Range("NamedRange").Copy
    wS3.Range("A1").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Application.ScreenUpdating = True

End Sub

Hi Tangerinejoe and sorry you didin't get an immediate response. Sometimes threads get missed and as I look at teh view count, there have only been 6 views so I am going to wager that this got pushed down the line. A small issue that I am noting is that you are asking a lot in that little paragraph and that may defer people from answering.

I'm going to stick with one thing that I know, Photoshop is great for web design. Other Adobe products, like those you have mentioned, have their own pluses and one noteworthy one in my opinion is InDesign as it is good for whole page creation.

Personally though, I have been using Photoshop CS6 lately for designing some backgrounds and link buttons for a friend's website. I find it to be very good for those purposes and also for jpeg editing.

As for Sass Lass and Bootstrap, I haven't a clue.

Hi mavtcr, try the following and let us know how it goes:

If ACRS.RecordCount > 0 Then
        If MsgBox("SALARY ALREADY CALCULATED DO YOU WANT TO RECALCULATE ?", vbYesNoCancel, "Pebble") = vbYes Then
            'Perform your Yes calculation here
        Else
            'Prompt a message for no or do nothing
        End If
    Else
        CmbNdm.SetFocus
    End If

If I remember correctly in Java, the:

answer == "yes"

will not work because == does not work in that sense with strings like that. I'm kind of surprised it worked with string numbers (1/0) but meh. Try

"yes".equals(answer)

Try http://www.malwarebytes.org/ follow the steps here and you should be ok.

Only 8 days to go!!!!

If it were me I would create 2 tables and go with your second option. Normalization is important with regards to relational db design. Also, I really dont see how speed will be an issue with your example regarding 2 tables, I wouldnt be worried about that!

My 2 pennies!

Well I'm as Athiest as it gets and i don't want to lose Christmas on account of secular governments. I like the festive time of year, the family gatherings, the food, the goodies, and the list can go on. Let's keep Christmas, call it whatever suits the person giving it a name and carry on! :)

Theology aside, I don't think it will ever be abolished because it is a huge economic driver at this time of year. It would be political suicide to abolish xmas for a slew of reasons, including religious idiologies which are still dominant in NA. It's far too celebrated to abolish it.

My 2 pennies.

I'm curious why you would think anyone on any forum would answer 99 questions for you when it's clear that you need to answer these questions? Take the initiative and work at this test yourself, you'll be much better off for it in the end.

So Zeus isn't a myth? Thor? Osirus? they were all mainstream religions believed by millions.

I think that people can't rationalize that way because Zeus and the rest are not of our time and therefore can't and couldn't be real.

It would help if you described what exactly you want to do. Your second For loop is not closed with a Next and it doesn't use the iterator "i".

Doesn't sound very open minded and rational to me.

Theology isn't an open minded or rational topic. People need (for whatever reason) to believe that something exists for them after they die as opposed to the alternative which is nothing and we just blink out of existence. I'm comfortable with blinking out of existence and don't dwell on it, even when my life is in the so called "bunker". But I digress, this is way off topic.

Terrorism.