MS Excel

Díky za reakci ale moc to nechápu .

potřebuji aby se v cyklu kód pozastavil já buď provedu nebo neprovedu změny v buňkách a pokračování spustil stejným tlačítkem jako poprvé. Potom by se zase v dalším cyklu pozastavil já zkontroloval jestli je co měnit a zase vyvolal pokračování kliknutím na pořád stejné tlačítko.citovat

prikladam prilohucitovat

upraveno na znovuprocházení

Sub Button1_Click()
Dim znovu
With ActiveWorkbook.Sheets("Sheet1")
For x = y To .Cells(.Rows.Count, "A").End(xlUp).Row
' Zahada
If Cells(x, 1).Text = "PRAVDA" Then
MsgBox ("Riadok " & x & " ma zahadu prosim opravte .... makro bude pokracovat od tohoto riadku dalej")
y = x
Exit For
End If
If x = .Cells(.Rows.Count, "A").End(xlUp).Row Then
znovu = MsgBox("Konec sloupku - pročítat znovu?", vbYesNo)
If znovu = vbYes Then
x = 1
Else
y = 0
Exit For
End If
End If
Next
y = y + 1
End With
End Subcitovat

Nevidím tolik do problému, ale makro asi hledá 1.výskyt něčeho, co je potřeba opravit. Tady bych makro ukončil, provedl tu opravu a pustil makro celé znovu. Zase najde další 1.místo.. atd. problém vidím jen v rychlosti/velikosti souboru. Ale neřešil bych pozastavení.citovat

a este jedno hadanie v com by mohol byt Problem .... mozno ze sa jedna o error v cyklickom dosadzovani makier kde napr. integer premena je string. Potom takyto error by sa dal odchytit s:

On Error Resume Next
//Tu sa napise makro
Err.Number <> 0 Then
//co ma spravit ked je error
End Ifcitovat