Problemen met celbereik

[mick01]

Goedendag,

In het bijgevoegde bestand heb ik het volgende probleem.
Na verandering van één van de cellen in de kolom 'fles nummer' (Range D637), wordt de vraag gesteld, of hier een kaart van gemaakt moet worden. Na 'ja', wordt deze kaart, aangemakt dmv sjabloon 'label' in het hoofd document.

Nu wil het geval, dat er in de VBA code gekeken wordt naar het gehele werkblad en er bij verandering van welke cel dan ook (bijv. 'fles status aanpassen'), dezelfde vraag gesteld wordt (mits één van de cell binnen de range >0).

Ik heb diverse opties geprobeerd, maar ben nu echt het spoor bijster.

De bedoeling is, dat bij verandering van ALLEEN de cellen binnen de range, de vraag gesteld wordt.

Wie kan mij helpen?

Alvast bedankt voor de moeite.

 

[snb]

Dit is voldoende

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  If Not Intersect(Target, Range("D6:D37")) Is Nothing Then
    Sheets(Target).Activate
    If Err.Number > 0 Then
      If MsgBox("Flessenkaart aanmaken?", vbYesNo + vbDefaultButton2, "Bevestiging") = vbYes Then
        Sheets("Label").Copy Sheets(Sheets.Count)
        With Sheets(Sheets.Count)
          .Name = Target
          .Cells(2, 2) = Target.Value
        End With
      End If
    End If
  End If
End Sub

 

[mick01]

Bedankt

SNB

Werkt perfect!!!:thumb:

Bedankt voor je reactie.

Groeten,

Mick