Excel - makro za povečanje referenčne celice

Težava

Hočem, da makro, ki je na odprtem, poveča referenco celic v celici s 11 vsakič, ko se odpre knjiga, tj. Celica C18 ima = Sheet2! H2. Nato naslednjič, ko se odpre, želim, da se spremeni v = Sheet2! H13 in nato na naslednjo odprto = Sheet2! H24 itd.

Rešitev

Ob predpostavki, da je celica, v kateri je formula C18 (spremeni kodo tako, da odraža desno celico)

 Sub Auto_Open () Dim currentRow As String Dim sTemp Kot niz sTemp = Razpon ("C18") Formula Do While (IsNumeric (desno (sTemp, 1))) currentRow = Desno (sTemp, 1) & currentRow sTemp = Mid (sTemp), 1, Len (sTemp) - 1) Loop currentRow = CLng (currentRow) + 11 Razpon ("C18"). Formula = sTemp & currentRow End Sub 

Opomba

Hvala za rizvisa1 za ta nasvet na forumu.