lundi 23 février 2015
macht maken en regel kopieren
Posted on 05:28 by Unknown
Goedemiddag
Ik heb een vraag over onderstaande
Hoe kan ik de selectie die ik nu moet doen op kolom instellen op een bereik (A1 tot A100)
En hij vind de matches in kolom C deze schrijft hij naar sheet 2 alleen graag zou ik de info in D tm G ook meenemen
Wie kan mij helpen
Sub Find_Matches()
Dim CompareRange As Variant, x As Variant, y As Variant, z As Integer
z = 1
Set CompareRange = Range("C1:C2000")
' Opmerking Als het vergelijkingsbereik zich in een andere werkmap
' of een ander werkbalk bevindt, gebruikt u de volgende syntaxis.
' Set CompareRange = Workbooks("Book2"). _
' Worksheets("Sheet2").Range("C1:C5")
'
' Doorloop elke cel in de selectie en vergelijk deze met
' elke cel in CompareRange.
For Each x In Selection
For Each y In CompareRange
If x = y Then
Blad2.Range("A" & z).Value = x
Blad2.Range("B" & z).Value = y
Blad2.Range("C" & z).value = Blad1.Range("D"+Z)
z = z + 1
End If
Next y
Next x
End Sub
Ik heb een vraag over onderstaande
Hoe kan ik de selectie die ik nu moet doen op kolom instellen op een bereik (A1 tot A100)
En hij vind de matches in kolom C deze schrijft hij naar sheet 2 alleen graag zou ik de info in D tm G ook meenemen
Wie kan mij helpen
Sub Find_Matches()
Dim CompareRange As Variant, x As Variant, y As Variant, z As Integer
z = 1
Set CompareRange = Range("C1:C2000")
' Opmerking Als het vergelijkingsbereik zich in een andere werkmap
' of een ander werkbalk bevindt, gebruikt u de volgende syntaxis.
' Set CompareRange = Workbooks("Book2"). _
' Worksheets("Sheet2").Range("C1:C5")
'
' Doorloop elke cel in de selectie en vergelijk deze met
' elke cel in CompareRange.
For Each x In Selection
For Each y In CompareRange
If x = y Then
Blad2.Range("A" & z).Value = x
Blad2.Range("B" & z).Value = y
Blad2.Range("C" & z).value = Blad1.Range("D"+Z)
z = z + 1
End If
Next y
Next x
End Sub
macht maken en regel kopieren
Categories: macht maken en regel kopieren
Inscription à :
Publier les commentaires (Atom)
0 commentaires:
Enregistrer un commentaire