Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Private Sub Worksheet_SelectionChange(ByVal target As Range) ComboBox1.Top = ActiveCell.Top ComboBox1.Top = target.Top 'ComboBox1 value (if changed) will be stored in same row as target, column c Set oldTarget = Cells(target.Row, 3) ComboBox1.Height = ActiveCell.RowHeight - 6 ComboBox1.Width = 148 ' get out of column Headers If target.Rows.Count = Cells.Rows.Count Then Exit Sub If Not Intersect(target, [A1:AU1]) Is Nothing Then MsgBox "Not Allowed To Edit!", vbCritical, "Template Protection Error" Range("A2").Select End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.