Zanka

Pomoč pri izdelavi makrov
Odgovori
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Zanka

Odgovor Napisal/-a BJ »

Lep pzdrav!
Potrebujem malo pomoči.
Kako naredim zanko, da se makro požene npr 5 krat?
Hvala in LP

Koda: Izberi vse

Private Sub cmdNatisni_Click()
With ActiveSheet
If IsNumeric(.Range("Q1").Value) Then
.Range("Q1").Value = .Range("Q1").Value + 1
End If
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Stenly
Prispevkov: 223
Pridružen: Sr Jul 27, 2005 11:29 pm

Odgovor Napisal/-a Stenly »

Pozdravljen

Koda: Izberi vse

   For i = 1 To 5
   moj macro
   Next
Lp
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

V vašem konkretnem primeru pa lahko namesto v enem koraku števec povečate za 5 in tudi stvar izpišete 5x:

Koda: Izberi vse

  With ActiveSheet 
    If IsNumeric(.Range("Q1").Value) Then 
      .Range("Q1").Value = .Range("Q1").Value + 5
    End If 
  End With 
  ActiveWindow.SelectedSheets.PrintOut Copies:=5, Collate:=True 
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Odgovor Napisal/-a BJ »

Pomagal sem si s števcem. sedaj deluje odlično, koda pa izgleda takole:

Koda: Izberi vse

Private Sub cmdNatisni_Click()
Dim i As Long
Dim stevec As Long
stevec = 1
For i = 1 To 5
Cells(i, 1) = i
With ActiveSheet
If IsNumeric(.Range("Q1").Value) Then
.Range("Q1").Value = .Range("Q1").Value + 1
End If
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
stevec = stevec + 1
Next i
ActiveWorkbook.Save
End Sub
Najlepša hvala BJ
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

:):) In zakaj potrebujete števec? V čem se vaša koda razlikuje od kode brez števca?

Koda: Izberi vse

Private Sub cmdNatisni_Click() 
  Dim i As Long 
  
  For i = 1 To 5 
    Cells(i, 1) = i 
    With ActiveSheet 
      If IsNumeric(.Range("Q1").Value) Then 
        .Range("Q1").Value = .Range("Q1").Value + 1 
      End If 
    End With 
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
  Next i 

  ActiveWorkbook.Save 
End Sub
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Odgovor Napisal/-a BJ »

Ja števec resnično ni potreben.
Najlepša hvala!
BJ
Odgovori