• 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.

nieuwe regel in factuuroverzicht

Status
Niet open voor verdere reacties.
Misschien gebeurt dat bij een echte tabel (listobject) niet.
Daarbij moet wel de gehele code aangepast worden.
 
De code aanpassen lukt mij niet en is veel werk (denk ik).
Dan ga ik maar handmatig bezig.
 
wijzigingen...

@HSV
Het is alweer een paar maanden geleden, dat jij mij ontzettend veel werk uit handen hebt genomen door code voor mijn 'factuuroverzicht' te maken.
Nu heb ik het factuuroverzicht gewijzigd.
Tot mijn grote spijt, werkt jouw code niet helemaal goed meer.
Zou je me nog een keer willen helpen; door de code zo aan te passen, dat het weer naar behoren werkt?
Alvast mijn grote dank!
Hier is het gewijzigde factuuroverzicht: Bekijk bijlage factuuroverzicht LaVaCo.xlsb
 
Welke wijzigingen Henk

:rolleyes:
 
Beetje raar om er een lege kolom voor te zetten.
Beginnen in cel A1 geeft eenvoudiger codes.

Test het maar eens, het is alweer even geleden.
Code: 
Sub nieuwe_regel_in_factuuroverzicht()
'q
' nieuwe_regel_in_factuuroverzicht Macro
'
' Sneltoets: Ctrl+b
Application.ScreenUpdating = False
Application.DisplayAlerts = False
  With Rows(Cells(Rows.Count, 1).End(xlUp).Row)
   .Insert xlDown, .Offset(-2).Copy
  End With
 With Cells(Rows.Count, 2).End(xlUp)
      .Offset(-1).Hyperlinks(1).Delete
      .Hyperlinks.Add .Offset(-1), .Offset(-2)
      .Offset(-1).Hyperlinks(1).Address = "2018\2018-" & CLng(Right(Replace(.Offset(-1).Hyperlinks(1).Address, ".xlsm", ""), 5)) + 1 & ".xlsm"
      .Offset(-1).Hyperlinks(1).TextToDisplay = "2018-" & CLng(Right(Replace(.Offset(-1).Hyperlinks(1).Address, ".xlsm", ""), 5))
 End With
Application.CutCopyMode = False
Application.DisplayAlerts = True
End Sub
 
Laatst bewerkt:
Op verzoek van Henk Bakker heropend.
 
foutmelding (@HSV)

Met de code (geschreven door HSV), die tot voor kort zijn werk uitstekend deed, is plotseling iets mis!

De code is gekoppeld aan een knop. Als ik de knop indruk, komt Fout 1004 tijdens uitvoering: Door de toepassing of door object gedefinieerde fout.
Als ik vervolgend op Foutopsporing klik, verschijnt de code in beeld:

Code: 
Private Sub CommandButton1_Click()
'q
' nieuwe_regel_in_factuuroverzicht Macro
'
' Sneltoets: Ctrl+q
Application.DisplayAlerts = False
  With Rows(Cells(Rows.Count, 1).End(xlUp).Row)
   .Insert xlDown, .Offset(-2).Copy
  End With
 With Cells(Rows.Count, 2).End(xlUp)
      .Offset(-1).Hyperlinks(1).Delete
      .Hyperlinks.Add .Offset(-1), .Offset(-2)
      .Offset(-1).Hyperlinks(1).Address = "2019-" & Split(.Offset(-1).Hyperlinks(1).Address, "-")(1) + 1 & ".xlsm"
      .Offset(-1).Hyperlinks(1).TextToDisplay = "2019-" & Split(.Offset(-1), "-")(1) + 2
      .Offset(-1, 1).Resize(, 9).Replace .Offset(-3).Formula, .Offset(-1).Formula
 End With
Application.CutCopyMode = False
Application.DisplayAlerts = True
End Sub

De volgende regel is geel gekleurd:
Code: 
.Insert xlDown, .Offset(-2).Copy
(hier zit dus iets niet goed).

Wie kan mij helpen de code weer werkend te krijgen?
 

Bijlagen

  • factuuroverzicht LaVaCo SEA-008.xlsb
    115 KB · Weergaven: 17
Tja, als kolom A helemaal leeg is......
 
dan zetten we de vraag weer op slot.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan