Recherche de fiches de nom si elle s'accompagne condition puis copier coller de la valeur avec le format?

Mise à jour: j'ai été en mesure de résoudre ce problème. Je viens de me rappeler VBA utilisation * et ? pour présenter la chaîne de caractères " Si la Feuille.nom Comme "*CopyA"'

Je voudrais faire une copie de la valeur particulière avec le format d'origine des sources de toutes les feuilles contient le mot: "CopyA" pour l'exemple "Apple CopyA","Mangue CopyA"

Je peux utiliser la macro enregistrer pour voir comment VBA créer une feuille et copie de spécial comme exemple similaire ci-dessous.

J'ai de la difficulté dans la recherche pour le nom de la feuille - Tous les exemples que j'ai trouvé, soit il faut que je sache nom exact (même en Macro) ou je dois faire une copie de toutes les feuilles en boucle (si toutes les feuille et exemplaire, peu importe le nom).

Sub Macro1()
    Sheets("Sheet1").Select
    Sheets("Sheet1").Copy Before:=Sheets(1)
    Sheets("Sheet1(2)").Select
    Cells.Select
    Selection.Copy
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
End Sub

Comment puis-je rechercher pour les plaques de nom? Dans ce cas, toute feuille qui a "CopyA"?

  • CCN, si vous avez résolu votre question vous devriez poster votre réponse comme une solution et le marquer comme résolu.
  • Il n'est pas permis à moi de poster une solution dans une période de temps. Je crois que 8 heures après la question est affiché.
InformationsquelleAutor NCC | 2012-05-20
  1. 4

    D'une autre façon 🙂 Vous pouvez également utiliser Instr(). Par exemple

    Pour toutes les feuilles du classeur, utilisez ce

    Option Explicit

Sub Macro1()
    Dim ws As worksheee

    For Each ws In ThisWorkbook.Sheets
        If InStr(1, ws.Name, "CopyA") Then
            '~~ > Your code
        End If
    Next
End Sub

    Pour ActiveSheet utiliser cette

    Option Explicit

Sub Macro1()
    If InStr(1, ActiveSheet.Name, "CopyA") Then
        '~~ > Your code
    End If
End Sub
    • La déroute - Il est beaucoup beaucoup plus meilleure que la mienne
    InformationsquelleAutor Siddharth Rout