VBA Compile Error: Expected End With
2020-01-31T14:44:06+01:00
2020-01-31T15:40:14+01:00
2022-08-11T17:50:28+02:00
A.Ortega
Sziasztok!

A lenti makróm mindig megakad a "VBA Compile Error: Expected End With" hibaüzenettel. Mit csinálok rosszul? (Kerestem már több helyen a választ, de nem kaptam egyértelmű választ.)

Előre is nagyon köszönöm!

Sub Indítás() ' ' Indítás Makró ' ' Sheets("Munka3").Select Columns("J:J").Select Application.CutCopyMode = False Selection.TextToColumns Destination:=Range("J1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(1, 1), TrailingMinusNumbers:=True Sheets("Munka2").Select Range("V1").Select ActiveCell.FormulaR1C1 = "Eredmény" Selection.Font.Bold = True With Selection.Font .Color = -16776961 .TintAndShade = 0 Range("V2").Select ActiveCell.FormulaR1C1 = _ "=IFERROR(+IF(+MATCH(RC[-21],'Munka3'!R3C10:R180000C10,0)*RC[-8]>0,""Vizsgálandó"","" ""),"" "")" Range("V2").Select Selection.AutoFill Destination:=Range("V2:V450") Range("V2:V450").Select Range("V1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$V$450").AutoFilter Field:=22, Criteria1:="<>" Range("U:U,T:T,S:S,C:C,B:B,H:H,I:I,K:K,R:R,Q:Q").Select Range("Q1").Activate Selection.EntireColumn.Hidden = True Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("Munka1").Select Range("B5").Select ActiveSheet.Paste Range("D2").Select End Sub
Mutasd a teljes hozzászólást!
Nem oda kell!!!

A with utasítás után van két sor ami ponttal kezdődik. Azok után kell berakni.
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd