Tabbladen kleuren

[veerle12]

Hallo,
Ik heb een macro gemaakt en wat is mijn bedoeling:

Ik heb 2 bestanden in het eerste bestand moet de macro de tabblad rood kleuren en in het tweede bestand moet moet de macro een bepaalde cel kleuren.
met de macro die ik heb doet het allemaal.

maar nu wil ik dat de macro een ander tabblad in het eerste bestand groen kleur
dus bestand 1 bestaat uit 2 of meerdere tabbladen.

en in het tweede bestand moet hij automatisch 1 cel rood kleuren en een andere groen

wie kan mij helpen

Hier de macro die ik al heb deze werkt voor 1 tabblad
Sub rood()
Dim wbook As Workbook
With ActiveSheet.Tab
If .ColorIndex = 3 Then
Exit Sub
Else
.ColorIndex = 3
End If
End With
Set wbook = Workbooks.Open("C:\temp\test22.xlsx")
With wbook.Sheets("Blad1")
.Range("I" & .Range("I1").CurrentRegion.Rows.Count + 0).Interior.ColorIndex = 3
End With
wbook.Close savechanges:=True
End Sub



groeten Henri

 

[ExcelAmateur]

Je zit vanaf 2011 bij Helpmij, dus zou je moeten weten hoe je de code moet plaatsen.
Ik kan je hier niet verder mee helpen, ben met VBA niet zo goed.

 

[snb]

Lees je tekst svp ook eens over; controleer dan op correct & begrijpelijk Nederlands.
Het lijkt me handig als een potentiële helper je vraag ook kan begrijpen.

 

[Timshel]

Ik heb je macro even wat ingekort. Dat maakt het wellicht makkelijker om zelf aanpassingen te maken.
Want ja wij weten ook niet welke tab en welke cel je wil kleuren.
Merk op hoe veel overzichtelijker het eruit ziet als code in een apart kader staat.

Sub rood()
    ActiveSheet.Tab.ColorIndex = 3
    With Workbooks.Open("C:\test22.xlsx")
        .Sheets("Blad1").Range("I" & .Sheets("Blad1").Range("I1").CurrentRegion.Rows.Count).Interior.ColorIndex = 3
        .Close True
    End With
End Sub

 

[Haije]

Henri,

voldoet dit antwoord toch niet?

ondanks dat je schrijft:

Bedankt voor uw snel antwoord maar ik ben maar een leek er in, heel blij met de oplossing

https://www.pc-helpforum.be/topic/67518-kleur-tabblad/

 

[snb]

Ook hier dubbel geplaatst:

http://www.helpmij.nl/forum/showthread.php/922941-Tabbladen-kleuren

 

[veerle12]

ok bedankt voor 1 tab merci
maar ik heb me al gek gezocht hoe ik dit in bijlage dan doe?

 

[Haije]

Maar waarom dan de vervolgvraag niet ook gesteld op PC-Helpforum?
Nu dnkt iedereen daar dat je probleem opgelost is, terwijl dat niet het geval is....

 

[Timshel]

Dat je je vraag op meerdere plaatsen stelt moedigt niet aan tot behulpzaamheid.

 

[veerle12]

Henri,

voldoet dit antwoord toch niet?

ondanks dat je schrijft:
Uw antwoord voldeed wel maar nu had ik een vraag over meerdere tabs


https://www.pc-helpforum.be/topic/67518-kleur-tabblad/

 

[veerle12]

Dat je je vraag op meerdere plaatsen stelt moedigt niet aan tot behulpzaamheid.

Sorry ervoor maar als je niet wilt helpen no problem