Tabblad naam opzoeken in hoofdtabblad en celwaarde invullen

Status
Niet open voor verdere reacties.
Z

Zeeuwjer

Gebruiker
Lid geworden
16 sep 2021
Berichten
25
Hallo,

Ik heb een vrij groot excel bestand met dik 20 tabblad en 1 hoofdtabblad waarop alle tabbladnamen vermeld staan. Voor de "werktabbladen" heb ik inmiddels een vba code in elkaar gedraaid waarin dit tabblad wordt geëxporteerd naar een PDF, opgeslagen, klaar gezet in outlook om te mailen en uiteindelijk het tabje groen te kleuren.
Nu wil ik eigenlijk als deze code gedraaid heeft een stukje code toevoegen dat in het hoofdtabblad de betreffende tabnaam wordt opgezocht en achter de naam van het tabblad de datum van verwerking wordt geplaatst (kolom B). Ik heb lopen zoeken naar een vergelijkbare code die ik naar mijn wens kan verbouwen maar niks gevonden. Kan iemand mij helpen.
Als voorbeeld heb ik een testbestandje meegezonden.
Niet alle tabbladen worden op hetzelfde moment verwerkt, er kan wel een aantal dagen tussen zitten.

Alvast bedankt, Jeroen
 

Bijlagen

  • test VBA tab bevestigen.xlsm
    12,3 KB · Weergaven: 16
Als je hem zo runt, krijg je meteen de opgestelde mail.
Indien je dat niet wil, kun je dat deel weglaten.

Code: 
Sub jec()
 XX = InputBox("Kies tabblad")
 With Sheets("Totaalblad")
   a = Application.Match(XX, .Range("A1:A100"), 0)
   If IsNumeric(a) Then
      fname = ThisWorkbook.Path & "\" & XX & ".pdf"
      Sheets(XX).ExportAsFixedFormat xlTypePDF, fname
      Sheets(XX).Tab.ThemeColor = xlThemeColorAccent6
     .Cells(a, 2) = Date
     
      With CreateObject("outlook.application").createitem(0)
       .to = "test@hotmail.com"
       .Subject = XX
       .body = "test"
       .attachments.Add fname
       .display
     End With
   End If
 End With
End Sub
 
Laatst bewerkt:
Het werkt

Hallo Jveer,
Dank je wel, het werkt, ik heb hem nog iets verbouwd, ipv de naam ingeven gebruik ik het actieve werkblad.
grt, Jeroen
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan