Excel - Ett makro för att öka en cellreferens

Problem

Jag vill ha ett makro som öppet ökar cellreferensen i en cell med 11 varje gång boken öppnas, dvs Cell C18 har = Sheet2! H2. Sedan nästa gång det öppnas vill jag byta till = Sheet2! H13 sedan på nästa öppna = Sheet2! H24 etc.

Lösning

Antag att cellen där formeln är C18 (ändra koden för att reflektera den högra cellen)

 Sub Auto_Open () Dim currentRow som sträng Dim sTemp som sträng sTemp = Range ("C18"). Formel gör medan (IsNumeric (Right (sTemp, 1))) currentRow = Höger (sTemp, 1) & currentRow sTemp = Mid (sTemp, 1, Len (sTemp) - 1) Loop currentRow = CLng (currentRow) + 11 Range ("C18"). Formel = sTemp & currentRow End Sub