Klungelen met VBA en Macro

[Georgyboy]

Hey beste mensen,

daar ben ik weer aan het klungelen,
heb een macro en eigen werkbalk gemaakt, doch heb ik wat voor!

Bij selectie van enkele cellen en op de macrotoets te drukken
werkt de macro, doch opent het bestand waar deze is opgemaakt.
Niet handig hé,
zelf wil ik nog wat expirimenteren in de vba module,
indien tips voor deze klungelige leek in vba !

voorbeeld in bijlage

Mvg Georgyboy

 

[kibus]

hang de code eens bij
snap niet precies wat je wilt

 

[HierEnNu]

Onderstaande code doet precies wat je vraagt :

Sub opmaak()

With Selection
With .Borders(xlEdgeLeft)
.Weight = xlThin
End With
With .Borders(xlEdgeRight)
.Weight = xlThin
End With
With .Borders(xlEdgeTop)
.Weight = xlThin
End With
With .Borders(xlEdgeBottom)
.Weight = xlThin
End With
With Selection.Rows(1)
.Borders(xlBottom).Weight = xlThin
.Borders(xlInsideVertical).Weight = xlThin
.Interior.ColorIndex = 35
End With
End With
End Sub

Groeten,

M.

 

[Georgyboy]

Macro

Bedankt voor jullie antwoord,

Het probleem is dat hij bij een nieuwe werkmap steeds de werkmap opent
waar de macro is gemaakt vandaar vervelend.



Mvg Georgyboy

 

[Georgyboy]

Is dit de goede methode vvor een macro via VBA code ?

Bedankt HierEn Nu,

Vraagje in bijlage een voorbeeld van methode, is dit de goede manier om uw code
te gebruiken ?

Welke manieren zijn er anders nog ?

Hey bedankt hé!

Ik zal even experimenteren met uw code en soms even aan wijzigen om het effect te zien.

Tot binnenkort !

 

[Georgyboy]

Bijlages

Bijlages 1 & 2

 

[HierEnNu]

Als je wilt dat de macro in alle werkbladen werkt, moet je hem opslaan in een persoonlijke werkmap.
Neem een nieuwe macro op via de macrorecorder. Kies bij 'Macro opslaan in' de optie Persoonlijke macrowerkmap. Druk op de stop-knop. Ga naar de visual basic editor en selecteer in de projectverkenner (links) het VBAproject(perslnk.xls), modules, module 1.
Haal alle tekst weg en plak de code in het venster.
Maak vervolgens een knop aan die je in de werkbalk plaats en wijs de macro toe. Je kunt de macro nu altijd gebruiken.

Groeten,

M.

 

[Demeter]

Hebben we deze niet al een keer beantwoord?

DEnk dat deze code iets korter is:

Sub opmaak()

    With Selection
        With .Borders
            .Weight = xlThin
        End With
        
        With .Rows(1)
            .Borders(xlInsideVertical).Weight = xlThin
            .Interior.ColorIndex = 35
        End With
    End With
    
End Sub

edit: zal volgende keer de vraag wat beter lezen

Groet,
Ferenc

 

[HierEnNu]

Demeter,

Je code is inderdaad korter, maar geeft niet de opmaak zoals gewenst door Georgieboy.
In eerdere berichten heeft hij aangegeven hoe de opmaak moest zijn en daarop is de code gemaakt.

Groeten,

M.