Tælle antal markerede celler.

Fik stykket denne kode sammen.
Virker fint.
Så mangler jeg bare at kontrolerer at der kun er markeret lodret.


Private Sub CommandButton1_Click()

If Selection.Cells.Count > 10 Then
  MsgBox "Der må max. markeres 10 celler.", _
        vbInformation + vbOKOnly, "Info"
Else
  'Den kode jeg ønsker udført.
End If

End Sub

Kan det lade sig gører at beholde markeringen når koden er udført, i stedet for at have knappen i focus.

Rettelse. Markeringen bliver holdt når min kode bliver udført, bare ikke når der er markeret mere end 10 celler.

Private Sub CommandButton1_Click()
If Selection.Columns.Count > 1 Then
MsgBox "Der må max. markeres 1 kolonne.", _
        vbInformation + vbOKOnly, "Info"
Exit Sub
End If

If Selection.Cells.Count > 10 Then
  MsgBox "Der må max. markeres 10 celler.", _
        vbInformation + vbOKOnly, "Info"
Else
Selection.Select
  'Den kode jeg ønsker udført.
End If

End Sub

Med behold af selection, også ved fejl

Private Sub CommandButton1_Click()
If Selection.Columns.Count > 1 Then
MsgBox "Der må max. markeres 1 kolonne.", _
        vbInformation + vbOKOnly, "Info"
    Selection.Select
Exit Sub
End If

If Selection.Cells.Count > 10 Then
  MsgBox "Der må max. markeres 10 celler.", _
        vbInformation + vbOKOnly, "Info"
  Selection.Select
Else
Selection.Select
  'Den kode jeg ønsker udført.
End If

End Sub

Så kom det også til at virke.
Tak igen.

Et svar.