Trouble using Dim in macro

%3CLINGO-SUB%20id%3D%22lingo-sub-1602477%22%20slang%3D%22en-US%22%3ETrouble%20using%20Dim%20in%20macro%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-1602477%22%20slang%3D%22en-US%22%3E%3CP%3EThe%20following%20macro%20worked%20fine.%20Some%20how%20I%20messed%20it%20up%20and%20working%20weeks%20to%20figure%20it%20out.%20Look%20for%20BF87.%20I%20am%20forced%20to%20manually%20put%20in%20a%20different%20value%20everytime%20I%20run%20the%20macro%20because%20the%20%22paste%20formula%22%20wont%20land%20on%20the%20%22lr%22%20line.%20Hope%20someone%20can%20help.%20Note%20that%20Dim%20is%20not%20in%20code%20because%20I%20could%20never%20get%20it%20to%20work%20right.%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-applescript%22%3E%3CCODE%3ESub%20GreaterThan17k()%0A%20%20%20%20%20%20%20%20Range(%22S2%22).Value%20%3D%20Range(%22R2%22).Value%0A%20%20%20%20%20%20%20%20Application.EnableEvents%20%3D%20False%0A%20%20%20%20%20%20%20%20Range(%22R2%2CT2%3AT27%2CU2%3AU11%2CV2%3AV5%2CU41%3AU3880%22).ClearContents%0A%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20With%20Application%0A%20%20%20%20%20%20%20%20%20%20%20%20.Calculation%20%3D%20xlCalculationAutomatic%0A%20%20%20%20%20%20%20%20%20%20%20%20.ScreenUpdating%20%3D%20True%0A%20%20%20%20%20%20%20%20%20%20%20%20.DisplayStatusBar%20%3D%20True%0A%20%20%20%20%20%20%20%20%20%20%20%20.EnableEvents%20%3D%20False%0A%20%20%20%20%20%20%20%20End%20With%0A%20%20%20%20%20%20%20%0A%20%20%20%20Range(%22B41%3ABF81%22).Select%0A%20%20%20%20%20%20%20%20ActiveWorkbook.Worksheets(%22Sheet1%22).Sort.SortFields.Clear%0A%20%20%20%20%20%20%20%20ActiveWorkbook.Worksheets(%22Sheet1%22).Sort.SortFields.Add2%20_%0A%20%20%20%20%20%20%20%20Key%3A%3DRange(%22R41%3AR87%22)%2C%20SortOn%3A%3DxlSortOnValues%2C%20Order%3A%3DxlDescending%2C%20DataOption%3A%3DxlSortNormal%0A%20%20%20%20%20%20%20%20With%20ActiveWorkbook.Worksheets(%22Sheet1%22).Sort%0A%20%20%20%20%20%20%20%20.SetRange%20Range(%22B41%3ABF87%22)%0A%20%20%20%20%20%20%20%20.Header%20%3D%20xlGuess%0A%20%20%20%20%20%20%20%20.MatchCase%20%3D%20False%0A%20%20%20%20%20%20%20%20.Orientation%20%3D%20xlTopToBottom%0A%20%20%20%20%20%20%20%20.SortMethod%20%3D%20xlPinYin%0A%20%20%20%20%20%20%20%20.Apply%0A%20%20%20%20%20%20%20%20End%20With%0A%0A%0A%20%20%20%20%20%20%20%20Range(%22R2%22).Value%20%3D%20Range(%22S2%22).Value%0A%20%20%20%20%20%20%20%20Range(%22T2%22).Value%20%3D%20Range(%22R2%22).Value%0A%20%20%20%20%20%20%20%20Range(%22T3%22).Value%20%3D%20Range(%22R10%22).Value%0A%20%20%20%20%20%20%20%20Range(%22AU41%3AAU64%22).Copy%0A%20%20%20%20%20%20%20%20Range(%22T4%22).PasteSpecial%20Paste%3A%3DxlPasteValues%2C%20Operation%3A%3DxlNone%2C%20SkipBlanks%3A%3DFalse%2C%20Transpose%3A%3DFalse%0A%0A%20%20%20%20%20%20%20%20Range(%22U2%22).Value%20%3D%20Range(%22R19%22).Value%0A%20%20%20%20%20%20%20%20Range(%22U3%22).Value%20%3D%20Range(%22Q10%22).Value%0A%20%20%20%20%20%20%20%20Range(%22R2%22).Value%20%3D%20Range(%22U2%22).Value%0A%0A%20%20%20%20%20%20%20%20Range(%22AT41%3AAT48%22).Copy%0A%20%20%20%20%20%20%20%20Range(%22U4%22).PasteSpecial%20Paste%3A%3DxlPasteValues%2C%20Operation%3A%3DxlNone%2C%20SkipBlanks%3A%3DFalse%2C%20Transpose%3A%3DFalse%0A%0A%20%20%20%20%20%20%20%20Range(%22V2%22).Value%20%3D%20Range(%22Q19%22).Value%0A%20%20%20%20%20%20%20%20Range(%22V3%22).Value%20%3D%20Range(%22P10%22).Value%0A%20%20%20%20%20%20%20%20Range(%22R2%22).Value%20%3D%20Range(%22U2%22).Value%0A%0A%20%20%20%20Range(%22AS41%3AAS42%22).Copy%0A%20%20%20%20%20%20%20%20Range(%22V4%22).PasteSpecial%20Paste%3A%3DxlPasteValues%2C%20Operation%3A%3DxlNone%2C%20SkipBlanks%3A%3DFalse%2C%20Transpose%3A%3DFalse%0A%0A%20%20%20%20%20%20%20%20Range(%22R2%22).Select%0A%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20With%20Application%0A%20%20%20%20%20%20%20%20.ScreenUpdating%20%3D%20True%0A%20%20%20%20%20%20%20%20.DisplayStatusBar%20%3D%20True%0A%20%20%20%20%20%20%20%20.EnableEvents%20%3D%20True%0A%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20End%20With%0A%20%20%20%20%0A%20%20%20%20%20%20%20%20Range(%22BH13%22).Select%0A%20%20%20%20%20%20%20%20Selection.Copy%0A%20%20%20%20%20%20%20%20Range(%22BI12%22).Select%0A%20%20%20%20%20%20%20%20ActiveSheet.Paste%0A%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20a%20%3D%20MsgBox(%22APPROVED%20TRADING%20INSTRUMENTS%20MUST%20DEMONSTRATE%22%20%26amp%3B%20_%0A%20%20%20%20%20%20%20%20vbCrLf%20%2B%20%22LOGARITHMIC%20PEACHFUZZ%20VALUE%20IN%20COLUMN%20'BD'.%22%20%26amp%3B%20_%0A%20%20%20%20%20%20%20%20vbCrLf%20%2B%20%22%22%20%26amp%3B%20_%0A%20%20%20%20%20%20%20%20vbCrLf%20%2B%20%222min%20chart%20MFI17%2C%20RSI17%2C%20OBV%2C%20RAINBOW%20LEAPS%20STOP%20HUNT%22%20%26amp%3B%20_%0A%20%20%20%20%20%20%20%20vbCrLf%20%2B%20%22%26amp%3B%204min%20RAINBOW%20PARALLELS%20EMA1%20MVWAP1%20CROSSING.%22%20%26amp%3B%20_%0A%20%20%20%20%20%20%20%20vbCrLf%20%2B%20%22%22%20%26amp%3B%20_%0A%20%20%20%20%20%20%20%20vbCrLf%20%2B%20%22DO%20YOU%20WANT%20TO%20EDIT%20HonorSystem24%20RESULTS%2C%20TO%20CONFIRM%22%20%26amp%3B%20_%0A%20%20%20%20%20%20%20%20vbCrLf%20%2B%20%22PEACHFUZZ%20VALUES%20AND%20FREESTOCKCHARTS.COM%20STATUS%3F%22%2C%20vbQuestion%20%2B%20vbYesNo%2C%20%22HonorSystem24%22)%0A%20%20%20%20%20%20%20%20If%20a%20%3D%20vbYes%20Then%0A%20%20%20%20%20%20%20Call%20BFClear%0A%0AElseIf%20a%20%3D%20vbNo%20Then%0A%0A%20%20%20%20MsgBox%20%22YOU%20MIGHT%20HAVE%20UNALLOCATED%20FUNDS%20REMAINING.%20SEE%20'SUGGESTED'%20TO%20ADD%20ADDITIONAL%20SHARES%22%0A%20%20%20%20End%20If%0A%20%20%20%20%0AApplication.Calculation%20%3D%20xlManual%0A%0A%0A%0A%0ARange(%22V29%3AX29%22).Select%0A%20%20%20%20Selection.Copy%0A%20%20%20%20Range(%22V30%3AX30%22).Select%0A%20%20%20%20Selection.PasteSpecial%20Paste%3A%3DxlPasteValues%2C%20Operation%3A%3DxlNone%2C%20SkipBlanks%20_%0A%20%20%20%20%20%20%20%20%3A%3DFalse%2C%20Transpose%3A%3DFalse%0A%20%20%20%20Range(%22AA29%3AAC29%22).Select%0A%20%20%20%20Application.CutCopyMode%20%3D%20False%0A%20%20%20%20Selection.Copy%0A%20%20%20%20Range(%22AA30%3AAC30%22).Select%0A%20%20%20%20Selection.PasteSpecial%20Paste%3A%3DxlPasteValues%2C%20Operation%3A%3DxlNone%2C%20SkipBlanks%20_%0A%20%20%20%20%20%20%20%20%3A%3DFalse%2C%20Transpose%3A%3DFalse%0A%20%20%20%20Range(%22AG29%3AAJ29%22).Select%0A%20%20%20%20Application.CutCopyMode%20%3D%20False%0A%20%20%20%20Selection.Copy%0A%20%20%20%20Range(%22AG30%3AAJ30%22).Select%0A%20%20%20%20Selection.PasteSpecial%20Paste%3A%3DxlPasteValues%2C%20Operation%3A%3DxlNone%2C%20SkipBlanks%20_%0A%20%20%20%20%20%20%20%20%3A%3DFalse%2C%20Transpose%3A%3DFalse%0A%20%20%20%20Range(%22AN29%3AAQ29%22).Select%0A%20%20%20%20Application.CutCopyMode%20%3D%20False%0A%20%20%20%20Selection.Copy%0A%20%20%20%20Range(%22AN30%3AAQ30%22).Select%0A%20%20%20%20Selection.PasteSpecial%20Paste%3A%3DxlPasteValues%2C%20Operation%3A%3DxlNone%2C%20SkipBlanks%20_%0A%20%20%20%20%20%20%20%20%3A%3DFalse%2C%20Transpose%3A%3DFalse%0A%20%20%20%20Range(%22AT29%3AAV29%22).Select%0A%20%20%20%20Application.CutCopyMode%20%3D%20False%0A%20%20%20%20Selection.Copy%0A%20%20%20%20Range(%22AT30%3AAV30%22).Select%0A%20%20%20%20Selection.PasteSpecial%20Paste%3A%3DxlPasteValues%2C%20Operation%3A%3DxlNone%2C%20SkipBlanks%20_%0A%20%20%20%20%20%20%20%20%3A%3DFalse%2C%20Transpose%3A%3DFalse%0A%20%20%20%20Range(%22AY29%3ABA29%22).Select%0A%20%20%20%20Application.CutCopyMode%20%3D%20False%0A%20%20%20%20Selection.Copy%0A%20%20%20%20Range(%22AY30%3ABA30%22).Select%0A%20%20%20%20Selection.PasteSpecial%20Paste%3A%3DxlPasteValues%2C%20Operation%3A%3DxlNone%2C%20SkipBlanks%20_%0A%20%20%20%20%20%20%20%20%3A%3DFalse%2C%20Transpose%3A%3DFalse%0A%20%20%20%20Range(%22BD29%3ABF29%22).Select%0A%20%20%20%20Application.CutCopyMode%20%3D%20False%0A%20%20%20%20Selection.Copy%0A%20%20%20%20Range(%22BD30%3ABF30%22).Select%0A%20%20%20%20Selection.PasteSpecial%20Paste%3A%3DxlPasteValues%2C%20Operation%3A%3DxlNone%2C%20SkipBlanks%20_%0A%20%20%20%20%20%20%20%20%3A%3DFalse%2C%20Transpose%3A%3DFalse%0A%0A%20%20%20%20%20%20%20%20Range(%22BI41%3ABI79%22).Select%0A%20%20%20%20Selection.Copy%0A%20%20%20%20Range(%22BK2%22).Select%0A%20%20%20%20Selection.PasteSpecial%20Paste%3A%3DxlPasteValues%2C%20Operation%3A%3DxlNone%2C%20SkipBlanks%20_%0A%20%20%20%20%20%20%20%20%3A%3DFalse%2C%20Transpose%3A%3DFalse%0A%20%20%20%20ActiveWindow.SmallScroll%20Down%3A%3D1%0A%20%20%20%20Range(%22BI80%3ABI118%22).Select%0A%20%20%20%20Application.CutCopyMode%20%3D%20False%0A%20%20%20%20Selection.Copy%0A%20%20%20%20Range(%22BL2%22).Select%0A%20%20%20%20Selection.PasteSpecial%20Paste%3A%3DxlPasteValues%2C%20Operation%3A%3DxlNone%2C%20SkipBlanks%20_%0A%20%20%20%20%20%20%20%20%3A%3DFalse%2C%20Transpose%3A%3DFalse%0A%20%20%20%20ActiveWindow.ScrollRow%20%3D%2041%0A%20%20%20%20Range(%22S31%3AU32%22).Select%0A%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Range(%22BH13%22).Select%0A%20%20%20%20%20%20%20%20Selection.Copy%0A%20%20%20%20%20%20%20%20Range(%22BI4%22).Select%0A%20%20%20%20%20%20%20%20ActiveSheet.Paste%0A%0A%20%20%20%20%20%20%20%20End%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3CP%3E%2C%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-1602477%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EMacros%20and%20VBA%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E
Frequent Contributor

The following macro worked fine. Some how I messed it up and working weeks to figure it out. Look for BF87. I am forced to manually put in a different value everytime I run the macro because the "paste formula" wont land on the "lr" line. Hope someone can help. Note that Dim is not in code because I could never get it to work right.

Sub GreaterThan17k()
        Range("S2").Value = Range("R2").Value
        Application.EnableEvents = False
        Range("R2,T2:T27,U2:U11,V2:V5,U41:U3880").ClearContents
        
        With Application
            .Calculation = xlCalculationAutomatic
            .ScreenUpdating = True
            .DisplayStatusBar = True
            .EnableEvents = False
        End With
       
    Range("B41:BF81").Select
        ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 _
        Key:=Range("R41:R87"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("B41:BF87")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        End With


        Range("R2").Value = Range("S2").Value
        Range("T2").Value = Range("R2").Value
        Range("T3").Value = Range("R10").Value
        Range("AU41:AU64").Copy
        Range("T4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

        Range("U2").Value = Range("R19").Value
        Range("U3").Value = Range("Q10").Value
        Range("R2").Value = Range("U2").Value

        Range("AT41:AT48").Copy
        Range("U4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

        Range("V2").Value = Range("Q19").Value
        Range("V3").Value = Range("P10").Value
        Range("R2").Value = Range("U2").Value

    Range("AS41:AS42").Copy
        Range("V4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

        Range("R2").Select
        
        With Application
        .ScreenUpdating = True
        .DisplayStatusBar = True
        .EnableEvents = True
       
        End With
    
        Range("BH13").Select
        Selection.Copy
        Range("BI12").Select
        ActiveSheet.Paste
        
        
        a = MsgBox("APPROVED TRADING INSTRUMENTS MUST DEMONSTRATE" & _
        vbCrLf + "LOGARITHMIC PEACHFUZZ VALUE IN COLUMN 'BD'." & _
        vbCrLf + "" & _
        vbCrLf + "2min chart MFI17, RSI17, OBV, RAINBOW LEAPS STOP HUNT" & _
        vbCrLf + "& 4min RAINBOW PARALLELS EMA1 MVWAP1 CROSSING." & _
        vbCrLf + "" & _
        vbCrLf + "DO YOU WANT TO EDIT HonorSystem24 RESULTS, TO CONFIRM" & _
        vbCrLf + "PEACHFUZZ VALUES AND FREESTOCKCHARTS.COM STATUS?", vbQuestion + vbYesNo, "HonorSystem24")
        If a = vbYes Then
       Call BFClear

ElseIf a = vbNo Then

    MsgBox "YOU MIGHT HAVE UNALLOCATED FUNDS REMAINING. SEE 'SUGGESTED' TO ADD ADDITIONAL SHARES"
    End If
    
Application.Calculation = xlManual




Range("V29:X29").Select
    Selection.Copy
    Range("V30:X30").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AA29:AC29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AA30:AC30").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AG29:AJ29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AG30:AJ30").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AN29:AQ29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AN30:AQ30").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AT29:AV29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AT30:AV30").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AY29:BA29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AY30:BA30").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("BD29:BF29").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BD30:BF30").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

        Range("BI41:BI79").Select
    Selection.Copy
    Range("BK2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=1
    Range("BI80:BI118").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("BL2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollRow = 41
    Range("S31:U32").Select
        
        
                Range("BH13").Select
        Selection.Copy
        Range("BI4").Select
        ActiveSheet.Paste

        End Sub

,

0 Replies