I don’t think you need scripts. You could use conditional formatting. It seems the only reason you’re using VBA is because you need REGEX, which Microsoft excel doesn’t support except through VBA. Google Sheets however has REGEX support inbuilt. … highlights all Cells in Range C1 to E10000 which contain anything else than lowercase a–z, … Read more
OP here. Sorry for the terrible formatting of the question, it was the first time. To help others in the future….. This is what I did at first. It was my band aid fix. ie.document.getelementByID(“filtervalue”).select “SendKeys{ENTER}” This highlighted my input value and just pressed enter. If you are new to VBA and need something to … Read more
I can’t help myself… Base Data Used: Pivot Table Layout: Code Used: ‘ *** On Workbook Module *** Option Explicit Private Sub Workbook_Open() Call UpdatePivotTableDateToYesterday End Sub ‘ *** In Module 1 *** Option Explicit Sub UpdatePivotTableDateToYesterday() Sheet5.PivotTables(“PivotTable4”).PivotFields(“Date”).ClearAllFilters Sheet5.PivotTables(“PivotTable4”).PivotFields(“Date”).CurrentPage = Format(Date – 1, “m/d/yyyy”) End Sub 2 solved Filter date to update pivot table daily … Read more
If I was coding this myself (rather than trying to explain a method for someone else to code this) I would do the following: Type ValueAndLevel dataValue As String dataLevel As Long End Type Dim myData() As ValueAndLevel Sub Export1() ReDim myData(1 To 1) ‘Start the process in column 1, with level being 0 Process … Read more
Option Explicit Option Base 1 Sub shiftCircArray() Dim iInputArray(3) As Integer iInputArray(1) = 1 iInputArray(2) = 2 iInputArray(3) = 3 Dim iArray2() As Integer iArray2 = RotateArrayRight(iInputArray) End Sub Function RotateArrayRight(ArrayToRotate) Dim objNewArray() As Integer, iOldArrayPos As Integer, iNewArrayPos As Integer, iArrayLength As Integer Dim iPlacesToRotate As Integer ‘ Check that the array to be … Read more
Just had another look through you code and noticed that you define wb_zest as ActiveWorkbook and i am guessing this is where the above code resides. You are then trying to close wb_zest, the problem here is the code can’t close the workbook that the current sub is running in. As you stated the code … Read more
I promise this is in no way the best or fastest way to get this done but it works and I’m proud of the fact I was able to build it myself even if I did find parts of the code and had to combine them. The code below is used to make 4 cards … Read more
This should do the trick: Sub foo() Dim objFSO Const ForReading = 1 Const ForWriting = 2 Dim objTS ‘define a TextStream object Dim strContents As String Dim fileSpec As String fileSpec = “C:\Test.txt” ‘change the path to whatever yours ought to be Set objFSO = CreateObject(“Scripting.FileSystemObject”) Set objTS = objFSO.OpenTextFile(fileSpec, ForReading) Do While Not … Read more
While you should be posting code you need help with, I already have this code written. Just select your range and then run this macro. Sub Fill_from_above() For Each c In Selection.Cells If c.Value = “” Then c.Value = c.Offset(-1, 0).Value End If Next c End Sub 1 solved Copy cells and paste them in … Read more
First of all you need to loop through all your worksheets for both, open the 2 workbooks, and loop through both, then you can select them, compare if their name exists in the other worksheet, if not, you add it, otherwise, you copy the content from one to the other one and at the end … Read more
I got this question answered here by user Subodh Tiwari (Neeraj): https://www.experts-exchange.com/questions/29098511/VBA-VLOOKUP-With-Multiple-Parameters.html#acceptAnswerByMember Sample workbook is attached with the post in this link. Here is the complete code: Sub PlaceFormula() Dim ws As Worksheet Dim lr As Long Dim lc As Long With Application .Calculation = xlCalculationManual .ScreenUpdating = False .EnableEvents = False End With Set … Read more
VBA or Visual Basic for Applications is a small scripting language which can be used in Microsoft applications to automate tasks, extend functionality and more. Each host application e.g. Word, Excel provides a set of APIs to VBA which the programmer can make use of to interact with said host application and the open document. … Read more
Proxy authentication required (http error 407) with WinHttpRequest and proxy with integrated Windows authentication and https solved Proxy authentication required (http error 407) with WinHttpRequest and proxy with integrated Windows authentication and https
I solved this by recording a macro that copys and pastes the data values into another section then I sorted it largest to smallest. I then created a column with the equation to subtract one from the other. solved Excel VBA, code to count the # of filled cells, then find highest and 2nd highest … Read more
Try something like if workbooks(“First_workbook address”).sheet1.range(“A1”).value= workbooks(“second_workbook address”).sheet1.range(“C1”).value then workbooks(“First_workbook address”).sheet1.range(“A1”).colour = vbRed Endif solved How to compare two Excel workbook, and if the data matches on both sheet, color code from second should automatically apply to first one [closed]