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

• #47947 Delila_1 veterán csferke #47944

  Új Válasz 2021-12-05 07:34:11 #47947

  Ú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 csferke #47944 üzenetére

  Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lapnev As String
    If Target.Address = "$B$3" Then
        Application.EnableEvents = False
        lapnev = "Állandó " & Range("L1")
        Sheets(lapnev).Name = "Állandó " & Range("B3")
        Range("L1") = Range("B3")
        Application.EnableEvents = True
    End If
End Sub

  Első futtatás előtt írd be az L1-be az állandó szöveg utáni részt.

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