• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Search results

  1. J

    First VBA Classes

    It looks like I only have Windows Media Player and Real Player (both enterprise) that sucks
  2. J

    First VBA School

    Hi, I was a member of the first Chandoo VBA classes/trainings a few years back. I took the courses and downloads. I have saved all of the class downloads but they won't work. HTML, MP4, Shockwave Flash Object, First Frame PNG image, swfobject jscript. "DoWhileloopexplained1280" Any...
  3. J

    Variables assignments outside of codes

    Sorry, I'm sure there is a better way to Title this. I'd like to use variables outside of this code so I do not have to change them all the time. I assume that I need to declare to variables dim C and dim D perhaps. How do I assign the value. Dim y As Long For y = Range("U1:U" & Range("U"...
  4. J

    another delete rows...decimals

    ah, works like a charm. Thanks Luke. Thanks to Hui too.
  5. J

    another delete rows...decimals

    Sorry Hui, I'm at my witts end with this one. I know this is something small that I have overlooked. Is there any way I can send the file to you? Or I could copy and past the whole code??
  6. J

    another delete rows...decimals

    Hui, this function works great. A few questions though. Column O has a formula (col J /col H). The results give me a decimal (i.e. 0.95). For some reasons some of the cells have value (after calculations) that have up to 10 decimal points (i.e., 0.802348756444. The cells with extra...
  7. J

    another delete rows...decimals

    another problem with deleting rows. Trying to delete rows that have a value <0.98 in cells column O. I've tried several data types to no avail. lost again. Dim p As Double For p = Range("o1:o" & Range("o" & Rows.Count).End(xlUp).Row).Rows.Count To 2 Step -1 If Cells(p, 15).Value = 0.9...
  8. J

    Delete rows in column U that contain dates

    Hi Hui, thanks for the help. The code supplied works but it is doing the opposite what I wanted. Please note the code below is a little different in the columns selected for this procedure after I made some other changes. I'm trying to delete all rows that have date values in the cells of...
  9. J

    Delete rows in column U that contain dates

    I'm trying to delete any rows in column "U" that contain dates (01/01/2012). I'm using Dim P below to do this but am unscucessful. Any help is appreciated. My guess I have the incorrect data type. Sub expended()y Sub Over_expended() 'INSERT COLUMN J 'ALL TOTALS AT END '...
  10. J

    report/spreadsheet templates

    Am I banned from the forum?? No one knows my shortcomings as much as I. I hope I have not worn out my welcome. (I have two pending itmes in the forum). Not to complain. Please advise if I did something wrong. If so I certainly didn't mean to.
  11. J

    Counta with changing range...no empty cells

    OK, am I banned or something??
  12. J

    Counta with changing range...no empty cells

    Please advise
  13. J

    Counta with changing range...no empty cells

    Luke, how can I edit the code in your message above to sum a column (say column i) rather than the count function (which worked perfectly)?
  14. J

    report/spreadsheet templates

    looking to purchase/download some report templates on Chandoo. where i work charting has been restricted somewhat (sustainability). Please advise.
  15. J

    More information - see prior post

    Hi Hui,is there any way to use the named formula [counta(type)] and [sum(amount)] in conjunction with the code below? I like the way the named formulas work. repeatability Private Sub CommandButton1_Click() Range("h1").Select Range("h65536").End(xlUp).Select ActiveCell.Offset(1, 0).Select...
  16. J

    More information - see prior post

    Hui, thanks so much for the help regarding this request. Not just for the suggestions and formula, it made me think and was a valuable lesson. VBA is so extensive I feel lost at times. Days like this makes it worth it. Thanks again. I assume the next step would be to make a small macro to...
  17. J

    More information - see prior post

    Sample data Type Number Code City State Bldg Amount N N1234567 P052534 Chicago IL IL0303 $500,000 R R7654321 P057499 Ottawa OH OH1298 $3,500.00 [counta] [sum] Variable columns lengths each day. One day...
  18. J

    Counta and sum cells in columns

    variable column ranges (for new report each day). contiguous data Column C (for counta) and contiguous Column G (for sum) Concatenation from previous request has been tabled
  19. J

    Delete rows (again)

    OK, so is there a way to evaluate the first two numbers without the incorrect numbers being saved? Or should I go using the four digit string from Hui
  20. J

    Delete rows (again)

    Is there anyway to use the first two digits instead of all four? I tried this over the past weekend. Dim y As Long For y = Range("L1:L" & Range("L" & Rows.Count).End(xlUp).Row).Rows.Count To 2 Step -1 If Cells(y, 12).Value < > 15## Then Cells(y, 1).EntireRow.Delete Shift:=xlUp...
  21. J

    Delete rows (again)

    Hello, I'm trying to edit this code that you had previously sent to me...which worked perfectly. However my supervisor asked to delete rows that are <1500 and > 1599. Dim y As Long For y = Range("L1:L" & Range("L" & Rows.Count).End(xlUp).Row).Rows.Count To 2 Step -1 If Cells(y...
  22. J

    Deleting rows with text submitted (Delete rows with purged

    Hi Hui. I always approciate your help. I think I gave you the incorrect code to edit. The actual location of the column is AT. Cells in this column are either "purged" or "submitted". Every time I use the code below ALL of the 15,000 rowns of data are deleted. I want to keep the rows that...
  23. J

    Deleting rows with text submitted (Delete rows with purged

    I am having some troubles with the code below. This code work very well when I was deleting rows <> 5. 'Deletes all Rows that <> 5 Dim x As Integer For x = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Rows.Count To 2 Step -1 If Cells(x, 1).value <> "5"...
  24. J

    Add space in VBA concatenation string Columns 3, 4, 5.space would be in column 3

    Is there an easy way to insert a space between RC-[2], and [RC-1]? I've been noodling it for a while with no success. I was thinking of "Concatenate (RC[-2], " ", [RC-1]" to no avail. Dim xRow As Integer xRow = Range("A65536").End(xlUp).Row Range(Cells(2, "D"), Cells(xRow...
Back
Top