Indsæt denne makro i arkets kodemodul Koden køres hver gang markør skifter celle
Går ud fra du kun har en knap, eller udskift 1 med navn på knap i koden
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If [A1] = "ok" Then ActiveSheet.Shapes(1).Visible = True If [A1] <> "ok" Then ActiveSheet.Shapes(1).Visible = False End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If [V5] = 19 Then ActiveSheet.Shapes("Knap58").Visible = True If [V5] <> 19 Then ActiveSheet.Shapes("Knap58").Visible = False End Sub
hvis det er en formular så højreklik på den og se navn i navneboks (lige over kolonnebogstav A) hvis det er en kontrol element så skal du lige have den i editmode først
Nogen gange forsvinder knappen, hvis betingelsen er opfyldt, men ikke altid!!
Koden ser sådan ud:
Private Sub Send_Click() If [X30] = 19 Then ActiveSheet.Shapes("Send").Visible = True If [X30] <> 19 Then ActiveSheet.Shapes("Send").Visible = False ActiveWorkbook.SendMail Recipients:="@@@", Subject:="@@@" End Sub
kan se du har sat koden ind i Private Sub Send_Click() det virker ikke
højreklik på arkfane hvor knap er og vælg Vis Programkode indsæt denne kode der
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If [X30] = 19 Then ActiveSheet.Shapes("Send").Visible = True If [X30] <> 19 Then ActiveSheet.Shapes("Send").Visible = False End Sub
Som sagt køres koden ved celleskift Denne kører kun hvis du ændrer i A1 Skift A1 i koden ud med den celle du indtaster i
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub If [X30] = 19 Then ActiveSheet.Shapes("Send").Visible = True If [X30] <> 19 Then ActiveSheet.Shapes("Send").Visible = False End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
