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

• #2692 Delila_1 veterán bundli #2690

  Új Válasz 2016-03-02 15:12:45 #2692

  Ú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

  

  Delila_1

  veterán

  válasz bundli #2690 üzenetére

  Azért leírom, de szigorúan próba nélkül. A laphoz kell rendelni a makrót.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sor As Long
  
  If Target.Address = "$B$1" And IsNumeric(Target) Then
  Application.EnableEvents = False
  Columns(1).ClearContents
  For sor = 1 To Target
  Cells(sor, 1) = "Teszt " & sor
  Next
  Application.EnableEvents = True
  End If
  End Sub

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