vba

[Solved] How to write program for excel VBA loop files in a folder and find specific text in cells and save the file in another folder if it match to condition

by

[ad_1] How to write program for excel VBA loop files in a folder and find specific text in cells and save the file in another folder if it match to condition [ad_2] solved How to write program for excel VBA loop files in a folder and find specific text in cells and save the file … Read more

[Solved] How do I use a combobox and textbox on a userform in VBA to search and find data on the active Excel spreadsheet?

by

[ad_1] So her is a new Solution. You have to declare 3 Public Variables in the UserForm1 Modul. So you can give them Values while the USerForm is open and Find the Naxt Values when you click multiple Times on the Search Button. ‘Public Variables Public bolFirstSearch As Boolean Public rng As Excel.Range Public cellFound … Read more

[Solved] listview properties are not available

by

[ad_1] SOLVED: By declaring the type of input parameter as Object instead of Listivew (Listview4), everything works fine. It is still strange that Listview can have different properties within the same form. [ad_2] solved listview properties are not available

[Solved] Which ascii code is this symbol? [closed]

by

[ad_1] In VBA, there is the AscW function that returns the Unicode code point for the first letter of a string as a decimal number. Use the following code snippet as an example: Sub mycode() MsgBox “female symbol code = ” & CStr(AscW(Cells(1, 1).Text)) & “, male symbol code = ” & CStr(AscW(Cells(2, 1).Text)) End … Read more

[Solved] Need help in VBA

by

[ad_1] Count of Shift Combinations within a List of 100 continuous Shifts This answer is a solution to the revised requirements of the asker. I’m posting this answer as the asker changed the original requirements, and therefore requiring a different solution than the first posted. I decide to leave both solutions for the benefit of … Read more

[Solved] Hello I want to insert zero before the decimal value but its getting skipped and getting into the loop following procedure was created find the error [closed]

by

[ad_1] It seems to me all you need is a wildcard Find/Replace where: Find = ([!0-9])(.[0-9]) Replace = \10\2 You don’t even need a macro… 0 [ad_2] solved Hello I want to insert zero before the decimal value but its getting skipped and getting into the loop following procedure was created find the error [closed]

[Solved] In main sheet there is 800 names(A1:A800). Each cell should go to different sheet with an order. First cell to first sheet etc [closed]

by

[ad_1] If I am seeing what you are trying to do, it shouldn’t be too hard. You could hardcode a for loop to 800. for i = 2 to 800 Range(“A”&i).Copy Destination:=Sheets(i).Range(“A” & i) next This is similar albeit a bit more involved [ad_2] solved In main sheet there is 800 names(A1:A800). Each cell should … Read more

[Solved] Find maximum value in a range of strings

by

[ad_1] Use the next function, please: Function newID(sh As Worksheet) As String Dim lastR As Long, strID As String, arr As Variant, i As Long lastR = sh.Range(“A” & Rows.count).End(xlUp).Row arr = sh.Range(“A2:A” & lastR).Value strID = left(sh.Range(“A2”).Value, 4) For i = 1 To UBound(arr) arr(i, 1) = CLng(Right(arr(i, 1), 3)) Next i newID = … Read more

[Solved] Formula for unmatched row cell and display value in one column

by

[ad_1] Native worksheet formulas simply do not handle string concatenation well. Even the new string functions that are being introduced such as TEXTJOIN function¹ and the updated CONCAT function² have difficulty with conditional concatenation beyond TEXTJOIN’s blank/no-blank parameter. Here are a pair of User Defined Functions (aka UDF) that will perform the tasks. Function udfUniqueList(rng … Read more