formule in VBA

[susanthuis]

Beste Helpmij,

Hoe kan ik de bijgaande formule in VBA plaatsen: =ALS(A3=A2;"";A3)

Dank alvast!

Groeten,

Susan

 

[spaarie]

De simpele versie

Sub spaarie()
If Range("A3") = Range("A2") Then
Range("A1") = ""
Else
Range("A1") = Range("A3")
End If
End Sub

 

[edmoor]

Prima hoor, maar waarom niet even zo?

Sub spaarie()
    If Range("A3") = Range("A2") Then
        Range("A1") = ""
    Else
        Range("A1") = Range("A3")
    End If
End Sub

*Zeikerd mode Off

 

[spaarie]

Pfffffff.............

 

[susanthuis]

De simpele versie

Sub spaarie()
If Range("A3") = Range("A2") Then
Range("A1") = ""
Else
Range("A1") = Range("A3")
End If
End Sub

Dankjewel!!:d
Stel dat deze range doorloopt naar een volgende cel, wat verandert er dan aan het script??

 

[spaarie]

Bedoel je zoiets?

Sub spaarie()
    If Range("A3:B3") = Range("A2:B2") Then

Zo geef je aan A3 TOT B3 of wil je A3 EN B3?

 

[snb]

sub snb()
  [A2:A100]=[if(A2:A100=offset(A2:A100,-1,0),"",A2:A100)]
end sub

 

[susanthuis]

Bedoel je zoiets?

Sub spaarie()
    If Range("A3:B3") = Range("A2:B2") Then

Zo geef je aan A3 TOT B3 of wil je A3 EN B3?

Het werkt helaas nog niet. Denk dat ik niet duidelijk ben. Wat ik wil hebben is het volgende: Als cel A3 (bijvoorbeeld 1) gevuld is en gelijk is aan cel A2 (bijvoorbeeld 1), dan moet cel A3 leeg zijn. Als cel A4 gevuld is (bijvoorbeeld 2)en gelijk is aan cel A3 (bijvoorbeeld 2) dan moet cel A4 leeg zijn. etc.

 

[susanthuis]

sub snb()
  [A2:A100]=[if(A2:A100=offset(A2:A100,-1,0),"",A2:A100)]
end sub

Hoi Snb,

Ik had deze nog niet gelezen maar dit werkt hartstikke goed!!!:thumb:
Hoop dat ik nog een vraagje kan plaatsen. Deze kolom bevat ook (tussen) randen. Wat moet er in het script aangevuld worden als ik geen tussen de cellen wil??

 

[sylvester-ponte]

susan, bedoel je dit? Bekijk bijlage zie gele cellen(1.xlsm
stuur anders een voorbeeldbestandje met met daar in wat je bedoelt
groet sylvester

 

[alphamax]

als ik zie wat de formule in bericht#1 doet
dan denk ik dat de standaard excel functie "duplicaten verwijderen" (tabblad gegevens) ook een mogelijkheid is

 

[sylvester-ponte]

alphamax, in de formule in bericht#1 staat niet alle dubbellen verwijderen maar opeenvolgende dubbellen
groet sylvester

 

[sylvester-ponte]

snb, ik vind jouw oplossing erg gaaf.
maar waar komen die nullen vandaan?
groet sylvester

 

[alphamax]

@sylvester-ponte

wat susanthuis doet met formules, deed ik vroeger ook
mijn volgende stap was sorteren
op een ander excel-forum heb ik meer dan 1000 berichten geplaatst
dus soms geef ik al een antwoord voordat de vraag gesteld wordt