formula needed

[kylefoley76]

I need a macro where if a 1 appears in column B, the copy what is in column A into the next blank column in column C.

Note: a 1 in column B will appear sporadically but in column C I need each row to be filled one after the other. So in column B many rows will be empty but no rows in column C will be empty.
Thanks in advance.

 

[cstimart]

i don't have windows. so that line window(thatfile) will have to be deleted

plus on thisfile, it needs to be sheet 2. i don't anywhere in that macro that specifies sheet 2

Try this. I believe the "windows" line isn't specific to the OS.

Sub FindTheOne()
Dim LR As Long
Dim i As Long
Dim thisFile As String
Dim thatFile As String
Dim Temp

thisFile = ActiveWorkbook.Name
thatFile = "Time.xlms"

Windows(thatFile).Activate
    Sheets(1).Select
    LR = Range("K" & Rows.Count).End(xlUp).Row
    
    For i = 1 To LR
        If Range("I" & i) = 1 Then
            Temp = Range("A" & i)
            Windows(thisFile).Activate
                Sheets(2).Select
                Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) = Temp
            Windows(thatFile).Activate
        End If
    Next i

End Sub

 

[kylefoley76]

the windows word is specific to windows. it's coming up as a bug on my computer

 

[cstimart]

the windows word is specific to windows. it's coming up as a bug on my computer

is the file extension correct? could it be .xlsx? or something else.

 

[kylefoley76]

the correct extension is xlsm but i'm still getting a bug at windows(thatfile)

 

[kylefoley76]

ok, i got to go to bed. so i'll work on this problem again around 2am EST

 

[cstimart]

the correct extension is xlsm but i'm still getting a bug at windows(thatfile)

I have to ask...is "Time.xlsm" open when you run the macro?

OR...fix my typo

"Time.xlms"</pre>

 

[kylefoley76]

yes i fixed the typo. isn't there some way around this problem. can't we do it the old fashioned way of just naming the document like they do in formulas? i've never seen this method of naming docs the way you do. how do other people do it?

 

[cstimart]

Record a new macro that toggles between 2 open files and see what it uses instead of Windows(xxxx).Activate.

 

[kylefoley76]

here's what it uses

ActiveCell.FormulaR1C1 = "2"
Range("E162").Select
Windows("time.xlsm").Activate
ActiveCell.FormulaR1C1 = "1/4/1904 12:00:00 AM"
Range("F7252").Select
Selection.Copy
Windows("charts.xlsm").Activate
ActiveSheet.Paste
Range("E163").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=[time.xlsm]time!R7255C11"
Range("E164").Select

i can't figure out why there's a buy in that macro you wrote

 

[cstimart]

i can't figure out why there's a buy in that macro you wrote

I can only guess that there's a typo or Time.xlsm isn't open when the macro runs.