• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Macro win 10

Status
Niet open voor verdere reacties.
I

idarkreaver

Gebruiker
Lid geworden
3 dec 2017
Berichten
27
Hallo,

Via deze weg hadden mij geholpen aan een macro maar sinds mijn nieuwe installatie van win 10 wil die niet meer lopen. Weet iemand wat ik kan doen?

Dit was toen de code:

Sub cobbe()
Dim cl As Range
For Each cl In Range("J:J").SpecialCells(xlCellTypeConstants)
If cl = 0 Then cl = cl.Offset(, -1)
Next
End Sub

Dankje
 
Draait deze macro in Win10? Misschien ook eerst Office installeren? Wat werkt er niet? Iets meer informatie is wenselijk?

Code: 
Sub VenA()
  For Each cl In Columns(10).SpecialCells(2)
    If cl.Value = 0 Then cl = cl.Offset(, -1).Value
  Next cl
End Sub
 
Hoi Vena,

Ons programma heeft blijkbaar de ( If cl.Value =) 0 aangepast naar een blanco cell. Welke verwijzing kan ik dan gebruiken ipv 0 ( = blanco)

Sub VenA()
For Each cl In Columns(10).SpecialCells(2)
If cl.Value = 0 Then cl = cl.Offset(, -1).Value
Next cl
End Sub
 
mijn excuses, zie in bijlage de file.
 

Bijlagen

  • project M.xlsm
    35,4 KB · Weergaven: 25
Zo beter?

Code: 
Sub VenA()
  On Error Resume Next
  Columns(3).SpecialCells(4) = Columns(3).SpecialCells(4).Offset(, -1).Value
End Sub
 
je macro is nu:
Code: 
Sub cobbe()
Dim cl As Range
For Each cl In Range("C:C").SpecialCells(xlCellTypeConstants)
If cl = 0 Or cl = "" Then
    cl = cl.Offset(, -1)
End If
Next
End Sub

hierin wordt alleen gekeken naar de cellen in kolom C waar een waarde in staat > dus lege cellen worden dus overgeslagen
wijzig je macro bijvoorbeeld in:

Code: 
Sub cobbe()
Dim cl As Range
For Each cl In Range("B:B").SpecialCells(xlCellTypeConstants).Offset(, 1)
If cl = 0 Or cl = "" Then
    cl = cl.Offset(, -1)
End If
Next
End Sub
 
Laatst bewerkt:
en @VenA dan?
 
Ja VenA ook :) heeft me trouwens al veel uit de nood geholpen! :)

Groetjes en fijn weekend
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan