• 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. Belleke

    Delete entire row if certain range of data is blank

    Thanks for the rep.:) Have a nice day.
  2. Belleke

    Delete entire row if certain range of data is blank

    Just replace the first code with this one. = 0 works for both, empty cells and cells containing 0 Sub belle() Dim i As Long For i = Cells(Rows.Count, 3).End(xlUp).Row To 6 Step -1 If Cells(i, 8) = 0 And Cells(i, 9) = 0 And Cells(i, 10) = 0 And Cells(i, 11) = 0 Then Range("C" &...
  3. Belleke

    vba userform loading data to hidden tab

    Hi, Press ALT+F11 to switch to the Visual Basic Editor. On the Tools menu, click References. Clear the check box for the type library or object library marked as “Missing:”
  4. Belleke

    Delete entire row if certain range of data is blank

    What about this? Sub belle() Dim i As Long For i = Cells(Rows.Count, 3).End(xlUp).Row To 6 Step -1 If Cells(i, 8) = "" And Cells(i, 9) = "" And Cells(i, 10) = "" And Cells(i, 11) = "" Then Range("C" & i).EntireRow.Delete Next End Sub
  5. Belleke

    vba to read button caption based on condition

    Have a look at your own example in post #8
  6. Belleke

    vba userform loading data to hidden tab

    Forgot to mention, if a admin forgets to hide the master sheet, it is closed automaticly when you close the form or the file. Glad to help. Cheers.
  7. Belleke

    vba to read button caption based on condition

    I still don't understand your question. But try to avoid select and/or Activate, it slows down your code and is rarely needed This Sub CleatData() Sheets("Sheet1").Range("A2:D6").Clear End Sub does just the same as this Sub CleatData() Sheets("Sheet1").Activate Range("A2:D6").Select...
  8. Belleke

    vba userform loading data to hidden tab

    Hi, i made a example. There are 3 sheets, 2 are hidden. One is the master and the 2th one is called lists, and contains the elements for your combobox. Using Additem to populate a combobox or listbox is very slow, avoid using that. on the feedback form you will see a little rectangle. Pushing...
  9. Belleke

    vba userform loading data to hidden tab

    Thanks for the feedback:)
  10. Belleke

    vba userform loading data to hidden tab

    Hi, Private Sub CommandButton10_Click() '''add With Sheets("MASTER") iRow = .Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1 .Cells(iRow, 1).Resize(, 7).Value = Array(TextBox1.Value, TextBox2.Value, TextBox3.Value, TextBox4.Value...
  11. Belleke

    vba to read button caption based on condition

    We don't ask that. Mock up an example without confidential data. (for example, instead of using real names use Name1 Name2 and so on.)
  12. Belleke

    Auto Email for roster

    @ Keetoowah, welcome:) Keep up the good work.
  13. Belleke

    Excel picture display!

    Like this?
  14. Belleke

    Auto Email for roster

    Keetoowah did all the work but thanks for the rep.
  15. Belleke

    Auto Email for roster

    Done
  16. Belleke

    Auto Email for roster

    Put the SendRoster code in Private Sub CommandButton1 code
  17. Belleke

    Multiple Invoices from the master file

    See attached. Code to save invoice (Sheet1) as PDF. For the first part of the question, it is impossible because you can't use / in the file name.
  18. Belleke

    Excel picture display!

    LIke this? Give the images the same name as the part numbers. See attached. (excel file and image folder)
  19. Belleke

    Delete Row Based on range of cells

    Hi, Try Sub belle() Dim J As Long, i As Long, wf As WorksheetFunction J = Cells(Rows.Count, "A").End(xlUp).Row Set wf = Application.WorksheetFunction For i = J To 2 Step -1 If wf.CountIf(Range("B" & i & ":G" & i), 0) = 6 Then Range("B" & i).EntireRow.Delete End If Next i End Sub
  20. Belleke

    Extract Unique Values From Row

    You should post a little example instead of pictures. If the above numbers are the columns A->L then try this formula in column L =B1& ","&C1&","&D1&","&F1&","&G1&","&H1
  21. Belleke

    Copy and Paste the data to another sheet with based on condition

    Like this? Rename your destination sheets.
  22. Belleke

    Need Help With Resetting ActiveX OptionButtons

    Does this work for you? Sub belle() Dim b As OLEObject, s As Shape Dim rng As Range Dim arrOptButtons, arrChkBoxes, Opt, Chk If MsgBox("Are you sure that you want to clear all input Cells and reset the Options Buttons and CheckBoxes on the ActiveSheet?", vbQuestion + vbYesNo, "Confirm...
  23. Belleke

    Need Help With Resetting ActiveX OptionButtons

    Like this? Sub belle() Dim b As OLEObject For Each b In ActiveSheet.OLEObjects If TypeName(b.Object) = "OptionButton" Or TypeName(b.Object) = "CheckBox" Then b.Object.Value = False Next b End Sub
  24. Belleke

    Shorter code?

    @ p45cal, Nice code. Thank you for your time and example.
  25. Belleke

    Shorter code?

    Thanks for the example and your time.
Top