Just nu i M3-nätverket
Jump to content

Öppna makro när vissa celler markeras


rilleking

Recommended Posts

Hej.

 

Jag har gjort ett makro med en kalender som jag vill ska poppa upp i vissa celler när jag markerar dom. Så långt inga problem.

 

Men när jag markerar någon utav dessa celler så poppar kalendern upp mitt i kalkylbladet.

Jag skulle vilja att kalendern poppar upp precis under den cellen som markeras. Jag har letat runt på nätet och sett att det går att lösa med kod. Men jag får inte till den koden i min egen. Så här ser min kod ut:

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10,F6:F10")) Is Nothing Then
Modul1.OpenCalendar
End If

End Sub

 

Jag har sett på en annan sida där dom använder sig utav en liknande kalenderfunktion. Där har dom kodat så här:

 

Private Sub Calendar1_Click()
   ActiveCell.Value = CDbl(Calendar1.Value)
   ActiveCell.NumberFormat = "mm/dd/yyyy"
   ActiveCell.Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Cells.Count > 1 Then Exit Sub
   If Not Application.Intersect(Range("A1:A20"), Target) Is Nothing Then
       Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
       Calendar1.Top = Target.Top + Target.Height
       Calendar1.Visible = True
       ' select Today's date in the Calendar
       Calendar1.Value = Date
   ElseIf Calendar1.Visible Then Calendar1.Visible = False
   End If
End Sub

 

 

Dom har löst positionering på ett bra sett tycker jag. Går det att få min kod på ett liknande sett så att min makrokalender hamnar direkt under den markerade cellen?

 

Tacksam för all hjälp som kan fås.

 

MVH Richard

 

 

[inlägget ändrat 2008-11-19 12:43:49 av Monshi]

Link to comment
Share on other sites

1: Du bör kolla att det är en cell som är vald :)

 

2: Skicka med denna cell som argument till din funktion.

 

3: I funktionen som öppnar kalendern, gör som i exemplet du själv bifogat.

 

4: Som moderator för Excel säger jag

A) Stoppar in några kod-taggar i ditt inlägg

B) Flyttar tråden till VBA

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...