Astuces Excel
  1. Astuces Excel
  3. Utilisation des noms de colum en VBA
Intereting Posts
Essayer de find la différence dans le sorting La feuille de calcul de l'échelle de l'object a échoué avec dans les arrays Globe Software Atlas Error: Fonction AtlasTable "Impossible de créer Atlas forumla" Trend Function renvoie des valeurs faibles dans Excel Je reçois ClassNotFoundException lorsque j'essaie de lire le file excel Les valeurs des files Excel ne sont pas mises à jour merge les feuilles en fonction de deux colonnes communes Selenium Webdriver Comment sélectionner les loggings de la table en récupérant l'input Excel Excel VBA vérifie si des valeurs existent dans diverses comboboxes puis ajoutez des valeurs de textbox correspondantes Rlocation Excel des nombres avec des noms Comment puis-je changer où les résultats de la requête vont dans Excel VBA? build un tableau avec résultat de la formule en modifiant un paramètre Télécharger le file via FTP depuis Excel VBA Excel 2016: ajout de valeurs numériques dans une rangée à partir de cellules avec text et nombres Copier l'location variable dernière ligne vers une autre feuille VBA

Utilisation des noms de colum en VBA

J'ai le code ci-dessous qui search du text spécifique en fonction de l'en-tête Col, comme Col O, Col P etc. Au lieu de cela, je veux searchr à l'aide du nom de colonne correspondant dans la ligne 1.

J'ai ajouté le nom de la colonne dans les commentaires du code. 

Sub PassFailValidationandupdatecomments() Dim Rng As Range, cl As Range Dim LastRow As Long, MatchRow As Variant With Sheets("DRG") LastRow = .Cells(.Rows.count, "E").End(xlUp).Row '"E" - Live ASIN Set Rng = .Range("E2:E" & LastRow) ' "E" - Live ASIN End With With Sheets("Latency") For Each cl In .Range("B2:B" & .Cells(.Rows.count, "B").End(xlUp).Row) ` "B" - ASIN MatchRow = Application.Match(cl.Value, Rng, 0) If Not IsError(MatchRow) Then Select Case Sheets("DRG").Range("AH" & MatchRow + 1).Value ' "AH" - Final Test Result .Range("O" & cl.Row).Value = "Pass" '"O" - Pass/Fail Case "Pended" .Range("O" & cl.Row).Value = "Fail"'"O" - Pass/Fail Case "In progress" .Range("O" & cl.Row).Value = "In progress"'"O" - Pass/Fail End Select If Not Sheets("DRG").Range("E" & MatchRow + 1).Value = vbNullSsortingng Then .Range("P" & cl.Row).Value = .Range("P" & cl.Row).Value & IIf(Not .Range("P" & cl.Row).Value = vbNullSsortingng, ";", "") & Sheets("DRG").Range("S" & MatchRow + 1).Value ' "E" - Live ASIN ; "P" - Comments ; "S" - App Trail End If Next cl End With