Zoeken en resultaat in pop-up scherm laten zien

[Gert Bouwmeeste]

Ik heb een sheet met op het tabblad "OrgStruct" circa 3.500 organisatiecodes die in een structuur worden weergegeven. Kolom "O" bevat de organisatiecode en kolom "P" het aantal medewerkers van die organisatiecode.

De medewerkers zelf staan op het tabblad "Mdw"

Ik wil graag, als ik op het tabblad "OrgStruct" op een bepaalde code sta, een macro activeren die de code (waar ik op sta) gaat opzoeken op het tabblad "Mdw" en mij vervolgens het resultaat in een pop-upscherm (Userform) op het tabblad "OrgStruct" laat zien.

Wie kan mij hier mee helpen? Zie bijgevoegd voorbeeldbestand.

 

[snb]

Dat kun je ook oplossen met een 'opmerking' (comment) bij de cel.

Sub tst()
  For Each cl In Sheets("Orgstruct").Columns(15).SpecialCells(xlCellTypeConstants, xlNumbers)
    Sheets("Orgstruct").[AA1].CurrentRegion.ClearContents
    With Sheets("Mdw").UsedRange
      .AutoFilter 6, cl
      .SpecialCells(xlCellTypeVisible).Copy Sheets("Orgstruct").[AA1]
      .AutoFilter
      sq = Sheets("Orgstruct").[AA1].CurrentRegion.Resize(, 5)
      cl.ClearComments
      c0 = ""
      If UBound(sq) > 1 Then
        For j = 1 To UBound(sq)
          For jj = 1 To UBound(sq, 2)
            c0 = c0 & sq(j, jj) & Space(1)
          Next
          c0 = c0 & Chr(10)
        Next
 [COLOR="Blue"]       With cl.AddComment (c0)
           With .Shape
             .Width = InStr(c0, Chr(10)) * 6
             .Height = UBound(sq) * 11
             .OLEFormat.Object.Font.Size = 14
           End With
           .Visible = False
        End With[/COLOR]
      End If
    End With
  Next
End Sub

 

[Gert Bouwmeeste]

Macro werkt en geeft idd de werknemers weer in een opmerkingenveld. Is alleen wat slecht leesbaar (kleine lettertjes), vooral als het meerdere regels zijn.

Maar 't is in ieder geval een grote stap vooruit. Dank je wel.

 

[snb]

Je kunt de lettergrootte van de opmerking instellen: zie de aangepaste code (blauw gemarkeerd) in mijn vorige suggestie.

 

[Gert Bouwmeeste]

Dank je wel!

 

[Gert Bouwmeeste]

Ik kom toch nog even terug op deze vraag en het antrwoord van SNB. Op zich werkt de macro goed, alleen duurt het erg lang.

Is er een mogelijkheid dat de macro alleen uitgevoerd wordt als in kolom een getal > 0 staat?

 

[snb]

Daarvoor gebruik je toch application.screenupdating =false aan het begin van de code.

 

[Warme bakkertje]

Eentje van enkele posts geleden wat aangepast. Misschien een goed begin?