With your latest explanation and comparing your example results with mine, I believe I now understand your requirement. You have the parameters placed on a worksheet and output the results to the same worksheet. I do not want to tie…
@David Zemens idea.. this should work .Tested Sub test() Dim str As String Dim s() As String str = “15f,158,1669,187,15,156,47t” s = Split(str, “,”) For i = LBound(s) To UBound(s) If Len(s(i)) = 3 Then t = IIf(t = “”,…
Remove Column Titles From Column Data It is assumed that the data (table) starts in cell A1 in worksheet Sheet1 of the workbook containing this code (ThisWorkbook). This is mostly useful for a one-time operation because it will only copy…
try this: Sub AddName() Dim lr As Long, i As Long, count As Long Dim Team As String, Sport As String, NewPlayer As String Team = “Pink Team” Sport = InputBox(“What Sport do you wish to add a name to?”,…
Create a source array for your fruits. Dim fruits fruits = Array(“Apple”, “Orange”, … , “Mango”) Then use a Loop to assign values to Range. You’ll need additional variables for it. Dim n As Long, fruit With Selection: n =…
Do you have a list of the names of the files you want to open? If you have it you can loop trough it setting a workbook as the name of each file. Es. Dim x as integer Dim selection,…
Sub dataImport() Dim wbImport As Workbook Dim wksImport As Worksheet Dim rngFind As Range ‘/ Open the CSV Set wbImport = Workbooks.Open(“”) Set wksImport = wbImport.Worksheets(1) ‘/ Remove date stamp wksImport.Rows(1).EntireRow.Delete ‘/ Search for OPT_CLASS header Set rngFind = wksImport.UsedRange.Cells.Find(“OPT_CLASS”)…
You can try using below code, it will loop through all lines and compare column A with column G:G if its equal then compare C & H and if is not equal then change the colour index. Code: Dim Wb…
Here’s a sample of how to do that: Sub createLink() Dim lastRow As Integer, sheetCount As Integer, myRange As Excel.Range, c As Excel.Range lastRow = Cells.Find(“*”, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row sheetCount = Application.Sheets.Count Set myRange = Excel.ThisWorkbook.Sheets(“Sheet1”).Range(“B1:B” & lastRow) For Each c…
Doable with formulas and and helper column: In column E (Helper): =IF(A2=A1,””,A2) In Column C (Output): =IF(E2=””,C1,CHAR(COUNTIF($E$2:E2,E2)+64)) 0 solved Repeating series of numbers-unique id needed
Let’s say your Kb values start in row 1 of column A, write this formula in column B : =IF(A1>20, A1/1000, A1) Basically, what this does, is tell the computer that if A1 is greater than 20, put A1/1000 in…
As per comments I’ve amended the code to copy only the specified range, both Sheets should exist, the code will not create the second Sheet for you: Sub Test() Dim Cell As Range With Sheets(“Sheet1”) ‘Sheet with data to check…
This works for me: Public Function GETMATCHES(ByVal match As String, ByVal cells As Range, ByVal columnOffset As Integer) As String Dim result As String Dim cell As Range For Each cell In cells If cell.Value2 = match Then result =…
You will need to fill in the address into the string. .Formula = “=COUNTIF(” & ReqItems.Address & “,””>0″”)” Please also note that Dim ReqItems, SupItems As Range only declares SupItems As Range but ReqItems will be of type Variant here.…
Handling the infamous VBA Errors (2042) successfully!? Before using this code be sure you have studied at least the customize section carefully or you might lose data. Most importantly the second column must always be adjacent to the right of…