Databases
StackOverflow2013
Postsdbo
POExcel Macro Repetitive IF and Else
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POExcel Macro Repetitive IF and Else
    primarykey
    data
    text
    <p>I am currently working on an Excel VBA Macro script where in it will do a simple TRUE or False test to the active cell. My problem is, i cannot make this working until the end of the list. It only run once and ends the program. I need this VB script to perform the IF &amp; ELSE test up to the bottom of the list.</p> <p>Description of the problem:</p> <p>Let's say i have a list of dates in A1 to A9999 and beside it (F1:F9999) there's also a list that has a text on it. the F1:F9999 list contains two values only. (a)SAME DATE and (b) NOT THE SAME.</p> <ol> <li><p>Perform a True or False test in the List F1:F9999. </p></li> <li><p>If the active cell value is equal to the text "SAME DATE" (TRUE), it will ignore and move to the next item in the list then perform again number 1.</p></li> <li>If the active cell value is equal to the text "SAME DATE" (FALSE), it will insert a row above it and then move to the next item in the list then perform again number 1</li> <li>The TRUE or FALSE test will run until the end of the list.</li> <li>The TRUE or FALSE test will stop running if it reached the bottom of the list.</li> <li>by the way, the number of items in the list is not consistent. I just put there F1:F9999 for example purposes.</li> </ol> <p>here's my code!</p> <pre><code>Sub IFandElseTest() If ActiveCell.Value = "Same Date" Then Range(Selection, Cells(ActiveCell.Row, 1)).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ActiveCell.Offset(1, 0).Select Else: ActiveCell.Offset(1, 0).Select Range(Selection, Cells(ActiveCell.Row, 1)).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End If End Sub </code></pre> <p><img src="https://i.stack.imgur.com/T19jd.jpg" alt="enter image description here"></p> <p>Appreaciate if you could help me on this. </p>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USCommunity
    1. USKareen Lagasca
    plurals
    1. PL
      singulars
      1. LTLinked
    2. PL
      singulars
      1. LTLinked
    1. PL
      singulars
      1. LTLinked
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    2. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POExcel Macro Repetitive IF and Else
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. POExcel Macro Repetitive IF and Else
      1. This table or related slice is empty.
      1. VTUpMod
    3. VO
      singulars
      1. POExcel Macro Repetitive IF and Else
      1. This table or related slice is empty.
      1. VTUpMod
    1. COInstead of using `.Select`, use a reverse loop. i.e use a for loop and move from down to up (9999 to 1)
      singulars
      1. POExcel Macro Repetitive IF and Else
      1. USSiddharth Rout
    2. COIt would be nice if you could code it @SiddharthRout so that Kareen will be able to test it. I think she lacks of knowledge. :) just saying..
      singulars
      1. POExcel Macro Repetitive IF and Else
      1. USBen Daggers
    3. CO@BenMichaelOracion: Yes, I can code it (in fact the code is ready) but I would like Kareen to give it a try first :)
      singulars
      1. POExcel Macro Repetitive IF and Else
      1. USSiddharth Rout
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload