Excel formula
Closed
Swim176
-
Nov 10, 2015 at 05:35 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen January 16, 2023 - Nov 10, 2015 at 11:20 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen January 16, 2023 - Nov 10, 2015 at 11:20 AM
Related:
- Excel formula
- Excel date format dd.mm.yyyy - Guide
- Number to words in excel formula - Guide
- Mark sheet grade formula in excel download - Guide
- Transfer data from one excel worksheet to another automatically - Guide
- Formula bar in excel missing - Guide
1 reply
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
January 16, 2023
547
Nov 10, 2015 at 11:20 AM
Nov 10, 2015 at 11:20 AM
Hi Swim,
Give the following code a try:
Best regards,
Trowa
Give the following code a try:
Sub RunMe()
Dim mValue As Long
Dim sValue As String
sValue = InputBox("Please input your search value:")
Set c = Cells.Find("DS")
If Not c Is Nothing Then
firstAddress = c.Address
Do
mValue = mValue + c.Offset(0, 1)
Set c = Cells.FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
MsgBox "All cells added up to the right of " & "'" & sValue & "'" & " results in: " & mValue
End Sub
Best regards,
Trowa
