VBA meerdere Application.CountIf

[ivoexcel]

Ik kan deze 2 codes ook achter elkaar draaien alleen moet dan ,"nee" er niet in. Hoe kan ik zorgen dat er dan niks gebeurt?

 

[VenA]

In kolom D en E staan identieke getallen. Plaats code svp tussen codetags nu is het haast niet te lezen. Probeer ook de methodiek te begrijpen.

IIf(ar1(j, 10) = "", ar1(j, 10), ar1(j, 10)))

Als waar dan anders doe hetzelfde?

 

[ivoexcel]

Ik ben duidelijk nog niet echt scherp vandaag...


Ik heb er onderstaande van gemaakt dan worden ook de regels waarbij A leeg is juist meegenomen

Sub aanpassing()

ar = Sheets("Akkoord").Cells(1).CurrentRegion.Value2
ar1 = Sheets("Data").Cells(1).CurrentRegion.Value2
  
    With CreateObject("Scripting.Dictionary")
    For j = 2 To UBound(ar)
      .Add ar(j, 1) & "|" & ar(j, 2) & "|" & ar(j, 4), ""
    Next j
    For j = 2 To UBound(ar1)
    If (ar1(j, 1) <> "") Then
        ar1(j, 33) = IIf(ar1(j, 1) <> "" And .exists(ar1(j, 5) & "|" & ar1(j, 8) & "|" & IIf(ar1(j, 9) = "", ar1(j, 9), ar1(j, 9))), "Ja", "-")
    Else
         ar1(j, 33) = IIf(ar1(j, 1) = "" And .exists(ar1(j, 5) & "|" & ar1(j, 8) & "|" & IIf(ar1(j, 10) = "", ar1(j, 10), ar1(j, 10))), "Ja", "-")
    End If
    Next j
  End With
  
  Sheets("data").Cells(1).CurrentRegion.Resize(, 33) = ar1

End Sub

 

[snb]

Je bent helemaal niet scherp.
HTLM-tags zijn geen code tags #
Wijzig svp je vorige bijdragen in leesbare bijdragen.

Sub M_snb()
  sn = Blad3.Cells(1).CurrentRegion
  sp = Blad2.Cells(1).CurrentRegion
  
  With CreateObject("Scripting.Dictionary")
    For j = 2 To UBound(sn)
      x0 = .Item(sn(j, 1) & "|" & sn(j, 2) & "|" & sn(j, 4))
    Next j
    For j = 2 To UBound(sp)
      sp(j, 1) = Format(.exists(sp(j, 5) & "|" & sp(j, 8) & "|" & sp(j, 9) & sp(j, 10)), "Yes/No")
    Next j
  End With
  
  Blad2.Cells(1, 34).Resize(UBound(sp)) = sp
  Blad2.Columns(34).Replace "Nee", "-"
End Sub

 

[HSV]

Waarom worden geplaatste bestanden weer verwijderd?

 

[VenA]

Volgens mij staan de bestanden nog in #6 en #8. Verder heb ik geen bestanden gezien.

Edit het bestand in #14 is verdwenen.

 

[ivoexcel]

Hier stonden nog privégegevens in. Met de toevoeging value2 was dit opgelost. Verder volstaat het voorbeeld bestand.

De macro werkt nu perfect dus heel erg bedankt voor jullie hulp!

 

[ivoexcel]

Helaas gaat dit toch niet goed. Kolom E en F zijn niet altijd gelijk in de praktijk.

      .Add ar(j, 1) & "|" & ar(j, 2) & "|" & ar(j, 5), ""

Er moet dus toch anders gezocht worden iets zoals onderstaand helaas werkt deze niet.

ar = Sheets("Akkoord").Cells(1).CurrentRegion.Value2
ar1 = Sheets("Data").Cells(1).CurrentRegion.Value2
  
   With CreateObject("Scripting.Dictionary")
    For j = 2 To UBound(ar)
        If (ar1(j, 1) <> "") Then .Add ar(j, 1) & "|" & ar(j, 2) & "|" & ar(j, 5), "" Else .Add ar(j, 1) & "|" & ar(j, 2) & "|" & ar(j, 6), ""
    Next j
    For j = 2 To UBound(ar1)
        If (ar1(j, 1) <> "") Then ar1(j, 33) = IIf(ar1(j, 1) <> "" And .exists(ar1(j, 5) & "|" & ar1(j, 8) & "|" & IIf(ar1(j, 9) = "", ar1(j, 9), ar1(j, 9))), "Ja", "-") Else ar1(j, 33) = IIf(ar1(j, 1) = "" And .exists(ar1(j, 5) & "|" & ar1(j, 8) & "|" & IIf(ar1(j, 10) = "", ar1(j, 10), ar1(j, 10))), "Ja", "-")
    Next j
    End With
  
  Sheets("data").Cells(1).CurrentRegion.Resize(, 33) = ar1

 

[snb]

Zie #24

 

[ivoexcel]

Die code zoekt altijd in 4. Niet in kolom 5 als 1 leeg is.

x0 = .Item(sn(j, 1) & "|" & sn(j, 2) & "|" & sn(j, 4))