Astuces Excel
  1. Astuces Excel
  3. Ouverture de feuilles de travail basées sur les noms de cellules dans VBA
Intereting Posts
C # – Date Excel pas en train de passer la date en série dans Valeur2 Lecture C # dans un horodatage dans une cellule excel, et vérification pour voir si il n'est pas plus de # jours anciens Comment find une valeur dans une colonne et replace une valeur par une autre colonne dans Excel? Excel – Comment puis-je utiliser une colonne pour "tags" pour filterr .xll dans un format différent de celui spécifié par l'extension de file Ajouter des mois set ou travailler dans la base 12 Comment utiliser R pour lire Excel, créer des tables, récupérer des arrays formatés dans les SIG avec des locations coordonnés Comptez progressivement dans Excel Vider des cellules spécifiques dans la même rangée d'une cellule modifiée Comment créer une dépendance dans MS Excel 2010? Suppression de cellules vierges et structuration de données lors de la copy de VBA Colonne la colonne de reference et la colonne de reference et ajoutez des lignes vierges pour correspondre Formule pour moyennes pondérées Démarrez les macros VBA par feuille de travail ouverte Comment puis-je insert XML dans une feuille de calcul Excel?

Ouverture de feuilles de travail basées sur les noms de cellules dans VBA

C'est la première fois que je publie sur Déploiement de stack. J'essaie d'utiliser VBA pour l'get pour créer une nouvelle feuille de calcul basée sur une valeur de cellule dans la feuille 1. Mais si la feuille existe déjà, j'ai besoin d'ouvrir cette feuille à la place. J'en ai du mal avec ce que je ne connais pas le nom de la feuille. Je pensais pouvoir le faire si je crée une autre feuille où il stocke les noms des projets, en utilisant un countur. Cela me montre que j'ai une erreur d'exécution 91. C'est le code que j'ai actuellement: 

Public Sub DailyReport() Dim project As Range project = Worksheets("Target Flow").Range("B3") Dim i As Integer i = 1 If Worksheets("Target Flow").Range("B3") <> Worksheets("Projects").Cells(1000, 1).Value Then Worksheets("Target Flow").Range("B3").Select Selection.Copy Worksheets("Projects").Activate Cells(i, 1).Select ActiveSheet.Paste Dim WS As Worksheet Set WS = Sheets.Add(After:=Sheets(Worksheets.Count)) WS.Name = project.Value i = i + 1 Else Worksheets("Target Flow").Activate Worksheets(ActiveSheet.Range("B3").Value).Activate End If End Sub

Si quelqu'un pouvait me guider dans la bonne direction, je serais reconnaissant!

    Ce code parsingra toutes les feuilles dans le classur actif pour voir s'il y a une correspondance de nom, s'il est activé. Après la boucle si elle ne voit pas une correspondance a été faite, elle la créera. 

     Dim targetSheetName As Ssortingng Dim targetSheetFound As Boolean Dim sheet As Worksheet targetSheetName = Worksheets("Target Flow").Range("B3") targetSheetFound = False For Each sheet In ActiveWorkbook.Worksheets If sheet.Name = targetSheetName Then targetSheetFound = True sheet.Activate End If Next If Not targetSheetFound Then set sheet = Sheets.Add sheet.Name = targetSheetName End If