Bevare markeringsformat

Hej
Eks. $A$1:$C$4

Mvh

Nej, der findes ikke en måde at holde en markering på en bestemt størrelse... altså anden på EN celle.

Nej det kan man ikke, men jeg gætter på at du gerne vil lette brugen af din mus.

Derfor foreslår jeg at du laver en macro der automatisk markerer et område med den ønskede størrelse. Macroen kan du let udføre ved at trykke på f.eks. Ctrl+z tasterne. Derved kan du let og hurtigt foretage dine kopieringer.

sorry - misforstod :-)

Du kan anvende denne makro

Sub SelectM()

Dim SelectX As String
Dim SelectY As String

SelectX = ActiveCell.Address()
SelectY = ActiveCell.Offset(4, 3).Address()

Range(SelectX, SelectY).Select

End Sub


Hilsen

TVC

Ups området blev lidt for stort - her er den rigtige:

Sub SelectM()

Dim SelectX As String
Dim SelectY As String

SelectX = ActiveCell.Address()
SelectY = ActiveCell.Offset(3, 2).Address()

Range(SelectX, SelectY).Select

End Sub

TVC

Du anvender makroen ved at markere den øverste venstre celle i det område du vil markere og så anvende genvejen til makroen som japping foreslog.

Hilsen

TVC

Hvis du ikke har noget imod at gemme oplysninger om dit range et sted i arket, eller et andet ark for den sag skyld, så kan du arbejde videre med disse 2 makroer.

Den første gemmer udstrækningen af det senest valgte range:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim rangeWidth, rangeHeight As Long

With Selection
  If .Columns.Count > 1 Or .Rows.Count > 1 Then
    rangeWidth = .Rows.Count
    rangeHeight = .Columns.Count

    Cells(100, 1).Value = rangeWidth
    Cells(100, 2).Value = rangeHeight
  End If
End With

End Sub


Når du markerer EN celle et andet sted i arket og kører denne makro, markeres et tilsvarende range.

Sub SelectArea()
Dim a, b, c, d As Long

With ActiveCell
  a = .row
  b = .Column
  c = .row + Cells(100, 1).Value - 1
  d = .Column + Cells(100, 2).Value - 1
End With

Range(Cells(a, b), Cells(c, d)).Select

End Sub