Sök

Book1.xlsxHej, Jag är väldigt ny på det här med VBA och har hittat ett exempel på nätet (https://www.youtube.com/watch?v=t3TQ49duBgQ) som mer eller mindre gör det som jag skulle vilja ha göra. Har försökt kopiera macrot och anpassa det efter mina önskemål. Tyvärr måste jag missat något för jag får det inte rikigt att fungera utan får ett felmeddelande (Run_time error '13' Type mismatch). Det jag vill att macrot ska göra är att kopiera från blad "P&L", E6:E37, till blad "Statistics" som värden, vill inte att formler ska följa med. Var det ska klistras in beror på vilken siffra som står i cell L1 i "P&L" och sedan ska den "hitta" motsvarande siffra i Q3-3AB i "Statistics". Det ska klistras in i kolumnerna Q-AB raderna 4-35. Macrot som jag provat in ser ut enligt nedan. Bifogar fil utan macro. Sub CopyTotals() Dim WSD As Worksheet Set WSD = Worksheets("P&L") Dim WSS As Worksheet Set WSS = Worksheets("Statistics") ValueToFind = WSD.Range("L1").Value CopyToColumn = WSS.Columns(17).Find(What:=ValueToFind, _ After:=WSS.Cells(1, 2), _ LookIn:=x1Values, _ LookAt:=xlWhole, _ SearchOrder:=x1ByRows, _ SearchDirection:=x1Next, _ MatchCase:=False, _ SearchFormat:=False).Column MsgBox "Copy to column" & CopyToColumn 'Copy from WSD WSD.Range("E6:E37").Copy 'Paste Special to WSS WSS.Cells(CopyToColumn, 17).PasteSpecial _ x1PasteValues End Sub