- Kaspersky Antivirus és Internet Security Fórum
- A Sony szerint Japánon kívül is hódíthat az anime
- Szilárdtest-akkumulátorokat fejleszt Kína, jöhet az áttörés?
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Windows 11
- A választási tévinformációk ellen küzd a Meta
- Mikrotik routerek
- SQL kérdések
- Aliexpress tapasztalatok
- Hamarosan elképesztő mennyiségű áramot fogyasztanak el az adatközpontok és az AI
-
IT café
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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 SubEddig működött amíg a rövidítést nem alkalmaztam
Hibaüzenet " Method of 'range' of object'_Worksheet' failed[ Szerkesztve ]
"Az élet olyan mint az ásás. Néha pár gyökér feltart, de annak jól odacsapsz és mehetsz tovább!"
Új hozzászólás Aktív témák
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Ozeki Kft.
Város: Debrecen