How-tos - Sharing Tips and Tutorials for Microsoft Office
Here we share the tips and tricks we know about Microsoft Office. It's sharing all those things that we learn and experience along the way of developing Office add-ins and using Microsoft Office.
Latest Articles
- Use formula or defined function to auto fill text based on the cell filled color in Excel
- Quickly create a positive negative bar chart in Excel
- How to split the total payment across months in Excel?
- Generate random number with the given specific length in Excel
- Compare two columns and add missing values in Excel
- How to merge two or more tables into one based on key columns?
- How to sum unique values based on criteria in Excel?
- How to filter multiple values in only one column in Excel?
- How to return multiple matching values based on one or multiple criteria in Excel?
- How to count the number of unique and distinct values from a list of column?
If you want to reset the counter, please add the below VBA code at the end of the original code which has been provided above, and then run it.
Sub ClearCount()
xRgD.Value = ""
xNum = 0
End Sub
The full VBA code is as follows. If you want to reset the counter, please run the second VBA code. For applying the code to a single row, sorry can't help you yet.
'The first VBA
Public xRgS, xRgD As Range
Public xNum As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRgS = Range("E2")
If xRgS Is Nothing Then Exit Sub
Set xRgD = Range("H2")
If xRgD Is Nothing Then Exit Sub
If Intersect(xRgS, Target) Is Nothing Then Exit Sub
xNum = xNum + 1
xRgD.Value = xNum
End Sub
'The second VBA
Sub ClearCount()
xRgD.Value = ""
xNum = 0
End Sub
"2. In the popping up Format Control dialog box, select the Move and size with cells option under the Properties tab, and then click the OK button. See screenshot:".
But the red box and the red arrow points to "Link Cell". Also, on the list in your screenshot, it doesn't even list the option you say we are supposed to choose, "Move and size with cells".
I have a data in excel example:
CARITAS, CSCED, FREE, NRC
BOSADP, DHCBI
BOSADP, Mercy Corps, NRC
ADRA, NRC
BOSADP, CAID
AAH, FAO (NEYIF), CRS (NEYIF)
SWNI, Mercy Corps,
CARE, PLAN, NRC
Mercy Corps, NRC
BOSADP, DHCBI, GREENCODE, NRC, AAH BOSADP
What I really want
CARITAS
BOSADP
DHCBI
NRC
ADRA
CAID
AAH
FAO
NEYIF
CRS
SWNI
CARE
PLAN
Mercy Corps
GREENCODE
FREE
the repeated words separated by comma deleted and and those that not repeated but separated by comma move to the next columns
Here's my data.
10hr 35m
4m 43s
I want to extract it into three columns: hr, m, s
The final result will be like this
hr m s
10 35
4 43
Can I get a formula for the problem?
Thank you
EG: =SUMIFS(LV215:LV237,WC7,AB215:AB237) where WC7 is equal to a specific cell is this possible?
&CHOOSE(MID(TEXT(B3,"000000000.00"),5,1)+1,,," Twenty"," Thirty"," Forty"," Fifty"," Sixty"," Seventy"," Eighty"," Ninety")
&IF(--MID(TEXT(B3,"000000000.00"),5,1)<>1,CHOOSE(MID(TEXT(B3,"000000000.00"),6,1)+1,," One"," Two"," Three"," Four"," Five"," Six"," Seven"," Eight"," Nine"),CHOOSE(MID(TEXT(B3,"000000000.00"),6,1)+1," Ten"," Eleven"," Twelve"," Thirteen"," Fourteen"," Fifteen"," Sixteen"," Seventeen"," Eighteen"," Nineteen"))
&IF((--MID(TEXT(B3,"000000000.00"),4,1)+MID(TEXT(B3,"000000000.00"),5,1)+MID(TEXT(B3,"000000000.00"),6,1))=0,,IF(OR((--MID(TEXT(B3,"000000000.00"),7,1)+MID(TEXT(B3,"000000000.00"),8,1)+MID(TEXT(B3,"000000000.00"),9,1))=0,--MID(TEXT(B3,"000000000.00"),7,1)<>0)," Thousand "," Thousand and "))
&CHOOSE(MID(TEXT(B3,"000000000.00"),7,1)+1,,"One","Two","Three","Four","Five","Six","Seven","Eight","Nine")
&IF(--MID(TEXT(B3,"000000000.00"),7,1)=0,,IF(AND(--MID(TEXT(B3,"000000000.00"),8,1)=0,--MID(TEXT(B3,"000000000.00"),9,1)=0)," Hundred "," Hundred and "))&
CHOOSE(MID(TEXT(B3,"000000000.00"),8,1)+1,,,"Twenty ","Thirty ","Forty ","Fifty ","Sixty ","Seventy ","Eighty ","Ninety ")
&IF(--MID(TEXT(B3,"000000000.00"),8,1)<>1,CHOOSE(MID(TEXT(B3,"000000000.00"),9,1)+1,,"One","Two","Three","Four","Five","Six","Seven","Eight","Nine"),CHOOSE(MID(TEXT(B3,"000000000.00"),9,1)+1,"Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen","Eighteen","Nineteen"))
&" Euro & "&RIGHT(TEXT(B3,"000000000.00"),2)&"/100"