Hej!
Ja, nu har jag kört fast igen...
Jag har en kod (tack Monshi) som loopar sig igenom ett Excelark enligt nedan, får jag en träff i loopen, så öppnar jag Userform9.
I Userform9 har jag en textruta där jag kan skicka text till Excelarket, men jag skulle även vilja ha en "Avbryt" knapp i Userform9.
Denna "Avbrytknappen" ska då gå in och "döda" makrot där vi råkar bifinna oss just då.
Jag lyckas inte få till det.
Koden stoppar ju upp vid Userform9.Show så det borde väl gå att skicka ett anrop in i loopen därifrån?
/
Public Sub Symbolkoll()
Dim rnSource As Range
Set rnSource = Worksheets("Prenad").Range("L:L").SpecialCells(xlCellTypeConstants)
Dim myAr As Range
Dim myCell As Range
Dim doRun As Boolean
Dim c As Range
For Each myAr In rnSource.Areas
For Each myCell In myAr
Set c = Worksheets("Symboler").Range("A3:A200").Find(myCell)
If c Is Nothing Then
Set c = Worksheets("Symboler").Range("D3:D200").Find(myCell)
End If
If c Is Nothing Then
myCell.Interior.ColorIndex = 3
Application.Goto reference:=myCell, Scroll:=True
UserForm9.Show
myCell.Value = mystring 'värde från textboxen
myCell.Interior.ColorIndex = xlNone 'avmarkerar cellen
End If
Next myCell
Next myAr
End Sub
/
???
/TH