You have an number in Cell D18, if cell in cell D21 is empty cell E21 should be empty, if cell D21 has a value cell E21 should give de difference between D18 and D21.
If positive in black if negative in red.
See example.
I am not sure but I think you mean this?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
ay = .Row
ax = .Column
End With
With ActiveSheet
If ay > 7 And .Cells(ay, "J") <> Empty Then
xx = .Cells(7...
I have this formula:
=VLOOKUP(H1;Info1!A:B;2;FALSE)
So when I type a number in H1, the value should appear in columm B, next to the number.
This is working for 1 worksheet, but I want it working for al worksheets.
In my example, if I type 5 ,the word Praag Should appear next to Number 5.
In a worksheet, I have random unique digits in the range B4:G26.
Now I want to display in the range B28:G50 the 10 largest digits from the range B4:G26.
The other (smaller) digits should be converted to 0 or to an empty cell.
Colors are just for the example
Thanks
I have this formula
=MAX(C2:C71)
but i want combine it with an offset formula.
In a cell i have this max formula, but in the cell above i want to add the the name that belongs to the max result, these names are in column B
Thanks
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then
MsgBox "Maak eerst je keuze in cel A1", vbExclamation, "Cel A1 is leeg"
End If
End Sub
Can you give what more explenation, afther beiing in the hospital for almost a year, i lost a lot of my knowledge. I just want to help a friend with his fishing competition.
Case Is = 1
T_00.Value = WorksheetFunction.Max([Nr_1]) + 1
Case Is = 2
T_00.Value = WorksheetFunction.Max([Nr_2]) + 1
Case Is = 3
T_00.Value = WorksheetFunction.Max([Nr_3]) + 1
Case Is = 4
T_00.Value = WorksheetFunction.Max([Nr_4]) + ?
Case Is = 5...
I don't understand the question anymore
that's what happens when you click in the cell.
Why, you can't have 2 ore more hypelinks in one cell.
What do you want to accomplish