Cel kopieren als aan aantal voorwaarden voldaan wordt

[Morriss]

Goedemorgen,

Graag zou ik het volgende in een macro (of op een andere manier) hebben staan:

Per regel zou moeten gelden: als (cel) I is "pdf" EN (cel) AZ is "pdf" OF "PDF" OF "Pdf", dan moet de waarde van (cel) AZ gekopieerd worden naar (cel) A.

Dus als

I = "pdf"
EN

AZ = "PDF"
OF
AZ = "pdf"
OF
AZ = "Pdf"

Dan: (cel) AZ kopieren naar (cel) A



Iemand die me hiermee kan helpen?

Alvast bedankt!!!

 

[ExcelAmateur]

Morriss,

Het is volgens mij beter als je er een voorbeeld met daarin een goede uitleg er bij doet.
Dan is het voor een ieder diuidelijker, denk ik.

 

[leofact]

Zoals Morriss al aangaf een voorbeeld is altijd handig.
Daarop vooruitlopend, kun je de volegnde formule in A1 plaatsen om aan genoemde voorwaarden te voldoen:

=ALS(EN(I1="pdf";HOOFDLETTERS(AZ1)="PDF");AZ1;"")

Mvg Leo

 

[Morriss]

Bedankt voor de oplossing zo ver, maar dat is hem nog niet helemaal. Op het moment dat niet aan de voorwaarden voldaan wordt moet A namelijk zijn originele waarde behouden.

Zie bijlage voor een voorbeeld. Bedankt voor de moeite iig!Bekijk bijlage TEST.xlsx

 

[leofact]

Dat gaat inderdaad alleen met VBA.

Met de volgende macro gebeurt dit na b.v een druk op de knop.

Sub PDF()
Dim r As Range
Application.ScreenUpdating = False
    For Each r In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        If Range("I" & r.Row) = "pdf" And UCase(Range("M" & r.Row)) = "PDF" Then Range("A" & r.Row) = Range("O" & r.Row)
    Next
End Sub

Een andere methode is om dit in het on_change event van het werkblad te doen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRij As Integer
   iRij = Target.Row
        If Cells(iRij, 9) = "pdf" And UCase(Cells(iRij, 13)) = "PDF" Then Cells(iRij, 1) = Cells(iRij, 15)
End Sub

Zie bijlage.
De event macro staat in het tweede werkblad.

Mvg Leo
Bekijk bijlage PDFloop.xlsm

 

[Morriss]

Helemaal super, dankjewel! Die Sub PDF() heb ik gebruikt, werkt als een zonnetje! Stel dat ik nou voor kolom M meerdere voorwaarden wil stellen, dus dat de voorwaarden bijvoorbeeld zijn: EN "PDF" EN "DOC"?

Moet ik dan 2 verschillende macro's maken of kan ik meerdere voorwaarden integreren?

 

[Niels28]

Sub PDF()

Application.ScreenUpdating = False
    For Each cl In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(2)
        If cl.Offset(, 8).Value = "pdf" And UCase(cl.Offset(, 12).Value) = "PDF" Or UCase(cl.Offset(, 12).Value) = "DOC" Then cl.Value = cl.Offset(, 14)
    Next
End Sub

Niels

 

[Morriss]

Helemaal fantastisch Niels! Dankjewel!