vba

I’ve got an answer that will find the first instance of USD and check if TOTAL PURCHASE is 9 rows below it, if found then copy the adjacent cell to D1, if not found then search for the next USD and repeat the checks: Option Explicit Sub vbavjezba() Dim total As Variant Dim usd As … Read more

You can try this, just set ws to whatever worksheet you have your dates in Sub datechecker() Dim inputBoxText As String Dim inputBoxDate As Date Dim lastRow As Integer Dim row As Integer Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets(1) With ws lastRow = .Cells(.Rows.Count, “K”).End(xlUp).row inputBoxText = InputBox(“Please enter a Date:”, “Date Input … Read more

The issue is that once a row has been deleted, the macro will continue onto the next row (skipping a row). Working backwards through the loop will prevent any rows being missed so something like: Sub DeleteRowsPiuDi40Mega() Dim LastRow As Long Dim ws4 As Worksheet Set ws4 = ActiveWorkbook.Sheets(“atm_hh”) LastRow = ActiveSheet.Range(“C” & ActiveSheet.Rows.Count).End(xlUp).Row For … Read more

Try this code. I’ve commented it in details. But if you have some quesions, ask in comments:). Code saves new wokrbooks in the folder where your current workbook is saved. Sub test() Dim names As New Collection Dim ws As Worksheet, ws1 As Worksheet Dim wb As Workbook Dim lastrow As Long Dim cell As … Read more

To use Excel formula in VBA you have two choices: you can either Evaluate the function string as in @YowE3K’s example given here, or alternatively you can use the WorksheetFunction method to perform most Excel functions. The Evaluate method is best if you want to do a fixed formula like your example suggests and return … Read more

This returns the column name: =INDIRECT(ADDRESS(1,CEILING((MATCH(MIN($BHS2:$BWT2),$BHS2:$BWT2) – MATCH(MIN($BHS2:$BWT2),$BHS2:$BWT2,0))/2 + MATCH(MIN($BHS2:$BWT2),$BHS2:$BWT2,0),1))) (if you know that the smallest group is always the first group, then this could be simplified a little) This returns the value =min($BHS2:$BWT2) Do you actually want to return both “4” and “PRT Product 322” in BWU2? i think it would be better to … Read more

yes, it’s safe. all it does is to brute-force the password used for protecting the sheet/workbook. It both unlocks the sheet and then prints the password out for you (which will be something odd like AAABBAAAABBAA – but it will work). The code itself does not do any harm to the pc or the user … Read more