|
|
Peter |
Medlem sedan: 2016-01-01
127 inlägg
|
|
|
Har 60 enheter som jag vill radera med ett makro kopplat till en knapp, men jag får körfel nr1004´.: Metoden ´Range´i objektet ´_Global´misslyckades. Vad behöver göras, om det nu går ?.
Range("F1:L1,G4:G6,G8:H42,J8:J42,K8,M1:R1,N4:N6,N8:O42,Q8:Q42,R8,S1:X1,T4:T6,T8:U42,W8:W42,X8,Y1:AD1,Z4:Z6,Z8:AA42,AC8:AC42,AD8,AE1:AJ1,AF4:AF6,AF8:AG42,AI8:AI42,AJ8,AK1:AP1,AL4:AL6,AL8:AM42,AO8:AO42,AP8,AQ1:AV1,AR4:AR6,AR8:AS42,AU8:AU42,AV8,AW1:BB1,AX4:AX6,AX8:AY42,BA8:BA42,BB8,BC1:BH1,BD4:BD6,BD8:BE42,BG8:BG42,BH8,BI1:BN1,BJ4:BJ6,BJ8:BK42,BM8:BM42,BN8,BO1:BT1,BP4:BP6,BP8:BQ42,BS8:BS42,BT8,BU1:BZ1,BV4:BV6,BV8:BW42,BY8:BY42,BZ8").Select
Range("BZ8").Activate
Selection.ClearContents
Range("B1:C1").Select
End Sub
/Peter
|
|
|
|
| |
|
Christian |
Medlem sedan: 2015-08-26
1209 inlägg
|
|
|
Hej Peter
Hittade inget annat fel än att kodsnutten var för lång. Testade att dela upp den i bitar, då fungerade det. Ersätt din gamla kod med den nya och testa. Men spara först filen så du har en backup :). Obs!!, koden tar tar bort cellinnehåll från den fliken som du befinner dig på, den är alltså inte kopplad till ett specifikt blad.
Sub DeleteAreas()
Range("F1:L1,G4:G6,G8:H42,J8:J42,K8,M1:R1,N4:N6,N8:O42,Q8:Q42,R8,S1:X1,T4:T6,T8:U42,W8:W42").ClearContents Range("X8,Y1:AD1,Z4:Z6,Z8:AA42,AC8:AC42,AD8,AE1:AJ1,AF4:AF6,AF8:AG42,AI8:AI42,AJ8,AK1:AP1").ClearContents Range("AL4:AL6,AL8:AM42,AO8:AO42,AP8,AQ1:AV1,AR4:AR6,AR8:AS42,AU8:AU42,AV8,AW1:BB1,AX4:AX6").ClearContents Range("AX8:AY42,BA8:BA42,BB8,BC1:BH1,BD4:BD6,BD8:BE42,BG8:BG42,BH8,BI1:BN1,BJ4:BJ6,BJ8:BK42,BM8:BM42,BN8,BO1:BT1,BP4:BP6,BP8:BQ42,BS8:BS42,BT8,BU1:BZ1,BV4:BV6,BV8:BW42,BY8:BY42,BZ8").ClearContents
End sub
Mvh Christian
|
|
|
|
| |