Astuces Excel
  1. Astuces Excel
  3. VBA et valeurs passantes
Intereting Posts
La list ne se focalisera pas lors du choix d'une autre cellule Excel Lire la valeur avec des formules à searchr échouées Macros Excel Requête simple sur un set de données de 2,5 millions d'loggings Ajout de cellules dans deux plages situées à deux feuilles différentes Comment convertir le file Xls Stream en stream Xlsx sans sauvegarder sur le disque dur Ouvrez un autre classur lors de l'ouverture du classur n ° 1 Bouclez une list, comparez la valeur à un seuil et copyz et collez une valeur correspondante VBA pour écrire le format CSV au file text – 2 points Snagging Téléchargez le file dans le file Save As C # Comment puis-je choisir le nombre le plus élevé d'une ligne, et le multiplier automatiquement par une valeur dans la même colonne? Enregistrer le document ouvert actif sous forme de file pdf VBA n'utilise pas tous les styles CSS Suppression du regroupement des colonnes de tableau croisé dynamic Comment formater datatables dans une ligne qui dans la colonne

VBA et valeurs passantes

J'essaie de comparer datatables entre deux feuilles de calcul. Chaque feuille de calcul a trois colonnes: A est une concaténation d'un client et d'un SKU, B est le volume de vente et C pour mesurer les anomalies de volume. Je vise à faire deux choses, cochez Sheet1 pour les SKU qui ne sont pas dans Sheet2 et ensuite, si les SKU correspondent aux deux feuilles, vérifiez leur volume pour les différences de quantité. Si la feuille 1 a un SKU non dans Sheet2, je veux que l'logging soit mis en surbrillance. Je l'ai accompli de façon primitive, la ligne entière est mise en surbrillance. Cependant, j'ai du mal à get le code pour vérifier les volumes si le Client et le SKU correspondent. J'espérais que VBA conserverait les valeurs des cellules qu'il vérifiait, où est-ce que j'ai mal tourné et quelle est la mise en œuvre correcte? Désolé d'être un tel n00b.

Sub Again () 

Dim lastRow As Integer Dim rng As Range lastRow = Sheets("Sheet1").Range("A65000").End(xlUp).Row For i = 1 To lastRow Set rng = Sheets("sheet2").Range("A:A").Find(Sheets("Sheet1").Cells(i, 1)) If rng Is Nothing Then Sheets("Sheet1").Cells(i, 3) = "Item not in sheet2" Sheets("Sheet1").Cells(i, 1).EntireRow.Interior.Color = vbRed ElseIf Not rng Is Nothing Then If Sheets("sheet1").Cells(i, 2).Value - Sheets("sheet2").Cells(i, 2).Value < -5 Then Sheets("sheet1").Cells(i, 3) = "Sheet2 reports " & Sheets("sheet1").Cells(i, 2).Value - Sheets("sheet2").Cells(i, 2).Value & " more units of volume." ElseIf Sheets("sheet1").Cells(i, 2) - Sheets("sheet2").Cells(i, 2) > 5 Then Sheets("sheet1").Cells(i, 3) = "Sheet1 reports " & Sheets("sheet1").Cells(i, 2) - Sheets("sheet2").Cells(i, 2) & " more units of volume." Else: Sheets("sheet1").Cells(i, 3) = "No or insignificant discrepancy" End If End If Next

End Sub

Variables. … Si je comprends vos questions correctement.

dim mySsortingng as Ssortingng dim myFloat as Float