login  Naam:   Wachtwoord: 
Registreer je!
 Forum

Macro Excel (Opgelost)

Offline tommech - 08/08/2008 09:28
Avatar van tommechLid Ik wil een macro die waardes met elkaar vergelijkt en als ze niet dezelfde zijn een lege lijn tussen de 2 cellen invoegt. en dit zou voor gans de kolom B gedaan moeten worden tot er geen waardes meer in de cel staan.

bijvoorbeeld zo iets in die aard:

do zolang er "B" & (teller + 1) geen lege cel is
ALS waarde cel "B" & teller <> waarde cel "B" & (teller + 1)
voer lege rij in
teller = teller +1

2 antwoorden

Gesponsorde links
Offline Stijn - 08/08/2008 18:10 (laatste wijziging 08/08/2008 20:05)
Avatar van Stijn PHP expert Dat is ook toevallig, ik moest eergisteren ook een macro schrijven in excel op me werk voor de eerste keer. Als je VB kent, is dat echt kinderspel. Maar even ontopic. Ik vermoed dat je van B1:B65536 wilt of niet? Ik zal er eens een macro voor schrijven, binnen enkele uren zal je hem krijgen.

  1. Sub check_row_B()
  2. '
  3. ' check_row_B Macro
  4. ' Stijn Leenknegt
  5. '
  6. For i = 1 To 65535
  7.  
  8. v1 = Range("B" & i).Value
  9. i = i + 1
  10. v2 = Range("B" & i).Value
  11.  
  12. If v1 <> v2 Then
  13. Rows(i & ":" & i).Select
  14. Selection.Insert Shift:=x1Down
  15. End If
  16.  
  17. i = i + 1
  18.  
  19. Next
  20.  
  21. End Sub


Een tip: Gebruik de macro recorder om bijvoorbeeld te weten te komen hoe je een row kan invoegen, hoe je een cel zijn inhoud kan opvragen etc.
Offline tommech - 11/08/2008 14:15 (laatste wijziging 14/08/2008 12:39)
Avatar van tommech Lid hmm :-s

bepaalde stukken doet hem goed, bepaalde stukken zet hem er 2 lege lijnen tussen en de andere stukken doet hem helemaal niet  

opgelost: de verhoging stond niet op de juiste plek
Gesponsorde links
Dit onderwerp is gesloten.
Actieve forumberichten
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.174s