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

• #43257 ROBOTER addikt Fferi50 #43256

  Új Válasz 2020-03-15 17:13:30 #43257

  Ú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

  

  ROBOTER

  addikt

  válasz Fferi50 #43256 üzenetére

  Szia!

  Biztos valami faék hiba lesz, mert ennyire hülye nem lehetek, de nem jövök rá.

  Nincs Option Explicit utasítás

  Module1:
  Public newSheetNamePos As String
Public defaultSheetName As String
Sub MyStart()
  defaultSheetName = "ÚJ NÉV"
  newSheetNamePos = "$B$11"
    Worksheets("START").Range(newSheetNamePos).Value = defaultSheetName
    ...
    ...

  Thisworkbook:
  Private Sub Workbook_Open()
    Module1.MyStart
End Sub

  START:
  Private Sub Worksheet_Change(ByVal Target As Range)
        MsgBox Target.Offset.Address & " ---- " & newSheetNamePos
        If Target.Offset.Address = newSheetNamePos Then
                newSheet
        End If
End Sub

  A Change, amikor megnyitás után először hívódik, mert változás történik a START lapon, a feltétel két oldala azonos, ellenőrzésképpen van benne az MsgBox, és ugyanaz van a két oldalon, tökéletesen működik. Amikor új változás van a START lapon, és újra hívódik a Sub, a newSheetNamePos üres. A szó sehol nem szerepel más helyen a kódban.

  Első alkalommal ez, második alkalommal üres a jobb oldal.

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