warmerfare
Nieuwe gebruiker
- Lid geworden
- 17 mrt 2017
- Berichten
- 4
Hey beste lezer,
Ik zit met een vraagstuk waar ik maar geen oplossing voor kan vinden. Ik wil namelijk automatisch rows overschijven met ge-update informatie aan de hand van unieke nummers in kolom A.
Dit is hoever ik ben gekomen:
Sub ifequaldo()
Dim rngName As Range, rngNames As Range
Set rngNames = Range("A" & Rows.Count)
For Each rngName In rngNames
If rngName.Value = "A" & Rows.Count Then
ActiveCell.Select = ("A8")
End If
Next rngName
End Sub
Nu zou dit simpele scriptje ervoor moeten zorgen dat cell A8 geselecteerd word (ik haal namelijk de waardes uit dezelfde bron als dat deze mee gecontroleerd worden, dus de uitkomst zou altijd TRUE moeten zijn) alleen doe ik iets fout, want de cel word niet geselecteerd
Iemand enig idee wat ik verkeerd doe?
Het uiteindelijke doel is om voor unieke nummers die al in het document staan de row te overschrijven met nieuwe data, en voor unieke nummers die nog niet in het document staan de cel onder de onderste regel selecteren en daar vervolgens de row in te voegen. De bron is standaard een nieuw aangemaakt werkboek (book1) waar de rows in geplakt zijn uit ons systeem. (de kolommen zijn in deze 2 document exact hetzelfde op de verschillende waardes in cellen na).
Alvast bedankt
Mvg, Jerry
Ik zit met een vraagstuk waar ik maar geen oplossing voor kan vinden. Ik wil namelijk automatisch rows overschijven met ge-update informatie aan de hand van unieke nummers in kolom A.
Dit is hoever ik ben gekomen:
Sub ifequaldo()
Dim rngName As Range, rngNames As Range
Set rngNames = Range("A" & Rows.Count)
For Each rngName In rngNames
If rngName.Value = "A" & Rows.Count Then
ActiveCell.Select = ("A8")
End If
Next rngName
End Sub
Nu zou dit simpele scriptje ervoor moeten zorgen dat cell A8 geselecteerd word (ik haal namelijk de waardes uit dezelfde bron als dat deze mee gecontroleerd worden, dus de uitkomst zou altijd TRUE moeten zijn) alleen doe ik iets fout, want de cel word niet geselecteerd
Iemand enig idee wat ik verkeerd doe?
Het uiteindelijke doel is om voor unieke nummers die al in het document staan de row te overschrijven met nieuwe data, en voor unieke nummers die nog niet in het document staan de cel onder de onderste regel selecteren en daar vervolgens de row in te voegen. De bron is standaard een nieuw aangemaakt werkboek (book1) waar de rows in geplakt zijn uit ons systeem. (de kolommen zijn in deze 2 document exact hetzelfde op de verschillende waardes in cellen na).
Alvast bedankt
Mvg, Jerry