Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Anders (software)

VBA Macro start niet

None
1 antwoord
  • Beste,

    Ik ben niet echt thuis in VBA, maar heb hier nu wel een probleem mee.

    Bijgaande code in VBA loopt niet in de Excel file en ik kan niet achterhalen waar het in zit?? Iemand een idee?? Doel is dat wanneer er in het tabblad Dashboard iets wordt gewijzigd, dit direct ook wordt aangepast in tabblad Data en dat dit herkenbaar is met een gekleurde regel.

    Macro:

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("H24:BG27")) Is Nothing Then Exit Sub Else
    Application.EnableEvents = False
    Application.ScreenUpdating = False

    Dim Totaal, Waarde, Rij, Kolom, TabelRij, TabelKolom As Integer

    Totaal = Cells(10, 6).Value
    Waarde = Target.Value
    Rij = Target.Row
    Kolom = Target.Column
    TabelRij = Cells(20, Kolom).Value
    TabelKolom = Cells(Rij, 4).Value

    If Totaal = True Then
    MsgBox ("Geen wijzingen mogelijk op concept niveau. Pas de wijzingen aan op product niveau")
    Else

    Sheets("Data").Cells(TabelRij, TabelKolom).Value = Waarde
    Sheets("Data").Cells(TabelRij, TabelKolom).EntireRow.Interior.Color = RGB(255, 255, 125)
    Sheets("Data").Cells(TabelRij, TabelKolom).Interior.Color = RGB(143, 69, 241)
    Sheets("Dashboard").Select

    End If

    Cells(Rij, Kolom - 1).Copy
    Cells(Rij, Kolom).Select
    ActiveSheet.Paste

    Application.ScreenUpdating = True
    Application.EnableEvents = True
    End Sub


    Dank je wel voor de reactie!

    gr. Fridus

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.