Hirdetés
- Poco X6 Pro - ötös alá
- Samsung Galaxy Fit 3 - keveset, de jól
- iPhone topik
- Mobil flották
- One mobilszolgáltatások
- Huawei Watch GT 5 Pro - egészség + stílus
- MIUI / HyperOS topik
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Apple iPhone 16 Pro - rutinvizsga
- Azonnali mobilos kérdések órája
-
Mobilarena
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
-
Delila_1
veterán
A gombhoz a Veletlen makrót rendeld, ez hívja meg a Inditas-t.
Sub Veletlen()
Dim kezd As Long, sor As Long
If Range("AA1") = "" Then
Inditas
Else
MsgBox "Nyugi! 5 mp után újra indul" & vbLf & _
"ha ezt leokéztad", vbInformation
Application.Wait Now + TimeValue("0:00:05")
Inditas
End If
Range("AA1") = "Indítva"
End SubSub Inditas()
Dim kezd As Long, sor As Long
kezd = Range("E" & Rows.Count).End(xlUp).Row + 1
If kezd = 2 Then kezd = 1
For sor = kezd To kezd + 4
Cells(sor, "E") = Int(Rnd() * 153) + 1
Next
End SubÉrdemes a ThisWorkbook laphoz rendelni egy makrót, ami a füzet behívásakor kiüríti az AA1 cellát.
Private Sub Workbook_Open()
Sheets("Munka1").Range("AA1") = ""
End Sub
Új hozzászólás Aktív témák
- Csere-Beszámítás! MSI Thin Laptop játékra! I7 11800H / RTX 3050Ti / 32GB DDR4 / 512GB SSD
- LG 27GS95QE - 27" OLED / QHD 2K / 240Hz & 0.03ms / 1000 Nits / NVIDIA G-Sync / AMD FreeSync
- Telefon felvásárlás!! iPhone 11/iPhone 11 Pro/iPhone 11 Pro Max
- GENIUS vezetéknélküli, rózsaszín csajos egér
- CONCORDE TAB DRACO 8GB 7"
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest