Hej,

Har en, vad jag tror, ganska enkel fråga gällande skapande av message box. Tyvärr är mina VBA-kunskaper ytterst begänsade för att ens lösa detta.

Har ett kalkylblad där jag vill att en message box kommer upp om användaren klickar på cellerna N3:N3000.

Hur skriver jag den i VBA-miljön?


Hälsningar

Fredrik Johansson

Ett exempel är:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
     'If they are double clicking in column A
    If Target.Column = 1 Then 
         'Display the value in Column 26 of the same row they are double clicking in
        MsgBox (Cells(Target.Row, 26).Value) 
         
    End If 
     
End Sub 

Använd eventet SelectionChange på det
kaklylblad där du vill ha msgboxen.
Eventen finns när du tittar på kodfönstret för
kaklylbladet i dropdown till höger

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Range("N3:N3000"), Target) Is Nothing Then
    MsgBox "Du har klickat inom området"
End If

End Sub

Tack, det var den koden jag testade. Funkar kanon!

Om jag skulle vilja att en liknande funktion startade när man aktiverar ett blad, vad ändrar jag i koden då?


Hälsningar

Fredrik

Då använder du istället eventet Worksheet_Activate
som finns i samma dropdown på bladets kodsida

Private Sub Worksheet_Activate()
' Din kod här

End Sub

Tack för hjälpen Tommy!

Glömde att tacka för även detta, ni har hjälpt mig väldigt mycket. Är väldigt glad för det!

Har bara en fråga till gällande detta och det är hur jag kan få fler rader i msgbox?

Hittade dessa koder, men de funkar dessvärre inte:

MessageBox.Show("aaaaaaa" & Environment.NewLine & "bbbbb")

MessageBox.Show("aaaaaaa" & vbCrLf & "bbbbb")

MessageBox.Show("aaaaaaa" + cstr(Environment.NewLine) + "bbbbb")


Koden, som jag lagt under ThisWorkbook ser för övrigt ut som (ifall det är något där som inte stämmer):

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "In-data" Then
MessageBox.Show ("aaaaaaa" + CStr(Environment.NewLine) + "bbbbb")
End If

End Sub

Hälsningar

Fredrik

Det här fungerar för mig
Notera att det i VBA heter MsgBox
och inte Messagebox.

De förslag du hittat är nog för .NET miljö

MsgBox "Ärendet " & vbCrLf & " hittades " & vbCrLf & " inte!"

Aha, mycket bättre! Blev lite konfys när jag såg ett annat namn för uttrycket, men då är jag med.

Tack än en gång!

Om du lägger koden på det blad det
gäller behöver du inte göra kontrollen vilket blad det är
Om du skulle byta namn på bladet kommer din kod inte att fungera utan ändring

Private Sub Worksheet_Activate()
MsgBox "Ärendet " & vbCrLf & " hittades " & vbCrLf & " inte!"
End Sub

Ah, det kanske är smartare än vad jag gjort nu (läste nånstans att det tvunget skulle ligga under workbook). Nu har jag skrivit in olika messagebox till de olika bladen i samma sub under workbook.

Om du har samma text i din MsgBox så kan du anropa den från
resp. blads Worksheet_Activate

Makrot med MsgBoxen kan ligga i en vanlig modul

' På bladet

Private Sub Worksheet_Activate()
Call VisaMsgBox
End Sub

I en modul
Sub VisaMsgBox()
MsgBox "Ärendet " & vbCrLf & " hittades " & vbCrLf & " inte!"
End Sub

' På bladet

Private Sub Worksheet_Activate()
Call VisaMsgBox("Ärendet " & vbCrLf & " hittades " & vbCrLf & " inte!")
End Sub

I en modul
Sub VisaMsgBox(InText As String)
MsgBox InText
End Sub

Tack! Funkade jättebra.