Új hozzászólás Aktív témák

• #17232 whatnot őstag Delila_1 #17231

  Új Válasz 2013-03-13 16:01:10 #17232

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  whatnot

  őstag

  válasz Delila_1 #17231 üzenetére

  Private Sub Worksheet_Change(ByVal Target As Range)
  
  Dim ShapeDel As Integer
  Dim wPath As String
  
  Range("A1").Select
  
  If Target.Address = "$A$1" Then
  
  For ShapeDel = 2 To ActiveSheet.Shapes.Count
  Shapes(ShapeDel).Delete
  Next
  
  ...

  Ezt beraktam egy teljesen új munkalapra.
  Első próbánál még ott volt a nyíl, másodiknál már nem.

Új hozzászólás Aktív témák