Hirdetés
- Apple iPhone 12 és 12 Pro duplateszt
- Xiaomi Watch 2 Pro - oké, Google, itt vagyunk mi is
- Apple iPhone 16 Pro - rutinvizsga
- iPhone topik
- Bivalyerős lett a Poco F6 és F6 Pro
- Motorola Edge 40 - jó bőr
- Nothing Phone 2a - semmi nem drága
- OneSport OT07 - szevasztok, hollandok!
- Bemutatkozott a Poco X7 és X7 Pro
- Samsung Galaxy Watch6 Classic - tekerd!
-
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
- TP-Link TD-W9980B dualband Router / modem szinte új, pormentes, dobozban
- ÚJ HP EliteBook 840 G8 - 14"FHD IPS - i5-1145G7 - 32GB - 512GB SSD - Win10 PRO - Garancia
- DELL PowerEdge R730xd 12LFF 48TB+400GB rack szerver - 2xE5-2680v3,128GB RAM,2x10G NET,H730p RAID
- Honor X6b 128GB, Kártyafüggetlen, 1 Év Garanciával
- Apple iPhone 13 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest