In the browser. It looks like MS does not have compatibility mode in Edge but IE 11 does.
I normally use Chrome but am doing this with Edge, using Windows 10, and copying directly from the vba window to my reply here... Windows 10. And or using Edge
Any code I write using Excel and then when I copy code and try to paste into this forum will not paste in.
Sub Make_Tables()
Dim itm As Variant
For Each itm In Split("a b c")
Range("ZZ2").Formula = "=search(""" & itm & """,A2)"
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("ZZ1:ZZ2"), CopyToRange:=Cells(1, Columns.Count).End(xlToLeft).Offset(, 2), Unique:=False
Next itm
Range("ZZ2").ClearContents
End Sub
I normally use Chrome but am doing this with Edge, using Windows 10, and copying directly from the vba window to my reply here.
Code:Sub Make_Tables() Dim itm As Variant For Each itm In Split("a b c") Range("ZZ2").Formula = "=search(""" & itm & """,A2)" Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("ZZ1:ZZ2"), CopyToRange:=Cells(1, Columns.Count).End(xlToLeft).Offset(, 2), Unique:=False Next itm Range("ZZ2").ClearContents End Sub
Edit: Seems to have gone fine, so must be not inherently something to do with Edge or Win 10, but some particular setting(s) you have. I am using Edge 'out of the box' with no personalised settings.
I have no idea, I've never bothered to change it. What font are you using? I'll try it.Could it have to do with the font I'm using in The Vba editor Window
I have no idea, I've never bothered to change it. What font are you using? I'll try it.
@My Aswer Is This See post #4Explain this more please:
You said:
Settings
Compatibility view
then add Mrexcel web site
Is this setting on this forum Mr. Excel:
Settings in MSEdge
Or some other place.
Let's seeTimes New Roman (Western)
Sub Make_Tables()
Dim itm As Variant
For Each itm In Split("a b c")
Range("ZZ2").Formula = "=search(""" & itm & """,A2)"
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("ZZ1:ZZ2"), CopyToRange:=Cells(1, Columns.Count).End(xlToLeft).Offset(, 2), Unique:=False
Next itm
Range("ZZ2").ClearContents
End Sub
I have had similar issues. Sometimes I have to use Go Advanced.
I think it may have to do with upgrading to Windows 10. And or using Edge
Any code I write using Excel and then when I copy code and try to paste into this forum will not paste in.
I have to copy the code in Excel.
Then paste into Notepad
Then copy from Notepad and then paste into this forum