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

• #20340 Attas aktív tag Delila_1 #20339

  Új Válasz 2014-02-06 11:05:25 #20340

  Ú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

  

  Attas

  aktív tag

  válasz Delila_1 #20339 üzenetére

  Ez vajon miért nem működik újfent?
  Option Explicit
  
  Sub TípusVálasztás()
  
  Dim WÜM As Worksheet
  Set WÜM = Sheets("Ütemidő műveletenként")
  
  WÜM.Select
  
  If WÜM.Cells(13, "C") = "x" Then UserForm1.Controls("AF10") = True Else UserForm1.Controls("AF10") = False
  If WÜM.Cells(13, "D") = "x" Then UserForm1.Controls("AF20") = True Else UserForm1.Controls("AF20") = False
  If WÜM.Cells(13, "E") = "x" Then UserForm1.Controls("AF30") = True Else UserForm1.Controls("AF30") = False
  If WÜM.Cells(13, "F") = "x" Then UserForm1.Controls("AF40") = True Else UserForm1.Controls("AF40") = False
  If WÜM.Cells(13, "G") = "x" Then UserForm1.Controls("AF50") = True Else UserForm1.Controls("AF50") = False
  If WÜM.Cells(13, "H") = "x" Then UserForm1.Controls("AF60") = True Else UserForm1.Controls("AF60") = False
  If WÜM.Cells(13, "I") = "x" Then UserForm1.Controls("AF70") = True Else UserForm1.Controls("AF70") = False
  If WÜM.Cells(13, "J") = "x" Then UserForm1.Controls("AF90") = True Else UserForm1.Controls("AF90") = False
  If WÜM.Cells(13, "K") = "x" Then UserForm1.Controls("AF100") = True Else UserForm1.Controls("AF100") = False
  If WÜM.Cells(13, "L") = "x" Then UserForm1.Controls("AF110") = True Else UserForm1.Controls("AF110") = False
  If WÜM.Cells(13, "M") = "x" Then UserForm1.Controls("AF120") = True Else UserForm1.Controls("AF120") = False
  If WÜM.Cells(13, "N") = "x" Then UserForm1.Controls("AF130") = True Else UserForm1.Controls("AF130") = False
  If WÜM.Cells(13, "O") = "x" Then UserForm1.Controls("AF140") = True Else UserForm1.Controls("AF140") = False
  If WÜM.Cells(13, "P") = "x" Then UserForm1.Controls("AF150") = True Else UserForm1.Controls("AF150") = False
  If WÜM.Cells(13, "Q") = "x" Then UserForm1.Controls("AF160") = True Else UserForm1.Controls("AF160") = False
  If WÜM.Cells(13, "R") = "x" Then UserForm1.Controls("AF180") = True Else UserForm1.Controls("AF180") = False
  If WÜM.Cells(13, "S") = "x" Then UserForm1.Controls("AF210") = True Else UserForm1.Controls("AF210") = False
  If WÜM.Cells(13, "T") = "x" Then UserForm1.Controls("AF215") = True Else UserForm1.Controls("AF215") = False
  If WÜM.Cells(13, "U") = "x" Then UserForm1.Controls("AF216") = True Else UserForm1.Controls("AF216") = False
  If WÜM.Cells(13, "V") = "x" Then UserForm1.Controls("AF220") = True Else UserForm1.Controls("AF220") = False
  UserForm1.ListBox1.List = WÜM.Range("CellTípusok").Value
  UserForm1.Show
  End Sub

  Eddig működött amíg a rövidítést nem alkalmaztam
  Hibaüzenet " Method of 'range' of object'_Worksheet' failed

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