Hoe selectie gebruiken in VBA

[caffie]

Ik wil een macro maken voor de cellen die ik selecteer


Ik wil de de geselecteerde cellen samen voegen. (geen vaste cellen)
De samen gevoegde cellen (uit lijnen horizontaal en verticaal centreren
en deze de kleur groen geven

ik loop vast
wie kan me verder helpen

Rob

 

[edmoor]

Dat zijn er best een aantal hier, maar een voorbeeld document met duidelijke uitleg van wat precies de bedoeling is helpt daar veel bij.

 

[OctaFish]

Ik wil de de geselecteerde cellen samen voegen. (geen vaste cellen)

Laat snb het maar niet lezen; hij (en vele anderen) zijn falikant tegen het samenvoegen van cellen. Meestal doe je dat ook omdat een werkblad dan niet goed is opgezet. Probeer het in ieder geval te vermijden als dat mogelijk is. En meestal is dat zo .

 

[VenA]

samen gevoegde <> samengevoegde als we het toch over samenvoegen hebben. Als groot voorstander van slecht opgezette werkbladen:

Sub VenA()
  With Sheet1.Range("A1:AZ100") 'zal je dynamisch moeten maken in het niet geplaatste document
    .Merge
    .Interior.Color = vbGreen
  End With
End Sub

 

[caffie]

mijn oplossing

Allemaal bedankt


Even terug komen op het samen voegen
Het gaat hier om een excelsheet om killersudoko op te lossen

ik heb de macro opnamen aangezet en het volgende gebruikt

Sub voegsamen()
Dim invoergetal As String

    With Selection
        .ClearContents
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
        .Interior.Color = 5296274
    End With
        invoergetal = Application.InputBox("Enter a number")
        If IsNumeric(invoergetal) = True Then
            If invoergetal >= 1 Then
                If invoergetal <= 9 Then
            Else
                MsgBox ("invoergetal is te groot")
                Exit Sub
            End If
        Else
            MsgBox ("invoergetal is te klein")
            Exit Sub
        End If
        End If
        
        Sheets("Sudoko").Cells(Rows.Count, 53).End(xlUp).Offset(1) = invoergetal
        Sheets("Sudoko").Cells(Rows.Count, 54).End(xlUp).Offset(1) = ActiveCell.Address
        ActiveCell.Value = invoergetal
End Sub

En dat werkt
Ik heb me sheet bijgesloten voor wie het leuk vind
Deze code puzzel heb ik opgelost nu stort ik me weer op de killersudoko