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
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...
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...
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!
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.
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...
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...
@ 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...
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...
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...
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
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...
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...
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...
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
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...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.