Is het lager dan 5,5 dan tekst uit cell

Status
Niet open voor verdere reacties.
T

Tweety1

Gebruiker
Lid geworden
6 mrt 2013
Berichten
637
Ik ben opzoek naar een vba die het volgende doet.
In kolom "H" staat een getal (kan ook getal zijn in tekst) is deze lager dan een 5,5 dan moet hij de tekst van de cell "A2" van "Blad2" in kolom "G" plaatsen.
Is hoger en gelijk aan 5,5 dan de tekst van cell "A2" van "Blad1". De range beging bij rij 5 en aantal rijen is variable.


mvg

Kasper
 

Bijlagen

  • Lager dan.xlsx
    8,7 KB · Weergaven: 34
Laatst bewerkt:
Code: 
Sub hsv()
Dim arr, sv, i As Long
arr = Sheets("blad2").Cells(1).CurrentRegion
 With Sheets("blad1").Range("g5").CurrentRegion
  sv = .Value
    For i = 1 To UBound(sv)
      sv(i, 1) = IIf(CVar(sv(i, 2)) < 5.5, arr(2, 1), arr(1, 1))
    Next
  .Value = sv
 End With
End Sub
 
Laatst bewerkt:
Bedankt HSV,

Hij werkt op zich goed alleen gebeurt er niks als kolom "F" gevuld is.
 
Daar staat ook niets in je bestand.
 
Code: 
Sub hsv()
Dim arr, sv, i As Long
arr = Sheets("blad2").Cells(1).CurrentRegion
 With Sheets("blad1").Range("f5").CurrentRegion.Resize(, 3)
  sv = .Value
    For i = 1 To UBound(sv)
      sv(i, 2) = IIf(CVar(sv(i, 3)) < 5.5, arr(2, 1), arr(1, 1))
    Next
  .Value = sv
 End With
End Sub
 
Graag gedaan.

Als het alleen getallen waren kan het ook zo.
Code: 
Sub hsv()
 [g5:g12] = [if(blad1!h5:h12<5.5,blad2!a2,blad2!a1)]
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan