Hallo BlackDevil,

Mijn kennis daaromtrent is niet al te groot, maar ik denk dat het niet kan op de manier die jij in gedachten hebt (die extra tab enkel in dat ene bestand laten bestaan).
Wat ik wel weet is dat je tabs naar wens zichtbaar of onzichtbaar kan maken, ook via vba.
De logica gebiedt mij dan om je te adviseren die tab standaard verborgen te zetten (manueel dus), en hem in je borduurfile met vba zichtbaar te maken bij openen. Hoe dat precies moet zou ik zelf ook moeten uitzoeken (ik kijk straks wel eens, misschien jij ondertussen ook?)
Op de vraag of hij bij sluiten van het bestand terug verborgen moet worden zal ik ook nog het antwoord moeten zoeken...

Mvg,
Molly

Hallo BlackDevil,

Ik heb zelf ook meerdere weken fysiek in de lappenmand gelegen en ben momenteel nog maar beetje bij beetje terug overeind aan het krabbelen. Daardoor heb ik mijn plan om eindelijk een nieuwere Office-versie aan te schaffen nog steeds niet kunnen uitvoeren, en daar bij mij het lint niet aan te passen valt lijkt het mij héél waarschijnlijk dat jij het eerder zal vinden dan ik. Succes !!

Mvg,
Molly

Hallo BlackDevil,

Van al wat ik ondertussen heb gevonden op het internet...via VBA zou het geenszins mogelijk zijn

Ik was er nochtans zeker van dat ik dat vroeger eens ben tegengekomen. Waarschijnlijk zijn mijn hersenen (of minstens het gedeelte verantwoordelijk voor onthouden) dus ook aangetast.
Ik kon het niet laten even je link te volgen en dat is inderdaad niet van het simpelste...
Maar ondertussen blijft het wel kriebelen, de kans is dus groot dat ik later (voel je niet schuldig, het zal dan vooral voor mezelf zijn) nog verder speur.
Gelukkig kan je in elk geval gewoon verder!

Groetjes,
Molly

Hallo BlackDevil,

Aangezien we met maar een fractie van het grote bestand aan de slag moeten valt het moeilijk in te schatten hoeveel we hiermee gaan winnen (mogelijk kunnen we nog een stapje verder gaan), maar probeer alvast eens zonder 'Select'.

Sub afgewerkt()
Application.ScreenUpdating = False
  '----- nagaan welke cellen (borduursteken) reeds gemarkeerd (geborduurd) zijn
  With Sheets("patroon")
    For rij = 1 To 20
      For kol = 1 To 20
        If .Cells(rij, kol).Interior.Color = vbGreen And .Cells(rij, kol) <> "" Then
          symbool = .Cells(rij, kol)
          '----- corresponderende kleur zoeken nav symbool
          With Sheets("DMCtoRGB")
            For i = 2 To 4
              If .Cells(i, 6) = symbool Then
                R = .Cells(i, 2)
                G = .Cells(i, 3)
                B = .Cells(i, 4)
                '----- de gemarkeerde cellen (borduursteken) omzetten in kleur naar extra werkblad
                With Sheets("afgewerkt")
                  'arij = rij
                  'akol = kol
                  '.Cells(arij, akol).Select
                  With .Cells(rij, kol)
                    .Borders(xlDiagonalDown).LineStyle = xlContinuous
                    .Borders(xlDiagonalDown).Color = RGB(R, G, B)
                    .Borders(xlDiagonalDown).Weight = 4
                    .Borders(xlDiagonalUp).LineStyle = xlContinuous
                    .Borders(xlDiagonalUp).Color = RGB(R, G, B)
                    .Borders(xlDiagonalUp).Weight = 4
                  End With
                End With
              End If
            Next i
          End With
        End If
      Next kol
    Next rij
  End With
Application.ScreenUpdating = True
End Sub

Mvg,
Molly

Hey MollyVH,

Hartelijk dank voor jouw aanpassingen  .
Hiermee is de 'vertraging' toch al gehalveerd en de melding "reageert niet" verschijnt ook al niet meer, dus zeker en vast al een heuse verbetering  .

Momenteel heb ik wel nog maar een 30-tal rijen van de 270 effectief afgewerkt dus ik vermoed wel naarmate er meer rijen zullen afgewerkt zijn dat er zich dan sowieso een toename van de 'vertraging' zal voordoen. Moest dit dan echt een té grote vertraging veroorzaken dan meld ik het hier wel.

Groetjes,
BlackDevil

Hey MollyVH,

Bedankt voor de extra tijd dat je investeert in het ‘meedenken’.
Ik heb de code uit je laatste bericht uitgetest en pijtig genoeg is er nog steeds een ‘vertraging’…
Het is te zeggen, het onderdeel ‘wegschrijven’ naar werkblad “afgewerkt” gaat vrij snel maar het is volgens mij het ‘inlezen’ van het werkblad “patroon” dat voor de vertraging zorgt.

Daarom ben ik aan het denken geweest om misschien de buitenste loop (voor het doorlopen van de rijen) te laten variëren. Wat ik hiermee bedoel is om eerst de eerste rij te laten zoeken die een groen ingekleurde cel bevat en dan dat rijnummer vast te leggen met een variabele die we dan gebruiken om die buitenste loop te starten.
De binnenste loop (voor de kolommen te doorlopen) dient sowieso altijd “1 To 216” te zijn.
Maar als we de buitenste loop (voor de rijen) kunnen inkorten zal het inlezen volgens mij toch wel aanzienlijk wat minder tijd in beslag nemen.
Aangezien ik met mijn borduurwerk onderaan ben begonnen en alzo naar boven werk is het niet nodig dat de loop elke keer op rij 1 start. Met wat ik ingedachte heb zou de loop dan “start To 270” zijn.
Alleen weet ik niet goed hoe ik moet zoeken naar die eerste rij die een cel met groene achterkleur bevat en dit vervolgens kan laten vastleggen in een variabele.

Om nog een stapje verder te gaan dacht ik om eventueel de stoprij te laten bepalen door op het werkblad “afgewerkt” na te gaan welke de eerste rij is met 216 cellen die als waarde een spatie hebben en dan dat rijnummer -1 kan dan de stop-variabele zijn voor die buitenste loop. Maar misschien is dit dan weer té ver gezocht? 

Ik heb aan jouw laatste code-blokje wel een zéér kleine aanpassing gemaakt zodat ook de groene cellen die geen waarde bevatten op werkblad “patroon” dan op het werkblad “afgewerkt” ook een spatie krijgen.

Sub afgewerkt()
Application.ScreenUpdating = False
  '----- nagaan welke cellen (borduursteken) reeds gemarkeerd (geborduurd) zijn
  With Sheets("patroon")
    For rij = 1 To 20
      For kol = 1 To 20
        'ook kijken of de cel op 'afgewerkt' leeg is
        If .Cells(rij, kol).Interior.Color = vbGreen Then
          If .Cells(rij, kol) <> "" And Sheets("afgewerkt").Cells(rij, kol) = "" Then
            symbool = .Cells(rij, kol)
            '----- corresponderende kleur zoeken nav symbool
            With Sheets("DMCtoRGB")
                i = .Columns(6).Find(symbool).Row
                R = .Cells(i, 2)
                G = .Cells(i, 3)
                B = .Cells(i, 4)
            End With
        '----- de gemarkeerde cellen (borduursteken) omzetten in kleur naar extra werkblad
            With Sheets("afgewerkt").Cells(rij, kol)
                .Borders(xlDiagonalDown).LineStyle = xlContinuous
                .Borders(xlDiagonalDown).Color = RGB(R, G, B)
                .Borders(xlDiagonalDown).Weight = 4
                .Borders(xlDiagonalUp).LineStyle = xlContinuous
                .Borders(xlDiagonalUp).Color = RGB(R, G, B)
                .Borders(xlDiagonalUp).Weight = 4
            End With
          End If
          'en hier een spatie zetten om dat blad 'proper' te houden
          Sheets("afgewerkt").Cells(rij, kol) = " "
        End If
      Next kol
    Next rij
  End With
'Application.ScreenUpdating = True
End Sub

Groetjes,
BlackDevil

Hey MollyVH,

Hartelijk dank voor je reactie.
En ja inderdaad, ivm wat ik in gedachten had zou in eerste instantie er opnieuw een volledige 'doorloop' plaatsinden wat ik dus net wou vermijden.
Daarom dacht ik om eventueel op beide werkbladen een (verborgen) "hulp-kolom" (kolom 220 ofzo) te plaatsen en aldaar dmv een formule het aantal betreffende cellen te tellen. Met betreffende cellen bedoel ik voor werkblad "patroon" de groen gekleurde cellen en voor werkblad "afgewerkt" de cellen die een spatie bevatten.
Op die manier zou dan de beginrij kunnen gezet worden op het rijnummer van de eerste cel in de hulpkolom ("patroon") waarbij de waarde groter is dan 0 en de eindrij kunnen gezet worden op het rijnummer -1 van de eerste cel in de hulpkolom ("afgewerkt") met waarde 20 (of 216 in het originele bestand).
Op die manier moet er dan maar 2x één kolom doorlopen worden om begin en einde van die buitenste loop te bepalen. Maar dat wordt dan misschien allemaal wel té omvangrijk... Ik vond trouwens niet meteen hoe ik de cellen op basis van de achtergrondkleur via een formule kon laten tellen.

Wat je voorstelt zou inderdaad een goede oplossing zijn aangezien er nooit een onvolledige groene rij zal staan onder een volledige groene rij.
Er is echter wel 1 klein probleempje met deze manier (en dan louter op praktisch vlak voor mezelf) en dat is dat ik me vaak moet baseren op reeds geborduurde rijen om de eerstvolgende steek makkelijker te vinden. Mijn beeldscherm staat op ca. 1m van waar ik zit om te borduren dus het visuele is redelijk belangrijk  .
Maar sowieso de rijen van onder naar boven overlopen en daarbij puntje 1 en 2 toepassen zie ik helemaal zitten.
Maar het derde puntje zou ik, indien mogelijk, ipv de rij te verwijderen dan liever een andere optie willen zoeken om deze niet meer op te nemen in de volgende doorloopronde.

Nogmaals mijn oprechte dank voor al jouw input  .

groetjes,
BlackDevil