Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. nicitalia

    string search in a range

    Hi, I've done it myself. Sub ColoraCelle() Dim Zona As Range Set Zona = Sheets(1).Range([A1], [A1].End(xlDown)) For Each c In Zona If Len(c.Value) = 7 Then c.Offset(0, 1).Interior.ColorIndex = 28 Next End Sub Thank you goodbye
  2. nicitalia

    string search in a range

    Hi all folks, this time I've a problem related to the research of a some kind of string in a range, here it is: in column A I've got 10.000 cells with this kind of values (the format of the cell is Text): A1 = 10.1 A2 = 10.11 A3 = 10.12.0 A4 = 10.12.00 I want to fill all the cells that have...
  3. nicitalia

    how to select the max value in a range

    Ok, I've made it, here's the code (to be written in the sheet module). -------------------------------- Private Sub Worksheet_Calculate() Application.CalculateFull End Sub 'this sub allow excel to read the changes releated to the calculation on functions on the sheet. If changes happen then...
  4. nicitalia

    Excel VBA copy contents of cells A1:A22 to string variable

    Yea I agree with Skip. Once you put your function in a cell you'll have to select the range in which the words to form the string are contained and the work is done!
  5. nicitalia

    how to select the max value in a range

    How is possibile to use the MAX() function within the Conditional Formatting?
  6. nicitalia

    how to select the max value in a range

    I don't think in this case the Conditional Formatting is enough. The problem is that I've a dynamic range in wich the user do the data entry. Every time that a data has been entered the program must look at the range and choose the higher value.
  7. nicitalia

    how to select the max value in a range

    Hi guys, I've got a column in which are entered different values. I want to create a sub that choose the maximun of these values and that will fill the cell with red color. I want to do this through the Worksheet_change (ByVal Target As Range) event, so every time that a value is entered in the...
  8. nicitalia

    Wrong date format insede a UserForm

    Hi Skip, I forgot to ask a you a question, about the way you suggest to insert the date. If I use three different combobox to insert tha day, the month and the year, how could I obtain a system that could take in occount of the leap years and of the month, like the form that we found on some...
  9. nicitalia

    Wrong date format insede a UserForm

    @ skip: thank you for your great answer...(after all, Gates' creation was in Washington, USA!) lol I didn't know...anyway, I've solved the problem putting insted of .Cells(lRow, 3).Value = Me.TxtDate.Value this one .Cells(lRow, 3).Value = CDate(Me.TxtDate.Value) and now it works...don't know...
  10. nicitalia

    Wrong date format insede a UserForm

    I'm not able to upload the image of the worksheet and xls file..-can someone tell me how to do it? thank you Nic
  11. nicitalia

    Wrong date format insede a UserForm

    Hi all folks, I have a problem with the date format in a userform: I've designed this simple UF to manage the annual expense about to car costs. The UF works well, you insert the type of cost, the ammount and the date of the cost. Nut when I press the OK button to insert the data in the...
  12. nicitalia

    insert values of a listbox with double clik in a range

    The point is: how to find the first free row of the range B3:D19? I mean, everutime I double clik a row of a listbox I want the values to be put in the first free row of the range. Everytime I ripeat thi action (double clik on a row) the sub must write the values in the next free row. May if I...
  13. nicitalia

    insert values of a listbox with double clik in a range

    Hi Skip, firt of all thank you for your hint, but this code in not working: I double clik on a row of the listbox but nothing happens. How could I upload an example file? Thak you. Nic
  14. nicitalia

    insert values of a listbox with double clik in a range

    Hi there guys, it's been a long time since I wrote on the forum. I've got a problem with a UserForm_ListBox. I created a UF with 2 listbox that have 3 columns each. Once selected a row, with a double clik event, I want that the values of the selected row to be put in a precise range of the...
  15. nicitalia

    comin' home

    Hi everybody folks, I've a urgent problem with a macro, must send the work in two days please help me! Here's the problem: I've got a sub with 3 big different with...end with structure, and each one of them contains some if statements. I've built the sub in a way that to run correctly you...
  16. nicitalia

    copy/paste with if condizion

    Thank you skip the do exactly what i want!!!
  17. nicitalia

    copy/paste with if condizion

    I've not tried your sub yet, skip, but I was tryin' these sub: <<<<first, I've to say that I've puted on the last cell of my range in column A the value "end" written in bold>>>>> Sub EliminaDupplicati10() FIRST SUB: this is working correctly but the loop doesn't stop, can you tell me why...
  18. nicitalia

    copy/paste with if condizion

    Thank you guys, I'll try and I'll let you know. @gavin: ok I didn't know that way yet, thank you!!!
  19. nicitalia

    copy/paste with if condizion

    Hi, it works but it copy the cells not in F1,F2,F3,F4... but in the column F and the same row of the cell.font.bold = true! Es. a value is found in A12, the sub copy it in F12 and not in the first empty cell of column F... you know a way to do that??? thank you so much nic
  20. nicitalia

    copy/paste with if condizion

    Well thank you so much skip for the reply! I must copy each that sattisfy the if condition cell starting from F2, I mean eg. A5 is font.bold, than copy it in F2, then the next cell in column A wich contain a value written in font.bold is A15, ok so copy it in F3 and so on... I have to do that...

Part and Inventory Search

Back
Top