IF AND THEN voor 1 rij laten gelden voor alle actieve rijen in bestand

Status
Niet open voor verdere reacties.

Linda927

Gebruiker
Lid geworden
8 sep 2015
Berichten
14
Goedemorgen,

Ik heb een Regel ingesteld voor een bestand.

Deze regel heb ik nu ingesteld voor rij 1, maar ik wil graag dat deze wordt uitgevoerd voor alle actieve rijen in het bestand. Het aantal rijen kan variëren tussen de 1 en 10000 regels.

Kan iemand me helpen aan de aanpassing die ik moet doen? Ik heb het met een loop geprobeerd, maar dat lukt mij helaas nog niet.

Code:
Sub Macro5()

        If Range("X1").Value = "Factuur" And Range("A1").Value = "WVDNL" Then
         Range("X:X").Select
         ActiveCell.Offset(0, -7).Range("A1").Select
         Selection.Replace What:="595", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Selection.Replace What:="744", Replacement:="149", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
     End If
End Sub

Alvast bedankt voor degene die hier tijd voor vrij wil maken!

Mvg Linda :)
 
Graag een voorbeeldbestandje zonder persoonlijke informatie. Het is moeilijk te volgen wat er nu precies over meerdere regels moet lopen.

Je moet echter eigenlijk altijd "select" en "activecell" vermijden. Het maakt je oplossing onnodig complex en moeilijker algemeen te gebruiken (zoals dus bijvoorbeeld als je het wil toepassen op veel regels)
 
Je bedoeld neem ik aan Activate en niet ActiveCell.
 
Voorbeeld bestand

Bekijk bijlage VOORBEELD Linda.xlsx

Excuses voor de onduidelijkheid.

Bijgevoegd een voorbeeld bestand.

Ik wil graag dat als in een cel in kolom A een 1 staat
en in diezelfde rij vervolgens een A staat in kolom B

dat in diezelfde rij de waarde van C vervangen wordt:
10 moet bijv 5 worden en 5 moet bijv 1 worden.

Ik weet hoe ik dit IF - AND - THEN moet doen voor bijvoorbeeld alleen rij 1, maar ik wil graag dat de macro dit automatisch zoekt voor alle rijen in het bestand (tot ong. 10000 rijen)

Hopelijk ben ik zo wat duidelijker :)

Groet Linda
 
Code:
Sub macro1()
Dim x As Integer
'Deze macro werd gescrheven door Zapatr
With Sheets("Blad1")
For x = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.And(.Cells(x, 1).Value = 1, .Cells(x, 2).Value = "A") Then
Select Case .Cells(x, 3).Value
Case 10
.Cells(x, 3).Value = 5
Case 5
.Cells(x, 3).Value = 1
End Select
End If
Next x
End With
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan