logo
down
shadow

Excel Vba Loop , not running properly


Excel Vba Loop , not running properly

Content Index :

Excel Vba Loop , not running properly
Tag : excel , By : socurious
Date : November 24 2020, 05:47 AM

To fix this issue Well, I'll be guessing here.
Firstly, always try to give meaningful names to your variables. This is to help clarify your intentions.
Option Explicit

Private Sub validar()

    Dim folha           As Long                 ' sheet number
    Dim src             As Workbook             ' a workbook from which alerts are being read
    Dim lastRow         As Long                 ' last row with content in a worksheet
    Dim alertNum        As Long                 ' Alert number being updated
    Dim k               As Long                 ' counter
    Dim ref             As String               ' reference of the alert 
    Dim nac             As Long                 ' nac ?
    Dim npc             As Long                 ' npc ?

Application.ScreenUpdating = False
On Error GoTo ErrHandler

    folha = CLng(estadoform.Label1.Caption)
    With ThisWorkbook.Worksheets(folha)
        lastRow = .Range("A65536").End(xlUp).Row
        alertNum = .Cells(lastRow, 6)
    End With

    ' ABRIR EXCEL
    Set src = Workbooks.Open("U:\Mecânica\Produção\OEE\OEE ( FULL LOG )\OEEalerta.xlsx", True, False)
    With src.Sheets("alerta")
        lastRow = .Range(" A10000").End(xlUp).Row
        For k = 1 To lastRow
            ref = .Cells(k, 2)
            npc = .Cells(k, 4)
            nac = .Cells(k, 5)

            If ref = alertNum And (nac < npc) Then .Cells(k, 5) = nac + 1    ' update where the filter conditions are met
        Next k
    End With

ErrHandler:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.DisplayAlerts = False 'IT WORKS TO DISABLE ALERT PROMPT
    'SAVES FILE USING THE VARIABLE BOOKNAME AS FILENAME
    src.Save
    Application.DisplayAlerts = True 'RESETS DISPLAY ALERTS
    ' CLOSE THE SOURCE FILE.
    src.Close False             ' FALSE - DON'T SAVE THE SOURCE FILE (since it has already been saved)
    Set src = Nothing

End Sub

Comments
No Comments Right Now !

Boards Message :
You Must Login Or Sign Up to Add Your Comments .

Share : facebook icon twitter icon

For Loop is not running properly


Tag : java , By : m0gb0y74
Date : March 29 2020, 07:55 AM
should help you out You increment x1 after the check. Making it 1 too large for array at last iteration. Move x1++ into average calculation.
 while(x1<sizeofArrayWanted)
            {
          //  x1++;

     finalAverage = total1 / ++x1;

Selenium macro not running properly anymore (in Excel VBA)


Tag : excel , By : user92243
Date : March 29 2020, 07:55 AM
may help you . OK! I figured it out, thanks to this link: https://github.com/florentbr/SeleniumBasic/issues/128 Managed to download the latest version of the Chrome Driver http://chromedriver.storage.googleapis.com/index.html?path=2.24/
Looks like there's no equivalent fix for Firefox, have to roll back to version 46. Hopefully an update will be released, but in the meantime, I'm so very happy to have at least one browser working again.

Excel VBA loop with loop running a certain number of times based on cell input


Tag : excel , By : walshtp
Date : March 29 2020, 07:55 AM
help you fix your problem I am trying to run this macro a set number of times based on a cell value and then copy and paste the results though I need to actively change the paste location offsetting down by 1 row per number of iterations so the first time it pastes results at this cell and the second time one row lower etc...here is the code - any help would be great. thanks , How how about a FOR Loop with an IF Statement:
Sub CopyCode()

    y = sht.Cells(sht.Rows.Count, "AS").End(xlUp).Row +1

    For x = 2 To 100 'change to however often you would like to run the code

         'Trigger for MC simulation would go here
         Range("AS" & y & ":AW" & y).Value = Range("AQ2:AU2").Value
         y = y + 1

    Next x
End Sub

Running a for loop in Python: first time it runs through properly, but rest of the runs do not run properly


Tag : python , By : TheMoo
Date : November 26 2020, 06:23 AM
hop of those help? The problem is that in your first loop you modify your df file. After your first loop your column df['y'] only contains 0 or 1. That's why you only have 0 after the first loop.
You could solve your problem by doing your operations on a temporary df. Here is what it could look like :
d =  df_gsuvr # same name as previous
df = pd.DataFrame(data=d)
df_temp = df.copy()

list = [1.18, 1.12, 1.083, 1, 0.83]
for number in list:
#evaluate the number under the 'y' column according to 'number'
    df_temp['y'] = df.apply(lambda x: "1" if float(x['y']) > number else "0", axis=1)
    df_temp.to_csv(f"{number}.csv", index = True, header = True)

VB.NET For loop not running properly


Tag : vb.net , By : Adam
Date : March 29 2020, 07:55 AM
Related Posts Related QUESTIONS :
  • How to Write Select Query and Fetch Details to Excel |VBA|
  • bold cell based on specific value in column J
  • VBA - How to merge 2 columns while copying some data from the original row
  • Pull All Rows that Contain Same Invoice Number if Cell contains value
  • How can align text to the right using VBA, if a cell contains a specific value?
  • ActiveCell recognition below 2nd row
  • How to convert FILETIME to Date in VBA?
  • VLOOKUP can't return value more than once on a row
  • How to Open & Close multiple excel workbooks based on a range of cells
  • Excel Insists that my OpenXml file has errors
  • How to deselect only one particular item in a slicer
  • How to conditionally format cells which contain the same string of text?
  • How to get the cell position/row of a search result
  • Cannot use an If-statement with multiple conditions (AND/OR) when looping through variant array?
  • Data Validation based off multiple criteria
  • How can I list horizontal data vertically without using transpose?
  • Split full name into lastname,firstname if lastname has multiple parts (i.e. van, de)
  • can't get past block if
  • Data Validation in Userform to not allow / \ : * ? " < > | for textbox
  • How to highlight duplicates in column that are not blanks?
  • How to use vlookup in vba-excel?
  • VBA using Excel version of Find on a Word Object?
  • How to delete Excel rows containing cells with less than specific amount of characters in them?
  • How to load a PQ function from a text file
  • Fill many cells in a row with one value
  • What would be the correct way to convert a column's text into multiple columns?
  • Use a Dynamic Range in an Excel Formula
  • Finding Max/Min Without Using Array
  • autofilter erroring out
  • Fixing "Unknown runtime error" code 800A03EC in VBScript to run macro without opening Excel
  • How to access the value of a string when defining within a loop
  • How to keep formulas working when copy and pasting in Excel?
  • How to calculate the difference between max/min dates on non static pivot tables?
  • How to store row and column of excel into array (more than 1 column and 1 row)
  • Can having multiple instances of Excel open cause VBA issues?
  • Why vba is replacing SN-Sh as zeros in the Word Snapshot as 00ap00ot?
  • Excel formula to return value of cell in column A based off the relative cell value in column B
  • how to remove negative sign from a characters or text?
  • How to get the border sizes of a userform?
  • Allow two cells to depend on each other
  • Excel count rows while treating merged rows as one
  • Search for a text segment using MAX IF in Excel
  • Unable to set object VBA
  • How can I transfer to a sheet if range says "Fail" in any cell?
  • Shorten a cell, nested Ifs Excel
  • Finding the volume of a tank in VBA given the radius, height, and depth
  • Compile Error on simple VBA form and command button click code
  • Looping through Workbooks and Copy a Dynamic range to Master Workbook
  • Using .NET HashTable Return Type in VBA
  • How do I not get Run-time error '13': Type mismatch while iterating rows?
  • How to change image of a Powerpoint shape?
  • Adding character before text in Excel without using formula
  • How can I create a list of numbers that is like the following?
  • How to fix " Run-time error '380' in Excel VBA?
  • How can you repeat a number x times in a column in a continuation, in excel
  • How to delete the content of a txt file with vba?
  • How to work with more Target.Address (range)
  • Change arrow color based on its label or value
  • how to get inner text of html under id?
  • Getting "Argument not optional" error on segment of code
  • shadow
    Privacy Policy - Terms - Contact Us © scrbit.com