anoniem Geplaatst: 23 december 2011 Delen Geplaatst: 23 december 2011 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 Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen