[Løst] Excel 2010 VBA hente verdi fra celle til skript.

[MorFeus]

Jeg har et skript som automatisk teller opp antall utskrifter jeg setter den til å gjøre. Slik at det kommer 1 av 60 i en celle for eksempel. Men jeg ønsker å modifisere dette litt, slik at skriptet henter antall utskrifter den skal gjøre fra cellen det står 60 i.

Verdien den skal hente fra blir liggende på Side1 i celle H1.

 

1 av 60 ligger jo i hver sine celler.

 

Her er skriptet som det er i dag:

Sub PrintCounter()
Dim i As Integer
For i = 1 To 60
Sheets("Side1").Cells(1, 4).Value = i
Sheets(Array("Side1", "SIde2", "Side3")).PrintOut Collate:=True
Next i
End Sub

Må jo nevnes at det er ikke jeg selv som har laget dette skriptet, og har ikke de helt stor kunnskapene om dette selv, så ikke sikker på hva jeg skal søke etter en gang for å få dette til.

 

[Harald Staff]

Hei

 

For i = 1 To Sheets("Side1").Cells(1, 8).Value

 

Beste hilsen Harald

[MorFeus]

Hei

 

For i = 1 To Sheets("Side1").Cells(1, 8).Value

 

Beste hilsen Harald

Fungerer helt utmerket. Takker så mye.