Pop up in excel

[Royvdwildt]

Een goede morgen allen,

Ik zou graag willen weten of het mogelijk is dat als je over een cel heen gaat met je cursor dat je kan zien uit welke tabbladen de informatie komt.

Uitleg Excel sheet:
Weekplanning: Is de hoofdsheet. Hier worden alle gegevens opgeteld die in de tabbladen staan. De tabbladen zijn de verdiepingen. "hier wordt aangegeven hoeveel pallets er op de verdieping geleverd wordt"
Ik wil graag in de weekplanning zien uit welke / hoeveel verdiepingen de gegevens komen.

Is dit beetje duidelijk.

Ik hoor graag of het mogelijk is.

 

[Cobbe]

Mooie foto. En nu??

 

[Royvdwildt]

Ik zou graag willen zien waar de de gegevens die in L40 staat vandaan komen. Uit welke tabblad/tabbladen
Indien mogelijk zelfs met een pop up als ik over de cel heen ga met me cursor.

Is dit mogelijk?

Roy

 

[Cobbe]

En jij denkt dat wij in een foto kunnen zien waar het een of ander vandaan komt?

Post eens een Excelbestand.

 

[Royvdwildt]

Goede morgen,
Excuses.

Hierbij de file.

Roy

 

[Cobbe]

Test deze eens op een copie:
Plak deze code achter Tab Week overzicht:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cl As Range
 For Each cl In Range("E3:AV40")
  If Not cl = "" And cl > 0 Then
     If Not cl.Comment Is Nothing Then
        cl.Comment.Delete
     End If
 
    cl.AddComment
    cl.Comment.Text Text:= cl.Formula
  End If
 Next
End Sub

 

[Royvdwildt]

Goede morgen Cobbe,

Hij laat nu inderdaad de formule zien die gebruikt is om de gegevens te laten zien.
Wat ik graag zou willen zien uit welke tabbladen hij die gegevens haalt.

VB: Tabblad Week overzicht N27 is 54. Dus hij heeft informatie uit tabblad Verdieping 8 en 7 gehaald om tot 54 te komen.
Dus in die week zijn we op 2 verdiepingen bezig, En ik wil met de pop up laten zien dat ze dus verdieping 7/8.

Roy

 

[Cobbe]

Test deze dan eens:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cl As Range

 For Each cl In Range("E3:AV40")
  If Not cl = "" And cl > 0 Then
   For Each sh In ThisWorkbook.Sheets
    If Not sh.Name = "Week overzicht" Then
      If Not sh.Range(cl.Address).Value = "" Then
           bladen = bladen & sh.Name & Chr(10)
      End If
    End If
   Next

 With cl
     If Not .Comment Is Nothing Then
            .Comment.Delete
     End If
    .AddComment
    .Comment.Text Text:=bladen
 End With
 bladen = ""
  End If
 Next
End Sub

 

[Royvdwildt]

Wow dank je wel Cobbe.

Dit is inderdaad precies wat ik zocht!
Enorm bedankt voor de hulp,

Fijn weekend

 

[snb]

@Cobbe

Is het een idee eerst alle cellen in gebied E3:AV40 eenmalig van aantekeningen (comments) te voorzien ?
Dan kan de code beperkt worden tot:

Private Sub M_snb()
 For Each cl In sheets(weekoverzicht").Range("E3:AV40").specialcells(2,1)
   c00=""
   For Each sh In Sheets
    If left(sh.Name,1)="V" and sh.Range(cl.Address)>0 Then c00 = c00 & sh.Name & Chr(10)
   Next
    cl.Comment.Text c00
  Next
End Sub

De 'selection_change' lijkt me ook een beetje veel van het goede en daardoor vertragend.
De 'workbook_open' gebeurtenis lijkt me meer voor de hand liggend of eventueel de worksheet_activate' gebeurtenis.

 

[Cobbe]

Natuurlijk zal dat wel wezen, maar ik zorg (probeer te zorgen) voor een werkende oplossing en laat dan de verfijning van de code over aan mensen die er véél meer verstand van hebben.
Die Change_event was mij ook al een beetje te veel van het goede maar zo wordt wel elke wijziging in de tabbladen 'Verdieping x' automatisch bijgewerkt.
Misschien was een Sheet_Activate beter geweest.

 

[Royvdwildt]

Een goede morgen,

Kan iemand me misschien met het volgende nog in deze sheet.
Op het weekoverzicht is nu goed te zien uit welke tabbladen de informatie vandaan komt. DMV comments

Op Rij 54 staan de aantallen opgeteld. Is het mogelijk om ook daar te zien uit welke verdiepingen deze informatie komt dmv comments.
Het lukt me niet!

Heb de file erbij geplaatst.

Dank je wel alvast

Roy

 

[snb]

Welke code heb je gebruikt voor de commentaren ?

Wat heb je tot nog toe zelf gedaan om rij 54 naar wens in te richten ?

 

[Royvdwildt]

Hoi SNB,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cl As Range

For Each cl In Range("E3:AV40")
If Not cl = "" And cl > 0 Then
For Each sh In ThisWorkbook.Sheets
If Not sh.Name = "Week overzicht" Then
If Not sh.Range(cl.Address).Value = "" Then
bladen = bladen & sh.Name & Chr(10)
End If
End If
Next

With cl
If Not .Comment Is Nothing Then
.Comment.Delete
End If
.AddComment
.Comment.Text Text:=bladen
End With
bladen = ""
End If
Next
End Sub

Die code wordt gebruikt voor de comments.

Rij 54 heb ik dezelfde sum geprobeerd als bij de andere cellen alleen de range van cellen te vergroten. Maar dan krijg ik bij comments alle tabbladen,

Roy

 

[snb]

Gebruik svp code tags !!

Als je mijn advies had gevolgd had je het wel zelf gekund.

 

[Royvdwildt]

Hoi Snb,

Mag ik dan aub wat hulp om de code tags te gebruiken.

Die andere VBA code werkte gelijk dus zodoende heb ik die gebruikt.

Roy

 

[Cobbe]

Lees dat even:

Code-tags gebruiken:
http://www.helpmij.nl/forum/showthr...ng-Code-tags-gebruiken-Manual-Code-tags-usage

Ik heb intussen een gedeeltelijke oplossing voor uw probleem.
Enkel moesten de dubbels er uitgehaald worden.
Er is hier vast iemand die de code zo kan aanpassen dat dat ook lukt.

 

[Royvdwildt]

Hoi Cobbe,

Dit is inderdaad weer wat ik miste. Indien hier iemand die dubbels zou er uit kunnen halen dan is het weer perfect.
Ook bedankt voor de Link betreft de code tags.
Ik hou het in de gaten.

Roy

 

[Cobbe]

Je kan post #14 ook nog aanpassen met die codetags.

 

[snb]

Dit is geen gratis softwareburo voor DHL.